Writing Pointers EX.Superjump

[Gellin]

Today Gellin will teach you to write a pointer into Vb6,

k Open Vb6 add your Favorite Module,
then add a timer, set the interval to 1


If GetKeyPress(HotkeyGoesHere) Then
If Timer1.Enabled = False Then
Timer1.Enabled = True
End If
Add 1 label and name it Super jump+your hotkey
Then just add this to your code.

Private Sub Timer1_Timer()
Dim jump As Long
Dim jump1 As Long
ReadLong "WarRock", &H8B5288, jump 'process, addie , and label
jump1 = jump + &H180 ' offsethex
ChangeFloat "WarRock", jump1, 2000 'how high you want to go 500+
End Sub

All credits to GELLIN, do not leech this do not claim this as yours, do not post it outside DXT or you will be banned
i'm tired of leechers

[kanata93]

thanks this is helped me alots alots Gellin
Nub Xd
JUst playing

[c3x]

thanks sir

[personperson]

Why do I have to post xD?

[sniperwar]

Its give me error

''Compile Error

Sub or Function not defined''

And highlights the text ''GetKeyPress''

[Dxt-Cobra]

if you copyed and pasted what gellin had them yea you will get an error.


heres a hotkey to try for sjump,you need to add the code for S-Jump


If GetKeyPress(vbkeyCtrl) & GetKeyPress(vbkeySpce) then
'sjump code goes here
end if
end sub

[sniperwar]

if you copyed and pasted what gellin had them yea you will get an error.


heres a hotkey to try for sjump,you need to add the code for S-Jump


If GetKeyPress(vbkeyCtrl) & GetKeyPress(vbkeySpce) then
'sjump code goes here
end if
end sub


OMG!! Tnanks Tanks you!!!!

[sniperwar]

Again i have this problem i paste it for timer and gives me error :(

If GetKeyPress(vbkeyCtrl) & GetKeyPress(vbkeySpce) Then
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call BC8EDA08(&H1180400, JSER)
JSER1 = JSER + &H178
JSER2 = Text1.Text
Call F9580844(JSER1, 2000)

[test]

Again i have this problem i paste it for timer and gives me error :(

If GetKeyPress(vbkeyCtrl) & GetKeyPress(vbkeySpce) Then
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call BC8EDA08(&H1180400, JSER)
JSER1 = JSER + &H178
JSER2 = Text1.Text
Call F9580844(JSER1, 2000)

i think you have your hotkeys wrong mate.

heres how it should be.


If GetKeyPress(vbkeyControl) & GetKeyPress(vbkeySpace) Then
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call BC8EDA08(&H1180400, JSER)
JSER1 = JSER + &H178
JSER2 = Text1.Text
Call F9580844(JSER1, 2000)[/QUOTE]

[Str8Soulja]

yea that should be right

[sniperwar]

Omg again this is error :(:(:( aaa///
Timer,ComandButton
I make it this ERROR!! Sub or Function not defined''
Super-Jump On
Timer5.Interval = 1
Super-Jump Off
Timer5.Interval =0
Text1.text
2000
Timer5
Private Sub Timer5_Timer()
If GetKeyPress(vbKeyControl) & GetKeyPress(vbKeySpace) Then
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call BAFE1FB2(&H1180400, JSER)
JSER1 = JSER + &H178
JSER2 = Text1.Text
Call D0732BFD(JSER1, 2000)
End If
End Sub