Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как проверить сайт на доступность через VB6 / 13 сообщений из 13, страница 1 из 1
19.08.2015, 16:36
    #39032583
anykey33
anykey33
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить сайт на доступность через VB6
Через AUTOIT можно сделать так
 

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
#NoTrayIcon
#include <FileConstants.au3>
#include <Date.au3>
#include <INet.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#pragma compile(Console, true)
#include <MsgBoxConstants.au3>
Global $URL = "http://pupkin.ru"
If _INetGetSource($URL) = "" Then
	exit
EndIf



но увы не работает в 2000 винде, как такую проверку можно организовать на VB6. Консольное приложение которое проверяет доступен ли сайт и если он доступен то...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.08.2015, 16:55
    #39032604
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить сайт на доступность через VB6
открыть сокетом соединение с 80м портом сервера, сделать get...

если соединение не открылось или вернулась ересь вместо морды сайта - писать в спортлото принимать меры.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.08.2015, 17:00
    #39032616
Eolt
Eolt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить сайт на доступность через VB6
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Function CheckUrl(pURL As String) As Boolean
     On Error GoTo er
     Dim resText As String
     Dim objHttp As Object
     Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
     objHttp.Open "GET", pURL, False
     objHttp.Send ""
     If Trim$(Mid$(objHttp.ResponseText, 1, 255)) <> "" Then CheckUrl = True
     Exit Function
er:
     CheckUrl = False
End Function

Private Sub Form_Load()
      MsgBox CheckUrl("https://google.com")
 End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2015, 07:40
    #39032835
anykey33
anykey33
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить сайт на доступность через VB6
Eolt,
Очень долго висит, потом пишет false вместо true.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2015, 08:27
    #39032845
anykey33
anykey33
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить сайт на доступность через VB6
Для внутренних сайтов работает как надо, для тех что через прокси, начинает некорректно отрабатывать. При чем и так тоже. Ну в общем мне и нужно было для внутреннего сайта.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" _
Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, _
ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

dim sstrText as string

sstrText="http://www.myURLname.com"

If InternetCheckConnection(sstrText, FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
MsgBox "Connection to " & sstrText & " failed!", vbInformation
Else
MsgBox "Connection to " & sstrText & " succeeded!", vbInformation

End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2015, 09:51
    #39032904
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить сайт на доступность через VB6
Странненькая она, эта функция. Есть у меня веб-сервер, который без авторизации отвечает только на один строго определённый URL типа https://www.myserver.com/auth/ , а все остальные жёстко игнорит по варианту drop. А ещё он игнорит пинги, тоже Drop. Так вот - InternetCheckConnection всегда рапортует, что сервер недоступен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2015, 10:19
    #39032925
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить сайт на доступность через VB6
anykey33 Для внутренних сайтов работает как надо, для тех что через прокси, начинает некорректно отрабатыватьну так надо прокси указывать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2015, 13:00
    #39033099
anykey33
anykey33
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить сайт на доступность через VB6
Antonariyanykey33 Для внутренних сайтов работает как надо, для тех что через прокси, начинает некорректно отрабатыватьну так надо прокси указывать.

Для автоит ничего указывать не надо :-).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2015, 13:22
    #39033117
Eolt
Eolt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить сайт на доступность через VB6
anykey33Eolt,
Очень долго висит, потом пишет false вместо true.

Все правильно там пишет. Когда сайт отвечает то true, если проиходит положенный тайм-аут а ответа нет - false
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2015, 14:02
    #39033158
anykey33
anykey33
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить сайт на доступность через VB6
Eolt,
Ну это с какой стороны посмотреть. В общем, в vbs этот код, подобный вашему, почему то работает с сервером IIS в котором аутентификация windows, и выдает код 200. А в Visual Basic 6 почему то не понимает и дает 401.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim http: set http = CreateObject("MSXML2.XMLHTTP")
URL_test = "http://site.ru"

http.open "GET", URL_test , False
http.send

if not http.status = 200 Then
msgbox "wrong"
  Else
  msgbox  "good"      
end If



PS сайты гугл и яндекс, не возвращают код 200.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2015, 15:22
    #39033257
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить сайт на доступность через VB6
anykey33Antonariyпропущено...
ну так надо прокси указывать.

Для автоит ничего указывать не надо :-).ну так это не автоит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2015, 16:18
    #39033330
anykey33
anykey33
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить сайт на доступность через VB6
Где то вроде ругали MS Control Transfer, но тестирую вроде как, то что надо, форму разве что обязательно надо добавлять, через Sub Main не пойдет.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Form_Load()
    Call Inet1.Execute("http://site.ru", "GET")

    If InStr(1, Inet1.GetHeader(), "200") > 0 Then
        Call MsgBox("Good")
        Else
        
    End If
    Unload Me
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.08.2015, 16:25
    #39033341
anykey33
anykey33
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить сайт на доступность через VB6
Вернее так
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Form_Load()
    Call Inet1.Execute("http://site.ru", "GET")
     Do Until Inet1.StillExecuting = False
        DoEvents
    Loop
    If InStr(1, Inet1.GetHeader(), "200") > 0 Then
        Call MsgBox("Good")
        Else
        
    End If
    Unload Me
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как проверить сайт на доступность через VB6 / 13 сообщений из 13, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 1846ms
Закрыть
start [/forum/moderation_log.php?user_name=%D0%9A%D0%BE%D0%BD%D1%81%D1%82%D0%B0%D0%BD%D1%82%D0%B8%D0%BD_kroks]:
 0ms
get settings:
 11ms
get forum list:
 16ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 84ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 1637ms
total:  1846ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]