Код: Выделить всё
ControlSend ( "title", "text", controlID, "string" [, flag] )Код: Выделить всё
While 1
If Int(_RASConStat(4) / 1000 / 60) >= 60 Then
$hRASConn = _RasEnumConnections()
If Not @error Then _RasHangUp($hRASConn)
Exit
EndIf
Sleep(1000)
WEnd
; #FUNCTION# ====================================================================================================================
; $iFlag:
; 1 - The number of bytes transmitted through this connection or link.
; 2 - The number of bytes received through this connection or link.
; 3 - Total
; 4 - The amount of time, in milliseconds, that the connection or link has been connected.
Func _RASConStat($sFlags = 1)
Local $hRASConn = _RasEnumConnections()
If @error Then Return SetError(1, 0, 0)
$tRAS_STATS = DllStructCreate("dword dwSize;dword dwBytesXmited;dword dwBytesRcved;dword dwFramesXmited;" & _
"dword dwFramesRcved;dword dwCrcErr;dword dwTimeoutErr;dword dwAlignmentErr;" & _
"dword dwHardwareOverrunErr;dword dwFramingErr;dword dwBufferOverrunErr;" & _
"dword dwCompressionRatioIn;dword dwCompressionRatioOut;dword dwBps;dword dwConnectDuration")
DllStructSetData($tRAS_STATS, "dwSize", DllStructGetSize($tRAS_STATS))
$aRet = DllCall("rasapi32.dll", "int", "RasGetConnectionStatistics", _
"hwnd", $hRASConn, _
"ptr", DllStructGetPtr($tRAS_STATS))
If $aRet[0] Then Return SetError(2, 0, 0)
Local $iResult = 0
Switch $sFlags
Case 1
$iResult = DllStructGetData($tRAS_STATS, "dwBytesXmited")
Case 2
$iResult = DllStructGetData($tRAS_STATS, "dwBytesRcved")
Case 3
$iResult = DllStructGetData($tRAS_STATS, "dwBytesXmited") + DllStructGetData($tRAS_STATS, "dwBytesRcved")
Case 4
$iResult = DllStructGetData($tRAS_STATS, "dwConnectDuration")
EndSwitch
Return $iResult
EndFunc ;==>_RASConStat
Func _RasEnumConnections()
Local Const $MAX_PATH = 260
Local Const $RAS_MaxDeviceType = 16
Local Const $RAS_MaxEntryName = 256
Local Const $RAS_MaxDeviceName = 128
Local $tRASCONN, $iCntByte, $iCntConn, $aRet
$tRASCONN = DllStructCreate("dword dwSize;hwnd hRasConn;char szEntryName[" & $RAS_MaxEntryName + 1 & "];" & _
"char szDeviceType[" & $RAS_MaxDeviceType + 1 & "];" & _
"char szDeviceName[" & $RAS_MaxDeviceName + 1 & "];" & _
"char szPhonebook[" & $MAX_PATH & "];" & _
"dword dwSubEntry;byte guidEntry[16];dword dwFlags;byte luid[8]")
DllStructSetData($tRASCONN, "dwSize", DllStructGetSize($tRASCONN))
$iCntByte = DllStructCreate("dword")
$iCntConn = DllStructCreate("dword")
DllStructSetData($iCntByte, 1, DllStructGetSize($tRASCONN))
$aRet = DllCall("rasapi32.dll", "int", "RasEnumConnections", _
"ptr", DllStructGetPtr($tRASCONN), _
"ptr", DllStructGetPtr($iCntByte), _
"ptr", DllStructGetPtr($iCntConn))
If $aRet[0] Then Return SetError(1, $aRet[0], -1)
If DllStructGetData($iCntConn, 1) < 1 Then Return SetError(2, 0, 0) ;Error: not opened connections
Return DllStructGetData($tRASCONN, "hRasConn")
EndFunc ;==>_RasEnumConnections
Func _RasHangUp($HRASCONN)
$aRet = DllCall("Rasapi32.dll", "int", "RasHangUp", _
"hwnd", $HRASCONN)
Return $aRet[0]
EndFunc ;==>_RasHangUpКод: Выделить всё
Run("\\srv\soft\Symantec\updat32.exe")
WinWait("SARC Intelligent Updater","&Да")
WinActivate("SARC Intelligent Updater","&Да")
If WinActive("SARC Intelligent Updater","&Да") Then
ControlClick("SARC Intelligent Updater","&Да","[ID:6]")
EndIf
WinWait("SARC Intelligent Updater","OK")
WinActivate("SARC Intelligent Updater","OK")
If WinActive("SARC Intelligent Updater","OK") Then
ControlClick("SARC Intelligent Updater","ОК","[ID:2]")
EndIf
Exit
Код: Выделить всё
_WinWaitVisible("SARC Intelligent Updater", "OK")
Func _WinWaitVisible($sTitle, $sText, $iTime=0)
Local $iTimer = -1
If $iTime > 0 Then $iTimer = TimerInit()
While Not BitAND(WinGetState($sTitle, $sText), 2)
Sleep(10)
If $iTime > 0 And (TimerDiff($iTimer) / 1000) >= $iTime Then ExitLoop
WEnd
Return Number(BitAND(WinGetState($sTitle, $sText), 2) = 2)
EndFunc
Код: Выделить всё
If $CmdLine[0] = 0 Then $CmdLineRaw = '/Param="1" /File=C:\Program Files\Some App\File - Name.txt /URL="http://google.com"'
MsgBox(64, "", _
_GetCmdLine($CmdLineRaw, "/Param=") & @LF & _
_GetCmdLine($CmdLineRaw, "/URL=") & @LF & _
_GetCmdLine($CmdLineRaw, "/File="))
Func _GetCmdLine($sCmdLine, $sArgument, $sCmd_Delim='/.*=')
If Not StringInStr($sCmdLine, $sArgument) Then Return SetError(1, 0, "")
Local $sRegExp = '(?i)^.*?\Q' & $sArgument & '\E\s*(?:(?:"([^"]*)")|([^"]+)' & $sCmd_Delim & ').*$'
Local $sRetCmd = StringRegExpReplace($sCmdLine, $sRegExp, '\1\2')
If $sRetCmd = $sCmdLine Then Return SetError(2, 0, "")
Return StringStripWS($sRetCmd, 3)
EndFuncКод: Выделить всё
Run("\\srv\soft\Symantec\updat32.exe")
WinWait("SARC Intelligent Updater","&Да")
While WinExists("SARC Intelligent Updater","&Да")
Sleep(200)
ControlClick("SARC Intelligent Updater","&Да","Button1")
WEnd
WinWait("SARC Intelligent Updater","ОК")
While WinExists("SARC Intelligent Updater","ОК")
Sleep(200)
ControlClick("SARC Intelligent Updater","ОК","Button1")
WEnd