vb help plz

i know vb enough to make trainers but im stumped on probly an easy fix but idk.plz help im addin ingame guns and shop guns to my trainer but when i add a text box how do i code it to were u can put in 63(mini gun) in the box and hit button or hotkey.i know how to do the hotkeys but the text part has got me stumped.this is what i have or tryed anyways

Private Sub Timer12_Timer()
Dim Guns As Long
Dim Guns1 As Long
Dim Value1 As Long
If GetKeyPress(vbKeyG) Then Call WriteALong("WarRock", &H896E28, Guns1)
Guns1 = Guns + &H4C
Call WriteALong("Warrock", Guns1, Text1, 1 - 70)
Text1.Text = 1 - 70
End Sub

well basicly you got your value Guns1
i guess this is the gun "nr" you want to have inputted
i don't think a timer is the best way to do this. cous your gun only has to change once (might be wrong but who knows)

what my instinct tells me would be
txtweapon.text = Guns1 (txtweapon being the name of your text/inputbox)

i hope you get it

if you don't, pm me or something

greetz

Private Sub Timer12_Timer()
Dim Guns As Long
Dim Guns1 As Long
Dim Value1 As Long
If GetKeyPress(vbKeyG) Then
Call ReadALong("WarRock", &H896E28, Guns1)
Guns = Guns1 + &H4C
Call WriteALong("Warrock", Guns, Text1.text)
End If
End Sub

Would this work for you?

no i think im doing it wrong,heres what i have so far.im adding ingame guns and shop guns,but im tryin to put a textbox in so u can put the number of the gun u want in the textbox,and hit the hotkey.take a look at my pic

cobras trainer2.JPGattachment deleted · 65 downloads before removal

well, i would do it like this

private sub guntimer_timer() (a timer WITH INTERVAL = 1 STANDARD)
If GetKeyPress(vbKeyNumpad1) Then
if Timer12.interval = 0 then Timer12.interval =1
else Timer12.interval =0
end if
end if

so when you open to form the guntimer is rolling and waiting for you to press. when you press it'll see that timer 12 isn't active and it will activate it

Private Sub Timer12_Timer()
Dim Guns As Long
Dim Guns1 As Long
Dim Value1 As Long
If GetKeyPress(vbKeyG) Then
Call ReadALong("WarRock", &H896E28, Guns1)
Guns = Guns1 + &H4C
Call WriteALong("Warrock", Guns, Text1.text)
End If
End Sub

you know this part

hope it helps

Where do you write these codes in?
Can someone give me an answer please?

Originally Posted by berkex12

Where do you write these codes in?
Can someone give me an answer please?

In Visual Basic 5.0 or 6.0, you need a lot of experience to do that.

Thanks a lot .
Now I am downloading visual basic.

haha lmao,y are u downloading so you can copy my work,omg leechers

Dim Guns As Long
Dim Guns1 As Long
Dim Guns3 As Long
If GetKeyPress(vbKeyG) Then
Call ReadALong("WarRock", &H896E28, Guns1)
Guns = Guns1 + &H4C
Guns3 = Text1.Text
Call WriteALong("Warrock", Guns, Guns3)
End If

Should work...

noob question: how can i save my trainer as a .exe?,,, if i save it, its not an .exe data..

ty 4 everyones help,ive tried everything i know,i will try that next,i hope it works this time.i dont know alot about the textboxs,im still learning.

to save your trainer and make it an exe file,go to file up top were you save and look lower,there is a make it a .exe click and look in your vb6 folder for it.

i'll try, thx

Originally Posted by mains3rv3r

thanks man that works,its a little buggy thow,but it works ty ty ty

i treid that for swim and superjump but it didnt work and i had swim working but now it just gives me like a spectator view and i cant play

edit: yea srry not for swim for superjump,to set value higher hehe,and swim was i forgot the &H, slap me 4 it haha,it works now thow,so thanks a mill.

Originally Posted by cjg333

Yeah it's buggy but you get the job done. Look at my tut for swim if things arn't making sense. I don't see why you'd need a text box for swim lol... considering it's 1 number value to set, might as well make it a hotkey/button.

vb help plz

Similar Threads

Tags for this Thread