[转载]使用VB编写QQ2012登陆界面以及简单的判断功能 – 代码练_彭世瑜_新浪博客...

使用VB编写QQ2012登陆界面以及简单的判断功能 – 代码练习

作者：沈晨        编写用时：2个半小时

 

 

Const TS As String = "登录提示："

 

    '当输入帐号时

Private Sub Combo1_Change()

 

    '向对应的帐号添加对应的图片

    If Combo1.Text = "1161738714" Then

        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011161738714.picture.jpg")

    ElseIf Combo1.Text = "1179845640" Then

        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011179845640.picture.jpg")

    ElseIf Combo1.Text = "1079788293" Then

        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011079788293.picture.jpg")

    Else

        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001QQ截图20120316142952.jpg")

    End If

   

End Sub

 

    '当点击下拉列表框选择帐号时

Private Sub Combo1_Click()

 

    '向对应的帐号添加对应的图片

    If Combo1.Text = "1161738714" Then

        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011161738714.picture.jpg")

    ElseIf Combo1.Text = "1179845640" Then

        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011179845640.picture.jpg")

    ElseIf Combo1.Text = "1079788293" Then

        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 0011079788293.picture.jpg")

    Else

        Image2.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001QQ截图20120316142952.jpg")

    End If

   

End Sub

 

Private Sub Form_Load()

    '改变指定 组件 字体的颜色

     Label3.ForeColor = RGB(Int(Rnd() * 24), Int(Rnd() * 145), Int(Rnd() * 255))

     Label4.ForeColor = RGB(Int(Rnd() * 24), Int(Rnd() * 145), Int(Rnd() * 255))

   

    '向 组件 添加内容

    Combo1.AddItem "1161738714"

    Combo1.AddItem "1179845640"

    Combo1.AddItem "1079788293"

       

    '向 组件 添加内容

    List1.AddItem "在线"

    List1.AddItem "隐身"

    List1.AddItem "离开"

    List1.AddItem "忙碌"

   

    '向 组件 添加内容

    Option1.Caption = "记住密码"

    Option2.Caption = "自动登录"

   

    '向 组件 添加内容

    Command2.Caption = "网络设置"

   

End Sub

 

    '当鼠标移到 登录 图片外 （组件 Imager3 前）改变图片

Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Image4.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001登录.jpg")

    '改变字体  -->  不显示字体下划线

    Label3.FontUnderline = False

    Label4.FontUnderline = False

End Sub

 

    '当鼠标按下 登录 图片时 改变图片

Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Image4.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001登录2.jpg")

End Sub

 

    '当鼠标移到 登录 图片内 改变图片

Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    '当鼠标移到可链接 字体上方时 改变鼠标图案为 手指状

    Image4.MousePointer = 99

    Image4.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001登录1.jpg")

End Sub

 

    '当鼠标抬起 登录 图片时 改变图片

Private Sub Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Image4.Picture = LoadPicture("D:沈晨VB2012年1—3月2012-03-16 001登录.jpg")

End Sub

 

Private Sub Image4_Click()

 

    '判断 帐号 是否为空

    If Combo1.Text = "" Then

        MsgBox "请您输入帐号后再登录！", , TS

    '判断 密码 是否为空

    ElseIf Text1.Text = "" Then

        MsgBox "请您输入密码后再登录！", , TS

    End If

   

    '判断输入的 帐号密码 是否正确

    If Combo1.Text = "1161738714" Then

           

        If Text1.Text = "86573178." Then

            MsgBox "登陆成功！", , TS

            MsgBox "此软件为测试软件，不含联网登录功能！", , TS

            Text1.Text = ""                     '文本框内容改为空

 

        ElseIf Text1.Text <> "" Then

            MsgBox "密码输入错误！", , TS

            Text1.Text = ""                     '文本框内容改为空

        End If

       

    ElseIf Combo1.Text = "1179845640" Then

   

        If Text1.Text = "0000" Then

            MsgBox "登陆成功！", , TS

            MsgBox "此软件为测试软件，不含联网登录功能！", , TS

            Text1.Text = ""                     '文本框内容改为空

        ElseIf Text1.Text <> "" Then

            MsgBox "密码输入错误！", , TS

            Text1.Text = ""                     '文本框内容改为空

        End If

       

    ElseIf Combo1.Text = "1079788293" Then

   

        If Text1.Text = "1111" Then

            MsgBox "登陆成功！", , TS

            MsgBox "此软件为测试软件，不含联网登录功能！", , TS

            Text1.Text = ""                     '文本框内容改为空

        ElseIf Text1.Text <> "" Then

            MsgBox "密码输入错误！", , TS

            Text1.Text = ""                     '文本框内容改为空

        End If

   

    ElseIf Text1.Text <> "" And Combo1.Text <> "1161738714" And Combo1.Text <> "1179845640" And Combo1.Text <> "1079788293" Then

        MsgBox "帐号不存在，请重新输入！", , TS

        Combo1.Text = ""                    '内容改为空

        Text1.Text = ""                     '文本框内容改为空

       

    End If

   

End Sub

 

Private Sub Command2_Click()

    '消息框提示

    MsgBox "此功能尚未开启，敬请期待！", , "消息提示："

End Sub

 

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    '当鼠标移到可链接 字体上方时 改变鼠标图案为 手指状

    Label3.MousePointer = 99

    '当鼠标移到 Label3 组件内时，字体添加下划线

    Label3.FontUnderline = True

End Sub

 

    '点击 组件时转到指定的网站

Private Sub Label3_Click()

    Shell "explorer.exe ""http://zc.qq.com/chs/index.html?from=client&ptlang=2052&ADUIN=0&ADSESSION=0&ADTAG=CLIENT.QQ.3847_NewAccount_Btn.0"""

End Sub

 

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    '当鼠标移到可链接 字体上方时 改变鼠标图案为 手指状

    Label4.MousePointer = 99

    '当鼠标移到 Label4 组件内时，字体添加下划线

    Label4.FontUnderline = True

End Sub

 

    '点击 组件时转到指定的网站

Private Sub Label4_Click()

    Shell "explorer.exe ""http://aq.qq.com/cn2/findpsw/findpsw_index"""

End Sub

  

 

 

主要的功能截图：

 

程序运行界面：

 

判断帐户并改变图案

 

 

判断帐户为空时：

 

 

判断帐号不存在时：

 

 

判断密码输入错误时：

 

 

判断密码为空时：

 

 

当点击网络设置时：

 

 

 

其它的功能就不再演示了，自己可以试试。比如：1、点击“注册帐号”时，自动打开IE并链接到相应的网站！2、密码输入错误时，自动清空密码框中的内容，等等！