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&
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才有的。