#include <AutoItConstants.au3>
Global $sExe, $sArg, $iPID, $sStdout
$sExe = ""
$sArg = ""
If $sArg Then $sExe = $sExe & " " & $sArg
OnAutoItExitRegister("_OnExit")
$iPID = Run($sExe, "", @SW_HIDE, $STDERR_MERGED)
While Sleep(10)
$sStdout = StdoutRead($iPID)
If @extended > 0 Then _StdoutDisplay()
If Not ProcessExists($iPID) Then Exit
WEnd
Func _StdoutDisplay()
Local $aRegExp = StringRegExp($sStdout, "GPU(\d+?): (\d+?)C", 3)
If Not @error Then
For $i = 0 To UBound($aRegExp) - 1 Step 2
ConsoleWrite("--> GPU #" & $aRegExp[$i] & " : " & $aRegExp[$i + 1] & " C" & @CRLF)
Next
EndIf
EndFunc ;==>_StdoutDisplay
Func _OnExit()
If ProcessExists($iPID) Then ProcessClose($iPID)
EndFunc ;==>_OnExit
#include <Constants.au3>
$iRun_PID = Run('C:\0.3.4b\miner.exe --config C:\0.3.4b\miner.cfg', '', @SW_MAXIMIZE, $STDERR_CHILD + $STDOUT_CHILD)
$sProcesses_List = ""
While 1
$sProcesses_List &= StdoutRead($iRun_PID)
If @error Then ExitLoop
$sProcesses_List = StringStripWS($sProcesses_List, 3)
ConsoleWrite( _StringOEM2ANSI($sProcesses_List))
WEnd
Func _StringOEM2ANSI($strText)
Local $sBuffer = DllStructCreate("char[" & StringLen($strText)+1 & "]")
Local $aRet = DllCall("User32.dll", "int", "OemToChar", "str", $strText, "ptr", DllStructGetPtr($sBuffer))
If Not IsArray($aRet) Then Return SetError(1, 0, '') ; ошибка DLL
If $aRet[0] = 0 Then Return SetError(2, $aRet[0], '') ; ошибка функции
Return DllStructGetData($sBuffer, 1)
EndFunc
#include <AutoItConstants.au3>
Global $sExe, $sArg, $iPID, $sStdout
$sExe = ""
$sArg = ""
If $sArg Then $sExe = $sExe & " " & $sArg
OnAutoItExitRegister("_OnExit")
$iPID = Run($sExe, "", @SW_HIDE, $STDERR_MERGED)
While Sleep(10)
$sStdout = StdoutRead($iPID)
If @extended > 0 Then _StdoutDisplay()
If Not ProcessExists($iPID) Then Exit
WEnd
Func _StdoutDisplay()
ConsoleWrite($sStdout)
#cs
Local $aRegExp = StringRegExp($sStdout, "GPU(\d+?): (\d+?)C", 3)
If Not @error Then
For $i = 0 To UBound($aRegExp) - 1 Step 2
ConsoleWrite("--> GPU #" & $aRegExp[$i] & " : " & $aRegExp[$i + 1] & " C" & @CRLF)
Next
EndIf
#ce
EndFunc ;==>_StdoutDisplay
Func _OnExit()
If ProcessExists($iPID) Then ProcessClose($iPID)
EndFunc ;==>_OnExit
#include <AutoItConstants.au3>
Global $sExe, $sArg, $sWorkingDir, $iPID, $sStdout
$sExe = "ping.exe"
$sArg = "-t 8.8.8.8"
$sWorkingDir = ""
If $sArg Then $sExe = $sExe & " " & $sArg
OnAutoItExitRegister("_OnExit")
$iPID = Run($sExe, $sWorkingDir, @SW_SHOW, $STDIN_CHILD + $STDERR_MERGED)
While Sleep(10)
$sStdout = StdoutRead($iPID)
If @extended > 0 Then _StdoutDisplay()
If Not ProcessExists($iPID) Then Exit
WEnd
Func _StdoutDisplay()
ConsoleWrite($sStdout)
#cs
Local $aRegExp = StringRegExp($sStdout, "GPU(\d+?): (\d+?)C", 3)
If Not @error Then
For $i = 0 To UBound($aRegExp) - 1 Step 2
ConsoleWrite("--> GPU #" & $aRegExp[$i] & " : " & $aRegExp[$i + 1] & " C" & @CRLF)
Next
EndIf
#ce
EndFunc ;==>_StdoutDisplay
Func _OnExit()
If ProcessExists($iPID) Then ProcessClose($iPID)
EndFunc ;==>_OnExit
$ret = InetRead("http://127.0.0.1:42000/")
$ret=BinaryToString ($ret)
$ret=StringTrimLeft($ret, StringInStr ($ret,"gpu0"))
$ret=StringTrimLeft($ret, StringInStr ($ret,">",0,4))
$temp=StringTrimRight($ret,StringLen($ret)-2)
ConsoleWrite($temp&@CRLF)
While StringInStr ($ret,"gpu")
$ret=StringTrimLeft($ret, StringInStr ($ret,">",0,16))
$temp=StringTrimRight($ret,StringLen($ret)-2)
ConsoleWrite($temp&@CRLF)
WEnd