丸パクリプログラミン。

マケスピ自動ログインの「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

昨日の「ひまわり」版の方も修正。
でも微妙に不安定。たまーにログイン失敗するし。