[XXXler]

Creat0R,
rasphone.exe /?

Пример

[Creat0R]

XXXler
Спасибо, но выдаётся следующее сообщение:



Может я неверное ввожу имя? где получить точное имя подключения?
И кстати, у меня там пусто в этой книге, создал подключение, но ошибка та же

[amel27]

Creat0R

Вот еще вариант через API-функции InternetAutodial и InternetAutodialHangup, правда они работают только с "подключением по умолчанию". Можно поиграть разными комбинациями флагов и в параметрах подключения покрутить настройки.

Код:

Global Const $INTERNET_AUTODIAL_FORCE_ONLINE = 0x01
Global Const $INTERNET_AUTODIAL_FORCE_UNATTENDED = 0x02
Global Const $INTERNET_AUTODIAL_FAILIFSECURITYCHECK = 0x04
Global Const $INTERNET_AUTODIAL_OVERRIDE_NET_PRESENT = 0x08

If _InetConnect($INTERNET_AUTODIAL_FORCE_ONLINE + $INTERNET_AUTODIAL_FORCE_UNATTENDED) Then
    MsgBox(0,'Сообщение','Подключение установлено')
Else
    MsgBox(16,'Ошибка','В процессе подключения произошла ошибка')
EndIf
If _InetDisconnect() Then
     MsgBox(0,'Сообщение','Подключение разорвано')
Else
    MsgBox(16,'Ошибка','При разрыве подключения произошла ошибка')
EndIf

Func _InetConnect($iFlags = 0x01, $hWnd = 0)
    Local $ret = DllCall('wininet.dll', 'int', 'InternetAutodial', 'dword', $iFlags, 'hwnd', $hWnd)
    If Not $ret[0] Then
        $ret = DllCall('kernel32.dll', 'int', 'GetLastError')
        Return SetError(1, $ret[0], False)
    EndIf
    Return True
EndFunc

Func _InetDisconnect()
    Local $ret = DllCall('wininet.dll', 'int', 'InternetAutodialHangup', 'dword', 0)
    If Not $ret[0] Then
        $ret = DllCall('kernel32.dll', 'int', 'GetLastError')
        Return SetError(1, $ret[0], False)
    EndIf
    Return True
EndFunc

[Creat0R]

amel27
Спасибо за функции, но почему то функция для подключения пишет что соеденение установлено, хотя на самом деле оно не подключается.

Я пробовал (как и на оф форуме советуют) предварительно пооткрывать Dll'ки, но результат тот же.

А функция _InetDisconnect() вообще выпадает с фатальной ошибкой:



В принципе отсоедениться не проблема через Rasdial /Disconnect - главное подсоеденится обратно.

С флагами игрался по всевозможному, а параметры вызова Dll я не осмелился менять, если честно понятия не имею что там должно быть (хотябы приблизительно).

[amel27]

Creat0R

почему то функция для подключения пишет что соеденение установлено, хотя на самом деле оно не подключается

в параметрах подключения браузера должно стоять "всегда использовать принятое по умолчанию подключение"

функция _InetDisconnect() вообще выпадает с фатальной ошибкой

исправил

если честно понятия не имею что там должно быть

дык для этого и дал линки

[Diamond]

Creat0R
Хм... По идее, если rasdial отключает, то он должен и подключать но при этом необходимо указывать логин и пароль.
rasdial 012 UserName Password
Если логин и пароль у подключения отсутствуют или неизвестны то я думаю правильное решение дал XXXler - использовать rasphone.exe

[Creat0R]

amel27

в параметрах подключения браузера должно стоять "всегда использовать принятое по умолчанию подключение"

Во! так работает! большое спасибо!

Diamond

если rasdial отключает, то он должен и подключать но при этом необходимо указывать логин и пароль.

И это работает! я раньше не писал ни логин ни пароль, думал раз я админ на компе, значит это не требуется! - Спасибо!

[Creat0R]

В AutoIT есть известный баг - когда в системе задан год на выше чем 2037, и используется макрос @Year, скрипт вылетает полностью.

Я предлагаю (временное?) решение:

Код:

MsgBox(64, "Get Year", "And the year is: " & Year())

Func Year()
    Local $Code = ""
    $Code &= 'Function GetYear()' & @LF
    $Code &= '  MyDate = #January, 1#' & @LF
    $Code &= '  GetYear = Year(MyDate)' & @LF
    $Code &= 'End Function'

        Local $VbsObj = ObjCreate("ScriptControl")
    If @error Then Return SetError(1, 0, 0)

    $VbsObj.Language = "vbscript"
    $VbsObj.AddCode($Code)
    Local $Ret = $VbsObj.Run ("GetYear")
    If $Ret = 0 Then Return SetError(2, 0, 0)
    Return $Ret
EndFunc

[Diamond]

Creat0R

думал раз я админ на компе, значит это не требуется

...не совсем понял... а при чём здесь админ... - я имел ввиду не системные пароль и имя, а те что требует провайдер при подключении, и если я правильно понял, то в качестве имени и пароля в твоём случае можно ввести что угодно, думаю, это также сработает.

[Creat0R]

Diamond

а при чём здесь админ

Я думал что раз при подключении (ручном) мне не нужно вводить ни логин, ни пароль, значит оно как бы уже запомнилось, и если зайти не под админом, то пароль и логин придётся вводить заного... но видимо я ошибься

я имел ввиду не системные пароль и имя, а те что требует провайдер при подключении

Я понял

в качестве имени и пароля в твоём случае можно ввести что угодно, думаю, это также сработает

Хм, потому что я админ? надо будет проверить... спасибо.