徽章腳本用戶信息記錄

Dimenv 小瞬移熱鍵, 大瞬移熱鍵, 慢瞬移熱鍵, 超級(jí)跳熱鍵, 大超級(jí)跳熱鍵, 瞬移跳熱鍵, 五十倍傷害熱鍵

Dimenv 鼠標(biāo)指向的窗口句柄

Dimenv 用戶總數(shù)

Dimenv 微調(diào)系數(shù)


Delay 200剛等多個(gè)換行符畫的跟

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

//回車光標(biāo)檢測(cè)地址 = "[<tiejiclient.exe>+02e39528]+264"

//回車光標(biāo)檢測(cè) = dm.ReadInt(dftq, 回車光標(biāo)檢測(cè)地址, 0)

Form1.Hotkey2.Register False

回車光標(biāo)檢測(cè) = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))

If GetCursorShape(1) <> Windows鼠標(biāo)形狀 and GetCursorShape(1) <> 刀鋒鐵騎鼠標(biāo)形狀 and 回車光標(biāo)檢測(cè)=0 and (Form1.InputBox8.Text="坐標(biāo)備注" or Form1.InputBox8.Text<>"" )Then

? ? TracePrint "按下了大瞬移熱鍵"

? ? If Form1.OptionBox4.value = 1 Then

? ? ? ? If Form1.ComboBox1.ListIndex =0 Then

//? ? ? ? ? ? Form1.Hotkey2.Register False

? ? ? ? ? ? Call 大瞬移操作碼

? ? ? ? ? ? TracePrint "輕甲大瞬移啟動(dòng)"

//? ? ? ? ? ? Delay 300

//? ? ? ? ? ? Form1.Hotkey2.Register True

? ? ? ? ElseIf Form1.ComboBox1.ListIndex = 1 Then

? ? ? ? ? ? Form1.Hotkey2.Register False

? ? ? ? ? ? Call 大瞬移操作碼2

? ? ? ? ? ? TracePrint "重甲大瞬移啟動(dòng)"

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

//回車光標(biāo)檢測(cè)地址 = "[<tiejiclient.exe>+02e39528]+264"

//回車光標(biāo)檢測(cè) = dm.ReadInt(dftq, 回車光標(biāo)檢測(cè)地址, 0)

Form1.Hotkey3.Register False

回車光標(biāo)檢測(cè) = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))

If GetCursorShape(1) <> Windows鼠標(biāo)形狀 and GetCursorShape(1) <> 刀鋒鐵騎鼠標(biāo)形狀 and 回車光標(biāo)檢測(cè)=0 and (Form1.InputBox8.Text="坐標(biāo)備注" or Form1.InputBox8.Text<>"" )Then

? ? TracePrint "按下了慢瞬移熱鍵"

? ? If Form1.OptionBox6.value = 1 Then

? ? ? ? If Form1.ComboBox1.ListIndex =0 Then

//? ? ? ? ? ? Form1.Hotkey3.Register False

? ? ? ? ? ? Call 慢瞬移操作碼

? ? ? ? ? ? TracePrint "輕甲慢瞬移啟動(dòng)"

//? ? ? ? ? ? Delay 400

//? ? ? ? ? ? Form1.Hotkey3.Register True

? ? ? ? ElseIf Form1.ComboBox1.ListIndex = 1 Then

//? ? ? ? ? ? Form1.Hotkey3.Register False

? ? ? ? ? ? Call 慢瞬移操作碼2

? ? ? ? ? ? TracePrint "重甲慢瞬移啟動(dòng)"

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

//回車光標(biāo)檢測(cè)地址 = "[<tiejiclient.exe>+02e39528]+264"

//回車光標(biāo)檢測(cè) = dm.ReadInt(dftq, 回車光標(biāo)檢測(cè)地址, 0)

Form1.Hotkey4.Register True

回車光標(biāo)檢測(cè) = 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 超級(jí)跳操作碼

? ? ? ? ? ? TracePrint "輕甲超級(jí)跳啟動(dòng)"

//? ? ? ? ? ? Delay 300

//? ? ? ? ? ? Form1.Hotkey4.Register True

