autoit-scripts – Diff between revs 6 and 7

Subversion Repositories:

?pathlinks?

Rev 6 – Go to most recent revision – Details – Blame – Last modification – View Log

 #NoTrayIcon
 #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
 #AutoIt3Wrapper_Icon=favicon.ico
 #AutoIt3Wrapper_Outfile=Release\x86\AutoRun.exe
-#AutoIt3Wrapper_Outfile_x64=Release\x64\AutoRun_x64.exe
 #AutoIt3Wrapper_Compression=0
 #AutoIt3Wrapper_Res_Comment=Hold shift key down in order to simulate autorun for games that do not have an autorun feature.
 #AutoIt3Wrapper_Res_Description=Hold shift key down in order to simulate autorun for games that do not have an autorun feature.
-#AutoIt3Wrapper_Res_Fileversion=1.0.0.11
+#AutoIt3Wrapper_Res_Fileversion=1.0.0.14
 #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
 #AutoIt3Wrapper_Res_Fileversion_First_Increment=y
 #AutoIt3Wrapper_Res_ProductName=AutoRun
 #AutoIt3Wrapper_Res_ProductVersion=1.0
 #AutoIt3Wrapper_Res_CompanyName=Wizardry and Steamworks
 #AutoIt3Wrapper_Run_After=for %I in ("%in%" "directives.au3") do copy %I "C:\Program Files (x86)\autoit3\SciTE\AutoIt3Wrapper"
 #AutoIt3Wrapper_Run_After="C:\Program Files\7-Zip\7z.exe" a -sfx %scriptdir%\Deploy\AutoRunSFX.exe %out%
 #AutoIt3Wrapper_Run_Tidy=y
 #Tidy_Parameters=/sort_funcs /reel
 #AutoIt3Wrapper_Run_Au3Stripper=y
-#Au3Stripper_Parameters=/debug
+#Au3Stripper_Parameters=/debug /sf /sv
 #AutoIt3Wrapper_Versioning=v
 #AutoIt3Wrapper_Versioning_Parameters=/Comments %fileversionnew%
 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
 ; THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
 ; OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
 ; ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
 ; OTHER DEALINGS IN THE SOFTWARE.
-Global Const $VERSION = "1.0.0.11"
+Global Const $VERSION = "1.0.0.14"
 #AutoIt3Wrapper_Testing=n
 #pragma compile(AutoItExecuteAllowed, true)
 #AutoIt3Wrapper_ShowProgress=n
 #include <WinAPISys.au3>
+#include <WinAPIFiles.au3>
+#include <WinAPIvkeysConstants.au3>
+#include <StructureConstants.au3>
-#include <WinAPIFiles.au3>
+#include <WinAPIConstants.au3>
-#include <WinAPIvkeysConstants.au3>
+#include <WindowsConstants.au3>
 #include <File.au3>
 #include <FileConstants.au3>
 #include <MsgBoxConstants.au3>
+#include <AutoItConstants.au3>
-#include <AutoItConstants.au3>
+#include <StringConstants.au3>
-#include <StringConstants.au3>
+#include <Misc.au3>
 ; Required for the $TRAY_CHECKED and $TRAY_ICONSTATE_SHOW constants.
 #include <TrayConstants.au3>
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                             MAIN LOOP                                ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; Ensure only one instance of the program is running.
+If _Singleton(@ScriptName, 1) = 0 Then
+	MsgBox($MB_SYSTEMMODAL, "Error", "An instance of this program is already running.")
-; Setup termination handler.
+	Exit
-OnAutoItExitRegister("Terminate")
+EndIf
 ; Setup tray icon menu.
 Opt("TrayMenuMode", 3)
 Opt("TrayOnEventMode", 1)
-Opt("SendCapslockMode", 0)
+Opt("SendKeyDelay", 0)
 ; -5 for EXE
 TraySetIcon(@ScriptFullPath, -5)
+TraySetState($TRAY_ICONSTATE_SHOW)
+#Region Main Event Loop
+; Setup termination handler.
-TraySetState($TRAY_ICONSTATE_SHOW)
+OnAutoItExitRegister("Terminate")
+Global $capsState = 0, $scriptEnabled = 1, $shiftPressed = 0
+; Capture low-level shift button press.
-Global $capsState = 0, $scriptEnabled = 1
+Global $g_hStub_KeyProc = DllCallbackRegister("ProcessKey", "long", "int;wparam;lparam")
 Global $g_hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($g_hStub_KeyProc), _WinAPI_GetModuleHandle(0))
