檢查傳出的網絡端口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

我已經做了平在過去類似的，也許你可以修改它來使用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控件。它可能已經安裝在客戶端計算機上。