? ? ? ? ElseIf Form1.ComboBox1.ListIndex = 1 Then

? ? ? ? ? ? Form1.Hotkey4.Register False

? ? ? ? ? ? Call 超級(jí)跳操作碼2

? ? ? ? ? ? TracePrint "重甲超級(jí)跳啟動(dòng)"

//? ? ? ? ? ? Delay 300

//? ? ? ? ? ? Form1.Hotkey4.Register True

? ? ? ? End If

? ? End If

End If

Delay 300

Form1.Hotkey4.Register True?

End Event?

Event Form1.Hotkey4.Change

? ? 超級(jí)跳熱鍵=Form1.Hotkey4.VirtualKey

? ? Call Plugin.File.WriteINI("跳躍設(shè)置熱鍵", "超級(jí)跳", 超級(jí)跳熱鍵,"c:\dftq\Config.ini" )

? ? TracePrint 超級(jí)跳熱鍵

? ? Form1.Hotkey4.Register True

End Event

Event Form1.Hotkey5.Hotkey

//Set dm = createobject("dm.dmsoft")?

//dm_ret = dm.SetPath("c:\dftq")?

//回車光標(biāo)檢測(cè)地址 = "[<tiejiclient.exe>+02e39528]+264"

//回車光標(biāo)檢測(cè) = dm.ReadInt(dftq, 回車光標(biāo)檢測(cè)地址, 0)

Form1.Hotkey5.Register False

回車光標(biāo)檢測(cè) = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))

? ? TracePrint "按下了大超級(jí)跳熱鍵"

? ? If Form1.OptionBox10.value = 1 Then

? ? ? ? If Form1.ComboBox1.ListIndex =0 Then

//? ? ? ? ? ? Form1.Hotkey5.Register False

? ? ? ? ? ? Call 大超級(jí)跳操作碼

? ? ? ? ? ? TracePrint "輕甲大超級(jí)跳啟動(dòng)"

//? ? ? ? ? ? Delay 300

//? ? ? ? ? ? Form1.Hotkey5.Register True

? ? ? ? ElseIf Form1.ComboBox1.ListIndex = 1 Then

? ? ? ? ? ? Form1.Hotkey5.Register False

? ? ? ? ? ? Call 大超級(jí)跳操作碼2

? ? ? ? ? ? TracePrint "重甲大超級(jí)跳啟動(dòng)"

//? ? ? ? ? ? Delay 300

//? ? ? ? ? ? Form1.Hotkey5.Register True

? ? ? ? End If

? ? End If

End If

Delay 300

Form1.Hotkey5.Register True

End Event?

Event Form1.Hotkey5.Change

? ? 大超級(jí)跳熱鍵=Form1.Hotkey5.VirtualKey

? ? Call Plugin.File.WriteINI("跳躍設(shè)置熱鍵", "大超級(jí)跳", 大超級(jí)跳熱鍵,"c:\dftq\Config.ini" )

? ? TracePrint 大超級(jí)跳熱鍵

? ? Form1.Hotkey5.Register True

End Event

Event Form1.Hotkey6.Hotkey

//Set dm = createobject("dm.dmsoft")?

//dm_ret = dm.SetPath("c:\dftq")

//回車光標(biāo)檢測(cè)地址 = "[<tiejiclient.exe>+02e39528]+264"

//回車光標(biāo)檢測(cè) = dm.ReadInt(dftq, 回車光標(biāo)檢測(cè)地址, 0)

Form1.Hotkey6.Register True

回車光標(biāo)檢測(cè) = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))

If GetCursorShape(1) <> Windows鼠標(biāo)形狀 and GetCursorShape(1) <> 刀鋒鐵騎鼠標(biāo)形狀 and 回車光標(biāo)檢測(cè)=0 and (Form1.InputBox8.Text="坐標(biāo)備注" or Form1.InputBox8.Text<>"" )Then

? ? TracePrint "按下了瞬移跳熱鍵"

? ? If Form1.OptionBox12.value = 1 Then

? ? ? ? If Form1.ComboBox1.ListIndex =0 Then

//? ? ? ? ? ? Form1.Hotkey6.Register False

? ? ? ? ? ? Call 瞬移跳操作碼

