JSC SPORT Key Finder_V3 by mafia_DZ

[Mafia_DZ]

JSC SPORT Key Finder_V3_______this program is not like the previous one .it was updated by mafia_dz .a program for jsc sport key .for 10_01_2013 first to put this program on the website

[Ghostenigma]

Nice,nice!
I saw the code and didn't like the way app was coded!
It is very slow and not clean coded!
Why not use regex and parse directly in textboxes instead downloadstring,saving the file,read file and then show them in textboxes!!!
It is more clear,more faster...
But anyway it does the work and give credits to site where you are downloading the keys

 Try
        New WebClient().DownloadFile("http://www.uydu.ws/deneme6.php?file=SoftCam.Key", "SoftCam.Key")        Dim reader As StreamReader = File.OpenText("SoftCam.Key")        Dim str As String = reader.ReadToEnd        reader.Close        Me.TextBox1.Text = str    Catch exception1 As Exception        ProjectData.SetProjectError(exception1)        Dim exception As Exception = exception1        ProjectData.ClearProjectError    End Try    Try         Dim num2 As Double = 99        Me.TextBox2.Text = Conversions.ToString(0)        Dim num As Double = (100 / num2)        Dim num4 As Double = num2        Dim i As Double = 0        Do While (i <= num4)            Me.ProgressBar1.Value = CInt(Math.Round(CDbl((Me.ProgressBar1.Value + num))))            Me.TextBox2.Text = Conversions.ToString(CDbl((Conversions.ToDouble(Me.TextBox2.Text) + 1)))            Dim str2 As String = Me.TextBox1.Lines(Conversions.ToInteger(Me.TextBox2.Text)).ToString            If str2.Contains("I 060300 08") Then                Me.TextBox3.Text = str2.ToString                Me.TextBox3.Text = Me.TextBox3.Text.Replace("dzhack", "")                Me.TextBox3.Text = Me.TextBox3.Text.Replace("I 060300 08 ", "")            End If            If str2.Contains("I 060300 06") Then                Me.TextBox4.Text = str2.ToString                Me.TextBox4.Text = Me.TextBox4.Text.Replace("dzhack", "")                Me.TextBox4.Text = Me.TextBox4.Text.Replace("I 060300 06 ", "")            End If            i += 1        Loop        MessageBox.Show("Enjoy With Abdelatif !" & ChrW(13) & ChrW(10) & "Startimes2 moderator has baned my account", "Abdelatif 2013")        New FileInfo("SoftCam.Key").Delete    Catch exception3 As Exception        ProjectData.SetProjectError(exception3)        Dim exception2 As Exception = exception3        ProjectData.ClearProjectError     End Try