| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]自定义用户登录的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110238) |
| -- 作者：xy0739 -- 发布时间：2017/11/29 16:29:00 -- [求助]自定义用户登录的问题 我想自己另外做个登录验证窗体，我在AfterOpenProject事件 写了以下代码： \'登陆 BaseMainForm.Visible = False Forms("FrmLogin").Open BaseMainForm.Visible = True ‘如果不加这句代码的话，密码验证正确之后主窗体再也起不来了（隐藏了）。。 如果加了这句话，发布项目后，直接不显示自定义的登录窗体，直接用默认的用户自动进入主程序。 请帮看看怎么解决这个？
|
| -- 作者：有点甜 -- 发布时间：2017/11/29 17:22:00 -- 窗口【FrmLogin】改成模式窗口。根本就没有你这种烦恼。 |
| -- 作者：xy0739 -- 发布时间：2017/11/29 21:07:00 -- 回复：（有点甜）窗口【FrmLogin】改成模式窗口。根本... 是模式窗口，直接进系统，根本就没有弹出来我自定义的登陆窗口。 |
| -- 作者：有点甜 -- 发布时间：2017/11/29 21:09:00 -- 其余代码删除，单独写这句
Forms("FrmLogin").Open
如果有问题，实例发上来测试 |
| -- 作者：xy0739 -- 发布时间：2017/11/29 21:25:00 -- 回复：（有点甜）其余代码删除，单独写这句 ... 其他都注释了，也是一样，后来想了想有一个窗口在测试的时候设置的是自动打开，将其关闭自动打开就OK了。 另外，OpenQQ这边怎么修改呢？ If QQClient.Ready Then MessageBox.show("MyQQClient已经启动，请先关闭！","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Return End If QQClient.ServerIP = "192.168.0.100" QQClient.ServerPort = "52177" If user.Type = UserTypeEnum.User Then \'如果是普通用户 QQClient.UserName ="" QQClient.Password = "" Else \'如果是开发者或管理员 Dim pwd As String If InputPassWord(pwd,"提示","请输入" & User.Name & "的密码:") Then QQClient.UserName = User.Name QQClient.Password = pwd Else Return End If End If If QQClient.Start() = True \'如果登录成功 \'e.Form.Controls("btnChat").Enabled = True Dim msg As String = "恭喜，OpenQQ登录成功！" If QQClient.ServerMessage > "" Then \'如果服务器返回了欢迎信息 msg = msg & QQClient.ServerMessage End If popMessage(msg,"提示",PopiconEnum.Infomation,3) Else \'如果登录失败,显示服务器返回错误信息 \'e.Form.Controls("btnChat").Enabled = False PopMessage("OpenQQ登录失败，原因：" & vbcrlf & QQClient.ServerMessage & "。","提示",PopiconEnum.Error,5) End If |
| -- 作者：有点甜 -- 发布时间：2017/11/29 21:30:00 -- 直接填入userName和password，不就行了？参考
http://www.foxtable.com/webhelp/scr/2972.htm
http://www.foxtable.com/webhelp/scr/2969.htm
|
| -- 作者：xy0739 -- 发布时间：2017/11/30 16:53:00 -- 回复：（有点甜）直接填入userName和password，不就行... 如何获取客户端本机IP？ |
| -- 作者：有点蓝 -- 发布时间：2017/11/30 17:16:00 -- 看 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=59092 |
| -- 作者：有点甜 -- 发布时间：2017/11/30 21:11:00 -- 以下是引用xy0739在2017/11/30 16:53:00的发言：
如何获取客户端本机IP？
WanIPAddress： 广域网IP和端口
http://www.foxtable.com/webhelp/scr/2979.htm |