[Tut] Duals Scorpions hack

ill show u how make a dual scorpions hack with VB6
Make 2buttons and 1 timer
double click on button1 and write Timer1.Enabled = True
duoble click on button2 and vrite Timer1.Enabled = False
Then change they names in box named CAPTION
Then Duoble click on timer and write this code
Code:
If getkeypress (vbKey5) Then
Dim Shotgun2 As Long
Dim Shotgun3 As Long
SendKeys "{1}"
Call readalong("Warrock", &H13773A0, Shotgun2)
Shotgun3 = Shotgun2 + &H4C
Call writealong("Warrock", Shotgun3, 30)
SendKeys "{w}+{shift}"
End If

Ok Hotkey is 5 YOU can change it..
Code:
If getkeypress (vbKeyYOUR NUMBER OR LETTER) Then

Thats all now press FILE>Make Project1.exe

Woot thats is your first Dual Scorps Hack

is this dealing shotgun damage? or dual scorpions?

no

is duals damage you can said is a promo not a hack

Will it come up as a shotgun kill?

-.-

said duals kill no shot gun -.-

hey

cant wait till next update 4 warrock hacks

Don't post something like that Jimmy, that's spam.

Originally Posted by bloqueado93

said duals kill no shot gun -.-

I know, just making sure it would not show up as a shotgun kill.

Originally Posted by Obey

Don't post something like that Jimmy, that's spam.

I know, just making sure it would not show up as a shotgun kill.

spam ? lol coming from the biggest spammer here >.> btw u can change the 30 to 42 for a shotgun or any other number for another weapon :/

plz post for VB8

getkeypress<<< keep getting error on that sub or commasnd not found

Originally Posted by foofighter

getkeypress<<< keep getting error on that sub or commasnd not found

try " getAsyncKey " thats from a module maker like zeas ;D

(without "") !!

mfg CrAc

dual scorps is glitched. so it should do damage

i get errors with the SendKeys "{w}+{shift}"

this is a simple weapon hack, you need a damage hack if you want to kill anyone

Do i change End Sub to End if?

[Tut] Duals Scorpions hack

Similar Threads

Tags for this Thread