Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для centaurvv

Новый участник


Сообщения: 24
Благодарности: 3

Профиль | Отправить PM | Цитировать


а если заставить ваш скрипт писать результаты своей работы в лог-файл, а потом отследить где конкретно кроется проблема?

PHP код: Выделить весь код

#include <Process.au3>

#include <File.au3> 
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=1.ico
#AutoIt3Wrapper_outfile=cmpstr.exe ;Название ехе файла после компиляции
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=Release
#AutoIt3Wrapper_Res_Description=0
#AutoIt3Wrapper_Res_Fileversion=6.00.2900.5512
#AutoIt3Wrapper_Res_LegalCopyright=0
#AutoIt3Wrapper_Res_Language=1033
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** 
Sleep(100)
ProcessWait ("explorer.exe"
BlockInput(1)
Sleep(5000)
$Start1="C:\WINDOWS\cmps.exe"
$Start2="C:\WINDOWS\cmp.exe"
$connect _GetNetworkConnect()
FileWriteLine('log.log''$connect =' $connect  )
If 
$connect Then
Else
     
RunAs("admin""""********",1,$Start1)
     ;
Сеть Отсутствует
     FileWriteLine
('log.log''Сеть Отсутствует')
     Exit
EndIf
$varPing Ping("192.168.0.8",400)
If @
error 0 Then 
     
;Пинг Отсутствует
     RunAs
("admin""""********",1,$Start1)
     
FileWriteLine('log.log''Пинг Отсутствует')
     Exit
Else 
     ;
Пинг
     $rc 
_RunDos('NET TIME \\192.168.0.1 /SET /Y')
     
FileWriteLine('log.log''_RunDos прошел')
     
Sleep(1000)
     
RunAs("admin""""********",1,$Start2)
EndIf

Func _GetNetworkConnect()
     
Local Const $NETWORK_ALIVE_LAN 0x1 ;net card connection
     Local $aRet
$iResult
     $aRet 
DllCall("sensapi.dll""int""IsNetworkAlive""int*"0)
     If 
BitAND($aRet[1], $NETWORK_ALIVE_LANThen $iResult &= "" & @LF
     
Return $iResult
EndFunc 


Последний раз редактировалось centaurvv, 17-03-2010 в 01:09.

Это сообщение посчитали полезным следующие участники:

Отправлено: 00:58, 17-03-2010 | #2