| Вопрос: информация из html | Добавлено: 17.12.05 23:58 |
Автор вопроса:  avtograd | ICQ: 6008680 |
|
Доброго дня суток!!! Помогите please!!!
1. Как выдернуть информацию (текст html) со строницы открытой в броузере? /подробнее/ (открыть страницу в vb и тупо сохранить не могу, потому что требует авторизации). захожу из броузера на нужный сайт, авторизируюсь, перехожу на нужную мне страницу и вот здесь нужно сохранить текст html. Помогите с советом, кто может! Очень нужно! |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  E-Man Вопросов: 3 Ответов: 132 |
Профиль | | #1 | Добавлено: 18.12.05 00:30 |
| ну дык надо попробовать авторизоваться средствами VB. изучить страницу и послать данные для авторизации так же, как это реализовано на сайте.. | ||
|
Номер ответа: 2 Автор ответа:  avtograd ICQ: 6008680 Вопросов: 1 Ответов: 3 |
Профиль | | #2 | Добавлено: 18.12.05 04:19 |
| Каким образом это можно реализовать? | ||
|
Номер ответа: 3 Автор ответа: HOOLIGAN Вопросов: 0 Ответов: 1066 |
Профиль | | #3 | Добавлено: 18.12.05 07:36 |
| UrlDownloadToFile | ||
|
Номер ответа: 4 Автор ответа: avtogradICQ: 6008680 Вопросов: 1 Ответов: 3 |
Профиль | | #4 | Добавлено: 18.12.05 13:16 |
| Пожалуйста по подробнее расскажите как и что нужно сделать? | ||
|
Номер ответа: 5 Автор ответа: avtogradICQ: 6008680 Вопросов: 1 Ответов: 3 |
Профиль | | #5 | Добавлено: 18.12.05 13:22 |
| Расскажите пожалуйста по подробнее? | ||
|
Номер ответа: 6 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #6 | Добавлено: 18.12.05 13:35 |
|
URLDownloadToFile ByVal 0, ByVal "http://www.vbnet.ru/forum/show.aspx?id=94344", ByVal "c:\vbnet.html", ByVal 0, ByVal 0
Только объявление URLDownloadToFile добавь |
||
|
Номер ответа: 7 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #7 | Добавлено: 10.01.06 22:23 |
|
Может такой пример чем то поможет.
Не знаю конкретно, но вот может поможет. 
Получение сведений из URL. Данная функция возвращает различные компоненты web-страницы. Включая "host", "port", "user", "pass", "path" и "query" Private Type typURL 'http://sit:sitter@proxy.spiderit.net:881/prox/proxycfg.php3?openpage Protocol As String 'какой протокол (http://, ftp:// или другой) ServerName As String 'имя сервера (proxy.spiderit.net) Filename As String 'имя страницы (proxycfg.php3) Dir As String 'директория (/prox/) Filepath As String 'путь файла (/prox/proxycfg.php3) Username As String 'имя пользователя (sit) Password As String 'пароль (sitter) Query As String 'строка запроса (openpage) ServerPort As Integer 'порт сервера (881) End Type Const strNOCONTENT As String = "NOCONTENT" Const intDEFAULTPORT As Integer = 80 Private Function ParseURL(URL As String) As typURL Dim strTemp As String Dim strServerAuth As String Dim strServerNPort As String Dim strAuth As String strTemp = URL 'Parse protocol If (InStr(1, strTemp, "://" > 0) Then
'URL contains protocol ParseURL.Protocol = Left(strTemp, InStr(1, strTemp, "://" - 1)
strTemp = Right(strTemp, Len(strTemp) - (Len(ParseURL.Protocol) + 3)) 'delete protocol + :// Else 'URL do not contains the protocol ParseURL.Protocol = strNOCONTENT End If '- Parse authenticate information If (InStr(1, strTemp, "/" > 0) Then
'extract servername and user and password if there are directory infos strServerAuth = Left(strTemp, InStr(1, strTemp, "/" - 1)
strTemp = Right(strTemp, Len(strTemp) - (Len(strServerAuth) + 1)) Else 'extract servername and user and password if there are no directory infos strServerAuth = strTemp strTemp = "/" End If If (InStr(1, strServerAuth, "@" > 0) Then
'there are user and password informations strAuth = Left(strServerAuth, InStr(1, strServerAuth, "@" - 1)
strServerNPort = Right(strServerAuth, Len(strServerAuth) - (Len(strAuth) + 1)) Else 'there are no user and password informations strAuth = "" strServerNPort = strServerAuth End If If (InStr(1, strAuth, ":" > 0) And (Len(strAuth) > 0) Then
'split username and password on ":" splitter ParseURL.Username = Left(strAuth, InStr(1, strAuth, ":" - 1)
ParseURL.Password = Right(strAuth, Len(strAuth) - InStr(1, strAuth, ":" )
ElseIf (InStr(1, strAuth, ":" <> 0) Then
'only username was submitted ParseURL.Username = strAuth ParseURL.Password = strNOCONTENT Else 'no authenticate information was submitted ParseURL.Username = strNOCONTENT ParseURL.Password = strNOCONTENT End If If (InStr(1, strServerNPort, ":" > 0) Then
'Servername contains port ParseURL.ServerPort = Int(Right(strServerNPort, Len(strServerNPort) - InStr(1, strServerNPort, ":" ))
ParseURL.ServerName = Left(strServerNPort, InStr(1, strServerNPort, ":" - 1)
Else ParseURL.ServerPort = intDEFAULTPORT ParseURL.ServerName = strServerNPort End If If (InStr(1, strTemp, "?" > 0) Then
ParseURL.Query = Right(strTemp, Len(strTemp) - InStr(1, strTemp, "?" )
strTemp = Left(strTemp, InStr(1, strTemp, "?" - 1)
Else ParseURL.Query = strNOCONTENT End If For i = Len(strTemp) To 1 Step -1 If (Mid(strTemp, i, 1) = "/" Then
ParseURL.Filename = Right(strTemp, Len(strTemp) - i) ParseURL.Dir = Left(strTemp, i) If Not (Left(ParseURL.Dir, 1) = "/" Then
ParseURL.Dir = "/" & ParseURL.Dir End If Exit For End If Next ParseURL.Filepath = "/" & strTemp If Not (Left(ParseURL.Filepath, 1) = "/" Then
ParseURL.Filepath = "/" & ParseURL.Filepath End If End Function Private Sub Form_Load() 'Const strURL As String = "http://visualprogs.narod.ru/index.html" Const strURL As String = "http://sit:sitter@proxy.spiderit.net:881/prox/proxycfg.php3?openpage" msgtext = ParseURL(strURL).Protocol & vbCrLf msgtext = msgtext & ParseURL(strURL).Username & vbCrLf msgtext = msgtext & ParseURL(strURL).Password & vbCrLf msgtext = msgtext & ParseURL(strURL).ServerName & vbCrLf msgtext = msgtext & ParseURL(strURL).ServerPort & vbCrLf msgtext = msgtext & ParseURL(strURL).Filepath & vbCrLf msgtext = msgtext & ParseURL(strURL).Dir & vbCrLf msgtext = msgtext & ParseURL(strURL).Filename & vbCrLf msgtext = msgtext & ParseURL(strURL).Query & vbCrLf MsgBox msgtext, vbInformation End Sub |
||
|
Номер ответа: 8 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #8 | Добавлено: 10.01.06 23:12 |
|
2 root, не, баян, не в тему...
2 HOOLIGAN, это не авторизация, апишка для сохранения содержимого из определённого урла, тож типа баяна короче 
2 avtograd Как говорил E-man авторизироваться на вб. Для этого будем юзть винсок или вбсокета. Открой хтмл стр на которой проходит авторизация посмотри форму отправки... там каждое поле свой name имеет, если форме пофиг как отсылают (через GET or POST) то можна попробовать в параметрах все поля задать, тогда кстати и URLDownloadToFile прокатит. Если иначе, то сами формируем http пакет, и авторизируемся... Посмотри описание хттп протокола, и/или примерчик по флуду чата какого-то, или авторизацие на мыле.ру кажись даже не етом сайте есть... Вот там и посмотриш пример авторизации |
||
Страница: 1 |