外挂最新版本：*1.0*
软件使用权限：*1*
版本密钥：*1234*
注册开关：*1*
通用码：*jiqima*
Delay 200
Form1.Hotkey1.Register True
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
//Set dm = createobject("dm.dmsoft")
//dm_ret = dm.SetPath("c:\dftq")
//回车光标检测地址 = "[<tiejiclient.exe>+02e39528]+264"
//回车光标检测 = dm.ReadInt(dftq, 回车光标检测地址, 0)
Form1.Hotkey2.Register False
回车光标检测 = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))
If GetCursorShape(1) <> Windows鼠标形状 and GetCursorShape(1) <> 刀锋铁骑鼠标形状 and 回车光标检测=0 and (Form1.InputBox8.Text="坐标备注" or Form1.InputBox8.Text<>"" )Then
TracePrint "按下了大瞬移热键"
If Form1.OptionBox4.value = 1 Then
If Form1.ComboBox1.ListIndex =0 Then
// Form1.Hotkey2.Register False
Call 大瞬移操作码
TracePrint "轻甲大瞬移启动"
// Delay 300
// Form1.Hotkey2.Register True
ElseIf Form1.ComboBox1.ListIndex = 1 Then
Form1.Hotkey2.Register False
Call 大瞬移操作码2
TracePrint "重甲大瞬移启动"
// Delay 300
// Form1.Hotkey2.Register True
End If
End If
End If
Delay 300
Form1.Hotkey2.Register True
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
//Set dm = createobject("dm.dmsoft")
//dm_ret = dm.SetPath("c:\dftq")
//回车光标检测地址 = "[<tiejiclient.exe>+02e39528]+264"
//回车光标检测 = dm.ReadInt(dftq, 回车光标检测地址, 0)
Form1.Hotkey3.Register False
回车光标检测 = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))
If GetCursorShape(1) <> Windows鼠标形状 and GetCursorShape(1) <> 刀锋铁骑鼠标形状 and 回车光标检测=0 and (Form1.InputBox8.Text="坐标备注" or Form1.InputBox8.Text<>"" )Then
TracePrint "按下了慢瞬移热键"
If Form1.OptionBox6.value = 1 Then
If Form1.ComboBox1.ListIndex =0 Then
// Form1.Hotkey3.Register False
Call 慢瞬移操作码
TracePrint "轻甲慢瞬移启动"
// Delay 400
// Form1.Hotkey3.Register True
ElseIf Form1.ComboBox1.ListIndex = 1 Then
// Form1.Hotkey3.Register False
Call 慢瞬移操作码2
TracePrint "重甲慢瞬移启动"
// Delay 400
// Form1.Hotkey3.Register True
End If
End If
End If
Delay 400
Form1.Hotkey3.Register True
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
//Set dm = createobject("dm.dmsoft")
//dm_ret = dm.SetPath("c:\dftq")
//回车光标检测地址 = "[<tiejiclient.exe>+02e39528]+264"
//回车光标检测 = dm.ReadInt(dftq, 回车光标检测地址, 0)
Form1.Hotkey4.Register True
回车光标检测 = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))
If GetCursorShape(1) <> Windows鼠标形状 and GetCursorShape(1) <> 刀锋铁骑鼠标形状 and 回车光标检测=0 and (Form1.InputBox8.Text="坐标备注" or Form1.InputBox8.Text<>"" )Then
TracePrint "按下了超级跳热键"
If Form1.OptionBox8.value = 1 Then
If Form1.ComboBox1.ListIndex =0 Then
// Form1.Hotkey4.Register False
Call 超级跳操作码
TracePrint "轻甲超级跳启动"
// Delay 300
// Form1.Hotkey4.Register True
ElseIf Form1.ComboBox1.ListIndex = 1 Then
Form1.Hotkey4.Register False
Call 超级跳操作码2
TracePrint "重甲超级跳启动"
// Delay 300
// Form1.Hotkey4.Register True
End If
End If
End If
Delay 300
Form1.Hotkey4.Register True
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
//Set dm = createobject("dm.dmsoft")
//dm_ret = dm.SetPath("c:\dftq")
//回车光标检测地址 = "[<tiejiclient.exe>+02e39528]+264"
//回车光标检测 = dm.ReadInt(dftq, 回车光标检测地址, 0)
Form1.Hotkey5.Register False
回车光标检测 = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))
If GetCursorShape(1) <> Windows鼠标形状 and GetCursorShape(1) <> 刀锋铁骑鼠标形状 and 回车光标检测=0 and (Form1.InputBox8.Text="坐标备注" or Form1.InputBox8.Text<>"" )Then
TracePrint "按下了大超级跳热键"
If Form1.OptionBox10.value = 1 Then
If Form1.ComboBox1.ListIndex =0 Then
// Form1.Hotkey5.Register False
Call 大超级跳操作码
TracePrint "轻甲大超级跳启动"
// Delay 300
// Form1.Hotkey5.Register True
ElseIf Form1.ComboBox1.ListIndex = 1 Then
Form1.Hotkey5.Register False
Call 大超级跳操作码2
TracePrint "重甲大超级跳启动"
// Delay 300
// Form1.Hotkey5.Register True
End If
End If
End If
Delay 300
Form1.Hotkey5.Register True
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
//Set dm = createobject("dm.dmsoft")
//dm_ret = dm.SetPath("c:\dftq")
//回车光标检测地址 = "[<tiejiclient.exe>+02e39528]+264"
//回车光标检测 = dm.ReadInt(dftq, 回车光标检测地址, 0)
Form1.Hotkey6.Register True
回车光标检测 = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))
If GetCursorShape(1) <> Windows鼠标形状 and GetCursorShape(1) <> 刀锋铁骑鼠标形状 and 回车光标检测=0 and (Form1.InputBox8.Text="坐标备注" or Form1.InputBox8.Text<>"" )Then
TracePrint "按下了瞬移跳热键"
If Form1.OptionBox12.value = 1 Then
If Form1.ComboBox1.ListIndex =0 Then
// Form1.Hotkey6.Register False
Call 瞬移跳操作码
TracePrint "轻甲瞬移跳启动"
// Delay 300
// Form1.Hotkey6.Register True
ElseIf Form1.ComboBox1.ListIndex = 1 Then
Form1.Hotkey6.Register False
Call 瞬移跳操作码2
TracePrint "重甲瞬移跳启动"
// Delay 300
// Form1.Hotkey6.Register True
End If
End If
End If
Delay 300
Form1.Hotkey6.Register True
End Event
Event Form1.Hotkey7.Hotkey
//Set dm = createobject("dm.dmsoft")
//dm_ret = dm.SetPath("c:\dftq")
//回车光标检测地址 = "[<tiejiclient.exe>+02e39528]+264"
//回车光标检测 = dm.ReadInt(dftq, 回车光标检测地址, 0)
Form1.Hotkey7.Register False
回车光标检测 = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))
If GetCursorShape(1) <> Windows鼠标形状 and GetCursorShape(1) <> 刀锋铁骑鼠标形状 and 回车光标检测=0 and (Form1.InputBox8.Text="坐标备注" or Form1.InputBox8.Text<>"" )Then
// Form1.Hotkey7.Register False
If Form1.OptionBox15.value = 1 Then
Call 五十倍伤害操作码
// Delay 1630
// Form1.Hotkey7.Register True
End If
End If
Delay 500
Form1.Hotkey7.Register True
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
Case 10049
Form1.Button地图.Caption="困难边塞危机"
Case 10054
Form1.Button地图.Caption="噩梦边塞危机"
Case 10032
Form1.Button地图.Caption="普通守卫神像"
Case 10047
Form1.Button地图.Caption="困难守卫神像"
Case 10052
Form1.Button地图.Caption="噩梦守卫神像"
Case 10057
Form1.Button地图.Caption="困难尸王"
Case 10058
Form1.Button地图.Caption="噩梦尸王"
Case 10083
Form1.Button地图.Caption="挑战模式30波试炼"
Case 10084
Form1.Button地图.Caption="挑战模式60波试炼"
Case 10088
Form1.Button地图.Caption="长城10波"
Case 10087
Form1.Button地图.Caption="长城30波"
Case 10090
Form1.Button地图.Caption="长城60波"
Case 10092
Form1.Button地图.Caption="极限挑战"
Case 1007
Form1.Button地图.Caption="无双挑战"
Case 1004
Form1.Button地图.Caption = "火枪模式"
Case 10043
Form1.Button地图.Caption = "校场"
Case 10029
Form1.Button地图.Caption = "长青城"
Case Else
Form1.Button地图.Caption = "PvP模式禁用"
End Select
If 地图代号=10039 or 地图代号=10049 or 地图代号=10054 or 地图代号=10032 or 地图代号=10047 or 地图代号=10052 or 地图代号=10057 or 地图代号=10058 or 地图代号=10083 or 地图代号=10084 or 地图代号=10088 or 地图代号=10087 or 地图代号=10090 or 地图代号=10092 or 地图代号=1007 or 地图代号=1004 Then
// Form1.Hotkey1.Register False
Call 小瞬移操作码
TracePrint "轻甲小瞬移启动"
Delay 200
// Form1.Hotkey1.Register True
ElseIf Form1.ComboBox1.ListIndex = 1 Then
Form1.Hotkey1.Register False
Call 小瞬移操作码2
TracePrint "重甲小瞬移启动"
// Delay 200
// Form1.Hotkey1.Register True
End If
End If
End If
Delay 200
Form1.Hotkey1.Register True
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
//Set dm = createobject("dm.dmsoft")
//dm_ret = dm.SetPath("c:\dftq")
//回车光标检测地址 = "[<tiejiclient.exe>+02e39528]+264"
//回车光标检测 = dm.ReadInt(dftq, 回车光标检测地址, 0)
Form1.Hotkey2.Register False
回车光标检测 = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))
If GetCursorShape(1) <> Windows鼠标形状 and GetCursorShape(1) <> 刀锋铁骑鼠标形状 and 回车光标检测=0 and (Form1.InputBox8.Text="坐标备注" or Form1.InputBox8.Text<>"" )Then
TracePrint "按下了大瞬移热键"
If Form1.OptionBox4.value = 1 Then
If Form1.ComboBox1.ListIndex =0 Then
// Form1.Hotkey2.Register False
Call 大瞬移操作码
TracePrint "轻甲大瞬移启动"
// Delay 300
// Form1.Hotkey2.Register True
ElseIf Form1.ComboBox1.ListIndex = 1 Then
Form1.Hotkey2.Register False
Call 大瞬移操作码2
en
If Form1.ComboBox1.ListIndex =0 Then
// Form1.Hotkey3.Register False
Call 慢瞬移操作码
TracePrint "轻甲慢瞬移启动"
// Delay 400
// Form1.Hotkey3.Register True
ElseIf Form1.ComboBox1.ListIndex = 1 Then
// Form1.Hotkey3.Register False
Call 慢瞬移操作码2
TracePrint "重甲慢瞬移启动"
// Delay 400
// Form1.Hotkey3.Register True
End If
End If
End If
Delay 400
Form1.Hotkey3.Register True
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
//Set dm = createobject("dm.dmsoft")
//dm_ret = dm.SetPath("c:\dftq")
//回车光标检测地址 = "[<tiejiclient.exe>+02e39528]+264"
//回车光标检测 = dm.ReadInt(dftq, 回车光标检测地址, 0)
Form1.Hotkey4.Register True
回车光标检测 = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))
If GetCursorShape(1) <> Windows鼠标形状 and GetCursorShape(1) <> 刀锋铁骑鼠标形状 and 回车光标检测=0 and (Form1.InputBox8.Text="坐标备注" or Form1.InputBox8.Text<>"" )Then
TracePrint "按下了超级跳热键"
If Form1.OptionBox8.value = 1 Then
If Form1.ComboBox1.ListIndex =0 Then
// Form1.Hotkey4.Register False
Call 超级跳操作码
TracePrint "轻甲超级跳启动"
// Delay 300
// Form1.Hotkey4.Register True
ElseIf Form1.ComboBox1.ListIndex = 1 Then
Form1.Hotkey4.Register False
Call 超级跳操作码2
TracePrint "重甲超级跳启动"
// Delay 300
// Form1.Hotkey4.Register True
Call Plugin.File.WriteINI("跳跃设置热键", "超级跳", 超级跳热键,"c:\dftq\Config.ini" )
TracePrint 超级跳热键
Form1.Hotkey4.Register True
End Event
Event Form1.Hotkey5.Hotkey
//Set dm = createobject("dm.dmsoft")
//dm_ret = dm.SetPath("c:\dftq")
//回车光标检测地址 = "[<tiejiclient.exe>+02e39528]+264"
//回车光标检测 = dm.ReadInt(dftq, 回车光标检测地址, 0)
Form1.Hotkey5.Register False
回车光标检测 = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))
If GetCursorShape(1) <> Windows鼠标形状 and GetCursorShape(1) <> 刀锋铁骑鼠标形状 and 回车光标检测=0 and (Form1.InputBox8.Text="坐标备注" or Form1.InputBox8.Text<>"" )Then
TracePrint "按下了大超级跳热键"
If Form1.OptionBox10.value = 1 Then
If Form1.ComboBox1.ListIndex =0 Then
// Form1.Hotkey5.Register False
Call 大超级跳操作码
TracePrint "轻甲大超级跳启动"
// Delay 300
// Form1.Hotkey5.Register True
ElseIf Form1.ComboBox1.ListIndex = 1 Then
Form1.Hotkey5.Register False
Call 大超级跳操作码2
TracePrint "重甲大超级跳启动"
// Delay 300
// Form1.Hotkey5.Register True
End If
End If
End If
Delay 300
Form1.Hotkey5.Register True
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
//Set dm = createobject("dm.dmsoft")
//dm_ret = dm.SetPath("c:\dftq")
//回车光标检测地址 = "[<tiejiclient.exe>+02e39528]+264"
//回车光标检测 = dm.ReadInt(dftq, 回车光标检测地址, 0)
Form1.Hotkey6.Register True
回车光标检测 = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))
If GetCursorShape(1) <> Windows鼠标形状 and GetCursorShape(1) <> 刀锋铁骑鼠标形状 and 回车光标检测=0 and (Form1.InputBox8.Text="坐标备注" or Form1.InputBox8.Text<>"" )Then
TracePrint "按下了瞬移跳热键"
If Form1.OptionBox12.value = 1 Then
If Form1.ComboBox1.ListIndex =0 Then
// Form1.Hotkey6.Register False
Call 瞬移跳操作码
TracePrint "轻甲瞬移跳启动"
// Delay 300
// Form1.Hotkey6.Register True
ElseIf Form1.ComboBox1.ListIndex = 1 Then
Form1.Hotkey6.Register False
Call 瞬移跳操作码2
TracePrint "重甲瞬移跳启动"
// Delay 300
// Form1.Hotkey6.Register True
End If
End If
End If
Delay 300
Form1.Hotkey6.Register True
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
//Set dm = createobject("dm.dmsoft")
//dm_ret = dm.SetPath("c:\dftq")
//回车光标检测地址 = "[<tiejiclient.exe>+02e39528]+264"
//回车光标检测 = dm.ReadInt(dftq, 回车光标检测地址, 0)
Form1.Hotkey7.Register False
回车光标检测 = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))
If GetCursorShape(1) <> Windows鼠标形状 and GetCursorShape(1) <> 刀锋铁骑鼠标形状 and 回车光标检测=0 and (Form1.InputBox8.Text="坐标备注" or Form1.InputBox8.Text<>"" )Then
// Form1.Hotkey7.Register False
If Form1.OptionBox15.value = 1 Then
Call 五十倍伤害操作码
// Delay 1630
// Form1.Hotkey7.Register True
End If
End If
Delay 500
Form1.Hotkey7.Register True
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
Event Form1.Hotkey9.Change
悬浮框热键=Form1.Hotkey9.VirtualKey
Call Plugin.File.WriteINI("悬浮框热键", "悬浮框", 悬浮框热键,"c:\dftq\Config.ini" )
TracePrint 悬浮框热键
Form1.Hotkey9.Register True
End Event
Event Form1.Hotkey9.Hotkey //悬浮框
//dftq = Plugin.Window.Find("_GE_WINDOW_", "刀锋铁骑")
TracePrint "热键开启信息框"
悬浮框状态=悬浮框状态*-1
If 悬浮框状态=1 Then
StopThread (透明显示线程ID)
Call 关闭信息显示
透明显示线程ID = BeginThread(透明显示)
dim MyArray
//下面这句是得到窗口句柄的客户区大小
sRect = Plugin.Window.GetClientRect(bg)
//MsgBox "得到窗口句柄的客户区大小为："& sRect
//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
//下面这句将字符串转换成数值
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)) : B = Clng(MyArray(3))
W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))
W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))
TracePrint "左" & L & ",右 " & R & ",上" & T & ",下" & B
TracePrint "边框大小： " & W2 - W1 & " " & H2 - H1
End If
If 悬浮框状态 = - 1 Then
StopThread (透明显示线程ID)
Call 关闭信息显示
End If
End Event
Else
MessageBox "请输入数字"
Form1.InputBox9.Text = ""
End If
Next
End Event
Event Form1.InputBox12.Change
txt = Form1.InputBox9.Text
For i = 1 To len(txt)
tt = Asc(mid(txt, i, 1))
If tt >= 48 and tt <= 57 Then
Else
MessageBox "请输入数字"
Form1.InputBox9.Text = ""
End If
Next
End Event
Event Form1.Button9.Click
Dim MyPos1,MyPos2,a,text,lenth,去括号的坐标结构体,坐标结构体
//人传送状态 = 人传送状态 * (- 1 )
If Form1.TabControl2.Tab=0 Then
Select Case 人传送状态
Case 0
//If 人传送状态 = 1 Then
//If 人传送状态 = 0 Then
Form1.Button9.NormalColor="0000FF"
Form1.Button9.BackColor="0000FF"
Form1.Button9.Caption="停止传送"
Form1.Button9.OverColor="0000FF"
a = Form1.ListBox4.ListIndex//a为选中的列表框元素序号
text = Form1.ListBox4.List//倒出所有元素框内容
预存的坐标们 = split(text, "|")//数组
TracePrint 预存的坐标们(a) //选中的坐标
MyPos1 = Instr(1, 预存的坐标们(a), "(", 1)
MyPos2 = Instr(1, 预存的坐标们(a), ")", 1)
TracePrint MyPos1
TracePrint MyPos2
lenth=MyPos2-MyPos1-1
去括号的坐标结构体 = Mid(预存的坐标们(a), MyPos1+1, lenth)
//
TracePrint 去括号的坐标结构体
坐标结构体 = split(去括号的坐标结构体, ",")
人传送x坐标=坐标结构体(0)
人传送y坐标=坐标结构体(1)
人传送z坐标=坐标结构体(2)
//StopThread 人传送线程ID
//If 人传送x坐标<>"" and 人传送y坐标<>"" and 人传送z坐标<>"" Then
//人传送线程ID = BeginThread(人传送)
//Delay 1000
Form1.Timer人传送.Enabled=1
人传送状态 = 1
//End If
//End If
//If 人传送状态 = - 1 Then
//If 人传送状态 = 1 Then
Case 1
//StopThread 人传送线程ID
Form1.Timer人传送.Enabled=0
人传送状态 = 0
Form1.Timer人传送.Enabled=0
Form1.Button9.NormalColor="5EAB25"
Form1.Button9.BackColor = "68B62F"
Form1.Button9.OverColor="68BF34"
Form1.Button9.Caption="传送"
//End If
End Select
End If
If Form1.TabControl2.Tab=1 Then
//If 人传送状态 = 1 Then
Select Case 人传送状态
Case 0
Form1.Button9.NormalColor="0000FF"
Form1.Button9.BackColor="0000FF"
Form1.Button9.Caption="停止传送"
Form1.Button9.OverColor="0000FF"
a = Form1.ListBox5.ListIndex//a为选中的列表框元素序号
text = Form1.ListBox5.List//倒出所有元素框内容
预存的坐标们 = split(text, "|")//数组
TracePrint 预存的坐标们(a) //选中的坐标
MyPos1 = Instr(1, 预存的坐标们(a), "(", 1)
MyPos2 = Instr(1, 预存的坐标们(a), ")", 1)
TracePrint MyPos1
TracePrint MyPos2
lenth=MyPos2-MyPos1-1
去括号的坐标结构体 = Mid(预存的坐标们(a), MyPos1+1, lenth)
//
TracePrint 去括号的坐标结构体
坐标结构体 = split(去括号的坐标结构体, ",")
人传送x坐标=坐标结构体(0)
人传送y坐标=坐标结构体(1)
人传送z坐标=坐标结构体(2)
//StopThread 人传送线程ID
If 人传送x坐标<>"" and 人传送y坐标<>"" and 人传送z坐标<>"" Then
//人传送线程ID = BeginThread(人传送)
Form1.Timer人传送.Enabled = 1
人传送状态 = 1
//Delay 1000
End If
//End If
//If 人传送状态 = - 1 Then
//If 人传送状态 = 1 Then
//StopThread 人传送线程ID
Case 1
Form1.Timer人传送.Enabled = 0
人传送状态 =0
Form1.Button9.NormalColor="5EAB25"
Form1.Button9.BackColor = "68B62F"
Form1.Button9.OverColor="68BF34"
Form1.Button9.Caption="传送"
//End If
End Select
End If
End Event
// StopThread 双管加速双击鼠标线程ID
// StopThread 只按r键线程ID
//End If
回车光标检测 = int(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))
If Form1.ComboBox2.ListIndex=1 and 回车光标检测=0 Then
火炮状态 = 火炮状态 * - 1
TracePrint 火炮状态
If 火炮状态 = 1 Then
TracePrint "开启单管火炮加速"
// MsgBox "开启单管火炮加速"
StopThread 一直按R键线程ID
// Delay 1000
// StopThread 鼠标左右键一起按线程ID
一直按R键线程ID = BeginThread(一直按R键)
Delay 2000
End If
If 火炮状态 = -1 Then
Do验明作者身份和功能演示")
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
KeyPress "Enter", 1
Delay 10000
Loop
Event Form1.微调加.Hotkey 延迟 (50 + int(微调系数))
//微调系数=Form1.InputBox8.Text
微调系数 = 微调系数 + 1
//Form1.InputBox8.Text = 微调系数
Form1.Label34.Caption = Cint(微调系数)
End Event
Event Form1.微调减.Hotkey
//微调系数=Form1.InputBox8.Text
微调系数 = 微调系数 - 1
//Form1.InputBox8.Text = 微调系数
Form1.Label34.Caption = Cint(微调系数)
End Event
Plugin.Bkgnd.KeyUp dftq,68
延迟 (50 + int(微调系数))
Plugin.Bkgnd.KeyUp dftq,83
Plugin.Bkgnd.KeyUp dftq,68
Form1.OptionBox10.value = 0
// Form1.OptionBox9.value = 0
Form1.Hotkey5.Register False
Form1.OptionBox12.Enabled=0
Form1.OptionBox12.value = 0
Form1.Hotkey6.Register False
// Form1.OptionBox11.value = 0
Form1.Button17.Enabled = 0
Form1.Button18.Enabled = 0
Form1.Button9.Enabled = 0
Form1.Button10.Enabled = 0
Form1.Button15.Enabled = 0
Form1.Button16.Enabled = 0
Form1.Button17.Enabled = 0
Form1.Button18.Enabled = 0
//DimEnv dftq
Set dm = createobject("dm.dmsoft")
dm_ret = dm.SetPath("c:\dftq")
dftq = Plugin.Window.Find("_GE_WINDOW_", "刀锋铁骑")
//下面这句是得到窗口句柄的客户区大小
sRect = Plugin.Window.GetClientRect(dftq)
//MsgBox "得到窗口句柄的客户区大小为："& sRect
//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
dim MyArray
MyArray = Split(sRect, "|")
//下面这句将字符串转换成数值
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)) : B = Clng(MyArray(3))
W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))
W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))
TracePrint "左" & L & ",右 " & R & ",上" & T & ",下" & B
TracePrint "边框大小： " & W2-W1 & " " & H2-H1
If 火炮状态 = 1 Then
TracePrint "开启双管火炮加速"
// Call 火炮双管加速操作码
火炮双管操作码线程ID = BeginThread(火炮双管操作码)
Delay 2000
End If
If 火炮状态 = - 1 Then
StopThread 火炮双管操作码线程ID
StopThread 双管加速双击鼠标线程ID
StopThread 只按r键线程ID
TracePrint "关闭双单管"
End If
End If
Delay 400
Form1.Hotkey8.Register True
Form4.Close
End Event
Event Form5.Button1.Click
Form5.Close
End Event
