вообщем у кого проблемы с Номерами страниц, вот накалякал от лени... на ВБ..(программа открывает все страницы в браузере)
кидаем винсок и дальше пишем......
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
1. Внизу есть стрелочка "Перейти на следующую страницу"
2. Страниц, к примеру, 46 штук.
3. На просмотре примерно 20-й страницы браузер закрылся с сообщением об ошибке.
4. Теперь нужно заново пролистывать 20 страниц, при том, что грузится сайт не особенно быстро?...
А не сложно ли сделать указатели на страницы, как это было раньше? Допустим, кто-то сообразит, что набрать в адресной строке для перехода на нужную страницу, а кто-то ведь нет. Да и неудобно это...
Комментарии
кидаем винсок и дальше пишем......
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim g_s As String
Dim search As String
Private Sub Form_Load()
Hide
w.Connect "nnm.ru", 80
search = "Страница 1 из "
End Sub
Private Sub w_Connect()
w.SendData "GET / HTTP/1.1" & vbNewLine & "Host: nnm.ru" & vbNewLine & vbNewLine
End Sub
Private Sub w_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Dim i As Long
Dim pages As Long
w.GetData s
g_s = g_s & s
i = InStr(1, g_s, search, vbTextCompare)
If i > 0 Then
j = InStr(i + Len(search), g_s, "
VOPROS K ADMINAM SAYTA!
Eto ge neseryezno!!!! tak !!!! delat!!!!!!
вернут тебе твои закладки!
2. Страниц, к примеру, 46 штук.
3. На просмотре примерно 20-й страницы браузер закрылся с сообщением об ошибке.
4. Теперь нужно заново пролистывать 20 страниц, при том, что грузится сайт не особенно быстро?...
А не сложно ли сделать указатели на страницы, как это было раньше? Допустим, кто-то сообразит, что набрать в адресной строке для перехода на нужную страницу, а кто-то ведь нет. Да и неудобно это...
Спасибо