global $key[2]
Global $sFileD=@ScriptDir&"\WinIO32.dll"
If Not FileExists($sFileD) Then Exit
DllOpen($sFileD)
DllCall($sFileD, "bool", "InitializeWinIo")
__wSend("s")
DllCall($sFileD, "none", "ShutdownWinIo")
DllClose($sFileD)
func __wClick($Maram1,$Maram2)
mousemove($Maram1,$Maram2,0)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x64, "dword", 0xD3, "byte", 1) ; cmd byte
sleep(30)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x60, "dword", 0x09 , "byte", 1) ; +key
sleep(300)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x64, "dword", 0xD3, "byte", 1) ; cmd byte
sleep(10)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x60, "dword", 0x00 , "byte", 1) ; +key
sleep(10)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x64, "dword", 0xD3, "byte", 1) ; cmd byte
sleep(10)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x60, "dword", 0x00 , "byte", 1) ; +key
sleep(10)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x64, "dword", 0xD3, "byte", 1) ; cmd byte
sleep(10)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x60, "dword", 0x00 , "byte", 1) ; +key
sleep(10)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x64, "dword", 0xD3, "byte", 1) ; cmd byte
sleep(30)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x60, "dword", 0x08 , "byte", 1) ; +key
sleep(30)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x64, "dword", 0xD3, "byte", 1) ; cmd byte
sleep(10)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x60, "dword", 0x00 , "byte", 1) ; +key
sleep(10)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x64, "dword", 0xD3, "byte", 1) ; cmd byte
sleep(10)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x60, "dword", 0x00 , "byte", 1) ; +key
sleep(10)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x64, "dword", 0xD3, "byte", 1) ; cmd byte
sleep(10)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x60, "dword", 0x00 , "byte", 1) ; +key
Sleep(Random(30,40))
EndFunc
Func __wSend($Param1, $Param2 = 300, $Param3="no param")
local $wkey =_GetHexKey($Param1)
Select
Case $Param3="down"
DllCall($sFileD, "bool", "SetPortVal", "word", 0x64, "dword", 0xD2, "byte", 1) ; cmd byte
sleep(30)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x60, "dword", $wkey[0] , "byte", 1) ; +key
Sleep(Random(30,40))
Return
Case $Param3="up"
DllCall($sFileD, "bool", "SetPortVal", "word", 0x64, "dword", 0xD2, "byte", 1) ; cmd byte
sleep(30)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x60, "dword", $wkey[1], "byte", 1) ; -key
Sleep(Random(30,40))
Return
EndSelect
DllCall($sFileD, "bool", "SetPortVal", "word", 0x64, "dword", 0xD2, "byte", 1) ; cmd byte
sleep(30)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x60, "dword", $wkey[0] , "byte", 1) ; +key
Sleep($Param2)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x64, "dword", 0xD2, "byte", 1) ; cmd byte
sleep(30)
DllCall($sFileD, "bool", "SetPortVal", "word", 0x60, "dword", $wkey[1], "byte", 1) ; -key
Sleep(Random(30,40))
EndFunc
Func _GetHexKey($sKey)
Switch $sKey
Case "BACKSPACE"
$key[0] ="0x0E"
$key[1] ="0x8E"
Return $key
Case "BACKSPACE"
$key[0] ="0x0E"
$key[1] ="0x8E"
Return $key
Case "TAB"
$key[0] ="0x0F"
$key[1] ="0x8F"
Return $key
Case "ENTER"
$key[0] ="0x1C"
$key[1] ="0x9C"
Return $key
Case "SHIFT"
$key[0] ="0x2A"
$key[1] ="0xAA"
Return $key
Case "CTRL"
$key[0] ="0x1D"
$key[1] ="0x9C"
Return $key
Case "ALT"
$key[0] ="0x38"
$key[1] ="0xB8"
Return $key
Case "PAUSE"
$key[0] ="E0 1D"
$key[1] =" "
Return $key
Case "CAPSLOCK"
$key[0] ="0x3A"
$key[1] ="0xBA"
Return $key
Case "ESC"
$key[0] ="0x1"
$key[1] ="0x81"
Return $key
Case "SPACE"
$key[0] ="0x39"
$key[1] ="0xB9"
Return $key
Case "PAGE UP"
$key[0] ="0xE0 49"
$key[1] ="0xC9"
Return $key
Case "PAGE DOWN"
$key[0] ="0xE0 51"
$key[1] ="0xD1"
Return $key
Case "END"
$key[0] ="0xE0 4F"
$key[1] ="0xCF"
Return $key
Case "HOME"
$key[0] ="0xE0 47"
$key[1] ="0xC7"
Return $key
Case "LEFT"
$key[0] ="0xE0 4B"
$key[1] ="0xCB"
Return $key
Case "UP"
$key[0] ="0xE0 48"
$key[1] ="0xC8"
Return $key
Case "RIGHT"
$key[0] ="0xE0 4D"
$key[1] ="0xCD"
Return $key
Case "DOWN"
$key[0] ="0xE0 50"
$key[1] ="0xD0"
Return $key
Case "PRINT SCREEN"
$key[0] ="0x37"
$key[1] ="0xB7"
Return $key
Case "INS"
$key[0] ="0x52"
$key[1] ="0xD2"
Return $key
Case "DEL"
$key[0] ="0x53"
$key[1] ="0xD3"
Return $key
Case "0"
$key[0] ="0x0B"
$key[1] ="0x8B"
Return $key
Case "1"
$key[0] ="0x2"
$key[1] ="0x82"
Return $key
Case "2"
$key[0] ="0x3"
$key[1] ="0x83"
Return $key
Case "3"
$key[0] ="0x4"
$key[1] ="0x84"
Return $key
Case "4"
$key[0] ="0x5"
$key[1] ="0x85"
Return $key
Case "5"
$key[0] ="0x6"
$key[1] ="0x86"
Return $key
Case "6"
$key[0] ="0x7"
$key[1] ="0x87"
Return $key
Case "7"
$key[0] ="0x8"
$key[1] ="0x88"
Return $key
Case "8"
$key[0] ="0x9"
$key[1] ="0x89"
Return $key
Case "9"
$key[0] ="0x0A"
$key[1] ="0x8A"
Return $key
Case "A"
$key[0] ="0x1E"
$key[1] ="0x9F"
Return $key
Case "B"
$key[0] ="0x30"
$key[1] ="0xB0"
Return $key
Case "C"
$key[0] ="0x2C"
$key[1] ="0xAE"
Return $key
Case "D"
$key[0] ="0x20"
$key[1] ="0xA0"
Return $key
Case "E"
$key[0] ="0x12"
$key[1] ="0x92"
Return $key
Case "F"
$key[0] ="0x21"
$key[1] ="0xA1"
Return $key
Case "G"
$key[0] ="0x22"
$key[1] ="0xA2"
Return $key
Case "H"
$key[0] ="0x23"
$key[1] ="0xA3"
Return $key
Case "I"
$key[0] ="0x17"
$key[1] ="0x97"
Return $key
Case "J"
$key[0] ="0x24"
$key[1] ="0xA4"
Return $key
Case "K"
$key[0] ="0x25"
$key[1] ="0xA5"
Return $key
Case "L"
$key[0] ="0x26"
$key[1] ="0xA6"
Return $key
Case "M"
$key[0] ="0x32"
$key[1] ="0xB2"
Return $key
Case "N"
$key[0] ="0x31"
$key[1] ="0xB1"
Return $key
Case "O"
$key[0] ="0x18"
$key[1] ="0x98"
Return $key
Case "P"
$key[0] ="0x19"
$key[1] ="0x99"
Return $key
Case "Q"
$key[0] ="0x10"
$key[1] ="0x90"
Return $key
Case "R"
$key[0] ="0x13"
$key[1] ="0x93"
Return $key
Case "S"
$key[0] ="0x1F"
$key[1] ="0x9F"
Return $key
Case "T"
$key[0] ="0x14"
$key[1] ="0x94"
Return $key
Case "U"
$key[0] ="0x16"
$key[1] ="0x96"
Return $key
Case "V"
$key[0] ="0x2F"
$key[1] ="0xAF"
Return $key
Case "W"
$key[0] ="0x11"
$key[1] ="0x91"
Return $key
Case "X"
$key[0] ="0x2D"
$key[1] ="0xAD"
Return $key
Case "Y"
$key[0] ="0x15"
$key[1] ="0x95"
Return $key
Case "Z"
$key[0] ="0x2C"
$key[1] ="0xAC"
Return $key
Case "F1"
$key[0] ="0x3B"
$key[1] ="0xBB"
Return $key
Case "F2"
$key[0] ="0x3C"
$key[1] ="0xBC"
Return $key
Case "F3"
$key[0] ="0x3D"
$key[1] ="0xBD"
Return $key
Case "F4"
$key[0] ="0x3E"
$key[1] ="0xBE"
Return $key
Case "F5"
$key[0] ="0x3F"
$key[1] ="0xBF"
Return $key
Case "F6"
$key[0] ="0x40"
$key[1] ="0xC0"
Return $key
Case "F7"
$key[0] ="0x41"
$key[1] ="0xC1"
Return $key
Case "F8"
$key[0] ="0x42"
$key[1] ="0xC2"
Return $key
Case "F9"
$key[0] ="0x43"
$key[1] ="0xC3"
Return $key
Case "F10"
$key[0] ="0x44"
$key[1] ="0xC4"
Return $key
Case "NUM LOCK"
$key[0] ="0x45"
$key[1] ="0xC5"
Return $key
Case "SCROLL LOCK"
$key[0] ="0x46"
$key[1] ="0xC6"
Return $key
Case "LSHIFT"
$key[0] ="0x2A"
$key[1] ="0xAA"
Return $key
Case "RSHIFT"
$key[0] ="0x36"
$key[1] ="0xB6"
Return $key
Case "/"
$key[0] ="0x35"
$key[1] ="0xB5"
Return $key
EndSwitch
Return -1
EndFunc