vérifier que le réseau sortant est ouvert sur le port 443, avec VB6

Question

dans Visual Basic 6

Comment puis-je vérifier que la communication sur le port 443 est ouvert pour les demandes de réseau?

Je ne dois PAS utiliser de contrôles tiers/activeX/OCX, donc je cherche des façons d'envoyer/recevoir un https ou juste établir une connexion à un serveur qui sert sur 443, en utilisant Windows (2k/2k3/xp/7/vista) Appels API.

Il existe un serveur connu que je peux vérifier. (ou, d'ailleurs, https://google.com/accounts)

Merci.

Answer 1

Il y a plusieurs façons que je peux penser. Un étant d'utiliser WinInet, en particulier la fonction InternetOpenUrl. Une autre façon est d'utiliser WinHttp. Vous pouvez utiliser la fonction WinHttpOpenRequest. Vous pouvez également l'utiliser comme objet COM. Voici quelques exemples:

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

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

Answer 2

Je l'ai fait similaire pour ping dans le passé, peut-être vous pouvez le modifier pour utiliser telnet pour poster un http get sur 443. Ce code appelle la commande ping et dirige la sortie vers un fichier

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 

Vous pouvez également regarder le contrôle Winsock. Il est peut-être déjà installé sur les ordinateurs clients.