- 962 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/10/12(金) 15:44:33 ID:Uk+Wnxiy0]
- >>959
>>957にムカツイたので一番簡単そうなHSPって奴を落としてきて作ってみた
HSP3のスクリプトエディタに以下を貼り付けて後はHSP(P)メニューからなんとかしる
エラー処理とか何もしてないしログが無限に増え続けるから嫌ならなんとかしる
screen 0,260,24,,100,100
tx=0
ty=0
sdim buf, 1000
filename="mouse.log" ;保存するファイル名
exist filename
buf = "マウスログ取得開始" + str(gettime(4))+":"+str(gettime(5))+":"+str(gettime(6)) + "\n"
bsave filename, buf, strlen(buf), strsize
*main
x=ginfo_mx ;マウス座標取得
y=ginfo_my
if (x ! tx)&(y ! ty) : gosub *save ;座標が変わっていたら保存
tx=x
ty=y
wait 10 ;約100msのインターバル
goto *main
*save
ts=str(gettime(4))+":"+str(gettime(5))+":"+str(gettime(6))+"."+str(gettime(7))
st=ts+" X:"+str(x)+" Y:"+str(y)+"\n"
cls
mes st ;保存する文字列を一応表示
buf=st
exist filename
bsave filename, buf, strlen(buf) , strsize ;filenameのファイルに追記
return
|
 |
