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 )
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
Hoffe ihr helft mir weiter!
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 )
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!:
VB.NET-Quellcode
- Imports System.Net.Mail
- Public Class LizenzFunktionv1
- Dim Msg As New MailMessage
- Dim preisderlizenz As String
- Dim myCredentials As New System.Net.NetworkCredential
- Dim empfängerdermail As String
- Dim passwort As String
- Dim user As String
- Dim smtp As String
- Dim port As String
- Dim ftpserialordner As String
- 'Bestimme Server:
- Dim SERVERSMTPZUMMAILSENDEN As New SmtpClient
- Public Property MailLoginname()
- Get
- Return user
- End Get
- Set(ByVal value)
- user = value
- End Set
- End Property
- Public Property smtpport()
- Get
- Return port
- End Get
- Set(ByVal value)
- port = value
- End Set
- End Property
- Public Property serverordner()
- Get
- Return ftpserialordner
- End Get
- Set(ByVal value)
- ftpserialordner = value
- End Set
- End Property
- Public Property deinemail()
- Get
- Return empfängerdermail
- End Get
- Set(ByVal value)
- empfängerdermail = value
- End Set
- End Property
- Public Property programmpreis()
- Get
- Return preisderlizenz
- End Get
- Set(ByVal value)
- preisderlizenz = value
- End Set
- End Property
- Public Property deinemailpasswort()
- Get
- Return passwort
- End Get
- Set(ByVal value)
- passwort = value
- End Set
- End Property
- Public Property mailsmtp()
- Get
- Return smtp
- End Get
- Set(ByVal value)
- smtp = value
- End Set
- End Property
- Public Sub HILFEanzeigen()
- 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!")
- End Sub
- Private Sub UserControl1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- checker.Hide()
- ProgressBar2.Hide()
- leseserialundchecke.Hide()
- serialgenerator.Hide()
- ProgressBar1.Hide()
- seingenerierterserial.Hide()
- If user = "" Then
- user = "1"
- End If
- If passwort = "" Then
- passwort = "1"
- End If
- Label1.Text = "Der Preis der Lizenz beträgt " & preisderlizenz & "€"
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If käufermail.Text.Contains("@") Then
- Timer2.Start()
- Else
- MsgBox("Die E-Mail ist nicht korrekt!", MsgBoxStyle.Critical, "Mail Check fehlgeschlagen!")
- End If
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- ProgressBar1.Value = 5
- If ProgressBar1.Value = 100 Then
- Timer1.Stop()
- ProgressBar1.Value = 0
- leseserialundchecke.Text = checker.DocumentText
- If RichTextBox2.Text.Contains(leseserialundchecke.Text) Then
- MsgBox("Erfolgreich Registriert, das Programm startet sich neu!", MsgBoxStyle.Information, "Registriert!")
- Try
- My.Computer.FileSystem.WriteAllText("C:\temp\--..serial-allowed.ini", "yes", False)
- Catch ex As Exception
- End Try
- Else
- MsgBox("Fehler, Serial falsch, kontrollieren Sie nochmals den Namen, Nachnamen und den Serial!", MsgBoxStyle.Critical, "Fehler!!!")
- End If
- End If
- End Sub
- Public Sub MakeSerial()
- serialgenerator.Document.GetElementById("plain").InnerText = (vorname.Text & "_" & nachname.Text & " - " & käufermail.Text)
- Dim elem As Windows.Forms.HtmlElement
- For Each elem In serialgenerator.Document.All
- If (elem.GetAttribute("value") = "Verschlüsseln") Then
- elem.InvokeMember("click")
- End If
- Timer2.Start()
- Next
- seingenerierterserial.Text = serialgenerator.Document.GetElementById("hash").InnerText
- End Sub
- Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
- ProgressBar2.Value += 5
- If ProgressBar2.Value = 100 Then
- Timer2.Stop()
- ProgressBar2.Value = 0
- If ProgressBar2.Value = 0 Then
- If seingenerierterserial.Text = "" Then
- MakeSerial()
- Else
- Try
- SERVERSMTPZUMMAILSENDEN.Host = user
- SERVERSMTPZUMMAILSENDEN.Port = port
- myCredentials.UserName = user
- myCredentials.Password = passwort
- SERVERSMTPZUMMAILSENDEN.UseDefaultCredentials = False
- SERVERSMTPZUMMAILSENDEN.Credentials = (myCredentials)
- MsgBox("Bitte warten...", MsgBoxStyle.Information, "Einen Moment!")
- Msg.From = New MailAddress(käufermail.ToString)
- Msg.To.Add(empfängerdermail.ToString)
- Msg.Subject = "Serial für " & vorname.Text & "_" & nachname.Text
- 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"
- SERVERSMTPZUMMAILSENDEN.Send(Msg)
- 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")
- Catch ex As Exception
- MsgBox("Unbekannter Fehler! Bitte melden Sie sich an den Hersteller des Produktes!", MsgBoxStyle.Critical, "Fehler!")
- End Try
- End If
- End If
- End If
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- Me.Hide()
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- Me.Hide()
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- checker.Navigate(serverordner & TextBox1.Text & "_" & TextBox2.Text & ".ini")
- Timer1.Start()
- MsgBox("Einen Moment bitte...", MsgBoxStyle.Information, "Einen Moment...")
- End Sub
- Private Sub checker_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles checker.DocumentCompleted
- End Sub
- End Class
Hoffe ihr helft mir weiter!