vb6 question

[ferrar1000]

how i can set value of "WriteALong" tith a TextBox?

i try with: WriteALong("WarRock", &HXXXXXX, Text1)

but don't work

plz help me i making a trainer for WarRock

EDIT: i heve other question: how i can close a program with a button?

[ZeaS]

for value boxes... are here turial, too -.- USE SEARCH FUNCTION

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then
'Defines the keys to activate the change under this If statement.
    Dim SJ As Long
    Dim SJ1 As Long
    Dim SJ2 As Single
    'Defines the variables to be set and what type of value type they are.
    'Make sure the last variable is set to a single.
    Call ReadALong("WarRock", &Hadress, SJ)
    'Reads a long value type from the address adress and sets the outcome
    'of that to the variable SJ
    SJ1 = SJ + &H180
    'Sets SJ1 to the variable set earlier (SJ) + the pointer 180.
    SJ2 = Text1.Text
    'SJ2 is set to what number is in the text box.
    Call WriteAFloat("WarRock", SJ1, SJ2)
    'Writes a FLOAT at the point SJ1 (address + pointer) and sets it to
    'what is in the text box.
    
End If
'Ends the If statement for the hotkeys.

put this in timer (interval = 100) NEXT TIME USE SEARCH FUNTION

for close trainer with button, don`t know really

if you wan`t close form1, then do this (put into button)

form1.enabled = false
form1.visible = false

it close, but look task manager... exe already here...^^

[ferrar1000]

for close trainer with button, don`t know really

if you wan`t close form1, then do this (put into button)

form1.enabled = false
form1.visible = false

it close, but look task manager... exe already here...^^

yes, but i want close the program, no hide

[smartie]

Here's some other closing thing...
Off course there are more CloseReason's

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing

        If e.CloseReason = CloseReason.WindowsShutDown Then
            e.Cancel = True
        End If
    End Sub

[ZeaS]

Here's some other closing thing...
Off course there are more CloseReason's

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing

        If e.CloseReason = CloseReason.WindowsShutDown Then
            e.Cancel = True
        End If
    End Sub

the code don`t work for me :P

[shanky1]

you can end the program with a button by just entering this:

Private Sub CommandX_Click()
End
End Sub

Easy Eh ?

[ZeaS]

you can end the program with a button by just entering this:

Private Sub CommandX_Click()
End
End Sub

Easy Eh ?

omfg yeah, i think so,too, so easy omg

[Darky]

how i can set value of "WriteALong" tith a TextBox?

i try with: WriteALong("WarRock", &HXXXXXX, Text1)

but don't work

plz help me i making a trainer for WarRock

EDIT: i heve other question: how i can close a program with a button?

I have an answer to first question.

I think you forgot Call.

The code should look like this:
Call WriteALong("WarRock", &H7F2B34, 1120403456) - EXAMPLE FOR WORKING STAMINA!