刀锋铁骑版本-网络爬虫用的测试文本,麻烦通过一下审核,大哥大嫂过年好!
作者:互联网
外挂最新版本:
【+1.0+】
软件使用权限:
【+1+】
版本密钥:
【+1234+】
注册开关:
【+1+】
万能机器码:
【+jiqima+】
追杀令
【-穆寒咪-深圳指挥官-】
【-北冥玄武-】
【-关姜昊-求虐-】
【-Z有所思-自称正义的逃跑绣刃-】
【-杰克MAN-】
【-梦醒时芬-深圳第一喷子-】
【-明月光明-】
【-牛逼者传奇-】
【-诸葛文兰-】
【-一剑成名万菊伤-】
【-萌宝哟-】
【-游建柏-】
【-百思不得骑姐丶-】
【-明月光明-】
【-公c子-】
【-项复天-】
【-水晶天堂-】
Dimenv 版本开关, 网上开关, 账户开关, 机器绑定开关, PVP开关, PVE开关
DimEnv 本地机器码
Dimenv dftq
Dimenv 鼠标指向的窗口句柄
DimEnv 用户总数
鼠标指向的窗口句柄 = Plugin.Window.MousePoint
TracePrint 鼠标指向的窗口句柄
//dftq = Plugin.Window.Find(“GE_WINDOW”, “刀锋铁骑”)
//TracePrint dftq
dftqEx = Plugin.Window.SearchEx(“GE_WINDOW”,“刀锋铁骑”,1)
Mydftq = Split(dftqEx, “|”)
If UBound(Mydftq)>=0 Then
i=0
For UBound(Mydftq)
//下面这句将字符串转换成数值
// Msgbox "第 “& i+1 & " 个窗口句柄为:”& Clng(MyArray(i))
If Clng(Mydftq(i)) = 鼠标指向的窗口句柄 Then
dftq = 鼠标指向的窗口句柄
TracePrint “指向鼠标句柄判断成功”
TracePrint dftq
Exit For
End If
TracePrint "第 "& i+1 & " 个窗口句柄为:"& Clng(Mydftq(i))
i = i + 1
Next
End If
DimEnv 火炮状态
DimEnv 追杀令轮播线程ID
DimEnv Windows鼠标形状,刀锋铁骑鼠标形状,鼠标形状检测线程ID
Event Form1.Load /////////////////////////////////////////////自启动
火炮状态 = - 1
版本开关=1
网上开关 = 1
刀锋铁骑鼠标形状=655355029
账户开关=0
机器绑定开关=0
PVP开关=0
PVE开关 = 0
Form1.CheckBox1.Value = Plugin.File.ReadINI(“读取账户信息”, “账号开关”, “C:\dftq\Config.ini”)
Form1.CheckBox2.Value = Plugin.File.ReadINI(“读取账户信息”, “密码开关”, “C:\dftq\Config.ini”)
If Form1.CheckBox1.Value = 1 Then
Form1.InputBox1.Text= Plugin.File.ReadINI("读取账户信息", "账号信息", "C:\dftq\Config.ini")
End If
If Form1.CheckBox2.Value = 1 Then
Form1.InputBox2.Text= Plugin.File.ReadINI("读取账户信息", "密码信息", "C:\dftq\Config.ini")
End If
Form1.回车停止脚本.Register True
Call 读取操作码的热键
End Event
Call 单选框判定
鼠标形状检测线程ID=BeginThread(鼠标形状检测)
//检测进程查杀
Sub 鼠标形状检测
Do
TracePrint "检测鼠标"
Delay 100
If GetCursorShape(1) = Windows鼠标形状 or GetCursorShape(1) = 刀锋铁骑鼠标形状 Then
Call 注销所有热键
Call 停止所有线程
End If
Loop
End Sub
Sub 回车停止脚本
End Sub
Sub 停止所有线程
StopThread 追杀令轮播线程ID
StopThread 鼠标形状检测线程ID
End Sub
Sub 注销所有热键
Form1.Hotkey1.Register False
Form1.Hotkey2.Register False
Form1.Hotkey3.Register False
Form1.Hotkey4.Register False
Form1.Hotkey5.Register False
Form1.Hotkey6.Register False
Form1.Hotkey7.Register False
Form1.Hotkey8.Register False
End Sub
Sub 读取操作码的热键
SetSimMode 0
小瞬移热键=Plugin.File.ReadINI ("瞬移热键", "小瞬移","C:\dftq\Config.ini")
Form1.Hotkey1.VirtualKey = 小瞬移热键
Form1.Hotkey1.Register True
TracePrint 小瞬移热键
大瞬移热键=Plugin.File.ReadINI ("瞬移热键", "大瞬移","C:\dftq\Config.ini")
Form1.Hotkey2.VirtualKey = 大瞬移热键
Form1.Hotkey2.Register True
TracePrint 大瞬移热键
慢瞬移热键=Plugin.File.ReadINI ("瞬移热键", "慢瞬移","C:\dftq\Config.ini")
Form1.Hotkey3.VirtualKey = 慢瞬移热键
Form1.Hotkey3.Register True
TracePrint 慢瞬移热键
超级跳热键=Plugin.File.ReadINI ("跳跃设置热键", "超级跳","C:\dftq\Config.ini")
Form1.Hotkey4.VirtualKey = 超级跳热键
Form1.Hotkey4.Register True
TracePrint 超级跳热键
大超级跳热键=Plugin.File.ReadINI ("跳跃设置热键", "大超级跳","C:\dftq\Config.ini")
Form1.Hotkey5.VirtualKey = 大超级跳热键
Form1.Hotkey5.Register True
TracePrint 大超级跳热键
瞬移跳热键=Plugin.File.ReadINI ("跳跃设置热键", "瞬移跳","C:\dftq\Config.ini")
Form1.Hotkey6.VirtualKey = 瞬移跳热键
Form1.Hotkey6.Register True
TracePrint 瞬移跳热键
五十倍伤害热键=Plugin.File.ReadINI ("PVE设置热键", "五十倍伤害","C:\dftq\Config.ini")
Form1.Hotkey7.VirtualKey = 五十倍伤害热键
Form1.Hotkey7.Register True
TracePrint 五十倍伤害热键
火炮加速热键=Plugin.File.ReadINI ("PVE设置热键", "火炮加速","C:\dftq\Config.ini")
// Form1.Hotkey8.VirtualKey = 火炮加速
Form1.Hotkey8.Register True
TracePrint "火炮加速热键"
End Sub
Sub 单选框判定
TracePrint 账户开关
TracePrint 机器绑定开关
TracePrint PVP开关
TracePrint PVE开关
If 版本开关 = 1 and 网上开关 = 1 and 账户开关 = 1 and 机器绑定开关 = 1 and PVP开关=1 Then
Form1.OptionBox2.Enabled=1
Form1.OptionBox2.value = 1
// Form1.OptionBox1.value = 0
Form1.Hotkey1.Register True
Form1.OptionBox4.Enabled=1
Form1.OptionBox4.value = 1
// Form1.OptionBox3.value = 0
Form1.Hotkey2.Register True
Form1.OptionBox6.Enabled=1
Form1.OptionBox6.value = 1
// Form1.OptionBox5.value = 0
Form1.Hotkey3.Register True
Form1.OptionBox8.Enabled=1
Form1.OptionBox8.value = 1
// Form1.OptionBox7.value = 0
Form1.Hotkey4.Register True
Form1.OptionBox10.Enabled=1
Form1.OptionBox10.value = 1
// Form1.OptionBox9.value = 0
Form1.Hotkey5.Register True
Form1.OptionBox12.Enabled=1
Form1.OptionBox12.value = 1
// Form1.OptionBox11.value = 0
Form1.Hotkey6.Register True
End If
If 版本开关 = 1 and 网上开关 = 1 and 账户开关 = 1 and 机器绑定开关 = 1 and PVE开关 = 1 Then
Form1.OptionBox15.Enabled=1
Form1.OptionBox15.value = 1
// Form1.OptionBox16.value = 0
Form1.Hotkey7.Enabled=1
Form1.Hotkey7.Register True
End If
End Sub
//Call 单选框判定
Event Form1.回车停止脚本.Hotkey
Call 注销所有热键
Call 停止所有线程
End Event
Event Form1.Hotkey1.Hotkey
TracePrint "按下了小瞬移操热键"
If Form1.OptionBox2.value = 1 Then
If Form1.ComboBox1.ListIndex =0 Then
Form1.Hotkey1.Register False
Call 小瞬移操作码
TracePrint "小瞬移启动"
Delay 150
Form1.Hotkey1.Register True
ElseIf Form1.ComboBox1.ListIndex = 1 Then
Form1.Hotkey1.Register False
Call 小瞬移操作码2
Delay 100
Form1.Hotkey1.Register True
End If
End If
End Event
Event Form1.Hotkey1.Change
小瞬移热键=Form1.Hotkey1.VirtualKey
Call Plugin.File.WriteINI("瞬移热键", "小瞬移", 小瞬移热键,"C:\dftq\Config.ini" )
TracePrint 小瞬移热键
Form1.Hotkey1.Register True
End Event
Event Form1.Hotkey2.Hotkey
If Form1.OptionBox4.value = 1 Then
Form1.Hotkey2.Register False
Call 大瞬移操作码
Delay 300
Form1.Hotkey2.Register True
End If
End Event
Event Form1.Hotkey2.Change
大瞬移热键=Form1.Hotkey2.VirtualKey
Call Plugin.File.WriteINI("瞬移热键", "大瞬移", 大瞬移热键,"C:\dftq\Config.ini" )
TracePrint 大瞬移热键
Form1.Hotkey2.Register True
End Event
Event Form1.Hotkey3.Hotkey
If Form1.OptionBox6.value = 1 Then
Form1.Hotkey3.Register False
Call 慢瞬移操作码
Delay 300
Form1.Hotkey3.Register True
End If
End Event
Event Form1.Hotkey3.Change
慢瞬移热键=Form1.Hotkey3.VirtualKey
Call Plugin.File.WriteINI("瞬移热键", "慢瞬移", 慢瞬移热键,"C:\dftq\Config.ini" )
TracePrint 慢瞬移热键
Form1.Hotkey3.Register True
End Event
Event Form1.Hotkey4.Hotkey
If Form1.OptionBox8.value = 1 Then
Form1.Hotkey4.Register False
Call 超级跳操作码
Delay 300
Form1.Hotkey4.Register True
End If
End Event
Event Form1.Hotkey4.Change
超级跳热键=Form1.Hotkey4.VirtualKey
Call Plugin.File.WriteINI("跳跃设置热键", "超级跳", 超级跳热键,"C:\dftq\Config.ini" )
TracePrint 超级跳热键
Form1.Hotkey4.Register True
End Event
Event Form1.Hotkey5.Hotkey
If Form1.OptionBox10.value = 1 Then
Form1.Hotkey5.Register False
Call 大超级跳操作码
Delay 300
Form1.Hotkey5.Register True
End If
End Event
Event Form1.Hotkey5.Change
大超级跳热键=Form1.Hotkey5.VirtualKey
Call Plugin.File.WriteINI("跳跃设置热键", "大超级跳", 大超级跳热键,"C:\dftq\Config.ini" )
TracePrint 大超级跳热键
Form1.Hotkey5.Register True
End Event
Event Form1.Hotkey6.Hotkey
If Form1.OptionBox12.value = 1 Then
Form1.Hotkey6.Register False
Call 瞬移跳操作码
Delay 300
Form1.Hotkey6.Register True
End If
End Event
Event Form1.Hotkey6.Change
瞬移跳热键=Form1.Hotkey6.VirtualKey
Call Plugin.File.WriteINI("跳跃设置热键", "瞬移跳", 瞬移跳热键,"C:\dftq\Config.ini" )
TracePrint 瞬移跳热键
Form1.Hotkey6.Register True
End Event
Event Form1.Hotkey7.Hotkey
Form1.Hotkey7.Register False
If Form1.OptionBox15.value = 1 Then
Call 五十倍伤害操作码
Delay 1630
Form1.Hotkey7.Register True
End If
End Event
Event Form1.Hotkey7.Change
五十倍伤害热键=Form1.Hotkey7.VirtualKey
Call Plugin.File.WriteINI("PVE设置热键", "五十倍伤害", 五十倍伤害热键,"C:\dftq\Config.ini" )
TracePrint 瞬移跳热键
Form1.Hotkey7.Register True
End Event
Joonhua 发布了4 篇原创文章 · 获赞 1 · 访问量 4650 私信 关注标签:Register,End,刀锋,热键,爬虫,Event,铁骑,Form1,瞬移 来源: https://blog.csdn.net/Joonhua/article/details/95065156