| View previous topic :: View next topic |
| Author |
Message |
metroix
Grandmaster Cheater
![]() Reputation: 0
Joined: 16 Aug 2006
Posts: 629
Location: roof
|
|
| Back to top |
|
 |
Stylo
Grandmaster Cheater Supreme
![]() Reputation: 3
Joined: 16 May 2007
Posts: 1073
Location: Israel
|
 Posted: Tue Jun 23, 2009 12:34 pm Post subject: |
 |
|
can you upload it to other server?
i'm downloading something from rapidshare right now xD
|
|
| Back to top |
|
|
DanielG
Expert Cheater
 Reputation: 1
Joined: 13 May 2009
Posts: 130
Location: The Netherlands
|
| Posted: Tue Jun 23, 2009 1:35 pm Post subject: |
|
|
this is in the url he posted: (he couldn't post it here because it if for an online game which name you cannot post here)
idk why i cant post on cef =/
well i was triying to make a bot with pmx.dll but when testing it nothing happen this is visual basic 6.0
MODULE
| Code: | Declare Function PostMessage Lib "PMX.dll" Alias "PostMessageX" (ByVal hWnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_KEYDOWN = &H100
Public Const WM_CHAR = &H102
Public Const WM_LBUTTONDOWN As Long = &H201
Public Const WM_LBUTTONUP As Long = &H202
Public Const WM_RBUTTONDOWN = &H204
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal szClass$, ByVal szTitle$) As Long
Sub Precionar(ByVal Button As String)
Dim zwParam As Long
Dim zlParam As Long
Dim xwParam As Long
hWnd = FindWindow("xxxFORBIDEN GAME NAME HERExx", vbNullString)
If hWnd = 0 Then MsgBox "xxxFORBIDEN GAME NAME HERExx is not active.": Exit Sub
For i = 1 To Len(Text)
zwParam = GetVKCode(Mid$(Text, i, 1))
xwParam = zwParam And &H20
zlParam = GetScanCode(Mid$(Text, i, 1))
PostMessage hWnd, WM_KEYDOWN, zwParam, zlParam
DoEvents
Next
End Sub
Function GetVKCode(ByVal Char As String) As Long
On Error Resume Next
Char = UCase(Left$(Char, 1))
GetVKCode = Asc(Char)
End Function
Function GetScanCode(bChar As String) As Long
Select Case LCase$(Left$(bChar, 1))
Case "a"
GetScanCode = &H1E0001
Case "b"
GetScanCode = &H300001
Case "c"
GetScanCode = &H2E0001
Case "d"
GetScanCode = &H200001
Case "e"
GetScanCode = &H120001
Case "f"
GetScanCode = &H210001
Case "g"
GetScanCode = &H220001
Case "h"
GetScanCode = &H230001
Case "i"
GetScanCode = &H170001
Case "j"
GetScanCode = &H240001
Case "k"
GetScanCode = &H250001
Case "l"
GetScanCode = &H260001
Case "m"
GetScanCode = &H320001
Case "n"
GetScanCode = &H310001
Case "o"
GetScanCode = &H180001
Case "p"
GetScanCode = &H190001
Case "q"
GetScanCode = &H100001
Case "r"
GetScanCode = &H130001
Case "s"
GetScanCode = &H1F0001
Case "t"
GetScanCode = &H140001
Case "u"
GetScanCode = &H160001
Case "v"
GetScanCode = &H2F0001
Case "w"
GetScanCode = &H110001
Case "x"
GetScanCode = &H2D0001
Case "y"
GetScanCode = &H150001
Case "Z"
GetScanCode = &H2C0001
Case Else
GetScanCode = 0
End Select
End Function |
and heres is wat i put on my timer jsut to test
| Code: | Private Sub Timer1_Timer()
Precionar Z
End Sub |
or
| Code: | Private Sub Timer1_Timer()
Precionar z
End Sub |
btw i was getting "Compile Error: ByRef argument type mismatch"
i fixed that by changing
| Code: |
Sub Precionar(Button As String)
Dim zwParam As Long
Dim zlParam As Long
Dim xwParam As Long
hWnd = FindWindow("xxxFORBIDEN GAME NAME HERExxx |
by this
| Code: |
Sub Precionar([B]ByVal [/B]Button As String)
Dim zwParam As Long
Dim zlParam As Long
Dim xwParam As Long
hWnd = FindWindow("xxxFORBIDEN GAME NAME HERExx |
but the only problem i have now is that the bot is not posting any key on xxxFORBIDEN GAME NAME HERExx =/
|
|
| Back to top |
|
|
Stylo
Grandmaster Cheater Supreme
![]() Reputation: 3
Joined: 16 May 2007
Posts: 1073
Location: Israel
|
| Posted: Tue Jun 23, 2009 3:16 pm Post subject: |
|
|
i guess that in order to use auto chat in the game you want you should open the chat window first
you should send WM_RETURN message to the window for the chat window to pop open
after you're doing that, send every character in your string using WM_CHAR message
after done sending your string, send again WM_RETURN to the game to send the text message
repeat all that for auto chat
|
|
| Back to top |
|
|
metroix
Grandmaster Cheater
![]() Reputation: 0
Joined: 16 Aug 2006
Posts: 629
Location: roof
|
| Posted: Tue Jun 23, 2009 3:17 pm Post subject: |
|
|
well my problem is that it is not sending the key to m****=/ i cant see the error if there is an error could be in the precionar sub
btw i was following this guide
http://screwajax88.org/viewtopic.php?f=95&t=2479
u can check there the info of the source
EDIT:
im not going to make a auto chat i just making a simple bot just spamming crtl and z and auto skill but that method is not working =/
|
|
| Back to top |
|
|
Stylo
Grandmaster Cheater Supreme
![]() Reputation: 3
Joined: 16 May 2007
Posts: 1073
Location: Israel
|
| Posted: Wed Jun 24, 2009 4:15 am Post subject: |
|
|
the link you gave me isn't working
i'll post a code for you that should work
btw it's C++ cuz i don't know VB so try to convert it
if you'll get stuck i'll help
| Code: |
HWND hWnd;
hWnd = FindWindow("GameClassName",NULL);
BOOL bAutoLoot = TRUE;
while (bAutoLoot) {
PostMessage(hWnd,WM_KEYDOWN,1,((MapVirtualKey(0x5A,0)) << 16)+ 1);
Sleep(100);
}
|
i guess you missed the part of MapVirutalKey or forgot to shift left 16 bits the key, 0x5A = 'Z'
|
|
| Back to top |
|
|
metroix
Grandmaster Cheater
![]() Reputation: 0
Joined: 16 Aug 2006
Posts: 629
Location: roof
|
| Posted: Wed Jun 24, 2009 12:02 pm Post subject: |
|
|
| can i have ur msn so i can learn form u some c++ if u will like to tech me a lil i learn fast..
|
|
| Back to top |
|
|
Stylo
Grandmaster Cheater Supreme
![]() Reputation: 3
Joined: 16 May 2007
Posts: 1073
Location: Israel
|
| Posted: Wed Jun 24, 2009 12:36 pm Post subject: |
|
|
i almost never log in so it'd be useless
but you can always ask here
i'll help you here whenever you get stuck :]
|
|
| Back to top |
|
|
metroix
Grandmaster Cheater
![]() Reputation: 0
Joined: 16 Aug 2006
Posts: 629
Location: roof
|
| Posted: Wed Jun 24, 2009 1:56 pm Post subject: |
|
|
| the thing is i dont know anything about c++ i dont know how to make gui or everything i was thinking if u got and old source or something i can study?
|
|
| Back to top |
|
|
Stylo
Grandmaster Cheater Supreme
![]() Reputation: 3
Joined: 16 May 2007
Posts: 1073
Location: Israel
|
| Posted: Wed Jun 24, 2009 2:10 pm Post subject: |
|
|
there were few posted here b4
try to google it or look here
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
