# 在此定義全局變量
dim DigitImgs[10], DigitImgs1[10], DigitImgs2[10]
function main
while true //無限循環執行以下代碼
# 在此添加由向導創建或錄制的代碼
MouseLeftClick(917, 665)
Wait(300)
MouseLeftClick(836, 293)
Wait(3000)
//①開始復制股票名字
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)
//在窗口坐標(143, 156)按下鼠標左鍵
MouseMove(WinX0+143, WinY0+156)
MouseLeftDown()
Wait(300)
//在窗口坐標(81, 160)放開鼠標左鍵
MouseMove(WinX0+81, WinY0+158)
MouseLeftUp()
Wait(200)
//在窗口坐標(109, 155)單擊鼠標右鍵
MouseMove(WinX0+109, WinY0+155)
MouseRightClick()
Wait(200)
KeyPress("c")
Wait(200)
//在屏幕坐標(101, 647)單擊鼠標左鍵
MouseLeftClick(101, 647)
Wait(200)
//在屏幕坐標(331, 345)單擊鼠標右鍵
MouseRightClick(331, 345)
Wait(200)
KeyPress("p")
Wait(200)
//在窗口坐標(602, 512)單擊鼠標左鍵
mouseMove(WinX0+318, WinY0+249)
MouseLeftClick()
Wait(200)
//②開始復制股票代碼
//在窗口坐標(109, 106)雙擊鼠標左鍵
MouseMove(WinX0+109, WinY0+106)
MouseLeftClick()
Wait(200)
MouseMove(WinX0+109, WinY0+106)
MouseLeftClick()
Wait(200)
//在窗口坐標(111, 105)單擊鼠標右鍵
MouseMove(WinX0+111, WinY0+105)
MouseRightClick()
Wait(100)
KeyPress("c")
Wait(100)
//在屏幕坐標(109, 645)單擊鼠標左鍵
MouseLeftClick(109, 645)
Wait(100)
//在屏幕坐標(351, 380)單擊鼠標右鍵
MouseRightClick(351, 380)
Wait(100)
KeyPress("p")
//③開始復制診斷
Wait(100)
//在窗口坐標(528, 300)按下鼠標左鍵
MouseMove(WinX0+528, WinY0+300)
MouseLeftDown()
Wait(100)
//在窗口坐標(520, 263)放開鼠標左鍵
MouseMove(WinX0+520, WinY0+263)
MouseLeftUp()
Wait(100)
//如果窗口坐標(111, 290)的顏色等于(49, 106, 197) 那么
if CheckColor(WinX0+111, WinY0+290, Color(51, 94, 168), 5) then
Wait(100)
MouseMove(WinX0+111, WinY0+290)
MouseRightClick()
KeyPress("c")
else //否則
beep(784,0319)
beep(784,0160)
beep(880,0284)
beep(578,0421)
beep(523,0478)
beep(523,0239)
beep(440,0142)
beep(578,0421)
beep(784,0319)
beep(784,0319)
beep(880,0142)
beep(1046,0120)
beep(880,0142)
beep(784,0160)
beep(523,0239)
beep(440,0284)
beep(578,0421)
end if
Wait(100)
//④在文本修改診斷符號
//在屏幕坐標(802, 77)單擊鼠標左鍵
MouseLeftClick(802, 77)
Wait(100)
KeyDown("CTRL")
KeyPress("v")
KeyPress("h")
KeyPress("SPACE")
KeyUp("CTRL")
KeyPress(";")
KeyPress("TAB")
KeyDown("CTRL")
KeyPress("SPACE")
KeyUp("CTRL")
KeyPress(";")
KeyDown("alt")
KeyPress("a")
KeyUp("alt")
KeyPress("ESC")
KeyDown("CTRL")
KeyPress("h")
KeyPress("SPACE")
KeyUp("CTRL")
KeyPress(",")
KeyPress("TAB")
KeyDown("CTRL")
KeyPress("SPACE")
KeyUp("CTRL")
KeyPress(",")
KeyDown("alt")
KeyPress("a")
KeyUp("alt")
KeyPress("ESC")
KeyDown("ctrl")
KeyPress("a")
KeyPress("x")
KeyUp("CTRL")
//在屏幕坐標(106, 630)單擊鼠標左鍵
MouseLeftClick(106, 630)
Wait(100)
//在屏幕坐標(381, 492)單擊鼠標右鍵
MouseRightClick(381, 492)
KeyPress("p")
Wait(100)
//讀入數字0－9的圖像文件到數組
LoadImage("h1.Sel", DigitImgs[1])
LoadImage("h2.Sel", DigitImgs[2])
LoadImage("h3.Sel", DigitImgs[3])
LoadImage("h4.Sel", DigitImgs[4])
LoadImage("h5.Sel", DigitImgs[5])
LoadImage("h6.Sel", DigitImgs[6])
LoadImage("h7.Sel", DigitImgs[7])
LoadImage("h8.Sel", DigitImgs[8])
LoadImage("h9.Sel", DigitImgs[9])
LoadImage("h0.Sel", DigitImgs[10])

