炒股用的腳本 我上班作業時用的腳本 無保留

炒股用的腳本 我上班作業時用的腳本 無保留，需要的朋友可以參考下。

復制代碼 代碼如下:
# 在此定義全局變量 
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 
# 在此添加子函數 

這個腳本幫助了我將近半年的時間 哈哈哈 
雖然現在不用這個了 但是還是留著 以后做紀念 哈哈哈哈哈哈