Подскажите, где научиться создавать подключение к интернет ресурсам, или Укажите функции подключения, пожалуйста...Искал на форуме - не нашел, в справке тоже не нашел, имеется только 1 пример, да и он не работает, вот:
Код:
$sRequestURL = 'http://www.darkorbit.bigpoint.com'
$sLogin = 'Akk'
$sPass = 'parol'
; POST-запрос на сайт
$sSendData = 'loginForm_default_username="' & $sLogin & '"&loginForm_default_password="' & $sPass & '"'
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open('POST', $sRequestURL)
$oHTTP.setTimeouts(5000, 5000, 15000, 15000)
$oHTTP.SetRequestHeader('Accept', 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8')
$oHTTP.SetRequestHeader('Accept-Language', 'ru')
$oHTTP.SetRequestHeader('Referer', $sRequestURL)
$oHTTP.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
$oHTTP.SetRequestHeader('User-Agent', 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)')
$oHTTP.SetRequestHeader('Host', $sRequestURL)
$oHTTP.SetRequestHeader('Proxy-Connection', 'Keep-alive')
$oHTTP.Send($sSendData)
$oHTTP.WaitForResponse
$Response = $oHTTP.ResponseText
; запуск Блокнота и вставка результата POST-запроса
$hWin = WinGetHandle('[CLASS:Notepad]')
If $hWin == '' Then
Run('notepad.exe')
$hWin = WinWait('[CLASS:Notepad]')
EndIf
ControlSetText($hWin, '', 'Edit1', $Response)
WinActivate($hWin)
; проверка авторизации
If StringInStr($Response, 'Данное имя пользователя и/или пароль некорректны') Then
MsgBox(16, 'Ошибка', 'Данное имя пользователя и/или пароль некорректны')
Else
MsgBox(64, 'Внимание', 'Авторизация пройдена')
EndIf