今天看啥
热点:

加一行:
判断(如果编辑框.1内容=“”)
则:
信息框(“请输入帐号”)
否则:
判断(编辑框2.内容=www.BbJia.cOm“”)
则:
信息框(“请输入密码”)
否则:
qq号=到文本。。。。。。。
提问者评价
谢谢!

易语言密码验证问题

由于不是每个qq用户都会开启邮箱smtp服务,所以这样验证可能有偏差

易语言验证qq密码

易语言怎么验证QQ和密码?

前提是这个QQ的邮箱开通邮箱smtp服务

.版本 2
.支持库 internet

.判断开始 (编辑框1.内容 = “”)
信息框 (“请输入QQ帐号!”, #信息图标, )
返回 ()
.判断 (编辑框2.内容 = “”)
信息框 (“请输入QQ密码!”, #信息图标, )
返回 ()
.默认

.判断结束
.如果 (连接发信服务器 (“smtp.qq.com”, 25, 编辑框1.内容, 编辑框2.内容, ) = 真)
信息框 (“登录成功 ”,, )

.否则
信息框 (“登录失败”, #错误图标, )
返回 ()
提问者评价
谢了。

易语言-VB的问题高手【进高分献上】

'新建工程,FORM1,加入一个timer控件跟一个command按钮Private Sub Command1_Click()Timer1.Enabled = True '点击按钮时设置Timer控件有效End SubPrivate Sub Form_Load() Me.Hide frmLogin.Show '加载登陆框Timer1.Interval = 3000 '3秒触发一次Timer1.Enabled = False '设置Timer控件无效End Sub Private Sub Timer1_Timer()MsgBox "已经过了3秒了!" '点击按钮3秒后弹出Timer1.Enabled = False '设置timer控件无效End Sub'添加窗体,名为frmLogin ,实现登陆功能Option Explicit Dim i As Integer 'i用来储存失败次数 Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() '设置全局变量为 false '不提示失败的登录 LoginSucceeded = False Me.Hide End Sub Private Sub cmdOK_Click() i = i + 1 '检查是否失败超过3次 If i > 3 Then MsgBox "连续3次输入错误的密码!" Unload Me '退出程序 End If '检查正确的密码 If txtPassword = "password" Then '将代码放在这里传递 '成功到 calling 函数 '设置全局变量时最容易的 LoginSucceeded = True Me.Hide Form1.Show '输入正确密码,显示你的程序界面, Else MsgBox "无效的密码,请重试!", , "登录" txtPassword.SetFocus SendKeys "{Home}+{End}" End If End Sub

www.bkjia.comtruehttp://www.bkjia.com/ruanjian/ruanjian195021.htmlTechArticle加一行: 判断(如果编辑框.1内容=“”) 则: 信息框(“请输入帐号”) 否则: 判断(编辑框2.内容=www.BbJia.cOm“”) 则: 信息框(“请...

相关文章

相关频道:

帮客评论

视觉看点