Board logo

标题: [问题求助] VB版QQ在线查询器为何打不开? [打印本页]

作者: ubcc    时间: 2011-2-15 23:21     标题: VB版QQ在线查询器为何打不开?

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form Form1
   BorderStyle     =   1  'Fixed Single
   Caption         =   "QQ在线查询器"
   ClientHeight    =   2895
   ClientLeft      =   5895
   ClientTop       =   5055
   ClientWidth     =   3765
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2895
   ScaleWidth      =   3765
   Begin VB.Frame Frame1
      Caption         =   "状态"
      Height          =   1395
      Left            =   180
      TabIndex        =   7
      Top             =   1320
      Width           =   2295
      Begin VB.Label Label3
         Alignment       =   2  'Center
         Caption         =   "等待"
         Height          =   255
         Left            =   120
         TabIndex        =   8
         Top             =   240
         Width           =   2055
      End
      Begin VB.Image Image4
         BorderStyle     =   1  'Fixed Single
         Height          =   390
         Left            =   540
         Picture         =   "Form1.frx":030A
         Top             =   720
         Visible         =   0   'False
         Width           =   1170
      End
      Begin VB.Image Image3
         BorderStyle     =   1  'Fixed Single
         Height          =   420
         Left            =   540
         Picture         =   "Form1.frx":168C
         Stretch         =   -1  'True
         Top             =   720
         Visible         =   0   'False
         Width           =   1185
      End
   End
   Begin VB.CommandButton Command3
      Caption         =   "留言 [&S]"
      Enabled         =   0   'False
      Height          =   315
      Left            =   2580
      TabIndex        =   6
      Top             =   1920
      Width           =   975
   End
   Begin SHDocVwCtl.WebBrowser WebBrowser1
      Height          =   1755
      Left            =   120
      TabIndex        =   5
      Top             =   3420
      Width           =   3015
      ExtentX         =   5318
      ExtentY         =   3096
      ViewMode        =   0
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   1
      AutoArrange     =   0   'False
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      NoWebView       =   0   'False
      HideFileNames   =   0   'False
      SingleClick     =   0   'False
      SingleSelection =   0   'False
      NoFolders       =   0   'False
      Transparent     =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   "http://home.51.com/zhuxiangtao1992"
   End
   Begin VB.CommandButton Command2
      Caption         =   "退出 [&Q]"
      Height          =   315
      Left            =   2580
      TabIndex        =   2
      Top             =   2400
      Width           =   975
   End
   Begin VB.CommandButton Command1
      Caption         =   "查询 [&F]"
      Default         =   -1  'True
      Enabled         =   0   'False
      Height          =   315
      Left            =   2580
      TabIndex        =   1
      Top             =   1440
      Width           =   975
   End
   Begin VB.ComboBox Combo1
      Height          =   300
      Left            =   1140
      TabIndex        =   0
      Top             =   960
      Width           =   2415
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "该程序让你不用登陆 QQ 也知道好友是否在线!"
      ForeColor       =   &H0000FF00&
      Height          =   495
      Left            =   960
      TabIndex        =   3
      Top             =   300
      Width           =   2595
   End
   Begin VB.Image Image2
      Height          =   480
      Left            =   240
      Picture         =   "Form1.frx":29B6
      Top             =   240
      Width           =   480
   End
   Begin VB.Image Image1
      BorderStyle     =   1  'Fixed Single
      Height          =   600
      Left            =   180
      Picture         =   "Form1.frx":2CC0
      Stretch         =   -1  'True
      Top             =   180
      Width           =   3405
   End
   Begin VB.Label Label2
      Caption         =   "对方号码: "
      Height          =   195
      Left            =   180
      TabIndex        =   4
      Top             =   1020
      Width           =   1695
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Change()
If Len(Combo1.Text) > 4 Then
Command1.Enabled = True
Command3.Enabled = True
Else
Command1.Enabled = False
Command3.Enabled = False
End If
End Sub
Private Sub Command1_Click()
WebBrowser1.Navigate "http://wpa.qq.com/pa?p=1:" & Combo1.Text & ":1"
Label3.Caption = "正在检查"
Combo1.AddItem Combo1.Text
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
    WebBrowser1.Navigate "http://wpa.qq.com/msgrd?V=1&Uin=" & Combo1.Text
End Sub
Private Sub Form_Load()
Me.Show
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
If URL = "http:///" Then Exit Sub
If URL = "http://wpslogo.qq.com/qq_online.gif" Then
Image3.Visible = True
Image4.Visible = False
Label3.Caption = "对方在线"
Else
Image3.Visible = False
Image4.Visible = True
Label3.Caption = "对方不在线"
End If
End Sub

[ 本帖最后由 ubcc 于 2011-2-15 23:24 编辑 ]
作者: 111    时间: 2013-1-8 17:17

另外的文件呢?




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2