AF_INET := 2
SOCK_STREAM := 1
IPPROTO_TCP := 6
WSA_FLAG_OVERLAPPED := 1
WM_USER := 0x400
WM_SOCKET := WM_USER + 1
FD_READ := 0x01
FD_WRITE := 0x02
FD_OOB := 0x04
FD_ACCEPT := 0x08
FD_CONNECT := 0x10
FD_CLOSE := 0x20
WSAEWOULDBLOCK := 10035
;объявление переменных
VarSetCapacity(WSAData, 108, 0) ;для x86 хватит и 100
Socket := -1
AcceptSocket := -1
VarSetCapacity(SockAddr, 16, 0)
VarSetCapacity(buf, 1024, 0)
;код
DetectHiddenWindows, On
WinGet, hWnd, ID, % "ahk_classAutoHotkey ahk_pid" DllCall("GetCurrentProcessId", "uint")
OnMessage(WM_SOCKET, "DlgProc", 5)
DllCall("LoadLibrary", "str", "Ws2_32.dll")
if(DllCall("Ws2_32.dll\WSAStartup", "ushort", 0x0202, "ptr", &WSAData))
{
msgbox WSAStartup
goto Clear
}
Socket := DllCall("Ws2_32.dll\socket", "int", AF_INET, "int", SOCK_STREAM, "int", IPPROTO_TCP, "ptr")
if(Socket=-1)
{
msgbox Socket
goto Clear
}
if(DllCall("Ws2_32.dll\WSAAsyncSelect", "ptr", Socket, "ptr", hWnd, "uint", WM_SOCKET, "int", FD_WRITE|FD_CLOSE, "int")=-1)
{
msgbox % "WSAAsyncSelect " . DllCall("Ws2_32.dll\WSAGetLastError")
goto Clear
}
NumPut(AF_INET, &SockAddr, 0, "short")
NumPut(htons(666), &SockAddr, 2, "ushort")
NumPut(inet_addr("192.168.123.254"), &SockAddr, 4, "uint")
if(DllCall("Ws2_32.dll\connect", "ptr", Socket, "ptr", &SockAddr, "int", 16)=-1)
{
if(DllCall("Ws2_32.dll\WSAGetLastError")!=WSAEWOULDBLOCK)
{
msgbox connect
goto Clear
}
}
return
Clear:
if(Socket)
DllCall("Ws2_32.dll\closesocket", "ptr", Socket)
DllCall("Ws2_32.dll\WSACleanup")
return
DlgProc(wParam, lParam, msg, hwnd)
{
global
local fd
if(msg=WM_SOCKET)
{
fd := lParam&0xFFFF
if(fd=FD_WRITE)
{
;можно отправлять, в данном примере проверка этого сообщения опускается
}
else if(fd=FD_CLOSE)
{
LV_Add("", wParam, "FD_CLOSE")
DllCall("Ws2_32.dll\closesocket", "ptr", wParam)
DllCall("Ws2_32.dll\WSACleanup")
ExitApp
}
}
}
inet_addr(StringWithIP)
{
ret := RegExMatch(StringWithIP, "^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$", ArrayWithIP)
if((ret="")||(ret=0))
return ""
if((ArrayWithIP1>255)||(ArrayWithIP2>255)||(ArrayWithIP3>255)||(ArrayWithIP4>255))
return ""
VarSetCapacity(ip, 4, 0)
NumPut(ArrayWithIP1, &ip, 0, "uchar")
NumPut(ArrayWithIP2, &ip, 1, "uchar")
NumPut(ArrayWithIP3, &ip, 2, "uchar")
NumPut(ArrayWithIP4, &ip, 3, "uchar")
return NumGet(&ip, 0, "uint")
}
htons(port)
{
if((port<0)||(port>0xFFFF))
return ""
return ((port&0xFF)<<8)|(port>>8)
}
ChangeLayout(id)
{
global buf, Socket
NumPut(1, &buf, 0, "ushort")
NumPut(id, &buf, 2, "uint")
DllCall("Ws2_32.dll\send", "ptr", Socket, "ptr", &buf, "int", 6, "int", 0)
}
loop
{
If (InputLayout() = "Russian" and InputLayout() != InputLayout_old)
{
ChangeLayout(0x4090409)
InputLayout_old := InputLayout()
}
Else If (InputLayout() = "English" and InputLayout() != InputLayout_old)
{
ChangeLayout(0x4190419)
InputLayout_old := InputLayout()
}
Else If (InputLayout() = "Latvian" and InputLayout() != InputLayout_old)
{
ChangeLayout(0xF0150426)
InputLayout_old := InputLayout()
}
}
InputLayout()
{
ThreadID := DllCall("GetWindowThreadProcessId", "Int", WinExist("A"), "Int", 0)
HKL := DllCall("GetKeyboardLayout", "uint", ThreadID, "UShort")
VarSetCapacity(sKbd, 260, 0)
DllCall("GetLocaleInfo", "uint", HKL
, "uint", 0x1001
, "str", sKbd
, "uint", 260)
Return sKbd
}
. Плюс проверка на смену языка идёт в каждом условии, хотя достаточно один раз проверить.
. Раньше при смене раскладки приходили оконные сообщения, а в WinXP всё через COM сделали.