[amel27]

D_Master

Как запустить сам диалог подключения? »

Код:

_NetConnection_ExeVerb("ADSL", "&Подключить")
If @error Then MsgBox(16, "Ошибка", "Ошибка в имени подключения или команды.")

Sleep(10000)

; команды для локализованной XP:
;
; &Подключить
; Сос&тояние
; &Сделать подключением по умолчанию
; Создать &копию
; Создать &ярлык
; &Удалить
; &Переименовать
; Сво&йства

Func _NetConnection_ExeVerb($sConnectionName, $sVerbDisable)
    Local $sFolderName = "Сетевые подключения"

    Local $oNetConnections, $oConnection
    Local $oShellApp = ObjCreate("Shell.Application")
    Local $oControlPanel = $oShellApp.Namespace(3)
    For $oFolderItem In $oControlPanel.Items
        If $oFolderItem.Name = $sFolderName Then
            $oNetConnections = $oFolderItem.GetFolder
            ExitLoop
        EndIf
    Next
    If Not(IsObj($oNetConnections)) Then Return SetError(1, 0, False)
    For $oFolderitem In $oNetConnections.Items
        If StringInStr($oFolderitem.Name, $sConnectionName) Then
            $oConnection = $oFolderitem
            ExitLoop
        EndIf
    Next
    If Not(IsObj($oConnection)) Then Return SetError(2, 0, False)
            Local $oVerbs = $oConnection.Verbs
            For $oVerb In $oVerbs
                ConsoleWrite($oVerb.Name &@CRLF)
            Next
    $oConnection.InvokeVerb($sVerbDisable)
EndFunc

Как пропинговать сайт? »

смотри в справке функцию Ping()

З.Ы. вообще то это оффтоп и я бы делал через CMAK