📄 frmmain.frm
字号:
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form FrmMain
BorderStyle = 0 'None
Caption = "网络测速器"
ClientHeight = 10620
ClientLeft = 1575
ClientTop = 390
ClientWidth = 7650
Icon = "FrmMain.frx":0000
LinkTopic = "snFrmMain"
MaxButton = 0 'False
Picture = "FrmMain.frx":030A
ScaleHeight = 10620
ScaleWidth = 7650
Begin VB.Timer tmCheck
Interval = 100
Left = 4920
Top = 480
End
Begin SHDocVwCtl.WebBrowser snTest
Height = 3375
Left = 0
TabIndex = 41
Top = 7200
Width = 7575
ExtentX = 13361
ExtentY = 5953
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:///"
End
Begin VB.Timer tmLinks
Interval = 300
Left = 4440
Top = 480
End
Begin SHDocVwCtl.WebBrowser snTestWeb
Height = 1695
Left = 0
TabIndex = 7
Top = 5400
Width = 7575
ExtentX = 13361
ExtentY = 2990
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:///"
End
Begin VB.Label Label1
Height = 180
Left = 3120
TabIndex = 51
Top = 3600
Width = 2100
End
Begin VB.Label lbOK
BackStyle = 0 'Transparent
Caption = "测试完毕"
ForeColor = &H000000C0&
Height = 180
Left = 4680
TabIndex = 50
Top = 5040
Width = 720
End
Begin VB.Label lblPageNum
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00 000 30"
ForeColor = &H000000FF&
Height = 180
Left = 1080
TabIndex = 49
Top = 3240
Width = 2430
End
Begin VB.Label about
BackStyle = 0 'Transparent
Caption = "关于软件"
ForeColor = &H00000000&
Height = 180
Left = 6720
TabIndex = 48
Top = 5040
Width = 720
End
Begin VB.Image Image1
Height = 3270
Left = 5850
Picture = "FrmMain.frx":4765
Top = 1215
Width = 1230
End
Begin VB.Label listMsg
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "10000 Kbps "
ForeColor = &H00008000&
Height = 180
Index = 5
Left = 3600
TabIndex = 47
Top = 4560
Width = 990
End
Begin VB.Label listMsg
BackStyle = 0 'Transparent
Caption = "2007-10-19 00:00:00"
ForeColor = &H00404040&
Height = 180
Index = 4
Left = 3480
TabIndex = 46
Top = 4260
Width = 1710
End
Begin VB.Label listMsg
BackStyle = 0 'Transparent
Caption = "IE"
ForeColor = &H00404040&
Height = 180
Index = 3
Left = 3240
TabIndex = 45
Top = 3960
Width = 2010
End
Begin VB.Label listMsg
BackStyle = 0 'Transparent
Caption = "XP/2K/Me/Linux"
ForeColor = &H00404040&
Height = 180
Index = 2
Left = 1200
TabIndex = 44
Top = 4560
Width = 1215
End
Begin VB.Label listMsg
BackStyle = 0 'Transparent
Caption = "XX省XX市"
ForeColor = &H00404040&
Height = 180
Index = 1
Left = 840
TabIndex = 43
Top = 4260
Width = 1080
End
Begin VB.Label lblMsgLink
BackStyle = 0 'Transparent
Caption = "数据连接中....."
BeginProperty Font
Name = "华文新魏"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 315
Left = 1320
TabIndex = 32
Top = 2040
Width = 2175
End
Begin VB.Label lblNowPC
BackStyle = 0 'Transparent
Caption = "状态：初始化完成，正在数据连接...."
ForeColor = &H00FF0000&
Height = 180
Left = 120
TabIndex = 40
Top = 5040
Width = 4650
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 24
Left = 4320
TabIndex = 25
Top = 2595
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 29
Left = 4320
TabIndex = 29
Top = 2955
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 17
Left = 2340
TabIndex = 39
Top = 2235
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 3
Left = 3330
TabIndex = 38
Top = 1155
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 8
Left = 3330
TabIndex = 37
Top = 1515
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 13
Left = 3330
TabIndex = 36
Top = 1875
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 18
Left = 3330
TabIndex = 35
Top = 2235
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 23
Left = 3330
TabIndex = 34
Top = 2595
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 28
Left = 3330
TabIndex = 33
Top = 2955
Width = 720
End
Begin VB.Label MoveN
BackStyle = 0 'Transparent
Caption = "下一页"
ForeColor = &H00FF0000&
Height = 180
Left = 4560
TabIndex = 31
Top = 3240
Width = 540
End
Begin VB.Label MoveP
BackStyle = 0 'Transparent
Caption = "上一页"
ForeColor = &H00FF0000&
Height = 180
Left = 3960
TabIndex = 30
Top = 3240
Width = 540
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 27
Left = 2340
TabIndex = 28
Top = 2955
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 26
Left = 1350
TabIndex = 27
Top = 2955
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -