| View previous topic :: View next topic |
| Author |
Message |
Kalookakoo
Expert Cheater
![]() Reputation: 0
Joined: 03 Mar 2008
Posts: 117
|
 Posted: Tue Jul 08, 2008 8:41 am Post subject: Delphi Maplestory text spammer |
 |
|
I already have key sending to mS down, but whenever I try to do it the same way but with a string of keys to spam as chat (along with enter of course), it fails. Can anyone tell me what I'm doing wrong? Using pmx.dll.
| Code: | begin
if Checkbox3.Checked=True then
begin
h:=FindWindowA(nil,'MapleStory');
a:=MapVirtualKey(Edit1.text,0);
a:= a shl 16;
if h<>0 then
begin
hhPostMessageA(h,WM_KEYDOWN,edit1.text,a);
Application.ProcessMessages;
end; |
Might be other errors since I pulled this out of nowhere for an example, but I hope you get the idea. I used to get the keys to end up in chat before by accident while trying to just make potting keys, but I fixed it. Now I dont know how to go back to get it to spam when I DO want it to.
|
|
| Back to top |
|
 |
Snootae
Grandmaster Cheater
![]() Reputation: 0
Joined: 16 Dec 2006
Posts: 969
Location: --->
|
| Posted: Tue Jul 08, 2008 9:16 am Post subject: |
|
|
it is probably because you cant map the virtual key of a string of characters:
a:=MapVirtualKey(Edit1.text,0);
scan through your string, using characters individually
_________________
|
|
| Back to top |
|
|
Reak
I post too much
 Reputation: 0
Joined: 15 May 2007
Posts: 3496
|
| Posted: Wed Jul 09, 2008 5:10 am Post subject: |
|
|
Like Snootae said.
Example:
| Code: | procedure SendText(AText: String);
var
i: integer;
h: HWND;
begin
h := FindWindow('MapleStoryClass', nil);
for i:=1 To Length(AText) do
PostMessage(h, WM_Char, ord(AText[i]), 0);
end; |
|
|
| Back to top |
|
|
rapion124
Grandmaster Cheater Supreme
![]() Reputation: 0
Joined: 25 Mar 2007
Posts: 1095
|
| Posted: Wed Jul 09, 2008 5:22 am Post subject: |
|
|
| MapVirtualKey only accepts 1 character as the first parameter. You need to break up your string into individual characters and then send them.
|
|
| Back to top |
|
|
Mussy69
Grandmaster Cheater
![]() Reputation: 0
Joined: 09 Mar 2007
Posts: 842
Location: Sydney
|
| Posted: Wed Jul 09, 2008 11:12 am Post subject: |
|
|
Or you could packet edit 
_________________
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
