Help Trainer not responding???

[TheCodKingz10]

ok i FINALLY figured out how to freeze my value but NOW im having a worse problem when i click he check-box on my program to freeze it, the entire trainer itself stops responding. the ammo on the game is frozen like i want it to be!, but the trainer stop responding....-_- any help is greatly appreciated heres the code im using

Private Sub CheckBox1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxHealth.CheckedChanged
If CheckBoxHealth.Checked = True Then
For i = 1 To 9999 Step 0
memoryh4x(&H176C8B8, 9999, 4)
Next
Else
memoryh4x(&H176C8B8, 1, 4)
End If

[barata]

ok i FINALLY figured out how to freeze my value but NOW im having a worse problem when i click he check-box on my program to freeze it, the entire trainer itself stops responding. the ammo on the game is frozen like i want it to be!, but the trainer stop responding....-_- any help is greatly appreciated heres the code im using

Private Sub CheckBox1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxHealth.CheckedChanged
If CheckBoxHealth.Checked = True Then
For i = 1 To 9999 Step 0
memoryh4x(&H176C8B8, 9999, 4)
Next
Else
memoryh4x(&H176C8B8, 1, 4)
End If

LoL you created another thread but ok, your trainer is probably not responding because of the fact the loop you are making has no wait time.

Code:

For i = 1 To 9999 Step 0
                memoryh4x(&H176C8B8, 9999, 4)
     [color=#FF0000]Sleep(1000) // this is in miliseconds.[/color]
            Next
        Else
            memoryh4x(&H176C8B8, 1, 4)
        End If

But then you have to declare this in your form:

Code:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

So the "Sleep" command will be available.

I dont know if this works but if i helped you Press the Thanks Button xD

PS: Sleep wont work for what you want because it suspends all activity from program.

Instead of Sleep try this:

First Of All Create a Module(if you dont have one already) and declare this:

Code:

Public Declare Function GetTickCount Lib "kernel32" () As Long

Code:

Public Sub wait(ByVal dblMilliseconds As Double)
    Dim dblStart As Double
    Dim dblEnd As Double
    Dim dblTickCount As Double
    
    dblTickCount = GetTickCount()
    dblStart = GetTickCount()
    dblEnd = GetTickCount + dblMilliseconds
    
    Do
    DoEvents
    dblTickCount = GetTickCount()
    Loop Until dblTickCount > dblEnd Or dblTickCount < dblStart
      
    
End Sub

Then just use "Wait" like "Sleep":

Code:

For i = 1 To 9999 Step 0
                memoryh4x(&H176C8B8, 9999, 4
wait(1000) // this is in miliseconds.
            Next
        Else
            memoryh4x(&H176C8B8, 1, 4)
        End If

Suggestion: Instead Of "For" use "While"

Code:

While 1
                memoryh4x(&H176C8B8, 9999, 4
[color=#FF0000]wait(1000) // this is in miliseconds.[/color]
           While End
        Else
            memoryh4x(&H176C8B8, 1, 4)
        End If

Thanks Barata...

[TheCodKingz10]

nevermind my last post, i just fixed that but when i use wait(1000) i get waitis not declared and is inaccesible due to its protection level

[d0h!]

@barata pls use code or cpp tags
@TheCodKingz10 no need to quote everything if you answer on his post.