Global $zd ="C:\Users\Administrator\Desktop\TB自动化\当日交易(sim001521).csv"
$Text = FileRead($zd)
WinWaitActive("交易开拓者平台(旗舰版) - [价差-y9000 1日线]")
AutoItSetOption("MouseCoordMode",0)
MouseClick("right",190,720)
MouseClick("left",220,690)
WinWaitActive("保存列表内容为...")
ControlClick("保存列表内容为...","保存","Button1")
WinWaitActive("确认另存为")
ControlClick("确认另存为","是","Button1")
While 1
Global $nText = FileRead($zd)
If $Text <> $nText Then
$var = StringReplace($nText, $Text, "")
$Text = $nText
ClipPut($var)
ToolTip("即将打开Cela的歇息地", 0, 0, "Thanks", 1)
RunWait('"' & @ComSpec & '" /c explorer.exe https://wx2.qq.com/', '', @SW_HIDE)
Sleep(2000)
ToolTip("已打开目标网页", 0, 0, "Thanks", 1)
WinWaitActive("微信网页版 - 360安全浏览器 8.1")
sleep(2000)
AutoItSetOption("MouseCoordMode",0)
MouseClick("left",350,265)
MouseClick("left",1141,705)
Send("^v")
MouseClick("left",1200,805)
EndIf
Wend
|