九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

打開APP
userphoto
未登錄

開通VIP，暢享免費電子書等14項超值服

開通VIP

首頁

好書

留言交流

下載APP

聯(lián)系客服
【綜合教程】關(guān)閉指定彈窗，延遲最佳加法，內(nèi)循環(huán)的妙用，子程序變量傳遞 - 新手專區(qū) - 按鍵精靈論壇 - Powered by Discuz!

本帖隱藏的內(nèi)容

//下面是VBS的方法
  1. Set WSHShell=CreateObject("Wscript.Shell")intMsg=WSHShell.Popup ("提示內(nèi)容",多少秒后關(guān)閉,"彈窗的標(biāo)題",vbOKOnly)
復(fù)制代碼
//下面這個是獲取句炳按回車的方法，放到彈出窗口之后的地方
  1. DoHwnd = Plugin.Window.Find(0, "彈窗的標(biāo)題")If Hwnd > 0 Then//如果發(fā)現(xiàn)彈窗Call Plugin.Bkgnd.KeyPress(Hwnd, 27)//通過按下回車鍵關(guān)閉窗口End IfDelay 500Loop Until Hwnd > 0
復(fù)制代碼
//如不知道放哪里也可以用這個代碼，多線
程獲取句炳關(guān)閉，放到程序最上面，不過這個會比較占資源
  1. BeginThread 關(guān)閉
  2. Sub 關(guān)閉()
  3. Do
  4. Hwnd = Plugin.Window.Find(0, "彈窗的標(biāo)題")
  5. If Hwnd > 0 Then//如果發(fā)現(xiàn)彈窗
  6. Call Plugin.Bkgnd.KeyPress(Hwnd, 27)//同上
  7. End If
  8. Delay 500
  9. Loop
  10. End Sub
復(fù)制代碼


你是否遇到過腳本卡的情況呢，詢問論壇的老鳥怎么解決，都在說加延遲，那么你知道延遲加在哪里的效果最好嗎？那么回復(fù)下吧

本帖隱藏的內(nèi)容

  1. While 1
  2.     Delay 300 //這里的延遲最重要，這是整個循環(huán)的核心，所以這里必須上延遲，補(bǔ)上延遲和延遲100毫秒的效果是差很遠(yuǎn)的
  3.     FindColor 0,0,1024,768,"0000FF",intX,intY//找色一
  4.     If intX > 0 And intY > 0 Then 
  5.         //很多人都往這個位置加延遲，其實這里沒有多大效果
  6.         MoveTo intX, intY
  7.         LeftClick 1
  8.         //這里是加延遲的好地方，如果腳本在這里執(zhí)行延遲，那么整個循環(huán)會暫時停止，所以想要腳本穩(wěn)定，就必須在這里上50-150之間的延遲
  9.     End If
  10.     //這個位置是找色二的開始，建議50就夠了
  11.     FindColor 0,0,1024,768,"0000FF",intX,intY//找色一
  12.     If intX > 0 And intY > 0 Then
  13.         MoveTo intX, intY
  14.         LeftClick 1  //同上
  15.     End If
  16. Wend
復(fù)制代碼
//下面看這個書寫腳本錯誤的例子，前面是循環(huán)，后面是子程序的調(diào)用，這個腳本開始執(zhí)行沒問題，但是后面會奔潰
//這是因為每次調(diào)用一次子程序都會占用一段內(nèi)存來保存未執(zhí)行的部分(彈出對話框的部分被保存),所以內(nèi)存占用會越來越多最終導(dǎo)致崩潰
  1. Do
  2.     Call 子程序
  3. loop                
  4. Sub 子程序
  5.     Call 子程序a //調(diào)用子程序a
  6.     MessageBox("1")
  7. End Sub
  8. Sub 子程序a
  9.     MessageBox("2")
  10. End Sub
復(fù)制代碼
//這個大家應(yīng)該重視下，下面可以通過延遲的方法很好的解決這個問題
  1. Do
  2.     Delay 300
  3.     Call 子程序
  4. loop        
  5. Sub 子程序
  6.     Delay 300
  7.     Call 子程序a //調(diào)用子程序a
  8.     MessageBox ("1")
  9.     Delay 50
  10. End Sub
  11. Sub 子程序a
  12.     Delay 300
  13.     MessageBox ("2")
  14.     Delay 50
  15. End Sub
復(fù)制代碼
//調(diào)用上面的代碼發(fā)現(xiàn)CPU明顯下降


你是否遇到過要腳本循環(huán)做某事，然后如果某事做成，循環(huán)結(jié)束繼續(xù)循環(huán)做其他事情，想必大家都在用調(diào)用子程序來達(dá)到目的吧，下面的內(nèi)循環(huán)妙用可以很好解決這個問題

