批处理之家 - Powered by Discuz! Board

标题: [问题求助] 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/)