? ? ? ? ? ? TracePrint "輕甲瞬移跳啟動(dòng)"

//? ? ? ? ? ? Delay 300

//? ? ? ? ? ? Form1.Hotkey6.Register True

? ? ? ? ElseIf Form1.ComboBox1.ListIndex = 1 Then

? ? ? ? ? ? Form1.Hotkey6.Register False

? ? ? ? ? ? Call 瞬移跳操作碼2

? ? ? ? ? ? TracePrint "重甲瞬移跳啟動(dòng)"

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

//回車光標(biāo)檢測(cè)地址 = "[<tiejiclient.exe>+02e39528]+264"

//回車光標(biāo)檢測(cè) = dm.ReadInt(dftq, 回車光標(biāo)檢測(cè)地址, 0)

Form1.Hotkey7.Register False

回車光標(biāo)檢測(cè) = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))

If GetCursorShape(1) <> Windows鼠標(biāo)形狀 and GetCursorShape(1) <> 刀鋒鐵騎鼠標(biāo)形狀 and 回車光標(biāo)檢測(cè)=0 and (Form1.InputBox8.Text="坐標(biāo)備注" 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設(shè)置熱鍵", "五十倍傷害", 五十倍傷害熱鍵,"c:\dftq\Config.ini" )

? ? TracePrint 瞬移跳熱鍵

? ? Form1.Hotkey7.Register True

End Event

Case 10049

Form1.Button地圖.Caption="困難邊塞危機(jī)"

Case 10054

Form1.Button地圖.Caption="噩夢(mèng)邊塞危機(jī)"

Case 10032

Form1.Button地圖.Caption="普通守衛(wèi)神像"

Case 10047

Form1.Button地圖.Caption="困難守衛(wèi)神像"

Case 10052

Form1.Button地圖.Caption="噩夢(mèng)守衛(wèi)神像"

Case 10057

Form1.Button地圖.Caption="困難尸王"

Case 10058

Form1.Button地圖.Caption="噩夢(mèng)尸王"

Case 10083

Form1.Button地圖.Caption="挑戰(zhàn)模式30波試煉"

Case 10084

Form1.Button地圖.Caption="挑戰(zhàn)模式60波試煉"

Case 10088

Form1.Button地圖.Caption="長(zhǎng)城10波"

Case 10087

Form1.Button地圖.Caption="長(zhǎng)城30波"

Case 10090

Form1.Button地圖.Caption="長(zhǎng)城60波"

Case 10092

Form1.Button地圖.Caption="極限挑戰(zhàn)"

Case 1007

Form1.Button地圖.Caption="無(wú)雙挑戰(zhàn)"

Case 1004

Form1.Button地圖.Caption = "火槍模式"

Case 10043

Form1.Button地圖.Caption = "校場(chǎng)"

Case 10029

Form1.Button地圖.Caption = "長(zhǎng)青城"

Case Else

Form1.Button地圖.Caption = "PvP模式禁用"

End Select

If 地圖代號(hào)=10039 or 地圖代號(hào)=10049 or 地圖代號(hào)=10054 or 地圖代號(hào)=10032 or 地圖代號(hào)=10047 or 地圖代號(hào)=10052 or 地圖代號(hào)=10057 or 地圖代號(hào)=10058 or 地圖代號(hào)=10083 or 地圖代號(hào)=10084 or 地圖代號(hào)=10088 or 地圖代號(hào)=10087 or 地圖代號(hào)=10090 or 地圖代號(hào)=10092 or 地圖代號(hào)=1007 or 地圖代號(hào)=1004 Then?

//? ? ? ? ? ? Form1.Hotkey1.Register False

? ? ? ? ? ? Call 小瞬移操作碼

? ? ? ? ? ? TracePrint "輕甲小瞬移啟動(dòng)"

? ? ? ? ? ? Delay 200

//? ? ? ? ? ? Form1.Hotkey1.Register True

? ? ? ? ElseIf Form1.ComboBox1.ListIndex = 1 Then

? ? ? ? ? ? Form1.Hotkey1.Register False

? ? ? ? ? ? Call 小瞬移操作碼2

? ? ? ? ? ? TracePrint "重甲小瞬移啟動(dòng)"

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

//回車光標(biāo)檢測(cè)地址 = "[<tiejiclient.exe>+02e39528]+264"

//回車光標(biāo)檢測(cè) = dm.ReadInt(dftq, 回車光標(biāo)檢測(cè)地址, 0)

Form1.Hotkey2.Register False

回車光標(biāo)檢測(cè) = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))

