KEY 5

[joranxxl]

I want to get shotgun by pressing 5... this is my code:

If fbiuvgroi(5) Then
Dim gun As Long
Dim gun1 As Long
Call ubfuygsa("Warrock", &H4C, gun)
gun1 = gun + &H4C
Call e3oiwhef("Warrock", gun1, Text1.Text)
End If

fbiuvgroi = GetAsyncKeyState

But this don't works... what is wrong??

Is it that (5) ?? I want to made a Control to but i dont know how... can anybody tell me??

[joranxxl]

I want to get shotgun by pressing 5... this is my code:

If fbiuvgroi(5) Then
Dim gun As Long
Dim gun1 As Long
Call ubfuygsa("Warrock", &H4C, gun)
gun1 = gun + &H4C
Call e3oiwhef("Warrock", gun1, Text1.Text)
End If

fbiuvgroi = GetAsyncKeyState

But this don't works... what is wrong??

Is it that (5) ?? I want to made a Control to but i dont know how... can anybody tell me??

[yacobo]

dont bump with double posts

[joranxxl]

jeah i know sorry but i cant remove... Or did i? i cant find it... but can you help me?

[radnomguywfq3]

In VB6,
Function_Name = Variable
would be equivalent to
return variable;
in C++, or later versions of VB.
Thus remove that lsjirglfig = GetAsyncState, and replace sfghofgh with get AsyncKeyState.

[joranxxl]

i dont understand that can you give a code? i know i am stupid :P

[bloqueado93]

look try with this
If GetKeyPress(vbKey5)Then
Dim Shotgun As Long
Dim Shotgun1 As Long
Call readmyass("Warrock", &H1376360, Shotgun)
Shotgun1 = Shotgun + &H4C
Call jazz("Warrock", Shotgun1, 42)
End If