📄 form1.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll"
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form Form1
BorderStyle = 4 'Fixed ToolWindow
Caption = "QQ综合查询工具（友情版）"
ClientHeight = 1665
ClientLeft = 45
ClientTop = 285
ClientWidth = 4710
ControlBox = 0 'False
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1665
ScaleWidth = 4710
ShowInTaskbar = 0 'False
Begin TabDlg.SSTab SSTab1
Height = 1665
Left = 0
TabIndex = 0
Top = 0
Width = 4695
_ExtentX = 8281
_ExtentY = 2937
_Version = 393216
TabOrientation = 1
Style = 1
Tabs = 5
Tab = 4
TabsPerRow = 5
TabHeight = 520
BackColor = 8421504
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "方正行楷简体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "QQ聊天"
TabPicture(0) = "Form1.frx":030A
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Command2"
Tab(0).Control(1)= "WebBrowser2"
Tab(0).Control(2)= "WebBrowser1"
Tab(0).Control(3)= "Command1"
Tab(0).Control(4)= "Text1"
Tab(0).ControlCount= 5
TabCaption(1) = "QQ相册"
TabPicture(1) = "Form1.frx":0326
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Command3"
Tab(1).Control(1)= "Text2"
Tab(1).ControlCount= 2
TabCaption(2) = "QQ资料"
TabPicture(2) = "Form1.frx":0342
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Command4"
Tab(2).Control(1)= "Text3"
Tab(2).ControlCount= 2
TabCaption(3) = "QQ空间"
TabPicture(3) = "Form1.frx":035E
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Command5"
Tab(3).Control(1)= "Text4"
Tab(3).Control(2)= "Label2"
Tab(3).ControlCount= 3
TabCaption(4) = "关于作者"
TabPicture(4) = "Form1.frx":037A
Tab(4).ControlEnabled= -1 'True
Tab(4).Control(0)= "Frame1"
Tab(4).Control(0).Enabled= 0 'False
Tab(4).ControlCount= 1
Begin VB.Frame Frame1
Height = 1335
Left = 120
TabIndex = 12
Top = 0
Width = 4455
Begin VB.CommandButton Command15
Caption = "作者博客"
Height = 375
Left = 3600
TabIndex = 22
Top = 120
Width = 855
End
Begin VB.CommandButton Command14
Caption = "QQ音乐"
Height = 375
Left = 2760
TabIndex = 21
Top = 480
Width = 855
End
Begin VB.CommandButton Command13
Caption = "QQ秀"
Height = 375
Left = 1920
TabIndex = 20
Top = 480
Width = 855
End
Begin VB.CommandButton Command12
Caption = "QQ许愿"
Height = 375
Left = 960
TabIndex = 19
Top = 480
Width = 975
End
Begin VB.CommandButton Command11
Caption = "QQ音乐"
Height = 375
Left = 0
TabIndex = 18
Top = 480
Width = 975
End
Begin VB.CommandButton Command10
Caption = "离开"
Height = 375
Left = 3600
TabIndex = 17
Top = 480
Width = 855
End
Begin VB.CommandButton Command9
Caption = "QQ下载"
Height = 375
Left = 2760
TabIndex = 16
Top = 120
Width = 855
End
Begin VB.CommandButton Command8
Caption = "QQ邮箱"
Height = 375
Left = 1920
TabIndex = 15
Top = 120
Width = 855
End
Begin VB.CommandButton Command7
Caption = "QQ申请"
Height = 375
Left = 960
TabIndex = 14
Top = 120
Width = 975
End
Begin VB.CommandButton Command6
Caption = "QQ充值"
Height = 375
Left = 0
TabIndex = 13
Top = 120
Width = 975
End
Begin VB.Label Label1
BackColor = &H80000006&
Caption = "此程序是写给我的好友（琦）学习之用。作者：小木鱼"
BeginProperty Font
Name = "方正行楷简体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000005&
Height = 255
Left = 0
TabIndex = 23
Top = 960
Width = 4455
End
End
Begin VB.CommandButton Command5
Caption = "查看"
Height = 375
Left = -73080
TabIndex = 11
Top = 300
Width = 1095
End
Begin VB.TextBox Text4
Height = 375
Left = -74760
TabIndex = 10
Text = "这里输入QQ号"
Top = 360
Width = 1575
End
Begin VB.CommandButton Command4
Caption = "查询"
Height = 375
Left = -73080
TabIndex = 9
Top = 300
Width = 1095
End
Begin VB.TextBox Text3
Height = 375
Left = -74760
TabIndex = 8
Text = "这里输入QQ号"
Top = 360
Width = 1575
End
Begin VB.CommandButton Command3
Caption = "查看相册"
Height = 375
Left = -73080
TabIndex = 7
Top = 300
Width = 1095
End
Begin VB.TextBox Text2
Height = 375
Left = -74760
TabIndex = 6
Text = "这里输入QQ号"
Top = 360
Width = 1575
End
Begin VB.CommandButton Command2
Caption = "是否在线"
Height = 375
Left = -73080
TabIndex = 5
Top = 840
Width = 1095
End
Begin SHDocVwCtl.WebBrowser WebBrowser2
Height = 975
Left = -71640
TabIndex = 4
Top = 240
Width = 975
ExtentX = 1720
ExtentY = 1720
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 = ""
End
Begin SHDocVwCtl.WebBrowser WebBrowser1
Height = 30
Left = -72960
TabIndex = 3
Top = 840
Width = 855
ExtentX = 1508
ExtentY = 53
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 = ""
End
Begin VB.CommandButton Command1
Caption = "聊天"
Height = 375
Left = -73080
TabIndex = 2
Top = 300
Width = 1095
End
Begin VB.TextBox Text1
Height = 375
Left = -74760
TabIndex = 1
Text = "这里输入QQ号"
Top = 360
Width = 1575
End
Begin VB.Label Label2
Caption = "作者：小木鱼；QQ282122585"
BeginProperty Font
Name = "方正行楷简体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = -72960
TabIndex = 24
Top = 960
Width = 2535
End
End
Begin WMPLibCtl.WindowsMediaPlayer WindowsMediaPlayer1
Height = 30
Left = 1080
TabIndex = 25
Top = 2040
Width = 3375
URL = "http://www.ggv.com.cn/wqx/wqxtribe/upload/files/2041/wynzdjSlyc9br.mp3"
rate = 1
balance = 0
currentPosition = 0
defaultFrame = ""
playCount = 1
autoStart = -1 'True
currentMarker = 0
invokeURLs = -1 'True
baseURL = ""
volume = 50
mute = 0 'False
uiMode = "full"
stretchToFit = 0 'False
windowlessVideo = 0 'False
enabled = -1 'True
enableContextMenu= -1 'True
fullScreen = 0 'False
SAMIStyle = ""
SAMILang = ""
SAMIFilename = ""
captioningID = ""
enableErrorDialogs= 0 'False
_cx = 5953
_cy = 53
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
End Sub
Private Sub Command1_Click()
Dim QQhao As String
QQhao = Text1.Text
WebBrowser1.Navigate "Tencent://Message/?Menu=YES&Exe=&Uin=" & QQhao
End Sub
Private Sub Command10_Click()
End
End Sub
Private Sub Command11_Click()
Shell "Explorer http://www.hackeryu.cn/"
End Sub
Private Sub Command12_Click()
Shell "Explorer http://i.qq.com/lovewall/index.jsp"
End Sub
Private Sub Command13_Click()
Shell "Explorer http://show.qq.com/"
End Sub
Private Sub Command14_Click()
Shell "Explorer http://music.qq.com/"
End Sub
Private Sub Command15_Click()
Shell "Explorer http://www.hackeryu.cn/Blog/default.asp"
End Sub
Private Sub Command2_Click()
Dim QQhao As String
QQhao = Text1.Text
WebBrowser2.Navigate "http://wpa.qq.com/pa?p=1:" & QQhao & ":4"
End Sub
Private Sub Command3_Click()
Dim QQhao As String
QQhao = Text2.Text
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://photo.qq.com/portal/albumMain.shtml?%23uin=" + QQhao + ""
End Sub
Private Sub Command4_Click()
Dim QQhao As String
QQhao = Text3.Text
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://bbs.qq.com/cgi-bin/bbs/friend/user_info_show?ln=" + QQhao + ""
End Sub
Private Sub Command5_Click()
Dim QQhao As String
QQhao = Text4.Text
Shell "Explorer http://" + QQhao + ".q-zone.qq.com/"
End Sub
Private Sub Command6_Click()
Shell "Explorer http://pay.qq.com/account.shtml"
End Sub
Private Sub Command7_Click()
Shell "Explorer http://freeqqm.qq.com/freereg.shtml"
End Sub
Private Sub Command8_Click()
Shell "Explorer http://mail.qq.com/"
End Sub
Private Sub Command9_Click()
Shell "Explorer http://im.qq.com/"
End Sub
Private Sub Form_Load()
Shell "Explorer http://www.hackeryu.cn/"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -