Dll Problem: Lizenz-Kauf, E-Mail senden, weiterkommen ;-(

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Kangaroo.

    Dll Problem: Lizenz-Kauf, E-Mail senden, weiterkommen ;-(

    Hallo, ganz einfach ich brauche unbedingt eure Hilfe!

    Also ich habe eine .dll entwickelt, in der man für sein Programm ein Serial kaufen kann usw.

    (Die .dll wollte ich euch free ohne copyright geben :thumbsup: )

    Grundlegendes:
    - Man legt Seinen SMPT-Server, SMTP-Port, Loginname, Passwort, FTP-Server, und seine E-mail fest!
    (Verschiedenste Commandos z.B: Lizenz...v1.serverordner = "ftp-server/serials"
    - Die Serials werden auf einer anderen Seite zu einem MD5-Code umgerendert, der Serial beinhaltet:
    Name_Nachname - E-Mail@E-Mail.de
    - Danach wenn man auf den Button draufklickt "Serial bestellen" sollte eine E-Mail mit dem Namen nachnamen email und dem serial an den verkäufer zugeschickt werden, der sollte den käufer informieren wie er das bezahlt wenn er es bezahlt hat... passiert:

    Verkäufer lädt Serial in einer .ini Datei hoch mit dem Vornamen_Nachnamen des Käufers!
    Programm checkt: serverordner & vorname.text & "_" & nachname.txt & ".ini" nach dem Serial was eingegeben worden ist!
    Den Rest kapiert ihr hoffe ich im Code hier der Code, nun mein Problem:
    Wenn ich Serial bestellen drücke, passiert gar nichts mehr! ;( ;(

    Code des Projekts (.dll) -> Wenn ihr wollt lade ich das Projekt auch hoch!:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net.Mail
    2. Public Class LizenzFunktionv1
    4. Dim Msg As New MailMessage
    5. Dim preisderlizenz As String
    6. Dim myCredentials As New System.Net.NetworkCredential
    7. Dim empfängerdermail As String
    8. Dim passwort As String
    9. Dim user As String
    10. Dim smtp As String
    11. Dim port As String
    12. Dim ftpserialordner As String
    13. 'Bestimme Server:
    14. Dim SERVERSMTPZUMMAILSENDEN As New SmtpClient
    15. Public Property MailLoginname()
    16. Get
    17. Return user
    18. End Get
    19. Set(ByVal value)
    20. user = value
    21. End Set
    22. End Property
    23. Public Property smtpport()
    24. Get
    25. Return port
    26. End Get
    27. Set(ByVal value)
    28. port = value
    29. End Set
    30. End Property
    31. Public Property serverordner()
    32. Get
    33. Return ftpserialordner
    34. End Get
    35. Set(ByVal value)
    36. ftpserialordner = value
    37. End Set
    38. End Property
    39. Public Property deinemail()
    40. Get
    41. Return empfängerdermail
    42. End Get
    43. Set(ByVal value)
    44. empfängerdermail = value
    45. End Set
    46. End Property
    47. Public Property programmpreis()
    48. Get
    49. Return preisderlizenz
    50. End Get
    51. Set(ByVal value)
    52. preisderlizenz = value
    53. End Set
    54. End Property
    55. Public Property deinemailpasswort()
    56. Get
    57. Return passwort
    58. End Get
    59. Set(ByVal value)
    60. passwort = value
    61. End Set
    62. End Property
    63. Public Property mailsmtp()
    64. Get
    65. Return smtp
    66. End Get
    67. Set(ByVal value)
    68. smtp = value
    69. End Set
    70. End Property
    72. Public Sub HILFEanzeigen()
    73. MsgBox("Bei deinamail ihre E-Mail Addresse, bei serverordner den FTP-Server wo du später die Serials hochlädst, gleich mehr dazu! Bei empfängermailpasswort das E-Mail Passwort, bei user ihren loginnamen, bei port den smtp port, und zu gut erletzt bei mailsmtp ihren SMTP-Server! Bei programmpreis bitte nur den Wert reinschreiben z.B 5 oder 5,50 mehr nicht! Das Euro wird automatisch hinzugefügt! Danach wenn der Käufer bestellt bekommst du eine automatische Nachricht mit dem Betreff 'Serial für Vorname_Nachname' wenn du diese öffnest siehst du dort den Lizenzschlüssel, den Vornamen und Nachnamen dazu der E-Mail des Bestellers, danach meldest du dich bei ihm, und sagst ihm, wie er bezahlen soll, wenn er bezahlt hat, erstellst du auf den eingegebenen serverordner d.h z.b serverordner: www.test.te.funpic.de/serials, dann musst du dort seinen Serial hochladen mit dem Namen 'Vornamen_Nachname.ini' einfach eine Textdatei mit den Inhalt des Serials! Das _ muss mit und der Dateityp .ini müssen inbegriffen sein, danach erst schickst du ihm die Nachricht ab, wenn er den Serial aktiviert hat, speichert das Programm eine .ini Datei mit den Daten ab, und danach, musst du es auslesen es wird unter folgenden Pfad gespeichert: C:\temp\--..serial-allowed.ini, dort ist der Text: yes, drinnen! Du darfst die Lizenz NICHT vom Server runterlöschen, sonst bugt der Vorgang! Der Auslesevorgang stellst du so her, du machst am anfang des programmes if my.computer.filesystem.fileexist(C:\temp\--..serial-allowed.ini then DORT machst du das die .ini Datei in eine Textbox geladen wird, und dort schreibste If Textbox1.text.contains(*yes*) then Hier dann die Form öffnen, was passiert wenn er den Serial hatt, dnach else HIER passiert das wenn er den serial nicht hat danach End If fertig! Tutorial im vb-Paradise Forum!")
    74. End Sub
    76. Private Sub UserControl1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    77. checker.Hide()
    78. ProgressBar2.Hide()
    79. leseserialundchecke.Hide()
    80. serialgenerator.Hide()
    81. ProgressBar1.Hide()
    82. seingenerierterserial.Hide()
    83. If user = "" Then
    84. user = "1"
    85. End If
    86. If passwort = "" Then
    87. passwort = "1"
    88. End If
    89. Label1.Text = "Der Preis der Lizenz beträgt " & preisderlizenz & "€"
    90. End Sub
    91. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    92. If käufermail.Text.Contains("@") Then
    93. Timer2.Start()
    94. Else
    95. MsgBox("Die E-Mail ist nicht korrekt!", MsgBoxStyle.Critical, "Mail Check fehlgeschlagen!")
    96. End If
    97. End Sub
    99. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    100. ProgressBar1.Value = 5
    101. If ProgressBar1.Value = 100 Then
    102. Timer1.Stop()
    103. ProgressBar1.Value = 0
    104. leseserialundchecke.Text = checker.DocumentText
    105. If RichTextBox2.Text.Contains(leseserialundchecke.Text) Then
    106. MsgBox("Erfolgreich Registriert, das Programm startet sich neu!", MsgBoxStyle.Information, "Registriert!")
    107. Try
    108. My.Computer.FileSystem.WriteAllText("C:\temp\--..serial-allowed.ini", "yes", False)
    109. Catch ex As Exception
    110. End Try
    111. Else
    112. MsgBox("Fehler, Serial falsch, kontrollieren Sie nochmals den Namen, Nachnamen und den Serial!", MsgBoxStyle.Critical, "Fehler!!!")
    113. End If
    114. End If
    115. End Sub
    116. Public Sub MakeSerial()
    117. serialgenerator.Document.GetElementById("plain").InnerText = (vorname.Text & "_" & nachname.Text & " - " & käufermail.Text)
    118. Dim elem As Windows.Forms.HtmlElement
    119. For Each elem In serialgenerator.Document.All
    120. If (elem.GetAttribute("value") = "Verschlüsseln") Then
    121. elem.InvokeMember("click")
    122. End If
    123. Timer2.Start()
    124. Next
    125. seingenerierterserial.Text = serialgenerator.Document.GetElementById("hash").InnerText
    126. End Sub
    128. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    129. ProgressBar2.Value += 5
    130. If ProgressBar2.Value = 100 Then
    131. Timer2.Stop()
    132. ProgressBar2.Value = 0
    133. If ProgressBar2.Value = 0 Then
    134. If seingenerierterserial.Text = "" Then
    135. MakeSerial()
    136. Else
    137. Try
    138. SERVERSMTPZUMMAILSENDEN.Host = user
    139. SERVERSMTPZUMMAILSENDEN.Port = port
    140. myCredentials.UserName = user
    141. myCredentials.Password = passwort
    142. SERVERSMTPZUMMAILSENDEN.UseDefaultCredentials = False
    143. SERVERSMTPZUMMAILSENDEN.Credentials = (myCredentials)
    144. MsgBox("Bitte warten...", MsgBoxStyle.Information, "Einen Moment!")
    145. Msg.From = New MailAddress(käufermail.ToString)
    146. Msg.To.Add(empfängerdermail.ToString)
    147. Msg.Subject = "Serial für " & vorname.Text & "_" & nachname.Text
    148. Msg.Body = "Serial für: " & vorname.Text & " " & nachname.Text & "," & vbNewLine & "Seine E-Mail lautet: " & käufermail.Text & vbNewLine & vbNewLine & "Sein Serial lautet:" & vbNewLine & seingenerierterserial.Text & vbNewLine & "Ohne diesen Satz, der MD5-Code ist der Serial!" & vbNewLine & vbNewLine & vbNewLine & "(Nicht beachten:) Professionelles Lizenz-Kaufsystem bei Dominic Poppe ;-D"
    149. SERVERSMTPZUMMAILSENDEN.Send(Msg)
    150. MsgBox("Ok, warten Sie nun auf die E-Mail vom Verkäufer, er schickt Ihnen dann die möglichen Bezahlungsarten usw., nachdem Sie bezahlt haben, bekommen Sie in innerhalb von max. 3 Tagen den Serial-Code per E-Mail gesendet! Danach drücken Sie oben Rechts auf Serial eingeben, dort geben Sie alles ein, und das Programm ist registriert!", MsgBoxStyle.Information, "Informationen & Erfolgreiche Bestellung")
    151. Catch ex As Exception
    152. MsgBox("Unbekannter Fehler! Bitte melden Sie sich an den Hersteller des Produktes!", MsgBoxStyle.Critical, "Fehler!")
    153. End Try
    154. End If
    155. End If
    156. End If
    157. End Sub
    159. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    160. Me.Hide()
    161. End Sub
    163. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    164. Me.Hide()
    165. End Sub
    167. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    168. checker.Navigate(serverordner & TextBox1.Text & "_" & TextBox2.Text & ".ini")
    169. Timer1.Start()
    170. MsgBox("Einen Moment bitte...", MsgBoxStyle.Information, "Einen Moment...")
    171. End Sub
    173. Private Sub checker_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles checker.DocumentCompleted
    175. End Sub
    176. End Class


    Hoffe ihr helft mir weiter!

    Ich gebe zu ich habe den Code nicht vollständig gelesen, aber da bisher keiner geantwortet hat meine 5 Cent dazu.

    domipoppe schrieb:

    Wenn ich Serial bestellen drücke, passiert gar nichts mehr!

    Ich denke die Key-Frage lautet hier: wo drückst Du eigentlich "Serial bestellen" ?

    Deine gelistete Klasse enthält Buttons, aber scheint nirgendwo in ein UserControl eingebettet, wie kommt das ? Wenn diese Klasse Teil einer Class-Library ist, dann muss sie oder ihr Container vom Typ UserControl geerbt haben ...

Facebook
Telefonspende