|
5精币
[e]
.版本 2
.支持库 iext
.子程序 _按钮1_被单击
ID = 编辑框_ID.内容
密码 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
返回结果 = 到文本 (网页_访问 (“http://www.xxx.com/report.asp”, 1, , , 到字节集 (“id=” + ID + “&t=chalogin&lookpass=” + 密码)))
.判断开始 (ID ≠ “”)
.计次循环首 (超级列表框1.取表项数 (), )
.判断开始 (寻找文本 (返回结果, “登录成功”, 1, 假) ≠ -1)
信息框 (“叮当”, 0, )
跳出循环 ()
.默认
.判断结束
超级列表框1.现行选中项 = 超级列表框1.现行选中项 + 1
_按钮1_被单击 ()
.计次循环尾 ()
.默认
信息框 (“ID不能为空”, 0, )
[/e]
密码正确以后 一直弹出那个信息框 我要求他只弹一次 怎么搞啊。。。
|
最佳答案
查看完整内容
我只弹一次哦!
[e]
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 ID, 文本型
.局部变量 只弹一次哦, 整数型
ID = 编辑框_ID.内容
密码 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
返回结果 = 到文本 (网页_访问 (“http://www.xxx.com/report.asp”, 1, , , 到字节集 (“id=” + ID + “&t=chalogin&lookpass=” + 密码)))
.判断开始 (ID ≠ “”)
.计次循环首 (超级列表框1.取 ...
|