If GetCursorShape(1) <> Windows鼠標(biāo)形狀 and GetCursorShape(1) <> 刀鋒鐵騎鼠標(biāo)形狀 and 回車光標(biāo)檢測(cè)=0 and (Form1.InputBox8.Text="坐標(biāo)備注" or Form1.InputBox8.Text<>"" )Then

? ? TracePrint "按下了大瞬移熱鍵"

? ? If Form1.OptionBox4.value = 1 Then

? ? ? ? If Form1.ComboBox1.ListIndex =0 Then

//? ? ? ? ? ? Form1.Hotkey2.Register False

? ? ? ? ? ? Call 大瞬移操作碼

? ? ? ? ? ? TracePrint "輕甲大瞬移啟動(dòng)"

//? ? ? ? ? ? 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 "輕甲慢瞬移啟動(dòng)"

//? ? ? ? ? ? Delay 400

//? ? ? ? ? ? Form1.Hotkey3.Register True

? ? ? ? ElseIf Form1.ComboBox1.ListIndex = 1 Then

//? ? ? ? ? ? Form1.Hotkey3.Register False

? ? ? ? ? ? Call 慢瞬移操作碼2

? ? ? ? ? ? TracePrint "重甲慢瞬移啟動(dòng)"

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

//回車光標(biāo)檢測(cè)地址 = "[<tiejiclient.exe>+02e39528]+264"

//回車光標(biāo)檢測(cè) = dm.ReadInt(dftq, 回車光標(biāo)檢測(cè)地址, 0)

Form1.Hotkey4.Register True

回車光標(biāo)檢測(cè) = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))

If GetCursorShape(1) <> Windows鼠標(biāo)形狀 and GetCursorShape(1) <> 刀鋒鐵騎鼠標(biāo)形狀 and 回車光標(biāo)檢測(cè)=0 and (Form1.InputBox8.Text="坐標(biāo)備注" or Form1.InputBox8.Text<>"" )Then

? ? TracePrint "按下了超級(jí)跳熱鍵"

? ? If Form1.OptionBox8.value = 1 Then

? ? ? ? If Form1.ComboBox1.ListIndex =0 Then

//? ? ? ? ? ? Form1.Hotkey4.Register False

? ? ? ? ? ? Call 超級(jí)跳操作碼

? ? ? ? ? ? TracePrint "輕甲超級(jí)跳啟動(dòng)"

//? ? ? ? ? ? Delay 300

//? ? ? ? ? ? Form1.Hotkey4.Register True

? ? ? ? ElseIf Form1.ComboBox1.ListIndex = 1 Then

? ? ? ? ? ? Form1.Hotkey4.Register False

? ? ? ? ? ? Call 超級(jí)跳操作碼2

? ? ? ? ? ? TracePrint "重甲超級(jí)跳啟動(dòng)"

//? ? ? ? ? ? Delay 300

//? ? ? ? ? ? Form1.Hotkey4.Register True

? ? Call Plugin.File.WriteINI("跳躍設(shè)置熱鍵", "超級(jí)跳", 超級(jí)跳熱鍵,"c:\dftq\Config.ini" )

? ? TracePrint 超級(jí)跳熱鍵

? ? Form1.Hotkey4.Register True

End Event

Event Form1.Hotkey5.Hotkey

//Set dm = createobject("dm.dmsoft")?

//dm_ret = dm.SetPath("c:\dftq")?

//回車光標(biāo)檢測(cè)地址 = "[<tiejiclient.exe>+02e39528]+264"

//回車光標(biāo)檢測(cè) = dm.ReadInt(dftq, 回車光標(biāo)檢測(cè)地址, 0)

Form1.Hotkey5.Register False

回車光標(biāo)檢測(cè) = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))

