| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 加密锁找不到会不停的弹出窗口，如何只弹出一个提示窗口？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169568) |
| -- 作者：hongyaoyu2019 -- 发布时间：2021/6/21 15:11:00 -- 加密锁找不到会不停的弹出窗口，如何只弹出一个提示窗口？ ukey做的加密锁，用qqserver控制服务器，如果找不到加密锁，程序会不停的弹出窗口，如何只弹出一个提示窗口？
|
| -- 作者：有点蓝 -- 发布时间：2021/6/21 15:13:00 -- 具体代码呢？ |
| -- 作者：hongyaoyu2019 -- 发布时间：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() |
| -- 作者：有点蓝 -- 发布时间：2021/6/21 15:23:00 -- 没看出来这些个代码和ukey有什么关系？ 弹出窗口的代码在哪？
|
| -- 作者：hongyaoyu2019 -- 发布时间：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
|
| -- 作者：有点蓝 -- 发布时间：2021/6/21 15:41:00 -- 代码放在什么事件的？贴出完整代码说明 |
| -- 作者：hongyaoyu2019 -- 发布时间：2021/6/21 15:53:00 -- 代码放在计划管理里面 |
| -- 作者：天宇科技 -- 发布时间：2021/6/21 15:59:00 -- 你用的是内置的UKEY，还是自己另外买的 |
| -- 作者：有点蓝 -- 发布时间：2021/6/21 16:10:00 -- 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 MyTimers(“计划1”).Enabled = False \'停止计划 MessageBox.Show("请插上博满公司提供的UKey!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
|
| -- 作者：hongyaoyu2019 -- 发布时间：2021/6/21 17:00:00 -- 买的狐表内置Ukey |