VB高手进来!

来源：百度知道编辑：UC知道时间：2024/09/02 22:34:17

Dim QQpath As String
Dim QQnum As String
Dim QQpsw As String
Private Sub Form_Load()
'初始化控件
text1.Text = ""
Text2.Text = ""
Text2.PasswordChar = "*"

'窗体居中
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
vistaform1.frmCaption = "QQ登陆器 "

vistaform1.Captionlen = 120 '80是1个字,200是10个字 80-200
vistaform1.Move -1000 '移动vista控件到左边，以免影响美观
vistaform1.Captioncolor = &HFF9ACD32 '字体颜色
'读取QQ安装目录
Set Reg = CreateObject("Wscript.Shell")
QQpath = Reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
If QQpath = "" Then MsgBox "我找不到QQ路径哦~难道你没装？", vbCritical, "找不到QQ路径"
End Sub
Private Sub image1_Click()
'判断是否是珊瑚版的QQ
If Dir(QQpath & "coralQQ.exe") <> "" Then
QQpath = QQpath & "coralQQ.exe&

答案补充：把那4行开头是Vistaform的去掉即可，没有什么实际用处。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
你是不是把普通的Form当成VistaForm了？普通的Form当然是没有那样的方法的。

没有看到Str2QQPwdHash的函数体

“未找到方法或数据成员”你的使用的过程拼错了吧。。自己看看就知道。。

下面这4行先注释掉试试。

vistaform1.frmCaption = "QQ登陆器 "

vistaform1.Captionlen = 120 '80是1个字,200是10个字 80-200
vistaform1.Move -1000 '移动vista控件到左边，以免影响美观
vistaform1.Captioncolor = &HFF9ACD32 '字体颜色

vistaform是Vista才有的。

关于VB，VB高手进来~！请VB高手进来。 VB高手进来帮帮忙 VB高手进来！！！ vb编成高手进来 vb高手进来一下 VB 高手进来看看！ VB高手进来一下 VB高手进来拿分拉~！急救!!VB高手进来