If GetCursorShape(1) <> Windows鼠標(biāo)形狀 and GetCursorShape(1) <> 刀鋒鐵騎鼠標(biāo)形狀 and 回車光標(biāo)檢測(cè)=0 and (Form1.InputBox8.Text="坐標(biāo)備注" or Form1.InputBox8.Text<>"" )Then

? ? TracePrint "按下了大超級(jí)跳熱鍵"

? ? If Form1.OptionBox10.value = 1 Then

? ? ? ? If Form1.ComboBox1.ListIndex =0 Then

//? ? ? ? ? ? Form1.Hotkey5.Register False

? ? ? ? ? ? Call 大超級(jí)跳操作碼

? ? ? ? ? ? TracePrint "輕甲大超級(jí)跳啟動(dòng)"

//? ? ? ? ? ? Delay 300

//? ? ? ? ? ? Form1.Hotkey5.Register True

? ? ? ? ElseIf Form1.ComboBox1.ListIndex = 1 Then

? ? ? ? ? ? Form1.Hotkey5.Register False

? ? ? ? ? ? Call 大超級(jí)跳操作碼2

? ? ? ? ? ? TracePrint "重甲大超級(jí)跳啟動(dòng)"

//? ? ? ? ? ? Delay 300

//? ? ? ? ? ? Form1.Hotkey5.Register True

? ? ? ? End If

? ? End If

End If

Delay 300

Form1.Hotkey5.Register True

End Event?

Event Form1.Hotkey5.Change

? ? 大超級(jí)跳熱鍵=Form1.Hotkey5.VirtualKey

? ? Call Plugin.File.WriteINI("跳躍設(shè)置熱鍵", "大超級(jí)跳", 大超級(jí)跳熱鍵,"c:\dftq\Config.ini" )

? ? TracePrint 大超級(jí)跳熱鍵

? ? Form1.Hotkey5.Register True

End Event

Event Form1.Hotkey6.Hotkey

//Set dm = createobject("dm.dmsoft")?

//dm_ret = dm.SetPath("c:\dftq")

//回車光標(biāo)檢測(cè)地址 = "[<tiejiclient.exe>+02e39528]+264"

//回車光標(biāo)檢測(cè) = dm.ReadInt(dftq, 回車光標(biāo)檢測(cè)地址, 0)

Form1.Hotkey6.Register True

回車光標(biāo)檢測(cè) = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))

If GetCursorShape(1) <> Windows鼠標(biāo)形狀 and GetCursorShape(1) <> 刀鋒鐵騎鼠標(biāo)形狀 and 回車光標(biāo)檢測(cè)=0 and (Form1.InputBox8.Text="坐標(biāo)備注" or Form1.InputBox8.Text<>"" )Then

? ? TracePrint "按下了瞬移跳熱鍵"

? ? If Form1.OptionBox12.value = 1 Then

? ? ? ? If Form1.ComboBox1.ListIndex =0 Then

//? ? ? ? ? ? Form1.Hotkey6.Register False

? ? ? ? ? ? Call 瞬移跳操作碼

? ? ? ? ? ? TracePrint "輕甲瞬移跳啟動(dòng)"

//? ? ? ? ? ? Delay 300

//? ? ? ? ? ? Form1.Hotkey6.Register True

? ? ? ? ElseIf Form1.ComboBox1.ListIndex = 1 Then

? ? ? ? ? ? Form1.Hotkey6.Register False

? ? ? ? ? ? Call 瞬移跳操作碼2

? ? ? ? ? ? TracePrint "重甲瞬移跳啟動(dòng)"

//? ? ? ? ? ? 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("跳躍設(shè)置熱鍵", "瞬移跳", 瞬移跳熱鍵,"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")

//回車光標(biāo)檢測(cè)地址 = "[<tiejiclient.exe>+02e39528]+264"

//回車光標(biāo)檢測(cè) = dm.ReadInt(dftq, 回車光標(biāo)檢測(cè)地址, 0)

Form1.Hotkey7.Register False

回車光標(biāo)檢測(cè) = Cint(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))

