非常感谢lynfr8 !!!!我还希望加个条件 If WinExists("成交提示", "") 并且"成交提示"里的文本不为空。 ...
tkl1 发表于 2010-6-8 13:45 While 1
If WinExists("成交提示", "") And WinGetText("成交提示", "") <> '' Then
get()
If ControlCommand("成交提示", "", 2084, "IsVisible") = 1 Then
ControlClick("成交提示", "", 2084)
Else
ControlClick("成交提示", "", 2088)
EndIf
Else
EndIf
WEnd
Func get()
ClipPut(StringReplace(WinGetText("成交提示", ""), "确定", ""))
Send("!.") ;打开2008版飞信
WinWaitActive("Fetion 2008 ", "")
Send("!A") ;打开飞信菜单
Sleep(1000)
Send("+{TAB 8}")
Sleep(1000)
Send("{ENTER}")
Sleep(1000)
Send("+{TAB 5}")
Sleep(2000)
Send("{ENTER}")
Sleep(2000)
Send("^v")
Sleep(2000)
Send("{ENTER}") ;按回车发送
Sleep(2000)
WinActivate("成交提示", "")
Sleep(2000)
EndFunc ;==>get
If WinExists("成交提示", "") And WinGetText("成交提示", "") <> '' Then
get()
... |