VB6做登录系统出错

li_yuan_fang( 2016-02-14 07:27:18
读取成功了,但判断总是不行,求解
有2个Text:Text1(用户名)、Text2(密码)
有一个按钮(登录)
当然还有一个Label1和一个Inet
Private Sub Command1_Click()
Label1.Caption = Inet1.OpenURL("http://xiaowenwen.w16.i93133.com/Users/" & Text1.Text & ".html")
If Label1.Caption = Text2.Text Then
MsgBox "成功登录!", 64, "提示"
Else
MsgBox "用户名或密码错误!", 16, "警告"
End If
End Sub

源码:http://pan.baidu.com/s/1mhnjga0
...全文
134 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
舉杯邀明月 2016-02-15
  • 打赏
  • 举报
回复
一是:你看看Label1.Caption的值,在Inet1.OpenURL() 返回后具体是什么内容。   如果“看起来跟密码一致”,你用 Len(Label1.Caption)再看看字符数是否真的相同。   一般来说,看起来一致并且字符数相同,应该是提示“登录成功”的;   如果Label1.Caption的字符多一些,你看看是不是多了回车、换行符这些。 第二就是,你给个本应“正常”但又不能通过这段代码验证的账号,让我们具体的测试一下问题在哪。
li_yuan_fang( 2016-02-15
  • 打赏
  • 举报
回复
引用 2 楼 zz202328 的回复:
把变量改为字符串试试,
谢了
zz202328 2016-02-14
  • 打赏
  • 举报
回复
把变量改为字符串试试,
  • 打赏
  • 举报
回复
可能字节数对不上,有一些空格和别的字符

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