绑定id的代码写法随笔

DimEnv 小瞬移热键, 大瞬移热键, 慢瞬移热键, 超级跳热键, 大超级跳热键, 瞬移跳热键, 五十倍伤害热键

DimEnv dftq

Dimenv 鼠标指向的窗口句柄

DimEnv 用户总数

DimEnv 微调系数

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

//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

Delay 400

Form1.Hotkey8.Register True

Form4.Close

End Event

Event Form5.Button1.Click

Form5.Close

End Event

【/admin/test123/自己/1009799320/9999-09-17/9999-09-17/1/】

【/test/test123/自己/jiqima/9999-09-17/9999-09-17/1/1111111111111】

【/fadaisanmiao/midea444/发呆三秒/-166643832/9999-12-31/9999-12-31/1/1111111111111】

【/2829457609/123456/末年的号/-1943778844/9999-12-31/9999-12-31/1/1111111111111】

【/qq982347878/2233993/苏联人/-2146168782/9999-12-31/9999-12-31/1/1111111111111】

【/xiuchundao/xiuchundao/秀春刀/jiqima/9999-9-14/9999-10-15/1/1111111111111】

【/353998868/zhaoyan..521/麒麟丨主宰/1344581108/2021-02-13/2021-02-13/1/00110000000100】

pve赠送

【/fx90218/mxf123123123/战神之怒/230887851/2020-09-17/2020-09-13/1/0000000001000】

【/qianxun/qianxun123/千寻千寻/jiqima/2020-09-15/2020-09-10/1/0000000001000】

【/fx90218/mxf123123123/天涯丶/230887851/2020-09-17/2020-09-13/1/0000000001000】

【/nanhuang/nanhuang/IK丶南皇/jiqima/2020-09-01/2020-09-14/1/0000000001000】

pvp区域

【/laizhoucat/19841126/方志和/jiqima/2020-10-14/2020-09-10/1/0011000001000】

【/gouzhanshi/gouzhanshi/我叫仇大头/jiqima/2020-10-16/2020-09-10/1/1111111111111】

【/b89188153/123456/哈虎殿下/-2110092178/2020-10-11/2020-09-01/1/】350pvp 刘强东笔记本

【/qwer12345/ab123/秦俊德/jiqima/2020-10-29/2020-10-21/1/0000000000000/】pvp周20

【/1244295650/ren2135566/翘脚牛肉/jiqima/2020-11-29/2020-10-26/1/0000000000000/】pvp网吧不差q350

【/maomao/maomao/猫猫我爱你/jiqima/2020-12-25/2020-10-26/1/0000000000000/】pvp网吧不差q350

【/houwanming/hou1986101/死神上场了/jiqima/2021-01-09/2020-10-26/1/0000000000000/】pvp网吧不差q350

pve区域

【/xiaobingbing/xiaobingbing/小兵兵/jiqima/2020-10-14/2020-11-06/1/0011000000000】小兵兵

【/19960531/123456/尼尔灬2B小姐姐/2022918153/2020-9-14/2020-09-19/1/0000000000000】

【/matafeiyan/matafeiyan/马踏飞燕/jiqima/2020-9-14/2020-10-18/1/0011000000100】

【/jz050015/jz050015/微生孤萍/jiqima/2020-09-30/2020-10-27/1/0011000000000】

【/xiyu/xiyu123/西域灬阿财/jiqima/2020-11-13/2021-01-08/1/000000000100】

【/674135/zf987654321/张火夆/jiqima/2020-11-13/2020-12-06/1/0011000000000】

【/M68954150/M68954150./ArthurKing/jiqima/2020-10-29/2020-11-26/1/00110000000100/】武魂和极限300

【/2241514876/qq779891463/暴打卢春前/624833/2020-10-29/2020-11-07/1/0011000000000/】ssss的号刷武魂

【/q44550096/857806884/秦斩/jiqima/2020-10-25/2020-12-25/1/0000000000000/】

【/cjj123456/cjj123456789/闇诡/jiqima/2020-12-10/2021-01-07/1/0011000000000/】

【/wyhdl521/wang521/慕容珺琪/-2097520225/2021-01-04/2021-01-16/1/001100000000/】 pve300

