Короче говоря проблема вот в чём... на некоторых форумах чтобы даже прочитать тему - нужно залогиниться....
вопрос: как это сделать используя метод GET ?
<form action="login.php" method="post" target="_top">
...
<input type="text" name="username" size="25" maxlength="40" value="" />
...
<input type="password" name="password" size="25" maxlength="25" />
...
<input type="submit" name="login" class="mainoption" value="Вход" />
</form>
' GET
Pass = obj.Encode(frmSettings.txtLogin & ":" & frmSettings.txtPassword)
URLS = "GET " & frmSettings.Text1.Text & " HTTP/1.0" & vbCrLf _
& "Accept: */*" & vbCrLf _
& "Accept-Language: ru" & vbCrLf _
& "User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0; MyIE2) " _
& vbCrLf _
& "Host: " & frmSettings.txtLoginAddress & vbCrLf _
& "Pragma: no-cache" & vbCrLf _
& "Accept-encoding: gzip, deflate" & vbCrLf _
& "Authorization: Basic " & Pass & vbCrLf _
& "Connection: close" & vbCrLf & vbCrLf
frmMain.Winsock1.SendData URLS
'POST
' Подготавливаем данные WEB-формы
Parameters = "filename=" & frmAddFile.txtFileRename _
& "&estimated=" & Estimated _
& "&url=" & UrlInHex _
& "&description=" & frmAddFile.txtDescription _
& "&submitюtch"
Pass = Base64Decoder.Encode(frmSettings.txtLogin & ":" & frmSettings.txtPassword)
URLS = "POST http://starstream.planetsky.com/user/filemanager.php HTTP/1.1" & vbCrLf _
& "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */*" & vbCrLf _
& "Referer: http://starstream.planetsky.com/user/filemanager.php" & vbCrLf _
& "Accept-Language: ru" & vbCrLf _
& "Content-Type: application/x-www-form-urlencoded" & vbCrLf _
& "Accept-Encoding: gzip, deflate" & vbCrLf _
& "User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0;" _
& " MyIE2) " & vbCrLf _
& "Host: starstream.planetsky.com" & vbCrLf _
& "Pragma: no-cache" & vbCrLf _
& "Authorization: Basic " & Pass & vbCrLf _
& "Connection: Close" & vbCrLf _
& "Proxy-Connection: Close" & vbCrLf _
& "Content-Length: " & Len(Parameters) & vbCrLf & vbCrLf _
& Parameters
wsFileFetch.SendData URLS
Сейчас этот форум просматривают: SemrushBot, Yandex-бот и гости: 4