LoadImage("1.Sel", DigitImgs1[1])
LoadImage("2.Sel", DigitImgs1[2])
LoadImage("3.Sel", DigitImgs1[3])
LoadImage("4.Sel", DigitImgs1[4])
LoadImage("5.Sel", DigitImgs1[5])
LoadImage("6.Sel", DigitImgs1[6])
LoadImage("7.Sel", DigitImgs1[7])
LoadImage("8.Sel", DigitImgs1[8])
LoadImage("9.Sel", DigitImgs1[9])
LoadImage("0.Sel", DigitImgs1[10])

LoadImage("b1.Sel", DigitImgs2[1])
LoadImage("b2.Sel", DigitImgs2[2])
LoadImage("b3.Sel", DigitImgs2[3])
LoadImage("b4.Sel", DigitImgs2[4])
LoadImage("b5.Sel", DigitImgs2[5])
LoadImage("b6.Sel", DigitImgs2[6])
LoadImage("b7.Sel", DigitImgs2[7])
LoadImage("b8.Sel", DigitImgs2[8])
LoadImage("b9.Sel", DigitImgs2[9])
LoadImage("b0.Sel", DigitImgs2[10])

//函數只能在”函數外面“定義，然后使用調用語句，函數定義的順序無所謂：
myfunc()// 調用myfunc
Wait(100)
//運行程序"D:\Seraph練習\x.txt"
RunApp("D:\Seraph練習\1\x.txt")
Wait(800)

KeyDown("CTRL")
KeyPress("a")
Wait(100)
KeyPress("x")
KeyPress("s")
KeyUp("CTRL")
//如果圖像"輸出文本圖標.sel"在此時出現
if FindImageEx("輸出文本圖標.sel", Color(10, 10, 10), 372, 356, 928, 710, true, FoundX, FoundY) then
//在圖像上的(5, 5)位置點擊鼠標
MouseLeftClick(FoundX+5, FoundY+5)
end if
Wait(100)
//在屏幕坐標(109, 640)單擊鼠標左鍵
MouseLeftClick(109, 640)
//在屏幕坐標(343, 443)單擊鼠標右鍵
MouseRightClick(343, 443)
Wait(600)
KeyPress("p")
Wait(100)
KeyPress("LEFT")
KeyPress("LEFT")
KeyPress(".")
KeyPress("RETURN")
//等待2毫秒
Wait(2000)
KeyPress("RETURN")
//等待5毫秒
Wait(2000)
//在屏幕坐標(910, 654)單擊鼠標左鍵
MouseLeftClick(910, 654)
Wait(100)
KeyPress("DOWN")
//在窗口坐標(546, 57)單擊鼠標左鍵
MouseLeftClick(WinX0+546, WinY0+57)


wend//無限循環執行以上代碼
end function
function myfunc
if ReadNumber(DigitImgs, 974, 523, 1017, 540, true, Num) then
//此時如果讀取成功，數字被保存在變量 Num 中
Print("找到圖像"Num)
WriteTextToFile( "x.txt", CStr(Num), true )
exit function //退出函數，運行后面的腳本去了
end if

//失敗就繼續識別綠色數字
if ReadNumber(DigitImgs1, 974, 523, 1017, 540, true, Num) then
//此時如果讀取成功，數字被保存在變量 Num 中
Print("找到圖像"Num)
WriteTextToFile( "x.txt", CStr(Num), true )
exit function //退出函數，運行后面的腳本去了
end if

//失敗就繼續識別白色數字
if ReadNumber(DigitImgs2, 974, 523, 1017, 540, true, Num) then
//此時如果讀取成功，數字被保存在變量 Num 中
Print("找到圖像"Num)
WriteTextToFile( "x.txt", CStr(Num), true )
exit function //退出函數，運行后面的腳本去了
end if
do
// 失敗就報警
beep(784,0319)
beep(784,0160)
beep(880,0284)
beep(578,0421)
loop

end function
# 在此添加子函數