最后编辑于：2021.01.19 22:39:25

人面猴
序言：七十年代末，一起剥皮案震惊了整个滨河市，随后出现的几起案子，更是在滨河造成了极大的恐慌，老刑警刘岩，带你破解...
沈念sama阅读 214,658评论 6赞 496
死咒
序言：滨河连续发生了三起死亡事件，死亡现场离奇诡异，居然都是意外死亡，警方通过查阅死者的电脑和手机，发现死者居然都...
沈念sama阅读 91,482评论 3赞 389
救了他两次的神仙让他今天三更去死
文/潘晓璐我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
开封第一讲书人阅读 160,213评论 0赞 350
道士缉凶录：失踪的卖姜人
文/不坏的土叔我叫张陵，是天一观的道长。经常有香客问我，道长，这世上最难降的妖魔是什么？我笑而不...
开封第一讲书人阅读 57,395评论 1赞 288
港岛之恋（遗憾婚礼）
正文为了忘掉前任，我火速办了婚礼，结果婚礼上，老公的妹妹穿的比我还像新娘。我一直安慰自己，他们只是感情好，可当我...
茶点故事阅读 66,487评论 6赞 386
恶毒庶女顶嫁案：这布局不是一般人想出来的
文/花漫我一把揭开白布。她就那样静静地躺着，像睡着了一般。火红的嫁衣衬着肌肤如雪。梳的纹丝不乱的头发上，一...
开封第一讲书人阅读 50,523评论 1赞 293
城市分裂传说
那天，我揣着相机与录音，去河边找鬼。笑死，一个胖子当着我的面吹牛，可吹牛的内容都是我干的。我是一名探鬼主播，决...
沈念sama阅读 39,525评论 3赞 414
双鸳鸯连环套：你想象不到人心有多黑
文/苍兰香墨我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
开封第一讲书人阅读 38,300评论 0赞 270
万荣杀人案实录
序言：老挝万荣一对情侣失踪，失踪者是张志新（化名）和其女友刘颖，没想到半个月后，有当地人在树林里发现了一具尸体，经...
沈念sama阅读 44,753评论 1赞 307
护林员之死
正文独居荒郊野岭守林人离奇死亡，尸身上长有42处带血的脓包…… 初始之章·张勋以下内容为张勋视角年9月15日...
茶点故事阅读 37,048评论 2赞 330
白月光启示录
正文我和宋清朗相恋三年，在试婚纱的时候发现自己被绿了。大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
茶点故事阅读 39,223评论 1赞 343
活死人
序言：一个原本活蹦乱跳的男人离奇死亡，死状恐怖，灵堂内的尸体忽然破棺而出，到底是诈尸还是另有隐情，我是刑警宁泽，带...
沈念sama阅读 34,905评论 5赞 338
日本核电站爆炸内幕
正文年R本政府宣布，位于F岛的核电站，受9级特大地震影响，放射性物质发生泄漏。R本人自食恶果不足惜，却给世界环境...
茶点故事阅读 40,541评论 3赞 322
男人毒药：我在死后第九天来索命
文/蒙蒙一、第九天我趴在偏房一处隐蔽的房顶上张望。院中可真热闹，春花似锦、人声如沸。这庄子的主人今日做“春日...
开封第一讲书人阅读 31,168评论 0赞 21
一桩弑父案，背后竟有这般阴谋
文/苍兰香墨我抬头看了看天上的太阳。三九已至，却和暖如春，着一层夹袄步出监牢的瞬间，已是汗流浃背。一阵脚步声响...
开封第一讲书人阅读 32,417评论 1赞 268
情欲美人皮
我被黑心中介骗来泰国打工，没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留，地道东北人。一个月前我还...
沈念sama阅读 47,094评论 2赞 365
代替公主和亲
正文我出身青楼，却偏偏与公主长得像，于是被迫代替她去往敌国和亲。传闻我的和亲对象是个残疾皇子，可洞房花烛夜当晚...
茶点故事阅读 44,088评论 2赞 352

绑定id的代码写法随笔

推荐阅读更多精彩内容