- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自定义函数执行出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80884)
-- 发布时间：2016/2/5 14:12:00
-- 自定义函数执行出错
1、自定义函数GetNetIP
获取登录用户的IP
之前都很正常，IP地址记录也正常，今天登录，突然提示如下
此主题相关图片如下：qq截图getnetip.jpg
此主题相关图片如下：qq截图函数代码.jpg
2、设计OpenQQ
启动服务端，登录客户端提示
窗口，server
"索引超出了数组界限",登录失败
[此贴子已经被作者于2016/2/5 14:12:36编辑过]
-- 发布时间：2016/2/5 14:29:00
--
Dim WinHttpReq As Object = CreateObject("Msxml2.ServerXMLHTTP")
WinHttpReq.Open("GET", "http://1212.ip138.com/ic.asp")
WinHttpReq.Send
\'正则表达式解析出外网IP
Dim str As String = WinHttpReq.ResponseText
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+")
If mc.count > 0 Then
msgbox(mc(0).value)
End If
-- 发布时间：2016/2/5 14:30:00
--
2、登陆事件有问题，你加入msgbox调试一下。
参考QQServer和QQClient的设计，如果出错，做具体例子上来测试。