有用文华财经 ,补数据嫌烦的吗,写了个小脚本,自动点击下载按钮
#Persistent
#Singleinstance force
#f1::
i:=0
outer:
Loop
{
;如果出现没有数据对话框结束点击动作循环
IfWinExist,《文华财经》 ahk_exe wh8.exe,指定的时段没有数据。
{
ControlClick,Button1,《文华财经》 ahk_exe wh8.exe
break
}
;识别 下载 按钮 状态是否可以点击
controlget,outputvar,Enabled,,Button1,补数据 ahk_exe wh8.exe
if outputvar=1 ;若可以点击
{
;点击下载按钮
ControlClick,Button1,补数据 ahk_exe wh8.exe
i+=1
ToolTip,已经点击%i%次。
;等待直到不能点击
Loop{
controlget,outputvar,Enabled,,Button1,补数据 ahk_exe wh8.exe
Sleep,500
ControlClick,Button1,补数据 ahk_exe wh8.exe
Sleep,500
ControlFocus,Button1,补数据 ahk_exe wh8.exe
}until outputvar=0
}
else ;若禁止点击
{
;等待直到能点击
Loop{
controlget,outputvar,Enabled,,Button1,补数据 ahk_exe wh8.exe
Sleep,1000
;等待过程如果提示 没有数据则结束点击动作。
IfWinExist,《文华财经》 ahk_exe wh8.exe,指定的时段没有数据。
{
ControlClick,Button1,《文华财经》 ahk_exe wh8.exe
break outer
}
}until outputvar=1
}
}
MsgBox 下载完成!
ToolTip
return