Foxtable(狐表)用户栏目专家坐堂 → 单机软件获取用户使用状态方法


  共有2739人关注过本帖树形打印复制链接

主题:单机软件获取用户使用状态方法

帅哥哟,离线,有人找我吗?
chen_sheng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:691 积分:6061 威望:0 精华:0 注册:2018/5/10 9:05:00
单机软件获取用户使用状态方法  发帖心情 Post By:2021/12/1 21:51:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:2b6c269aa33d5968.png
图片点击可在新窗口打开查看


计划开发一个单机软件,又不想用户账号登录云服务器验证账号与密码

雷同会计先生显示的统计信息

是否仅有用客户端类定时提交信息到服务器统计使用情况信息这一条路么
定时提交如何做到用户无感提交
[此贴子已经被作者于2021/12/1 21:52:22编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/12/2 8:52:00 [只看该作者]

向服务端发送消息参考:http://www.foxtable.com/mobilehelp/topics/0165.htm

或者使用openqq

 回到顶部
帅哥哟,离线,有人找我吗?
chen_sheng
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:691 积分:6061 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2021/12/3 9:32: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
Return mc(0).value

Else
Return Nothing
End If

这个解析外网ip出错呀

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/12/3 9:44:00 [只看该作者]

别人网站可能改了吧。这个我们没有办法控制的。

比较有保证的是,自己在服务器开一个服务,获取客户端的外网IP

 回到顶部
帅哥哟,离线,有人找我吗?
chen_sheng
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:691 积分:6061 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2021/12/3 10:48:00 [只看该作者]

Dim hcs As New HttpClient("https://ip.51240.com/")
Dim txt As String = hcs.GetData()
Dim pattern As String = "((2[0-4]\d|25[0-5]|[01]?\d\d?)\.){3}(2[0-4]\d|25[0-5]|[01]?\d\d?)"
Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Dim Matches As object = rgx.Matches(txt)
txt =  Matches.Item(0).Value

txt= "IP:" &  txt & " | 计算机:" & ComputerName & " | 操作系统:" & OSFullName  & " | 用户:" & UserName & " | 内存:" & TotalPhysicalMemory & " | 显示器分辨率:" & SysInfo.ScreenWidth & " * " & SysInfo.ScreenHeight   & " | 提交时间:" & Date.Now() 
Output.Show(txt)


Dim hc As New HttpClient("http://127.0.0.1/test.htm")
hc.Timeout = 5 '设置超时为5秒
hc.Content = txt
Dim ret As String = hc.GetData()
MessageBox.Show(ret)

Output.Show("代码结束")

客户端可以无感么  发现假如客户端红色代码注释服务端表内保存不了数据,想要服务端直接在表内 保存 e.PlainText  的效果


 回到顶部
帅哥哟,离线,有人找我吗?
happy2010
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:222 积分:2201 威望:0 精华:0 注册:2016/10/9 16:10:00
  发帖心情 Post By:2021/12/3 10:49:00 [只看该作者]

用这个,能获取外网IP
Dim WinHttpReq As Object = CreateObject("Msxml2.ServerXMLHTTP")
WinHttpReq.Open("GET", "http://pv.sohu.com/cityjson")
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
    'Return mc(0).value
Output.Show(mc(0).value)

Else
    Return Nothing
End If


 回到顶部
帅哥哟,离线,有人找我吗?
chen_sheng
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:691 积分:6061 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2021/12/3 10:54:00 [只看该作者]

感谢 happy2010  

另有问题在五楼!烦请大咖指导!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/12/3 11:01:00 [只看该作者]

没看懂,【客户端可以无感】指什么?

 回到顶部
帅哥哟,离线,有人找我吗?
chen_sheng
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:691 积分:6061 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2021/12/3 11:13:00 [只看该作者]

客户端 不执行红色代码 注释掉红色代码服务端可以收集客户端发送的e.PlainText

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/12/3 11:17:00 [只看该作者]

hc.GetData()肯定要执行,去掉MessageBox提示框即可

 回到顶部
总数 19 1 2 下一页