自己也写了个刷变身脚本,就是那种变身自杀,没变身强退的,下边是源码,仅供参考
Hwnd = Plugin.Window.MousePoint()
Delay 2000
UserVar b=1 ""
Rem ai
GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd,396,31)
If GetColor = "CDF8FF" or GetColor = "343E40" Then
Call Plugin.Bkgnd.LeftClick(Hwnd,705,511) //创建房间
Delay 100
End If
Delay 1000
GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd,913,523)
If GetColor = "A6F3FF" or GetColor = "2A3D40" Then
Call Plugin.Bkgnd.LeftClick(Hwnd,927,490) //开始
End If
GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd,597,328)
If GetColor = "468CAF" or GetColor = "66CCFF" Then
Call Plugin.Bkgnd.LeftClick(Hwnd,927,490)
delay 3000
Call Plugin.Bkgnd.LeftClick(Hwnd,927,490) //重新开始
End If
GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 957, 12)//确定进入游戏画面
If GetColor = "52A062" or GetColor = "142818" Then
GetColor1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 421, 18) //右边帽子
GetColor2 = Plugin.Bkgnd.GetPixelColor(Hwnd, 582, 20) //判断变身
If GetColor1 = "3B5473" or GetColor1 = "0E151D" or GetColor2="5A7BA5" or GetColor2="161F29" Then
Hwndtwo = Plugin.Window.Find(0, "百度游戏-弹弹堂Ⅱ-百度148区 - 糖果游戏浏览器")
HwndEx = Plugin.Window.FindEx(Hwndtwo, 0, "AfxWnd80su", "BrowserBar")
Call Plugin.Bkgnd.LeftClick(HwndEx, 1065, 18)//加速
Delay 2000
Call Plugin.Bkgnd.LeftClick(Hwnd,981,9)
Call Plugin.Bkgnd.LeftClick(HwndEx, 1065, 18)
Delay 500
Else
GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 479, 168)//判断出手
If GetColor = "7FCAFF" or GetColor = "203340" Then
b = b * (- 1 )
If b < 1 Then
Call Plugin.Bkgnd.KeyPress(Hwnd, 97)
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd, 98)
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd, 39)
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd, 39)
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd, 39)
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd, 32)
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Call Plugin.Bkgnd.SendString(hwnd, "玩转风铃妹子晚安")
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 1000
Else
Call Plugin.Bkgnd.KeyPress(Hwnd, 97)
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd, 98)
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd, 37)
Call Plugin.Bkgnd.KeyPress(Hwnd, 37)
Call Plugin.Bkgnd.KeyPress(Hwnd, 37)
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd, 32)
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Call Plugin.Bkgnd.SendString(hwnd, "我要火鸡,不要变身 日")
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 1000
End If
End If
End If
End If
GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd,387,233)
If GetColor = "010811" or GetColor = "062044" Then
Call Plugin.Bkgnd.LeftClick(Hwnd,425,349)//确定退出
Delay 100
End If
Goto ai