|
You last visited: Today at 03:27
Advertisement
[src] Fastwritter + metin2 torrent killer
Discussion on [src] Fastwritter + metin2 torrent killer within the AutoIt forum part of the Coders Den category.
06/26/2010, 20:28
|
#31
|
elite*gold: 100
Join Date: Oct 2007
Posts: 738
Received Thanks: 485
|
So, hab mir mal die dll angeschaut und ... wie geahnt benutzt sie PostMessage.
Schön das du jetzt Scite benutzt, der SourceCode sieht doch schon mal übersichtlicher aus...
So anbei noch eine au3 only Variante für das senden der Keys.
Code:
; send single keyboard event to non active window
; event = pressed, down, up
; kdown = key down delay
; note: supports only lower case keys + NUMx, Fx, some special keys and @
Func KeySend($inkey, $evt ="pressed", $kdown = 50)
$user32 = DllOpen("user32.dll")
if $user32 = -1 Then
ConsoleWrite("KeySend: cannot open user32.dll")
Exit
EndIf
; handling for special keys
Switch StringUpper($inkey)
Case "@"
$skey = 0x40
$lparam = 0x00100001
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", 0x71, "long", $lparam)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_CHAR, "int", $skey, "long", $lparam)
Sleep(20)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", 0x71, "long", BitOR($lparam, 0xC0000000))
Case "F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10", "F11", "F12"
$skey = 0x6f + Int(StringMid($inkey, 2))
ContinueCase
Case "NUM0", "NUM1", "NUM2", "NUM3", "NUM4", "NUM5", "NUM6", "NUM7", "NUM8" , "NUM9"
if StringUpper(StringLeft($inkey, 3)) = "NUM" Then
$skey = 0x60 + Int(StringMid($inkey, 4))
EndIf
ContinueCase
Case "RETURN", "SPACE", "TAB", "BACK", "END", "HOME", "SNAPSHOT", "INSERT", "DELETE", "LEFT", "RIGHT", "UP", "DOWN"
Switch StringUpper($inkey)
Case "RETURN"
$skey = 0x0D
Case "SPACE"
$skey = 0x20
Case "TAB"
$skey = 0x09
Case "BACK"
$skey = 0x08
Case "END"
$skey = 0x23
Case "HOME"
$skey = 0x24
Case "SNAPSHOT"
$skey = 0x2c
Case "INSERT"
$skey = 0x2d
Case "DELETE"
$skey = 0x2e
Case "LEFT"
$skey = 0x25
Case "RIGHT"
$skey = 0x27
Case "UP"
$skey = 0x26
Case "DOWN"
$skey = 0x28
EndSwitch
$ret = DllCall($user32, "int", "MapVirtualKey", "int", $skey, "int", 0)
$lparam = BitShift($ret[0], -16)
$lparam = BitOr($lparam, 1)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", $skey, "long", $lparam)
Sleep($kdown)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", $skey, "long", BitOR($lparam, 0xC0000000))
Case Else ; default lower case key handling
$key = DllCall($user32, "int", "VkKeyScan", "int", Asc(StringLower($inkey)))
$skey = $key[0]
$ret = DllCall($user32, "int", "MapVirtualKey", "int", $skey, "int", 0)
$lparam = BitShift($ret[0], -16)
$lparam = BitOr($lparam, 1)
Select
Case $evt = "pressed"
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", $skey, "long", $lparam)
Sleep($kdown)
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", $skey, "long", BitOR($lparam, 0xC0000000))
Case $evt = "down"
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYDOWN, "int", $skey, "long", $lparam)
Case $evt = "up"
DllCall($user32, "int", "PostMessage", "hwnd", $hwnd, "int", $WM_KEYUP, "int", $skey, "long", BitOR($lparam, 0xC0000000))
EndSelect
EndSwitch
DllClose($user32)
EndFunc
|
|
|
06/26/2010, 20:33
|
#32
|
elite*gold: 0
Join Date: Mar 2008
Posts: 1,524
Received Thanks: 285
|
besten dank!
freu mich sehr über deine hilfe =)
|
|
|
06/27/2010, 01:50
|
#33
|
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,222
|
Ähm du bedankst dich für seine Hilfe und ich setz mich ran und räum den Code auf und ab die Fehler beseitigt, die uch er angesprochen hat und mir wir unterstellt ich flame?
Also wirklich... lol...
Eben dies meinte ich ,dass der code nicht funktioniert, aber gut, glaub halt anderen...
|
|
|
06/27/2010, 11:37
|
#34
|
elite*gold: 0
Join Date: Mar 2008
Posts: 1,524
Received Thanks: 285
|
aehm ich wusste woran es liegt nur scite hat das ganze noch schön "beschriftet" bzw netter angeordnet
und ich sagte nicht einmal das er flamet
und das thanks bekommt er außerdem auch noch wegen der anmerkung wegen dem postmessage
€: pignuin du hattest mich in dem moment so genervt das ich einfach keine lust hatte
aber ja hattest ja recht
|
|
|
Similar Threads
|
[TOOL] Metin2 Torrent Beender (T-Killer) V2
11/19/2010 - Metin2 Hacks, Bots, Cheats, Exploits & Macros - 99 Replies
Hi,
Da ich nicht möchte, dass der Metin2 Torrent bei mir dauer Offen ist, hab ich mir ein Tool geschrieben, dass diesen Beenden!
Da ich probleme mit der Beenden Funktion hatte!
Das Programm killt den metin2torrent, so dass ihr nicht dauernd Connectet seit!
Hier der Link zum Tool:
T-Killer V2 @ Rapidshare
|
Hat wer torrent killer
03/30/2010 - Metin2 Hacks, Bots, Cheats, Exploits & Macros - 9 Replies
Hallo leute hat einer ein neuen torrent killer das ich torrent patch ausmachen kann
|
metin2 torrent
02/22/2010 - Metin2 - 2 Replies
is das normal das der so n metin2 torrent patch oda so macht?
|
All times are GMT +2. The time now is 03:27.
|
|