為編程愛好者分享易語言教程源碼的資源網
易語言源碼視頻(易學院) 易語言大漠腳本交流群 B全站文字廣告,誠邀與您合作 易語言實地培訓火熱招生 三葉資源網官方③群:33301895
每日必買商品 A全站文字廣告,誠邀與您合作 C全站文字廣告,誠邀與您合作 樂易論壇 三葉資源網官方③群:33301895

網站首頁 按鍵精靈相關 按鍵精靈Q語言 正文

按鍵精靈腳本源碼 釣魚智能版

三葉資源網 2019-03-25 按鍵精靈Q語言 279 ℃ 1 評論

運行環境:分辨率:1920x1080 色深:32位 操作系統:Windows 7 Ultimate 按鍵精靈版本:9.00.9460

@smj336521 2011/11/25

MessageBox "請將鼠標移至左下坐標后按2鍵保存坐標"  
Rem 等待1  
an1 = GetLastKey()  
If an1 = 50 Then   
      
        else  
Goto 等待1  
End If  
GetCursorPos xa, ya  
MessageBox "請將鼠標移至右上坐標后按2鍵保存坐標"  
Rem 等待2  
an1 = GetLastKey()  
If an1 = 50 Then   
      
        else  
Goto 等待2  
End If  
GetCursorPos xb, yb  
Rem 重復循環  
UserVar l=30 "掃描密度"  
UserVar z=100 "查找范圍"  
UserVar se="38FFFF" "色值"  
x0=xa:y0=ya:x1=xb:y1=yb:x=x0:y=y0:z=100  
KeyPress "1", 1  
Delay 500  
        While y>y1  
    shubiao = GetCursorShape(0)  
        If shubiao = 1053591638 Then  
    Goto 找到目標  
        End If  
        If x>x1  
        x = x0  
        y = y - l  
        else  
        x = x + l  
        y = y  
        End If  
        MoveTo x,y  
        Delay 10  
    Wend  
Goto 重復循環  
    Rem 找到目標  
    MoveTo 1800, 60  
t1=plugin.sys.gettime()  //這個命令可以簡單的理解為,得到當前時間,精確到毫秒(其實真正的不是這個意思,但是這樣理解對使用也沒錯)  
do  
    FindColorEx x-z,y-z,x+z,y+z, "38FFFF" ,1,0.8,seX,seY  
If seX > 0 And seY > 0 Then  
MoveTo seX - 10, seY + 10  
        RightClick 1  
        RightClick 1  
        Delay 200  
        LeftClick 1  
        Delay 200  
        LeftClick 1  
        Delay 1000  
        Goto 重復循環  
End If  
t2=plugin.sys.gettime()  //t2是之后得到的時間,肯定比t1大  
if t2-t1>19000  then       //t2-t1就是后面大時間減前面小時間,,如果大于5000毫秒,就是5秒,就要退出循環了  
        Goto 結束  
end if  
loop  
Rem 結束  
Goto 重復循環
文件下載

Tags:

來源:三葉資源網,歡迎分享,公眾號:iisanye,(三葉資源網官方③群:33301895

已有1位網友發表了看法:

歡迎 發表評論:

百度站內搜索
關注微信公眾號
三葉資源網官方③群:三葉資源網官方③群

網站分類
隨機tag
編碼轉換哈希表類httpwacthmysql權威指南炫彩易語言解析HTML語句窗口特效反調試表情包制作閃送APP改名解析樂玩插件讀寫鎖覓風易語言加群鏈接圖片拼接內存池源碼安全CALL
最新評論
快速时时彩开奖记录