以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自定义函数执行出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80884)
--  作者：13865161910
--  发布时间：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的设计，如果出错，做具体例子上来测试。