VB.Net Problem mit Loop

[DXStriker]

Heyho E*PvP,
Ich habe vor kurzem angefangen mit VB.net zu arbeiten. Nun habe ich mir für Spaßzwecke einen League of Legends zoomhack programmiert.
Leider gibt es 2 Probleme :

- Das Programm reagiert nicht mehr, wenn ich auf den ON button geklickt habe und das Programm somit in der Loop läuft (sprich ich kann in der Form1 nichts mehr klicken etc.)

- Wie kann ich mit dem OFF button die Loop beenden und dann auf den Normalwert zurückkehren?
Das Programm ist im Anhang und zu 100% clear von Viren.

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Do
            WriteInteger("League of Legends", &HB5852A, 17725)
            Threading.Thread.Sleep(300)
        Loop
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WriteInteger("League of Legends", &HB5852A, 17675)
    End Sub
End Class

Ich würde mich freuen, wenn mir jemand bei diesem Problem helfen könnte. :/

greetz DXStriker

[qickly]

Das ist doch klar, da die Funktion nie beendet wird und damit auch die Form nicht mehr abrufbar ist. Mach das am besten mit einem Timer und ohne Loop....

Timer1.Start()
Timer1.Stop()

[tolio]

applicaton.doevents ist das zauberwort

und kA ob Threading.Thread.Sleep(300) überhaupt so an der stelle funktioniert

[MissUnderstoodOne]

Die baust einen Thread ein...

Hierzu musst du erst noch eine Funktion erstellen
Und zum Abbrechen baust du eine globale Variable ein...

PHP Code:

private zoom as boolean = false
private sub ZoomHack_an()
        while zoom
                WriteInteger("League of Legends", &HB5852A, 17725)
                Threading.Thread.Sleep(300)
        end while
end sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        zoom = true
        dim t as new Threading.Thread(AddressOf ZoomHack_an)
        t.start
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        zoom = false
        WriteInteger("League of Legends", &HB5852A, 17675)
    End Sub 


so kannst du das in die Form einfügen, denk ich(Hab das alles Freihand geschrieben...)

[DXStriker]

Originally Posted by MissUnderstoodOne

Die baust einen Thread ein...

Hierzu musst du erst noch eine Funktion erstellen
Und zum Abbrechen baust du eine globale Variable ein...

PHP Code:

private zoom as boolean = false
private sub ZoomHack_an()
        while zoom
                WriteInteger("League of Legends", &HB5852A, 17725)
                Threading.Thread.Sleep(300)
        end while
end sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        zoom = true
        dim t as new Threading.Thread(AddressOf ZoomHack_an)
        t.start
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        zoom = false
        WriteInteger("League of Legends", &HB5852A, 17675)
    End Sub 


so kannst du das in die Form einfügen, denk ich(Hab das alles Freihand geschrieben...)

Hey danke für die schnelle Antwort. Dacht ich mir schon, dass ich mit dem Loop falsch liege . Aber sowas hab ich gesucht!

mfg DXStriker


#closerequest

[Kraizy​]

Originally Posted by tolio

applicaton.doevents ist das zauberwort

Nein lieber nicht :/
Ein extra Thread dafür ist schon richtig so

[tolio]

Originally Posted by xKraizy

Nein lieber nicht :/
Ein extra Thread dafür ist schon richtig so

sicher ist nen extra thread schöner, aber doevents hat auch so manche vorteile