| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]客户端连接服务端失败 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195632) |
| -- 作者：2900819580 -- 发布时间：2025/2/24 15:31:00 -- [求助]客户端连接服务端失败 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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2025/2/24 16:09:00 -- OpenQQ服务端启动服务的ip改为：0.0.0.0 |