vb6 question

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?

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

Code:

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)

Code:

form1.enabled = false
form1.visible = false

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

Originally Posted by ZeaS

for close trainer with button, don`t know really

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

Code:

form1.enabled = false
form1.visible = false

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

yes, but i want close the program, no hide

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

Code:

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

Originally Posted by smartie

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

Code:

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

yaw

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

Private Sub CommandX_Click()
End
End Sub

Easy Eh ?

Originally Posted by shanky1

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

Originally Posted by ferrar1000

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!

vb6 question

Post a Reply

Similar Threads

Tags for this Thread