主题：[求助]OpenQQ连不上

在同一台电脑上可以连上，但是我将服务端放在局域网的另一台电脑（sever 2008 R2，192.168.0.30）上，就无法连上，ping 192.168.0.30是可以的，而且这台电脑也是我用来存储外部数据源的电脑，没有道理会出现网络方面的问题，为什么会出现连不上的现象？请老师指点

这是我花生壳的内网穿透截图

老师，是不是要写端口号？

QQClient.ServerIP = "192.168.0.30" '指定服务器IP地址

QQClient.ServerPort = 52177  '指定服务器登录端口

QQClient.UserName = "YG-201404280001.赵洪文"

QQClient.Password = "123"

If QQClient.Start() = True '如果登录成功

    Dim msg As String =  "恭喜,OpenQQ登录成功!"

    If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息

        msg = msg & QQClient.ServerMessage

    End If

    PopMessage(msg,"提示",PopiconEnum.Infomation,5)

Else '如果登录失败,显示服务器返回错误信息

   PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)

End If

这个代码可以连上