ys最新版本：*1.0*
软件使用权限：*1*
版本密钥：*1234*
注册开关：*1*
通用码：*jiqima*
【科学家-请施舍饭给ta】
【待加入-硬饭偶像】
【后续可能加入硬饭机和自动材料】
【不要到处传，怕死就用云原神大号】
【虚拟机过检测随版本经常更新】
【纯属爱好，请勿传播】
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
