丸パクリプログラミン。
マケスピ自動ログインの「HSP」版。
アプリキャプチャ、説明文ちゃんと読んだら出来たー。
「GetActRect module」は、こちらの「トップウィンドウの位置を取得」のサンプルスクリプト、「WM_GETTEXT」はこちらの「エディットボックスのテキスト取得」のサンプルをそのまんま使わせていただきましたですよ。
ありがたやー。
こうゆー環境って有害かも。学習しなくなって。
#include "llmod.as" #include "hspext.as" #include "input.as" UserID="MSDEMO" Password="MSDEMO" #module;---------------------------------------- #deffunc GetActRect val ; 左上X,Y、右下X,Y座標を入れる配列変数(配列4) mref rect,48 dllproc "GetForegroundWindow",prm,0,D_USER@ prm=dllret@ getptr prm.1,rect dllproc "GetWindowRect",prm,2,D_USER@ return #global;---------------------------------------- exec "C:/Program Files/MarketSpeed/MarketSpeed/MarketSpeed.exe" repeat aplsel "Market Speed V" if stat==0:aplact wait 5 ;//---- Call Function "WindowFromPoint" --// dim XY,4 GetActRect XY prm = XY.2-30, XY.1+30 dllproc "WindowFromPoint", prm, 2, D_USER hwnd_edit=dllret ;#define WM_GETTEXTLENGTH $e prm=hwnd_edit,$e:sendmsg prm len=dllret+1 ;#define WM_GETTEXT $d sdim get_buf,len prm=hwnd_edit,$d,len getptr prm.3,get_buf:sendmsg prm if get_buf=="ToolMenu"{ ginfo mx=prmx:my=prmy mouse XY.2-30,XY.1+30 mouse_event $2 break} loop wait 1 mouse_event $4 repeat wait 1 aplsel "Market Speed - ログイン" if stat==0:aplact aplobj "Edit",0 if stat==0{ aplact:break} loop aplstr UserID repeat wait 1 aplsel "Market Speed - ログイン" if stat==0:aplact aplobj "Edit",2 if stat==0{ aplact:break} loop aplstr Password : wait 1 aplkey 13 : wait 1 mouse mx,my end
昨日の「ひまわり」版の方も修正。
でも微妙に不安定。たまーにログイン失敗するし。