If GetCursorShape(1) <> Windows鼠標(biāo)形狀 and GetCursorShape(1) <> 刀鋒鐵騎鼠標(biāo)形狀 and 回車光標(biāo)檢測(cè)=0 and (Form1.InputBox8.Text="坐標(biāo)備注" 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設(shè)置熱鍵", "五十倍傷害", 五十倍傷害熱鍵,"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 "熱鍵開啟信息框"

懸浮框狀態(tài)=懸浮框狀態(tài)*-1

If 懸浮框狀態(tài)=1 Then

StopThread (透明顯示線程ID)

Call 關(guān)閉信息顯示

透明顯示線程ID = BeginThread(透明顯示)

dim MyArray?

//下面這句是得到窗口句柄的客戶區(qū)大小?

sRect = Plugin.Window.GetClientRect(bg)?

//MsgBox "得到窗口句柄的客戶區(qū)大小為："& sRect?

//下面這句用于分割字符串,將橫坐標(biāo)和縱坐標(biāo)分成兩個(gè)字符串?

//下面這句將字符串轉(zhuǎn)換成數(shù)值?

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 懸浮框狀態(tài) = - 1? Then

StopThread (透明顯示線程ID)

Call 關(guān)閉信息顯示

End If

End Event

Else

MessageBox "請(qǐng)輸入數(shù)字"

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 "請(qǐng)輸入數(shù)字"

Form1.InputBox9.Text = ""

End If

Next

End Event

Event Form1.Button9.Click

Dim MyPos1,MyPos2,a,text,lenth,去括號(hào)的坐標(biāo)結(jié)構(gòu)體,坐標(biāo)結(jié)構(gòu)體

//人傳送狀態(tài) = 人傳送狀態(tài) * (- 1 )

If Form1.TabControl2.Tab=0 Then

Select Case 人傳送狀態(tài)

Case 0

//If 人傳送狀態(tài) = 1 Then

//If 人傳送狀態(tài) = 0 Then

Form1.Button9.NormalColor="0000FF"

Form1.Button9.BackColor="0000FF"

Form1.Button9.Caption="停止傳送"

Form1.Button9.OverColor="0000FF"

a = Form1.ListBox4.ListIndex//a為選中的列表框元素序號(hào)

text = Form1.ListBox4.List//倒出所有元素框內(nèi)容

預(yù)存的坐標(biāo)們 = split(text, "|")//數(shù)組

TracePrint? 預(yù)存的坐標(biāo)們(a) //選中的坐標(biāo)

MyPos1 = Instr(1, 預(yù)存的坐標(biāo)們(a), "(", 1)

MyPos2 = Instr(1, 預(yù)存的坐標(biāo)們(a), ")", 1)

TracePrint MyPos1

TracePrint MyPos2

lenth=MyPos2-MyPos1-1

去括號(hào)的坐標(biāo)結(jié)構(gòu)體 = Mid(預(yù)存的坐標(biāo)們(a), MyPos1+1, lenth)

//

? TracePrint 去括號(hào)的坐標(biāo)結(jié)構(gòu)體

坐標(biāo)結(jié)構(gòu)體 = split(去括號(hào)的坐標(biāo)結(jié)構(gòu)體, ",")

人傳送x坐標(biāo)=坐標(biāo)結(jié)構(gòu)體(0)

人傳送y坐標(biāo)=坐標(biāo)結(jié)構(gòu)體(1)

人傳送z坐標(biāo)=坐標(biāo)結(jié)構(gòu)體(2)

//StopThread 人傳送線程ID

//If 人傳送x坐標(biāo)<>"" and 人傳送y坐標(biāo)<>"" and 人傳送z坐標(biāo)<>"" Then

//人傳送線程ID = BeginThread(人傳送)

//Delay 1000

Form1.Timer人傳送.Enabled=1

人傳送狀態(tài) = 1

//End If

//End If

//If 人傳送狀態(tài) = - 1? Then

//If 人傳送狀態(tài) = 1? Then

Case 1

//StopThread 人傳送線程ID

Form1.Timer人傳送.Enabled=0

人傳送狀態(tài) = 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 人傳送狀態(tài) = 1 Then

Select Case 人傳送狀態(tài)

Case 0

Form1.Button9.NormalColor="0000FF"

Form1.Button9.BackColor="0000FF"

Form1.Button9.Caption="停止傳送"

Form1.Button9.OverColor="0000FF"

a = Form1.ListBox5.ListIndex//a為選中的列表框元素序號(hào)

text = Form1.ListBox5.List//倒出所有元素框內(nèi)容

預(yù)存的坐標(biāo)們 = split(text, "|")//數(shù)組

TracePrint? 預(yù)存的坐標(biāo)們(a) //選中的坐標(biāo)

MyPos1 = Instr(1, 預(yù)存的坐標(biāo)們(a), "(", 1)

MyPos2 = Instr(1, 預(yù)存的坐標(biāo)們(a), ")", 1)

TracePrint MyPos1

TracePrint MyPos2

lenth=MyPos2-MyPos1-1

去括號(hào)的坐標(biāo)結(jié)構(gòu)體 = Mid(預(yù)存的坐標(biāo)們(a), MyPos1+1, lenth)

//

? TracePrint 去括號(hào)的坐標(biāo)結(jié)構(gòu)體

坐標(biāo)結(jié)構(gòu)體 = split(去括號(hào)的坐標(biāo)結(jié)構(gòu)體, ",")

人傳送x坐標(biāo)=坐標(biāo)結(jié)構(gòu)體(0)

人傳送y坐標(biāo)=坐標(biāo)結(jié)構(gòu)體(1)

人傳送z坐標(biāo)=坐標(biāo)結(jié)構(gòu)體(2)

//StopThread 人傳送線程ID

If 人傳送x坐標(biāo)<>"" and 人傳送y坐標(biāo)<>"" and 人傳送z坐標(biāo)<>"" Then

//人傳送線程ID = BeginThread(人傳送)

Form1.Timer人傳送.Enabled = 1

人傳送狀態(tài) = 1

//Delay 1000

End If

//End If

//If 人傳送狀態(tài) = - 1? Then

//If 人傳送狀態(tài) = 1? Then

//StopThread 人傳送線程ID

Case 1

Form1.Timer人傳送.Enabled = 0

人傳送狀態(tài) =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 雙管加速雙擊鼠標(biāo)線程ID

// StopThread 只按r鍵線程ID

//End If

回車光標(biāo)檢測(cè) = int(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))

