至尊部分-代码随笔

Delay 200刚符我个

Dimenv 小瞬移热键

Delay 200刚符我个

End Event End Event13

Form1.Hotkey1.Register Truesdaq1

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

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 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 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")

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")

Form1.Hotkey6.Register True

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

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

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

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"

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

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

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

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

Dimenv 鼠标指向的窗口句柄

DimEnv 用户总数

DimEnv 微调系数

End If

Delay 400

Form1.Hotkey8.Register True

Form4.Close

End Event

Event Form5.Button1.Click

Form5.Close

End Event

【/test/test123/自己的号/852912998/9999-08-30/9999-08-15/1/1111111111111/】

【/test2/test123/自己的号/1717028168/9999-08-30/9999-08-15/1/1111111111111//】

【/admin/test123/自己的号/852912998/9999-12-31/9999-12-31/1/1111111111111/】

【/admin2/test123/自己的号/1717028168/9999-12-31/9999-12-31/1/1111111111111/】

【/qq1197232261/aaa2233993/su/174474297/9999-12-31/9999-12-31/1/1111111111111/】

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

【/yumantang/123456/绅士大人/-1239541579/2021-01-23/2020-01-23/1/00000000000000/】

【/851126/851126/小子别狂/-658536568/2021-01-01/2020-01-01/1/00000000000000/】

【/13044263438/chenshisheng/迷途的羔羊/-693589082/2021-01-29/2021-01-29/1/0000000000000/】丢

【/353998868/zhaoyan..521/麒麟丨主宰/1344581108/2021-03-11/2021-03-11/1/】

【/13390802728/gaorong1/rongye/2050393133/2021-01-16/2021-01-16/1/00000000000000/】

【/hahu/hahu123456/哈虎殿下/-2110092082/2021-01-18/2021-01-18/1/0000000000000】

【/weixiao123/123456/微笑/411924016/2021-01-29/2021-01-29/1/0000000000000】

【/aaa123456789/112233/普/-266645760/2021-02-02/2021-02-02/1/0000000000000】

【/34253534666/wc/龙赖/-1469720263/2021-02-16/2021-02-16/1/0000000000000】

【/jiruxue2/jiruxue1234/自己的号/-255012911/2021-01-29/2021-01-29/1/0000000000000/】

至尊部分-代码随笔

推荐阅读更多精彩内容