Dimenv 小瞬移熱鍵, 大瞬移熱鍵, 慢瞬移熱鍵, 超級跳熱鍵, 大超級跳熱鍵, 瞬移跳熱鍵, 五十倍傷害熱鍵
DimEnv 網(wǎng)上版本號, 網(wǎng)上開關(guān),網(wǎng)上密鑰,網(wǎng)上注冊開關(guān)
Dimenv? 賬戶開關(guān), 機器綁定開關(guān), PVP開關(guān), PVE開關(guān),PvE掛機地圖
DimEnv 本地版本號,本地機器碼
Dimenv dftq
Dimenv 鼠標指向的窗口句柄
Dimenv 用戶總數(shù)
Dimenv 微調(diào)系數(shù)
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("跳躍設(shè)置熱鍵", "超級跳", 超級跳熱鍵,"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("跳躍設(shè)置熱鍵", "大超級跳", 大超級跳熱鍵,"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設(shè)置熱鍵", "五十倍傷害", 五十倍傷害熱鍵,"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="普通守衛(wèi)神像"
Case 10047
Form1.Button地圖.Caption="困難守衛(wèi)神像"
Case 10052
Form1.Button地圖.Caption="噩夢守衛(wèi)神像"
Case 10057
Form1.Button地圖.Caption="困難尸王"
Case 10058
Form1.Button地圖.Caption="噩夢尸王"
Case 10083
Form1.Button地圖.Caption="挑戰(zhàn)模式30波試煉"
Case 10084
Form1.Button地圖.Caption="挑戰(zhàn)模式60波試煉"
Case 10088
Form1.Button地圖.Caption="長城10波"
Case 10087
Form1.Button地圖.Caption="長城30波"
Case 10090
Form1.Button地圖.Caption="長城60波"
Case 10092
Form1.Button地圖.Caption="極限挑戰(zhàn)"
Case 1007
Form1.Button地圖.Caption="無雙挑戰(zhàn)"
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("跳躍設(shè)置熱鍵", "超級跳", 超級跳熱鍵,"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("跳躍設(shè)置熱鍵", "大超級跳", 大超級跳熱鍵,"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("跳躍設(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")
//回車光標檢測地址 = "[<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設(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?
//下面這句用于分割字符串,將橫坐標和縱坐標分成兩個字符串?
//下面這句將字符串轉(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 "請輸入數(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 "請輸入數(shù)字"
Form1.InputBox9.Text = ""
End If
Next
End Event
Event Form1.Button9.Click
Dim MyPos1,MyPos2,a,text,lenth,去括號的坐標結(jié)構(gòu)體,坐標結(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為選中的列表框元素序號
text = Form1.ListBox4.List//倒出所有元素框內(nèi)容
預(yù)存的坐標們 = split(text, "|")//數(shù)組
TracePrint? 預(yù)存的坐標們(a) //選中的坐標
MyPos1 = Instr(1, 預(yù)存的坐標們(a), "(", 1)
MyPos2 = Instr(1, 預(yù)存的坐標們(a), ")", 1)
TracePrint MyPos1
TracePrint MyPos2
lenth=MyPos2-MyPos1-1
去括號的坐標結(jié)構(gòu)體 = Mid(預(yù)存的坐標們(a), MyPos1+1, lenth)
//
? TracePrint 去括號的坐標結(jié)構(gòu)體
坐標結(jié)構(gòu)體 = split(去括號的坐標結(jié)構(gòu)體, ",")
人傳送x坐標=坐標結(jié)構(gòu)體(0)
人傳送y坐標=坐標結(jié)構(gòu)體(1)
人傳送z坐標=坐標結(jié)構(gòu)體(2)
//StopThread 人傳送線程ID
//If 人傳送x坐標<>"" and 人傳送y坐標<>"" and 人傳送z坐標<>"" 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為選中的列表框元素序號
text = Form1.ListBox5.List//倒出所有元素框內(nèi)容
預(yù)存的坐標們 = split(text, "|")//數(shù)組
TracePrint? 預(yù)存的坐標們(a) //選中的坐標
MyPos1 = Instr(1, 預(yù)存的坐標們(a), "(", 1)
MyPos2 = Instr(1, 預(yù)存的坐標們(a), ")", 1)
TracePrint MyPos1
TracePrint MyPos2
lenth=MyPos2-MyPos1-1
去括號的坐標結(jié)構(gòu)體 = Mid(預(yù)存的坐標們(a), MyPos1+1, lenth)
//
? TracePrint 去括號的坐標結(jié)構(gòu)體
坐標結(jié)構(gòu)體 = split(去括號的坐標結(jié)構(gòu)體, ",")
人傳送x坐標=坐標結(jié)構(gòu)體(0)
人傳送y坐標=坐標結(jié)構(gòu)體(1)
人傳送z坐標=坐標結(jié)構(gòu)體(2)
//StopThread 人傳送線程ID
If 人傳送x坐標<>"" and 人傳送y坐標<>"" and 人傳送z坐標<>"" 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 雙管加速雙擊鼠標線程ID
// StopThread 只按r鍵線程ID
//End If
回車光標檢測 = int(Plugin.DBSoft.ReadMemEX(dftq, &H3239528, 3, &H264))
? ? If Form1.ComboBox2.ListIndex=1 and 回車光標檢測=0 Then
? ? ? ? 火炮狀態(tài) = 火炮狀態(tài) * - 1
? ? ? ? TracePrint 火炮狀態(tài)
? ? ? ? If 火炮狀態(tài) = 1? Then
? ? ? ? ? ? TracePrint "開啟單管火炮加速"
//? ? ? ? ? ? MsgBox "開啟單管火炮加速"
? ? ? ? ? ? StopThread 一直按R鍵線程ID
//? ? ? ? ? ? Delay 1000
//? ? ? ? ? ? StopThread 鼠標左右鍵一起按線程ID? ? ? ? ? ?
? ? ? ? ? ? 一直按R鍵線程ID = BeginThread(一直按R鍵)
? ? ? ? ? ? Delay 2000
? ? ? ? End If
? ? ? ? If 火炮狀態(tài) = -1 Then
Do驗明作者身份和功能演示")
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?
//下面這句用于分割字符串,將橫坐標和縱坐標分成兩個字符串?
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 雙管加速雙擊鼠標線程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
? ? Form5.Close
End Event
賬號 密碼 游戲ID 機器碼 PVP使用截止日期 PVE使用截止日期 賬號封禁狀態(tài)
【/test/test123/自己的號/jiqima/2020-08-30/2020-08-15/1/0000000000000】
【/fadaisanmiao/midea444/發(fā)呆三秒/-166643832/9999-12-31/9999-12-31/1/1111111111111】
【/admin/test123/自己的號/jiqima/9999-12-31/9999-12-31/1/1111111111111】
【/a89188153/123456/哈虎殿下/jiqima/2021-10-29/2020-10-29/1/0000000000000】一年
【/maomao/maomao/貓貓我愛你/jiqima/2021-01-20/2020-10-26/1/0000000000000/】pvp網(wǎng)吧不差q350
