VB检测远程端口是否开启和本地端口是否有数据接收？

16363828何时维护完毕开机。用VB去判断远程服务器端口【目标端口：30810】是否开启，如果开启就提示可以游戏了，但是我只知道在DOS命令下查看是否开启。

3、请会VB的老师们帮忙写一个代码

需要你提供值得程序。因为我不知道你“远程服务器”链接的控件是什么？  是winsock控件吗？如果是WINSOCK控件的话测试一下IP地址是否能通。ping 一下能测试出来。  然后看看服务器端的端口与你客户端的端口是否一致。

如果是链接数据库的话。那SQL2008为例。  首先你在服务器端是否已经开启通过IP访问。

然后最好重新启动一下服务。不是重启电脑哦。

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

这是封装在Shell32.DLL系统文件里的一个函数，既可以判断本地文件是否存在，又可以判断远程电脑上的文件是否存在。函数返回值是个Long型变量，返回两个值0,1。1表示文件存在(True),0表示文件不存在(False)。而且只有一个参数szPath,是个字符串变量，如果要判断本地的文件是否存在其路径可写为：”C:\Windows\Config\SysBook.Txt”)，如果文件在远程电脑上，其路径可写为（假设对方电脑IP为192.168.0.2)

"\\192.168.0.2\d$\javatools\somefile.txt",如果其电脑名为WorkStation可写为

“\\workstation\javatools\somefile.txt"，当然这个函数还可以查找网站上的网页文件如："http://www.microsoft.com/ms.htm"

我们可以写个简单的自定义公用函数来完成这个功能，在自定义函数里调用这个API函数

Public Function GetFileExists(ByVal FileName As String) As Boolean

If FileName = "" Then

MsgBox "请输入文件名", vbInformation, "提示"

Exit Function

Else

GetFileExists = CBool(PathFileExists(FileName))

End If

End Function

在窗体界面上加一按钮,和一文本框

Private Sub Command1_Click()

Dim T As Boolean

T = GetFileExists("F:\it\Develope\Retail\Bill\vssver.scc")

If T = True Then

Text1.Text = "该文件存在"

Else

Text1.Text = "该文件不存在"

End If

End Sub

当然GetFileExists其中的参数还可以写成

"\\192.168.0.2\d$\javatools\somefile.txt"

"\\workstation\javatools\somefile.txt"

"http://www.microsoft.com/ms.htm"

这个函数除了能判断文件是否存在外，还可以判断本地或远程文件夹

是否存在，我觉得这要比用Dir这个VB自带函数来判断文件是否存在要好用多了，而且也不需要调用FileSystemObject组件来操作了。

---