-; Run main event loop.
 While 1
 	If $scriptEnabled == 1 Then
-		ToggleAutoRun()
+		CheckCaps()
+	EndIf
-	EndIf
-	Sleep(100)
-WEnd
-Func _GetCaps()
-	Local $aOnOff[2] = ['OFF', 'ON']
+	Sleep(100)
-	Return $aOnOff[BitAND(_WinAPI_GetKeyState($VK_CAPITAL), 1)]
-EndFunc   ;==>_GetCaps
+WEnd
-; Function definitions
-Func Terminate()
-	ConsoleWrite("Terminating..." & @CRLF)
-	Send("{LSHIFT UP}")
+#EndRegion Main Event Loop
 EndFunc   ;==>Terminate
+#Region Function Definitions
-Func ToggleAutoRun()
+Func CheckCaps()
+	Switch GetCaps()
-	Switch _GetCaps()
+		Case "ON"
-		Case "ON"
+			If $capsState == 0 Or $shiftPressed == 1 Then
+				ConsoleWrite("Activating Auto Run." & @CRLF)
-			If $capsState == 0 Then
+				Send("{LSHIFT UP}")
-				ConsoleWrite("Activating Auto Run" & @CRLF)
+				Send("{LSHIFT DOWN}")
-				Send("{LSHIFT DOWN}")
+				$capsState = 1
-				$capsState = 1
+				$shiftPressed = 0
 			EndIf
 		Case "OFF"
 			If $capsState == 1 Then
 				ConsoleWrite("Deactivating Auto Run." & @CRLF)
+				Send("{LSHIFT UP}")
+				$capsState = 0
+			EndIf
+	EndSwitch
+EndFunc   ;==>CheckCaps
+Func GetCaps()
+	Local $aOnOff[2] = ['OFF', 'ON']
+	Return $aOnOff[BitAND(_WinAPI_GetKeyState($VK_CAPITAL), 1)]
+EndFunc   ;==>GetCaps
+Func ProcessKey($nCode, $wParam, $lParam)
+	Local $tKEYHOOKS = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)
+	If $nCode < 0 Then
+		Return _WinAPI_CallNextHookEx($g_hHook, $nCode, $wParam, $lParam)
+	EndIf
+	If $wParam == $WM_KEYUP Then
+		Local $vkCode = DllStructGetData($tKEYHOOKS, "vkCode")
+		Switch $vkCode
+			Case 160
+				ConsoleWrite("Left shift pressed..." & @CRLF)
+				$shiftPressed = 1
+		EndSwitch
+	EndIf
+	Return _WinAPI_CallNextHookEx($g_hHook, $nCode, $wParam, $lParam)
+EndFunc   ;==>ProcessKey
+Func ShiftPress()
+	ConsoleWrite("shift pressed..." & @CRLF)
+EndFunc   ;==>ShiftPress
+Func Terminate()
+	ConsoleWrite("Terminating..." & @CRLF)
+	$scriptEnabled = 0
+	If $capsState == 1 Then
-				Send("{LSHIFT UP}")
+		Send("{LSHIFT UP}")
-				$capsState = 0
+	EndIf
-			EndIf
+	_WinAPI_UnhookWindowsHookEx($g_hHook)
+	DllCallbackFree($g_hStub_KeyProc)
-	EndSwitch
+EndFunc   ;==>Terminate
-EndFunc   ;==>ToggleAutoRun
 Func TrayMenuAbout()
-Func TrayMenuAbout()
+	MsgBox($MB_SYSTEMMODAL, "", "AutoRun: Hold down shift button to simulate autorun for games." & @CRLF & _
-	MsgBox($MB_SYSTEMMODAL, "", "AutoRun ~ Hold down shift button." & @CRLF & @CRLF & _
+			"(c) 2018 Wizardry and Steamworks, MIT License." & @CRLF & @CRLF & _
 			"Version: " & FileGetVersion(@ScriptFullPath) & @CRLF & _
 EndFunc   ;==>TrayMenuOff
 Func TrayMenuOn()
 	$scriptEnabled = 1
+EndFunc   ;==>TrayMenuOn