kshadow22

Registering With Online Serials Visual Basic

Sep 6th, 2015
76
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  Dim CountingCheck As String = Nothing
  2.         Dim Content As String = Nothing
  3.         CountingCheck = Len(TextBox1.Text)
  4.         If CountingCheck <> 29 Then
  5.             MessageBox.Show("Your serial is fake.")
  6.             GoTo EndOfScript
  7.         End If
  8.         Try
  9.             If System.IO.File.Exists(Application.StartupPath & "\Serial.txt") Then
  10.                 System.IO.File.Delete(Application.StartupPath & "\Serial.txt")
  11.             End If
  12.             My.Computer.Network.DownloadFile("YOUR URL", Application.StartupPath & "\Serial.txt")
  13.             If System.IO.File.Exists(Application.StartupPath & "\Serial.txt") Then
  14.                 Dim objreader As New System.IO.StreamReader(Application.StartupPath & "\Serial.txt")
  15.                 Content = objreader.ReadToEnd
  16.                 Dim a As String
  17.                 Dim b As String
  18.                 a = TextBox1.Text 'find
  19.                b = InStr(Content, a)
  20.                 If b Then
  21.                     MsgBox("Congrats! You are registered!")
  22.                 Else
  23.                     MsgBox("We could not get you registered. Incorrect Serial")
  24.                 End If
  25.  
  26.                 objreader.Close()
  27.             End If
  28.         Catch ex As Exception
  29.             MessageBox.Show(ex.Message.ToString)
  30.         End Try
  31.  
  32. EndOfScript:
RAW Paste Data