使用vb6检查端口443上的传出网络是否已打开

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控件。它可能已安装在客户端计算机上。