ICode9
精准搜索请尝试： 精确搜索
首页
编程语言>
数据库
系统相关
互联网
其他分享
Python
Java
JavaScript
android
PHP
首页 > 其他分享> 文章详细

刀锋铁骑版本-网络爬虫用的测试文本，麻烦通过一下审核，大哥大嫂过年好！

2020-02-05 11:00:56  阅读：449  来源： 互联网

标签：Register End 刀锋 热键 爬虫 Event 铁骑 Form1 瞬移


外挂最新版本：
【+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

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

关于我们 | 联系我们 | 留言反馈

专注分享技术，共同学习，共同进步。侵权联系[81616952@qq.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有