テキストボックスを持つプロダクト キー システムを作成しました。アクティブにすると、アクティブなプロダクト キーを含む txt ファイルが読み込まれ、テキスト ボックスのテキストがテキスト ファイル内のアクティブなコードの 1 つと同じであることを確認します。ただし、無効なコードを入力すると、フリーズして死にます! 多分悪いコード?これが私のコードです:
Dim code As String
code = TextBox1.Text
Try
Dim sr As IO.StreamReader = New IO.StreamReader("C:\Users\Chris\test.txt")
Dim line As String
Do
line = sr.ReadLine
Loop Until line = code
sr.Close()
my.settings.registered=True
MsgBox("Your code is valid")
Catch ex As Exception
MsgBox("You have entered an invalid code, please try again", MsgBoxStyle.Critical)
End Try