Znajdź zawartość

Siema, mam skończoną apkę w VB, wszystko jest cacy, ładnie się otwiera przez jakiś tydzień plus minus, a po tym czasie jak któryś z kolei raz otwieram to wyskakują takie błędy http://screenshooter.net/6425640/fasdxcc jak to ogarnąć?

Witam używam Reactor Theme przy tworzeniu mojego keygena - Bez użycia tego thema jestem święcie przekonany, że wszystkie moje dotychczasowe komendy są w porządku.. Chciałem zobaczyć czy to co wklepuje w kod rzeczywiście działa. Przechodząc do rzeczy nie wiem jakim cudem coś jest nie tak gdy zdebugowałem swój keygen i użyłem funkcji reset wyskoczył następujący błąd. Pojawił się on w kodzie Theme. " Throw New NotImplementedException" O to kod. Public Class Form1 Private Sub ReactorButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReactorButton1.Click If ReactorRadioButton1.Checked = False And ReactorRadioButton2.Checked = False And ReactorRadioButton3.Checked = False Then MessageBox.Show("Select Platform", "Error") Else Timer1.Start() ReactorProgressBar1.Value = ReactorProgressBar1.Minimum If ReactorRadioButton1.Checked Then ReactorRadioButton2.Enabled = False And ReactorRadioButton3.Enabled = False End If If ReactorRadioButton2.Checked Then ReactorRadioButton1.Enabled = False And ReactorRadioButton3.Enabled = False End If If ReactorRadioButton3.Checked Then ReactorRadioButton1.Enabled = False And ReactorRadioButton2.Enabled = False End If End If End Sub Private Sub ReactorButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReactorButton2.Click End End Sub Private Sub ReactorButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReactorButton3.Click ReactorProgressBar1.Value = ReactorProgressBar1.Minimum If ReactorRadioButton1.Checked Then ReactorRadioButton2.Enabled = True And ReactorRadioButton3.Enabled = True End If If ReactorRadioButton2.Checked Then ReactorRadioButton1.Enabled = True And ReactorRadioButton3.Enabled = True End If If ReactorRadioButton3.Checked Then ReactorRadioButton1.Enabled = True And ReactorRadioButton2.Enabled = True End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Timer1.Tick ReactorProgressBar1.Increment(1) If ReactorProgressBar1.Value = ReactorProgressBar1.Maximum Then Timer1.Stop() MessageBox.Show("Key Generated !", "Succes !") End If If ReactorRadioButton1.Checked Thenlosowanie_klucza: Dim AA As Double = Int(Rnd() * 9999) Dim BB As Double = Int(Rnd() * 9999) Dim CC As Double = Int(Rnd() * 9999) Dim DD As Double = Int(Rnd() * 9999) Dim EE As Double = Int(Rnd() * 9999) If AA > 1 And BB > 1 And CC > 1 And DD > 1 And EE > 1 Then If AA + BB + CC + DD + EE = 35560 Then Dim klucz As String = "Your Key: " & AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE klucz = klucz.Replace("2", "G") klucz = klucz.Replace("4", "Z") klucz = klucz.Replace("6", "S") klucz = klucz.Replace("8", "N") ReactorTextBox1.Text = klucz Exit Sub Else GoTo losowanie_klucza End If Else GoTo losowanie_klucza End If End If ReactorProgressBar1.Increment(1) If ReactorProgressBar1.Value = ReactorProgressBar1.Maximum Then Timer1.Stop() End If If ReactorRadioButton2.Checked Thenlosowanie_klucza2: Dim AA As Double = Int(Rnd() * 9999) Dim BB As Double = Int(Rnd() * 9999) Dim CC As Double = Int(Rnd() * 9999) Dim DD As Double = Int(Rnd() * 9999) Dim EE As Double = Int(Rnd() * 9999) If AA > 1 And BB > 1 And CC > 1 And DD > 1 And EE > 1 Then If AA + BB + CC + DD + EE = 35560 Then Dim klucz2 As String = "Your Key: " & AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE klucz2 = klucz2.Replace("3", "F") klucz2 = klucz2.Replace("4", "Z") klucz2 = klucz2.Replace("5", "T") klucz2 = klucz2.Replace("8", "N") ReactorTextBox1.Text = klucz2 Exit Sub Else GoTo losowanie_klucza2 End If Else GoTo losowanie_klucza2 End If End If ReactorProgressBar1.Increment(1) If ReactorProgressBar1.Value = ReactorProgressBar1.Maximum Then Timer1.Stop() End If If ReactorRadioButton3.Checked Thenlosowanie_klucza3: Dim AA As Double = Int(Rnd() * 9999) Dim BB As Double = Int(Rnd() * 9999) Dim CC As Double = Int(Rnd() * 9999) Dim DD As Double = Int(Rnd() * 9999) Dim EE As Double = Int(Rnd() * 9999) If AA > 1 And BB > 1 And CC > 1 And DD > 1 And EE > 1 Then If AA + BB + CC + DD + EE = 35560 Then Dim klucz3 As String = "Your Key: " & AA & "-" & BB & "-" & CC & "-" & DD & "-" & EE klucz3 = klucz3.Replace("5", "B") klucz3 = klucz3.Replace("4", "Z") klucz3 = klucz3.Replace("3", "L") klucz3 = klucz3.Replace("8", "N") ReactorTextBox1.Text = klucz3 Exit Sub Else GoTo losowanie_klucza3 End If Else GoTo losowanie_klucza3 End If End If Label1.Text = ReactorProgressBar1.Value & " %" End SubEnd Class Co robię źle? VB w kodzie nie widzi błędu, lecz widzi go theme jakieś rady?