If FileSys.FileExists(ProjectPath & "Errlog.txt") = True Then FileSys.DeleteFile(ProjectPath & "Errlog.txt", 2, 2)
If QQClient.Ready Then QQClient.Stop
QQClient.ServerIP = txt '192.168.2.33
QQClient.ServerPort = e.Form.Controls("Txtport").value '52177
Vars("ServerIP") = txt & ":" & e.Form.Controls("Txtport").value
QQClient.UserName = "Sys.Test" '指定登录用户名
QQClient.Start()
If QQClient.Ready = True Then
MessageBox.Show("连接成功.", "连接提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("连接失败", "连接提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
以上是客户端的代码，以下是服务端的代码，服务机已经关闭了防火墙
老师：本机使用同样的IP和端口登录没有问题
但使用在其它电脑，就会弹出连接失败的提示，查看了Errlog.txt是没有任何内容，
Dim errlog As String
errlog &= vbcrlf & "----------------login---------------"
errlog &= vbcrlf & Date.Now & ":" & "login:" & e.UserName
If e.UserName = "Sys.Test" Then
errlog &= vbcrlf & Date.Now & ":login:Sys.Test直接登录>>>" & e.UserName
e.Success = True '直接登录
End If
FileSys.WriteAllText(ProjectPath & "Errlog.txt", errlog, True)
[此贴子已经被作者于2025/2/24 15:32:10编辑过]
OpenQQ服务端启动服务的ip改为：0.0.0.0