проверьте, что исходящая сеть открыта на порту 443, с vb6

Question

в Visual Basic 6

Как проверить, что связь с портом 443 открыта для сетевых запросов?

Я НЕ должен использовать какие-либо сторонние элементы управления / activeX / OCX, поэтому я ищу способы отправки / получения https или просто подключения к серверу, который обслуживает 443, использование вызовов Windows (2k / 2k3 / xp / 7 / vista) API.

Существует известный сервер, с которым я могу проверить. (или, если на то пошло, https://google.com/accounts)

Спасибо.

Answer 1

Есть несколько способов, которые я могу придумать. Одним из них является использование WinInet , в частности, InternetOpenUrl Другой способ - использовать WinHttp . Вы можете использовать функцию WinHttpOpenRequest . Вы также можете использовать его как COM объект. Вот несколько примеров:

http://www.ex -designz.net / apidetail.asp? Api_id = 72

http://msdn.microsoft.com/en-us/library/Aa384072

Answer 2

В прошлом я делал подобное для ping, возможно, вы можете изменить его, чтобы использовать telnet для отправки http get на 443. Этот код вызывает команду ping и направляет вывод в файл

Set objShell = CreateObject("WScript.Shell")
Call objShell.run("%comspec% /c ping 127.0.0.1 > c:\ping.log", 0, False)
'code to read results from ping.log here

Вы также можете посмотреть на элемент управления winsock.Возможно, он уже установлен на клиентских компьютерах.