📄 dxengine.vb
字号:
UnPauseKey = Key.F4
Case "F5_Key"
UnPauseKey = Key.F5
Case "F6_Key"
UnPauseKey = Key.F6
Case "F7_Key"
UnPauseKey = Key.F7
Case "F8_Key"
UnPauseKey = Key.F8
Case "F9_Key"
UnPauseKey = Key.F9
Case "F10_Key"
UnPauseKey = Key.F10
Case "F11_Key"
UnPauseKey = Key.F11
Case "F12_Key"
UnPauseKey = Key.F12
Case "PrintScreen_Key"
UnPauseKey = Key.SysRq
Case "ScrollLock_Key"
UnPauseKey = Key.Scroll
Case "Tilde_Key"
UnPauseKey = Key.At
Case "1_Key"
UnPauseKey = Key.D1
Case "2_Key"
UnPauseKey = Key.D2
Case "3_Key"
UnPauseKey = Key.D3
Case "4_Key"
UnPauseKey = Key.D4
Case "5_Key"
UnPauseKey = Key.D5
Case "6_Key"
UnPauseKey = Key.D6
Case "7_Key"
UnPauseKey = Key.D7
Case "8_Key"
UnPauseKey = Key.D8
Case "9_Key"
UnPauseKey = Key.D9
Case "0_Key"
UnPauseKey = Key.D0
Case "Minus_Key"
UnPauseKey = Key.Minus
Case "Plus_Key"
UnPauseKey = Key.Add
Case "BackSpace_Key"
UnPauseKey = Key.BackSpace
Case "Insert_Key"
UnPauseKey = Key.Insert
Case "Home_Key"
UnPauseKey = Key.Home
Case "PgUp_Key"
UnPauseKey = Key.PageUp
Case "KPNumLock_Key"
UnPauseKey = Key.Numlock
Case "KPDiv_Key"
UnPauseKey = Key.NumPadSlash
Case "KPMul_Key"
UnPauseKey = Key.NumPadStar
Case "KPMinus_Key"
UnPauseKey = Key.NumPadMinus
Case "Tab_Key"
UnPauseKey = Key.Tab
Case "Q_Key"
UnPauseKey = Key.Q
Case "E_Key"
UnPauseKey = Key.E
Case "R_Key"
UnPauseKey = Key.R
Case "T_Key"
UnPauseKey = Key.T
Case "Y_Key"
UnPauseKey = Key.Y
Case "U_Key"
UnPauseKey = Key.U
Case "I_Key"
UnPauseKey = Key.I
Case "O_Key"
UnPauseKey = Key.O
Case "P_Key"
UnPauseKey = Key.P
Case "LeftBracket_Key"
UnPauseKey = Key.LeftBracket
Case "RightBracket_Key"
UnPauseKey = Key.RightBracket
Case "BackSlash_Key"
UnPauseKey = Key.BackSlash
Case "Delete_Key"
UnPauseKey = Key.Delete
Case "End_Key"
UnPauseKey = Key.End
Case "PgDown_Key"
UnPauseKey = Key.PageDown
Case "KP7_Key"
UnPauseKey = Key.NumPad7
Case "KP8_Key"
UnPauseKey = Key.NumPad8
Case "KP9_Key"
UnPauseKey = Key.NumPad9
Case "KPPlus_Key"
UnPauseKey = Key.NumPadPlus
Case "CapsLock_Key"
UnPauseKey = Key.CapsLock
Case "F_Key"
UnPauseKey = Key.F
Case "G_Key"
UnPauseKey = Key.G
Case "H_Key"
UnPauseKey = Key.H
Case "J_Key"
UnPauseKey = Key.J
Case "K_Key"
UnPauseKey = Key.K
Case "L_Key"
UnPauseKey = Key.L
Case "ColKey"
UnPauseKey = Key.Colon
Case "Quote_Key"
UnPauseKey = Key.Apostrophe
Case "Return_Key"
UnPauseKey = Key.Return
Case "KP4_Key"
UnPauseKey = Key.NumPad4
Case "KP5_Key"
UnPauseKey = Key.NumPad5
Case "KP6_Key"
UnPauseKey = Key.NumPad6
Case "LeftShift_Key"
UnPauseKey = Key.LeftShift
Case "Z_Key"
UnPauseKey = Key.Z
Case "X_Key"
UnPauseKey = Key.X
Case "C_Key"
UnPauseKey = Key.C
Case "V_Key"
UnPauseKey = Key.V
Case "B_Key"
UnPauseKey = Key.B
Case "N_Key"
UnPauseKey = Key.N
Case "M_Key"
UnPauseKey = Key.M
Case "Comma_Key"
UnPauseKey = Key.Comma
Case "Period_Key"
UnPauseKey = Key.Period
Case "FrontSlash_Key"
UnPauseKey = Key.Slash
Case "RightShift_Key"
UnPauseKey = Key.RightShift
Case "KP1_Key"
UnPauseKey = Key.NumPad1
Case "KP2_Key"
UnPauseKey = Key.NumPad2
Case "KP3_Key"
UnPauseKey = Key.NumPad3
Case "KPEnter_Key"
UnPauseKey = Key.NumPadEnter
Case "LeftControl_Key"
UnPauseKey = Key.LeftControl
Case "LeftAlt_Key"
UnPauseKey = Key.LeftAlt
Case "Space_Key"
UnPauseKey = Key.Space
Case "RightAlt_Key"
UnPauseKey = Key.RightAlt
Case "RightControl_Key"
UnPauseKey = Key.RightControl
Case "KP0_Key"
UnPauseKey = Key.NumPad0
Case "KPPeriod_Key"
UnPauseKey = Key.NumPadPeriod
End Select
End If
Case "OnMouseButton"
Select Case CType(coms(1), String)
Case "Left_Button"
If (CType(coms(2), String) = "Proccess") Then
LeftClickCommand = "Proccess " & CType(coms(3), String)
Else
LeftClickCommand = CType(coms(2), String)
End If
End Select
Case "OnKey"
Select Case CType(coms(1), String)
Case "Pause_Key"
If coms.Length = 2 Then
Pause_KeyCommand = ""
Exit Select
End If
If (CType(coms(2), String) = "Proccess") Then
Pause_KeyCommand = "Proccess " & CType(coms(3), String)
Else
Pause_KeyCommand = CType(coms(2), String)
End If
Case "Left_Arrow"
If coms.Length = 2 Then
LeftArrowCommand = ""
Exit Select
End If
If (CType(coms(2), String) = "Proccess") Then
LeftArrowCommand = "Proccess " & CType(coms(3), String)
Else
LeftArrowCommand = CType(coms(2), String)
End If
Case "Right_Arrow"
If coms.Length = 2 Then
LeftArrowCommand = ""
Exit Select
End If
If (CType(coms(2), String) = "Proccess") Then
RightArrowCommand = "Proccess " & CType(coms(3), String)
Else
RightArrowCommand = CType(coms(2), String)
End If
Case "Up_Arrow"
If coms.Length = 2 Then
UpArrowCommand = ""
Exit Select
End If
If (CType(coms(2), String) = "Proccess") Then
UpArrowCommand = "Proccess " & CType(coms(3), String)
Else
UpArrowCommand = CType(coms(2), String)
End If
Case "Down_Arrow"
If coms.Length = 2 Then
DownArrowCommand = ""
Exit Select
End If
If (CType(coms(2), String) = "Proccess") Then
DownArrowCommand = "Proccess " & CType(coms(3), String)
Else
DownArrowCommand = CType(coms(2), String)
End If
Case "A_Key"
If coms.Length = 2 Then
A_KeyCommand = ""
Exit Select
End If
If (CType(coms(2), String) = "Proccess") Then
A_KeyCommand = "Proccess " & CType(coms(3), String)
Else
A_KeyCommand = CType(coms(2), String)
End If
Case "D_Key"
If coms.Length = 2 Then
D_KeyCommand = ""
Exit Select
End If
If (CType(coms(2), String) = "Proccess") Then
D_KeyCommand = "Proccess " & CType(coms(3), String)
Else
D_KeyCommand = CType(coms(2), String)
End If
Case "S_Key"
If coms.Length = 2 Then
S_KeyCommand = ""
Exit Select
End If
If (CType(coms(2), String) = "Proccess") Then
S_KeyCommand = "Proccess " & CType(coms(3), String)
Else
S_KeyCommand = CType(coms(2), String)
End If
Case "W_Key"
If coms.Length = 2 Then
W_KeyCommand = ""
Exit Select
End If
If (CType(coms(2), String) = "Proccess") Then
W_KeyCommand = "Proccess " & CType(coms(3), String)
Else
W_KeyCommand = CType(coms(2), String)
End If
Case "Esc_Key"
If coms.Length = 2 Then
Esc_KeyCommand = ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -