加密锁找不到会不停的弹出窗口，如何只弹出一个提示窗口？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加密锁找不到会不停的弹出窗口，如何只弹出一个提示窗口？

共有3221人关注过本帖树形打印复制链接主题：加密锁找不到会不停的弹出窗口，如何只弹出一个提示窗口？

hongyaoyu2019

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

加好友

发短信

等级：幼狐帖子：56 积分：433 威望：0 精华：0 注册：2021/5/28 13:47:00

加密锁找不到会不停的弹出窗口，如何只弹出一个提示窗口？ 发帖心情

Post By：2021/6/21 15:11:00 [只看该作者]

ukey做的加密锁，用qqserver控制服务器，如果找不到加密锁，程序会不停的弹出窗口，如何只弹出一个提示窗口？

有点蓝

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

加好友

发短信

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

Post By：2021/6/21 15:13:00 [只看该作者]

具体代码呢？

hongyaoyu2019

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

加好友

发短信

等级：幼狐帖子：56 积分：433 威望：0 精华：0 注册：2021/5/28 13:47:00

Post By：2021/6/21 15:22:00 [只看该作者]

窗口表事件

窗口与控件事件

QQServer_AfterLoad

Dim btn1 As WinForm.Button = Forms("QQServer").Controls("Button1") '指定窗口按钮名称

Btn1.PerformClick() 'B操作窗口按钮

QQServer_Button1_Click

QQServer.ServerIp = e.Form.Controls("txtIP").Value '指定IP地址

QQServer.ServerPort = e.Form.Controls("txtPort").Value '指定端口

QQServer.HeartbeatInterval = e.Form.Controls("txtInterval").Value '指定心跳时间

QQServer.HeartbeatTimeout = e.Form.Controls("txtTimeOut").Value '指定心跳超时时间

QQserver.Buildin = True '一定要加上这个,表示使用内置身份验证

QQServer.Start() '启动QQServer

QQServer_Button2_Click

QQServer.Stop()

有点蓝

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

加好友

发短信

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

Post By：2021/6/21 15:23:00 [只看该作者]

没看出来这些个代码和ukey有什么关系？

弹出窗口的代码在哪？

hongyaoyu2019

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

加好友

发短信

等级：幼狐帖子：56 积分：433 威望：0 精华：0 注册：2021/5/28 13:47:00

Post By：2021/6/21 15:29:00 [只看该作者]

刚才搞错了，是这一段代码：不过刚才我试了一下，如果点"请插上博满公司提供的UKey!"提示对话框的X号，会一个一个窗口关；如果插上锁点确定，所有的提示窗口一起关，这样这个问题就不存在了。hui'fu

谢谢老师的回复。

If UKey.Encrypt2("Bmhmlj10jd") <> "D8675907D9B70B016A6400" And UKey.Encrypt2("bmhmlj1jd") <> "9AA8971AC54728356400" And UKey.Encrypt2("bmhmlj2jd") <> "A5424E7AA0077FEB6400" And UKey.Encrypt2("Bmhmlj5jd") <> "73389102138322A86400" And UKey.Encrypt2("bmlj1jd") <> "E66F8A4D5FCD387B" And UKey.Encrypt2("bmlj2jd") <> "1F0FCAB107F135C2" And UKey.Encrypt2("bmlj5jd") <> "B5C00CA9B785E767" And UKey.Encrypt2("bmlj10jd") <> "04E5E40C34F6442A00" And UKey.Encrypt2("bmhm1jd") <> "AE3847873475C132" And UKey.Encrypt2("bmhm2jd") <> "1769DBC4B3E7C302" And UKey.Encrypt2("bmhm5jd") <> "864C1DB07DF67EC6" And UKey.Encrypt2("bmhm10jd") <> "6063D830BC2C3CB100" Then

MessageBox.Show("请插上博满公司提供的UKey!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

DataTables.Save()

Syscmd.Project.Exit