本帖隱藏的內(nèi)容


  1. Sub 內(nèi)循環(huán)
  2.     a = 0
  3.     While a = 0 //執(zhí)行這個循環(huán)
  4.         Delay 300
  5.         FindColor 0,0,1024,768,"0000FF",intX,intY
  6.         If intX > 0 And intY > 0 Then
  7.             MoveTo intX, intY
  8.             LeftClick 1  //條件成立退出循環(huán)
  9.             Delay 50
  10.             a =1
  11.         End If
  12.     Wend
  13.     Delay 500
  14.     While a = 1//執(zhí)行這個循環(huán)
  15.         Delay 300
  16.         FindColor 0,0,1024,768,"0000FF",intX,intY
  17.         If intX > 0 And intY > 0 Then
  18.             MoveTo intX, intY
  19.             LeftClick 1  //條件成立退出循環(huán)
  20.             Delay 50
  21.             a = 2
  22.         End If
  23.     Wend
  24.     Delay 500
  25.     While a = 2//執(zhí)行這個循環(huán)
  26.         Delay 300
  27.         FindColor 0,0,1024,768,"0000FF",intX,intY
  28.         If intX > 0 And intY > 0 Then
  29.             MoveTo intX, intY
  30.             LeftClick 1  //條件成立退出循環(huán)
  31.             Delay 50
  32.             a = 3
  33.         End If
  34.     Wend
  35. End Sub
復(fù)制代碼
怎樣方法是不是很新穎呢？

你是否遇到過當(dāng)條件成立時，所做的動作都是一樣的？比如找到色或者圖片執(zhí)行的動作，都是移動點擊或者按下鍵盤嗎?如果一個一個來寫會不會很麻煩呢？現(xiàn)在學(xué)會了子程序的變量傳遞就可以很好解決這個問題!{:4_111:}
下面看看普通的寫法：

本帖隱藏的內(nèi)容

  1. Do
  2. Delay 300
  3. FindColor 0,0,1024,768,"0000FF",intX,intY
  4. If intX > 0 And intY > 0 Then
  5.     MoveTo intX, intY
  6.     LeftClick 1
  7. End If
  8. Delay 50
  9. FindColor 0,0,1024,768,"0000FF",intX,intY
  10. If intX > 0 And intY > 0 Then
  11.     MoveTo intX, intY
  12.     LeftClick 1
  13. End If
  14. Delay 50
  15. FindColor 0,0,1024,768,"0000FF",intX,intY
  16. If intX > 0 And intY > 0 Then
  17.     MoveTo intX, intY
  18.     LeftClick 1
  19. End If
  20. Delay 50
  21. FindColor 0,0,1024,768,"0000FF",intX,intY
  22. If intX > 0 And intY > 0 Then
  23.     MoveTo intX, intY
  24.     LeftClick 1
  25. End If
  26. Loop
復(fù)制代碼
這樣的寫法是不是非常長而且容易出錯呢?但是細(xì)心我們可以發(fā)現(xiàn)，每次找到圖片都是移動到指定位置然后點擊，因此我們可以這樣來寫。
  1. Do
  2. Delay 300
  3. FindColor 0,0,1024,768,"5545",intX,intY
  4. If intX > 0 And intY > 0 Then
  5. Call 子程序變量傳遞(intX,intY)
  6. End If
  7. Loop
  8. Sub 子程序變量傳遞(a,b)
  9. MoveTo a,b
  10. LeftClick 1
  11. End Sub
復(fù)制代碼
這樣是不是很節(jié)儉了呢？好了教程就到這里，感謝回復(fù)查看
本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點擊舉報。
打開APP，閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
【新提醒】[教程]【新手入門】新人簡化腳本必備知識~關(guān)于子程序的講解。(對于用goto的重復(fù)代...
按鍵精靈命令和VB命令通用的方法
按鍵精靈應(yīng)用2
按鍵精靈讀取excel的數(shù)據(jù)并寫入網(wǎng)頁的方法
網(wǎng)上學(xué)習(xí)鼠標(biāo)10分鐘自動點擊 按鍵精靈使用設(shè)置方法 腳本編輯
微信自動查找附近的人打招呼
更多類似文章 >>
生活服務(wù)
熱點新聞
分享 收藏 導(dǎo)長圖 關(guān)注 下載文章
綁定賬號成功
后續(xù)可登錄賬號暢享VIP特權(quán)！
如果VIP功能使用有故障，
可點擊這里聯(lián)系客服！

聯(lián)系客服