Added Libs that are used by both projects

2023-02-28 00:31:11 -05:00
parent 6f3065c5f3
commit f39051ff5f
4 changed files with 534 additions and 0 deletions
--- a/StdOutToVar.ahk
+++ b/StdOutToVar.ahk
@@ -0,0 +1,56 @@
+; Edited by Masonjar13 to be compatible with 32 and 64-bit (2015)
+
+;msgbox % StdOutToVar("ipconfig")
+
+StdOutToVar( sCmd ) { ;  GAHK32 ; Modified Version : SKAN 05-Jul-2013  http://goo.gl/j8XJXY                             
+  ; msgbox, getting stdout
+  Static StrGet := "StrGet"     ; Original Author  : Sean 20-Feb-2007  http://goo.gl/mxCdn  
+   
+  DllCall( "CreatePipe", UIntP,hPipeRead, UIntP,hPipeWrite, UInt,0, UInt,0 )
+  DllCall( "SetHandleInformation", UInt,hPipeWrite, UInt,1, UInt,1 )
+
+  if(a_ptrSize=8){
+    VarSetCapacity( STARTUPINFO, 104, 0 )      ; STARTUPINFO          ;  http://goo.gl/fZf24
+    NumPut( 104,        STARTUPINFO,  0 )      ; cbSize
+    NumPut( 0x100,      STARTUPINFO, 60 )      ; dwFlags    =>  STARTF_USESTDHANDLES = 0x100 
+    NumPut( hPipeWrite, STARTUPINFO, 88 )      ; hStdOutput
+    NumPut( hPipeWrite, STARTUPINFO, 96 )      ; hStdError
+    VarSetCapacity( PROCESS_INFORMATION, 32 )  ; PROCESS_INFORMATION  ;  http://goo.gl/b9BaI      
+  }else{
+    VarSetCapacity( STARTUPINFO, 68, 0  )      ; STARTUPINFO          ;  http://goo.gl/fZf24
+    NumPut( 68,         STARTUPINFO,  0 )      ; cbSize
+    NumPut( 0x100,      STARTUPINFO, 44 )      ; dwFlags    =>  STARTF_USESTDHANDLES = 0x100 
+    NumPut( hPipeWrite, STARTUPINFO, 60 )      ; hStdOutput
+    NumPut( hPipeWrite, STARTUPINFO, 64 )      ; hStdError
+    VarSetCapacity( PROCESS_INFORMATION, 16 )  ; PROCESS_INFORMATION  ;  http://goo.gl/b9BaI      
+  }
+  If ! DllCall( "CreateProcess", UInt,0, UInt,&sCmd, UInt,0, UInt,0 ;  http://goo.gl/USC5a
+              , UInt,1, UInt,0x08000000, UInt,0, UInt,0
+              , UInt,&STARTUPINFO, UInt,&PROCESS_INFORMATION ) 
+   Return "" 
+   , DllCall( "CloseHandle", UInt,hPipeWrite ) 
+   , DllCall( "CloseHandle", UInt,hPipeRead )
+   , DllCall( "SetLastError", Int,-1 )     
+
+  hProcess := NumGet( PROCESS_INFORMATION, 0 )                 
+  if(a_is64bitOS)
+    hThread  := NumGet( PROCESS_INFORMATION, 8 )                      
+  else
+    hThread  := NumGet( PROCESS_INFORMATION, 4 ) 
+
+  DllCall( "CloseHandle", UInt,hPipeWrite )
+
+  AIC := ( SubStr( A_AhkVersion, 1, 3 ) = "1.0" )                   ;  A_IsClassic 
+  VarSetCapacity( Buffer, 4096, 0 ), nSz := 0 
+  
+  While DllCall( "ReadFile", UInt,hPipeRead, UInt,&Buffer, UInt,4094, UIntP,nSz, UInt,0 )
+   sOutput .= ( AIC && NumPut( 0, Buffer, nSz, "UChar" ) && VarSetCapacity( Buffer,-1 ) ) 
+              ? Buffer : %StrGet%( &Buffer, nSz, "CP850" )
+ 
+  DllCall( "GetExitCodeProcess", UInt,hProcess, UIntP,ExitCode )
+  DllCall( "CloseHandle", UInt,hProcess  )
+  DllCall( "CloseHandle", UInt,hThread   )
+  DllCall( "CloseHandle", UInt,hPipeRead )
+
+Return sOutput,  DllCall( "SetLastError", UInt,ExitCode )
+}