UWSCスクリプト
マウスの左ボタン押しっぱなしで左ボタン連打
マウスの左ボタン押しっぱなしで左ボタン連打
DEF_DLL SendMessageA(hwnd, uint, dword, dword):int:user32.dll
const WM_LBUTTONDOWN = 513
const WM_LBUTTONUP = 514
tw_wnd_id = GETID("Talesweaver", "D2MainWindow")
ifb tw_wnd_id = -1 then
MSGBOX("Talesweaver not found.")
exitexit
endif
MOUSEORG(tw_wnd_id, 2)
tw_wnd = IDTOHND(tw_wnd_id)
base_x = STATUS(tw_wnd_id, ST_CLX)
base_y = STATUS(tw_wnd_id, ST_CLY)
while TRUE
ifb GETKEYSTATE(VK_LBUTTON)
active_wnd_id = GETID(GET_ACTIVE_WIN)
ifb (active_wnd_id = tw_wnd_id)
click_pos = (G_MOUSE_X - base_x) + (G_MOUSE_Y - base_y) * 65536;
SendMessageA(tw_wnd, WM_LBUTTONDOWN, 0, click_pos)
SLEEP(0.1)
SendMessageA(tw_wnd, WM_LBUTTONUP, 0, click_pos)
endif
endif
SLEEP(0.3)
wend