? ? If Form1.ComboBox2.ListIndex=1 and 回車光標(biāo)檢測(cè)=0 Then

? ? ? ? 火炮狀態(tài) = 火炮狀態(tài) * - 1

? ? ? ? TracePrint 火炮狀態(tài)

? ? ? ? If 火炮狀態(tài) = 1? Then

? ? ? ? ? ? TracePrint "開啟單管火炮加速"

//? ? ? ? ? ? MsgBox "開啟單管火炮加速"

? ? ? ? ? ? StopThread 一直按R鍵線程ID

//? ? ? ? ? ? Delay 1000

//? ? ? ? ? ? StopThread 鼠標(biāo)左右鍵一起按線程ID? ? ? ? ? ?

? ? ? ? ? ? 一直按R鍵線程ID = BeginThread(一直按R鍵)

? ? ? ? ? ? Delay 2000

? ? ? ? End If

? ? ? ? If 火炮狀態(tài) = -1 Then

Do驗(yàn)明作者身份和功能演示")

KeyDown 17, 1

KeyPress 86, 1

KeyUp 17, 1

KeyPress "Enter", 1

Delay 10000

Loop

? Event Form1.微調(diào)加.Hotkey? 延遲 (50 + int(微調(diào)系數(shù)))

//微調(diào)系數(shù)=Form1.InputBox8.Text

微調(diào)系數(shù) = 微調(diào)系數(shù) + 1

//Form1.InputBox8.Text = 微調(diào)系數(shù)

Form1.Label34.Caption = Cint(微調(diào)系數(shù))

End Event

Event Form1.微調(diào)減.Hotkey

//微調(diào)系數(shù)=Form1.InputBox8.Text

微調(diào)系數(shù) = 微調(diào)系數(shù) - 1

//Form1.InputBox8.Text = 微調(diào)系數(shù)

