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


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

主题：单机软件获取用户使用状态方法
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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


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

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

是否仅有用客户端类定时提交信息到服务器统计使用情况信息这一条路么
定时提交如何做到用户无感提交
[此贴子已经被作者于2021/12/1 21:52:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：691 积分：6079 威望：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出错呀
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：691 积分：6079 威望：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  的效果
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：691 积分：6079 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2021/12/3 10:54:00 [显示全部帖子]

感谢 happy2010  

另有问题在五楼！烦请大咖指导！
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：691 积分：6079 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2021/12/3 11:13:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：691 积分：6079 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2021/12/3 11:25:00 [显示全部帖子]

我的理解是客户端只发送数据即可  不需要它再从服务端接收数据
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：691 积分：6079 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2021/12/3 11:36:00 [显示全部帖子]

明白了 感谢蓝版指导

 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：691 积分：6079 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2021/12/3 11:48:00 [显示全部帖子]

麻烦了 又遇到新的问题了  这个报错是什么问题呢


图片点击可在新窗口打开查看此主题相关图片如下：dingtalk_20211203114903.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/12/3 11:49:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：691 积分：6079 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2021/12/3 12:13:00 [显示全部帖子]

想客户端无感 就要这里没有任何提示   如何可以排除这个提示呢  或者判断一下 联通不了就不执行  烦请指导参考案例  谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：691 积分：6079 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2021/12/3 14:00:00 [显示全部帖子]

我先尝试了一下能不能ping 外网  发现不能ping通报错

图片点击可在新窗口打开查看此主题相关图片如下：dingtalk_20211203135857.jpg
图片点击可在新窗口打开查看
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询