使用VB编写QQ2012登陆界面以及简单的判断功能&&&代码练习
Const TS As String =
Private Sub
Combo1_Change()
If Combo1.Text = "" Then
Image2.Picture = LoadPicture("D:\\VB\201213\
001\.picture.jpg")
ElseIf Combo1.Text = "" Then
Image2.Picture = LoadPicture("D:\\VB\201213\
001\.picture.jpg")
ElseIf Combo1.Text = "" Then
Image2.Picture = LoadPicture("D:\\VB\201213\
001\.picture.jpg")
Image2.Picture = LoadPicture("D:\\VB\201213\
001\QQ52.jpg")
Private Sub
Combo1_Click()
If Combo1.Text = "" Then
Image2.Picture = LoadPicture("D:\\VB\201213\
001\.picture.jpg")
ElseIf Combo1.Text = "" Then
Image2.Picture = LoadPicture("D:\\VB\201213\
001\.picture.jpg")
ElseIf Combo1.Text = "" Then
Image2.Picture = LoadPicture("D:\\VB\201213\
001\.picture.jpg")
Image2.Picture = LoadPicture("D:\\VB\201213\
001\QQ52.jpg")
Private Sub
Form_Load()
Label3.ForeColor = RGB(Int(Rnd() * 24), Int(Rnd() * 145), Int(Rnd()
Label4.ForeColor = RGB(Int(Rnd() * 24), Int(Rnd() * 145), Int(Rnd()
Combo1.AddItem ""
Combo1.AddItem ""
Combo1.AddItem ""
List1.AddItem ""
List1.AddItem ""
List1.AddItem ""
List1.AddItem ""
Option1.Caption = ""
Option2.Caption = ""
Command2.Caption = ""
Private Sub
Image3_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Image4.Picture = LoadPicture("D:\\VB\201213\
001\.jpg")
Label3.FontUnderline = False
Label4.FontUnderline = False
Private Sub
Image4_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Image4.Picture = LoadPicture("D:\\VB\201213\
001\2.jpg")
Private Sub
Image4_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Image4.MousePointer = 99
Image4.Picture = LoadPicture("D:\\VB\201213\
001\1.jpg")
Private Sub
Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y
As Single)
Image4.Picture = LoadPicture("D:\\VB\201213\
001\.jpg")
Private Sub
Image4_Click()
If Combo1.Text = "" Then
MsgBox "",
ElseIf Text1.Text = "" Then
MsgBox "",
If Combo1.Text = "" Then
&&&&&&&&&&&
If Text1.Text = "." Then
&&&&&&&&&&&
MsgBox "",
&&&&&&&&&&&
MsgBox "",
&&&&&&&&&&&
Text1.Text = ""&&&&&&&&&&&&&&&&&&&&
ElseIf Text1.Text && ""
&&&&&&&&&&&
MsgBox "",
&&&&&&&&&&&
Text1.Text = ""&&&&&&&&&&&&&&&&&&&&
ElseIf Combo1.Text = "" Then
If Text1.Text = "0000" Then
&&&&&&&&&&&
MsgBox "",
&&&&&&&MsgBox
&&&&&&&&&&&
Text1.Text = ""&&&&&&&&&&&&&&&&&&&&
ElseIf Text1.Text && ""
&&&&&&&&&&&
MsgBox "",
&&&&&&&&&&&
Text1.Text = ""&&&&&&&&&&&&&&&&&&&&
Combo1.Text = "" Then
If Text1.Text = "1111" Then
&&&&&&&&&&&
MsgBox "",
&&&&&&&&&&&
MsgBox "",
&&&&&&&&&&&
Text1.Text = ""&&&&&&&&&&&&&&&&&&&&
ElseIf Text1.Text && ""
&&&&&&&&&&&
MsgBox "",
&&&&&&&&&&&
Text1.Text = ""&&&&&&&&&&&&&&&&&&&&
ElseIf Text1.Text && "" And
Combo1.Text && "" And
Combo1.Text && "" And
Combo1.Text && ""
MsgBox "",
Combo1.Text = ""&&&&&&&&&&&&&&&&&&&
Text1.Text = ""&&&&&&&&&&&&&&&&&&&&
Private Sub
Command2_Click()
MsgBox "",
Private Sub
Label3_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Label3.MousePointer = 99
Label3.FontUnderline = True
Private Sub
Label3_Click()
Shell "explorer.exe
""/chs/index.html?from=client&ptlang=2052&ADUIN=0&ADSESSION=0&ADTAG=CLIENT.QQ.3847_NewAccount_Btn.0"""
Private Sub
Label4_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Label4.MousePointer = 99
Label4.FontUnderline = True
Private Sub
Label4_Click()
Shell "explorer.exe
""/cn2/findpsw/findpsw_index"""
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。后使用快捷导航没有帐号？
查看: 74559|回复: 131
新人欢迎积分1 阅读权限30积分142精华0UID8618589帖子金钱138 威望0
Lv.3, 积分 142, 距离下一级还需 108 积分
UID8618589帖子威望0 多玩草10 草信仰力0
请求版主高亮！
中国PSPQQ小组虎年新春首发-PSPQQ完美正式版（更新修复版本）&&
首先先感谢大家对我们的支持，我们不会辜负大家对我们的期望，这次发布的版本可以说是通过群众给我们的反馈而做出的版本！~
希望大家能喜欢这版本！~
& &我们经过了全动组员的精心测试和群众反馈给我们的建议，再次用大量的时间来一直做探讨。可以说此版本完美度达到85%，相信这个春节大家不会寂寞！~
&&再次祝大家虎年大吉，事事如意！
&&PSPQQ组员1号--野绿（零极星）
&&PSPQQ组员2号--2手爱情
&&PSPQQ组员3号--?云
&&PSPQQ组员4号--初音菊
&&PSPQQ组员5号--Dream@Sky]
&&PSPQQ组员6号--砖头
&&PSPQQ组员7号--魔君
代发帖人--sjy&&QQ:
(加QQ的时候请注明：PSP好友 ）
& && && && && && && && && && && && && && && &日大年初4（PSPQQ小组 贺）
& &此次完美版本更新：
& && &1.修改phine图标
& && &2.删除升级信息
& && &3.支持声音（wav，mp3现在是：你有一条短信息）
& && &4.支持所有文件接受，传输所有图片格式
& && &5.修改pspQQ标签
& && &6.优化文件内核，支持全速不卡
& && &7.支持挂机不掉线！
& && &8.支持语音（测试中，网络信号要保持90%以上）
& && &9，支持视频（优化，网络信号要保存在80%以上才能稳定）
& && &10，优化内存（从而使运行软件速度更快）
& && &11，统一输入模式（优化输入模式，使其使用打字操作更方便）
& && &&&此最终版本由腾讯公司所有，PSPQQ小组仅做修改！
& &PSPQQ版本操作说明：
& && &按住R键再短按O键：输入法切换
& && &按住L键再短按X键：删除文字
& && &短按X键：删除当前输入音节
& && &R+×：退格
& && &O键是(确定键!~)
& &&&摇杆方向是移动项目!`
& &&&start(是菜单目录确定键)
& &&&select(是菜单目录返回键)
& &&&R+L+□：查看当前网络连接（无连接时系统将自动提示连接）
& && &R+L+△：后台运行当前程序
& && &R+L+×：强制退出当前界面到主页（此功能无响应程序可以使用退出界面，在你***其他文件时可以退出***）
& &&&PSPQQ小组在此声明：如转载此贴请标明出处-多玩！~
& &&& 好了！~废话不多说！~
& &PSPQQ完美正式版本的修复版下载地址：
***说明：
& & 直接解压放在PSP/GAME文件夹中！（请遗留PSP空间250MB以上，还有组棒发现运行版本错误，我们也没办法解释！请购买行棒）
我们PSPQQ群：（欢迎大家来探讨）
关于2楼所说的打字，其实很简单，只要习惯了就好。
&&首先，登陆（这不用说了），点击好友，按圆圈，就出现键盘了！
详细情节，等下周在回复。
打字方法正式放出：
首先，登陆（这不用说了），点击好友，按圆圈，就出现键盘了！
PSPQQ界面输入帐号说明:
输密码时R+start切换输入法
1------------方块
2(a,b,c,2)------------上
3(d,e,f,3)------------三角
4(g,h,i,4)------------左
5(j,k,l,5)------------L+圆圈
6(m,n,o,6)------------右
7(p,q,r,s,7)------------L+方块
8(t,u,v,8)------------下
9(w,x,y,z,9)------------L+三角
0(+,=,*,#,%,&,^,\,&,~,[,],{,},&,&,|,`,$,0)------------叉叉
清除----------L+叉叉
输入法切换--------L+START
标点符号----------L加SELECT
PSPQQ聊天按键操作说明:
按住R键再短按O键：输入法切换
按住L键再短按X键：删除文字
短按X键：删除当前输入音节
R+×：退格
O键是(确定键!~)
摇杆方向是移动项目!`
start(是菜单目录确定键)
select(是菜单目录返回键)
R+L+□：查看当前网络连接（无连接时系统将自动提示连接）
R+L+△：后台运行当前程序
R+L+×：强制退出当前界面到主页（此功能无响应程序可以使用退出界面，在你***其他文件时可以退出***）
如不能登陆请更改IP设置具体：