用新的HttpClient取代以前的OpenQQ获取新编号的方法。因为新用户注册，是用不了OpenQQ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用新的HttpClient取代以前的OpenQQ获取新编号的方法。因为新用户注册，是用不了OpenQQ

共有4276人关注过本帖树形打印复制链接主题：用新的HttpClient取代以前的OpenQQ获取新编号的方法。因为新用户注册，是用不了OpenQQ

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/12/23 8:40:00 [显示全部帖子]

用户ID允许断号不，如果允许，就不存在这个问题的了，每次取号+1，不管多少并发，都不会有重复的吧

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/12/23 9:27:00 [显示全部帖子]

就你上面的用法啊，用临时账户登录OpenQQ，不管有几个人注册，每次取号都会+1的啊

http://www.foxtable.com/webhelp/scr/3008.htm

Dim msg As String = e.Message
If msg.StartsWith(":f") AndAlso msg.EndsWith("f:") Then
    msg = msg.SubString(2, msg.Length - 4)
    If pdbhs.ContainsKey(msg) Then '如果存在这个类别的编号
        pdbhs(msg) = pdbhs(msg) + 1 '将该类别最大编号加1
    Else
        pdbhs.Add(msg,1) '如果是这个列表的首次编号,则编号等于1
    End If
    e.ReturnValue = pdbhs(msg) '将编号返回给客户端
End If

下一主题 >> << 上一主题

主题：用新的HttpClient取代以前的OpenQQ获取新编号的方法。因为新用户注册，是用不了OpenQQ