连接到指定的网站程序(VB6.0源代码编写) If InternetCheckConnection("http://www.so...

连接到指定的网站程序(VB6.0源代码编写) If InternetCheckConnection("http://www.sohu.com/", 1, 0) = 0 Then MsgBox " 不能连接到 http://www.sohu.com/ ", vbInformation Else MsgBox " 已经连接到 http://www.sohu.com/ ", vbInformation End If 下载:http://download.csdn.net/user/gouyue QQ223857666勾月