Всем привет.
Видел пост WSWR
http://autoit-script.ru/index.php?topic=11407.msg74941#msg74941
возник вопрос, можно ли как нибудь передать полученные данные скрипту php
функция отправки
получаю ошибку
где я допустил ошибку?
Видел пост WSWR
http://autoit-script.ru/index.php?topic=11407.msg74941#msg74941
возник вопрос, можно ли как нибудь передать полученные данные скрипту php
функция отправки
Код:
Global $PID = 0, $Prev1 = 0, $Prev2 = 0
While 1
ConsoleWrite(_CPU('explorer.exe') & @CRLF)
sleep(1000)
WEnd
Func _CPU($sProcess)
Local $ID, $Time1, $Time2, $CPU
$ID = ProcessExists($sProcess)
If $ID Then
$Time1 = _WinAPI_GetProcessTimes($ID)
$Time2 = _WinAPI_GetSystemTimes()
If(IsArray($Time1)) And(IsArray($Time2)) Then
$Time1 = $Time1[1] + $Time1[2]
$Time2 = $Time2[1] + $Time2[2]
If($Prev1) And($Prev2) And($PID = $ID) Then
$CPU = Round(($Time1 - $Prev1) / ($Time2 - $Prev2) * 100)
EndIf
$Prev1 = $Time1
$Prev2 = $Time2
$PID = $ID
Return $CPU
EndIf
EndIf
$Prev1 = 0
$Prev2 = 0
$PID = 0
EndFunc ;==>_CPU
Func post()
$CPU = $CPU1
$oRequest = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oRequest.Open('POST', '/stat.php', 0)
$oRequest.SetRequestHeader('User-Agent', '')
$oRequest.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
$oRequest.Send('cpu=' $CPU1)
$sData = $oRequest.ResponseText
$oErrorHandler = 0
$nBytesRead = @extended
EndFunc
получаю ошибку
Код:
Untitled 12.au3 (77) : ==> Badly formated variable or macro.:
$oRequest.Send('cpu=' $CPU1)
$oRequest.Send('cpu=' ^ ERROR