PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : [VB.Net] Kleines Anfänger Programm



MrX
23.12.2008, 00:32
Hay.
Also will mal son verarsche programm machen womit man "angeblich" Msn pw´s hacken kann.
So jetzt hab ich ne textbox wo die addy rein kommt, 2 button (Hack & Close)
& ne Progressbar.
So jetzt wollt ich das so haben, dass wenn man auf "Hack" klickt die progressbar 1 min laufen soll & dann ne messagebox erscheinen soll mit dem "angeblichen" PW drinne...
Klappt auch alles mit der progressbar nur öffnet sich dann keine messagebox wenn die progressbar voll ist ?!
kann mir vll jemand helfen ? weiß nicht mehr weiter ><
Wird bestimmt nur ein winziger fehler sein bloß ich find ihn nicht -.-
hier ma der code:


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 600
Timer1.Interval = 100
Timer1.Enabled = True
If ProgressBar1.Maximum = True Then
MessageBox.Show _
("Nick: " _
& TextBox1.Text & _
vbCr & "Passwort: Test", _
"MSN H4cker", _
MessageBoxButtons.OK, _
MessageBoxIcon.Information)
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub

Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 600 Then Timer1.Enabled = False

End Sub
End Class

Danke schonmal für Hilfe^^

Hennieliminator
23.12.2008, 00:52
pack das


If ProgressBar1.Maximum = True Then
MessageBox.Show _
("Nick: " _
& TextBox1.Text & _
vbCr & "Passwort: Test", _
"MSN H4cker", _
MessageBoxButtons.OK, _
MessageBoxIcon.Information)
End If

weg
und ppack das


If ProgressBar1.Value = 600 Then
MessageBox.Show _
("Nick: " _
& TextBox1.Text & _
vbCr & "Passwort: Test", _
"MSN H4cker", _
MessageBoxButtons.OK, _
MessageBoxIcon.Information)
End If

ans ende von Timer1_Tick

dann müsste das klappen

edit:
Erklärung:
Progressbar1.Maximum ist ja immer 600...
und die If wird nur einmal ausgeführt sobald der Button geklickt wird..

also Progressbar1.Value (der wert der sich immer ändert)
in Timer1_Tick (wird schließlich immer aufgerufen wenn der wert erhöht wird)

edit2:
argh zu müde.. schau nochmal oben bei mir in den code.. hab da noch das = in der if in ein == gewandelt.. das ist der richtige operator für das^^.. falsch wieder zurückgenommen

MrX
23.12.2008, 00:57
Ja man funktioniert einwandfrei. Ich danke dir vielmals :)

Added after 49 seconds:

edit:
warum == ? funzt doch auch so :P

Sawyer
23.12.2008, 01:08
edit:
warum == ? funzt doch auch so :P

es funktioniert zwar , rein von der logik sollten es 2 sein

vb.net lässt das so allerdings wie du bemerkt hast zu

C# jedoch würde == verlangen ;)

MfG

Hennieliminator
23.12.2008, 01:09
echt eigentlich ist = der zuweisungsoperator und == der vergleichsoperator

oder war das nur bei PHP so?

ich kenn das so:
wenn da steht if Progressbar1.Value = 600
dann wird die if druchlaufen wenn die zuweisung erfolgreich war
wenn da steht if Progressbar1.Value == 600
dann wird die if durchlaufen wenn die Variable Progressbar1.Value den wert 600 hat..

ach verdammt war das wirklich nicht in vb und php so? in php auf jeden fall
damn xD

edit:
mir fällt grad auf wie lang ich diesen operator nichmehr gebraucht hab xD
du hast recht
das muss mit = sein und nicht mit ==
ich hab das mit php verwechselt, vergiss alles was ich gesagt hab..^^

edit2:
papst vb.net (in studio 2005) lässt keine 2 (also ==) zu..^^
mich wunderts auch grad

MrX
23.12.2008, 11:31
hehe ok danke euch beiden :)