Form1.Label34.Caption = Cint(微調(diào)系數(shù))

End Event

? ? Plugin.Bkgnd.KeyUp dftq,68

? ? 延遲 (50 + int(微調(diào)系數(shù)))

? ? 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_", "刀鋒鐵騎")

//下面這句是得到窗口句柄的客戶區(qū)大小?

sRect = Plugin.Window.GetClientRect(dftq)?

//MsgBox "得到窗口句柄的客戶區(qū)大小為："& sRect?

//下面這句用于分割字符串,將橫坐標(biāo)和縱坐標(biāo)分成兩個(gè)字符串?

dim MyArray?

MyArray = Split(sRect, "|")?

//下面這句將字符串轉(zhuǎn)換成數(shù)值?

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 火炮狀態(tài) = 1? Then

? ? ? ? TracePrint "開啟雙管火炮加速"

//? ? ? ? Call 火炮雙管加速操作碼

? ? ? 火炮雙管操作碼線程ID = BeginThread(火炮雙管操作碼)

? ? ? Delay 2000

? ? ? End If

? ? If 火炮狀態(tài) = - 1? Then? ?

? ? StopThread 火炮雙管操作碼線程ID

? ? StopThread 雙管加速雙擊鼠標(biāo)線程ID

? ? StopThread 只按r鍵線程ID

? ? TracePrint "關(guān)閉雙單管"

? ? End If

? ? End If

Delay 400

Form1.Hotkey8.Register True

? ? Form4.Close

End Event

Event Form5.Button1.Click

End Event

賬號(hào) 密碼 游戲ID 機(jī)器碼 PVP使用截止日期 PVE使用截止日期 賬號(hào)封禁狀態(tài)

【/test/test123/自己的號(hào)/852912998/9999-08-30/9999-08-15/1/1111111111111/】

【/test2/test123/自己的號(hào)/1717028168/9999-08-30/9999-08-15/1/1111111111111//】

【/admin/test123/自己的號(hào)/852912998/9999-12-31/9999-12-31/1/1111111111111/】

【/admin2/test123/自己的號(hào)/1717028168/9999-12-31/9999-12-31/1/1111111111111/】


【/fadaisanmiao/midea444/fdsm/-166643832/9999-12-31/9999-12-31/1/1111111111111】


【/jiugee5/jiuge123/九歌e5徽章/-592442595/2021-01-04/2021-01-04/1/1111111111111】

最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時(shí)請(qǐng)結(jié)合常識(shí)與多方信息審慎甄別。
平臺(tái)聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡(jiǎn)書系信息發(fā)布平臺(tái)，僅提供信息存儲(chǔ)服務(wù)。

相關(guān)閱讀更多精彩內(nèi)容

  • DimEnv 小瞬移熱鍵, 大瞬移熱鍵, 慢瞬移熱鍵, 超級(jí)跳熱鍵, 大超級(jí)跳熱鍵, 瞬移跳熱鍵, 五十倍傷害熱鍵...
    舒服了啊閱讀 346評(píng)論 0贊 0
  • Delay 200剛符我個(gè) End Event End Event13 Form1.Hotkey1.Registe...
    舒服了啊閱讀 350評(píng)論 0贊 0
  • Delay 200剛符我個(gè) Dimenv 小瞬移熱鍵 Delay 200剛符我個(gè) End Event End Ev...
    舒服了啊閱讀 597評(píng)論 0贊 0
  • 外掛最新版本：*1.0* 軟件使用權(quán)限：*1* 版本密鑰：*1234* 注冊(cè)開關(guān)：*1* 通用碼：*jiqima*...
    舒服了啊閱讀 249評(píng)論 0贊 1
  • 久違的晴天，家長(zhǎng)會(huì)。 家長(zhǎng)大會(huì)開好到教室時(shí)，離放學(xué)已經(jīng)沒(méi)多少時(shí)間了。班主任說(shuō)已經(jīng)安排了三個(gè)家長(zhǎng)分享經(jīng)驗(yàn)。 放學(xué)鈴聲...
    飄雪兒5閱讀 7,794評(píng)論 16贊 22

友情鏈接更多精彩內(nèi)容