Ich nochmal, Sorry..
Kann mir jemand dabei helfen, die Abfragfunktion vor mein Programm zu setzen?
Bei mir zeigt er die normale Userform & die Abfrage-Userform an.
Ich hab momentan folgenden Code in dem Load-Event der Normalen Userform des Programms:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
If Not My.Settings.Aktiviert Then
Generate()
End If
ProduktKeyAbfrage.ShowDialog() ProduktKeyAbfrage ist die Userform mit folgendem Code:
Public Class ProduktKeyAbfrage
Private Sub ProduktKeyAbfrage_Load(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles MyBase.Load
If Check() Then
Act = True
Me.Close()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
ServerVerbindung.Show()
Application.DoEvents()
Try
Dim S As String = My.Computer.FileSystem.GetTempFileName()
My.Computer.FileSystem.DeleteFile(S)
My.Computer.Network.DownloadFile( _
"http://awesomedart.hostingsociety.com/act/nanticopykeys.php?app" & _
"AwesomeDart&key=" & Key.Text, S)
Dim X As String = My.Computer.FileSystem.ReadAllText(S)
If CInt(X.Split(";")(0)) > 0 Then
If CInt(X.Split(";")(1)) > 0 Then
Generate()
Act = True
If Check() Then
MsgBox("Der Schlüssel ist gültig. AwesomeDart wurde" & _
"aktiviert. " & vbCrLf & vbCrLf & _
"Sie dürfen diesen Schlüssel noch " & _
(CInt(X.Split(";")(1)) - 1) & _
" Mal für eine Neuinstallation auf diesem PC" & _
"verwenden.")
Else
MsgBox("Der Schlüssel ist gültig. AwesomeDart konnte" & _
"allerdings " & _
"nicht aktiviert werden. " & _
"Bitte überprüfen Sie, ob Ihr Installationsordner" & _
"schreibgeschützt ist.", _
MsgBoxStyle.Exclamation)
End If
Else
MsgBox("Der Schlüssel ist gültig, aber die maximale Anzahl" & _
"der " & _
"Aktivierungen für diesen " & _
"Schlüssel wurde überschritten." & vbCrLf & vbCrLf & _
"Bitte wenden Sie sich an den Entwickler von" & _
"AwesomeDart.", MsgBoxStyle.Exclamation)
End If
Else
MsgBox("Der Lizenzschlüssel ist ungültig. Bitte überprüfen Sie" & _
"ihn auf " & _
"Tippfehler, oder wenden " & _
"Sie sich an den Entwickler von AwesomeDart.", _
MsgBoxStyle.Critical)
ServerVerbindung.Hide()
Exit Sub
End If
Catch ex As Exception
MsgBox("AwesomeDart konnte aufgrund eines Fehlers nicht aktiviert" & _
"werden. " & _
"Bitte überprüfen Sie ihre Internetverbindung.", _
MsgBoxStyle.Critical)
ServerVerbindung.Hide()
Exit Sub
End Try
ServerVerbindung.Hide()
Me.Close()
End Sub
End Class Den restlichen Code habe ich in ein Modul gelegt. Wie mache ich es nun, dass mein Programm garnicht erst angezeigt wird, bevor der Key noch nicht eingegeben & überprüft wurde?
Mfg, pnrooob |