📄 frmmain.frm
字号:
Caption = "安徽池州"
ForeColor = &H000000FF&
Height = 180
Index = 25
Left = 360
TabIndex = 26
Top = 2955
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 22
Left = 2340
TabIndex = 24
Top = 2595
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 21
Left = 1350
TabIndex = 23
Top = 2595
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 20
Left = 360
TabIndex = 22
Top = 2595
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 19
Left = 4320
TabIndex = 21
Top = 2235
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 16
Left = 1350
TabIndex = 20
Top = 2235
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 15
Left = 360
TabIndex = 19
Top = 2235
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 14
Left = 4320
TabIndex = 18
Top = 1875
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 12
Left = 2340
TabIndex = 17
Top = 1875
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 11
Left = 1350
TabIndex = 16
Top = 1875
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 10
Left = 360
TabIndex = 15
Top = 1875
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 9
Left = 4320
TabIndex = 14
Top = 1515
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 7
Left = 2340
TabIndex = 13
Top = 1515
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 6
Left = 1350
TabIndex = 12
Top = 1515
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 5
Left = 360
TabIndex = 11
Top = 1515
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 4
Left = 4320
TabIndex = 10
Top = 1155
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 2
Left = 2340
TabIndex = 9
Top = 1155
Width = 720
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 1
Left = 1350
TabIndex = 8
Top = 1155
Width = 720
End
Begin VB.Label lblMsg
BackStyle = 0 'Transparent
Caption = "点击开始测试网络速度"
ForeColor = &H00808080&
Height = 180
Left = 1920
TabIndex = 6
Top = 795
Width = 1800
End
Begin VB.Label List
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "安徽池州"
ForeColor = &H80000002&
Height = 180
Index = 0
Left = 360
TabIndex = 5
Top = 1155
Width = 720
End
Begin VB.Label listMsg
BackStyle = 0 'Transparent
Caption = "127.0.0.1"
ForeColor = &H00404040&
Height = 180
Index = 0
Left = 720
TabIndex = 4
Top = 3960
Width = 1350
End
Begin VB.Image cmdMax
Height = 225
Left = 5640
MouseIcon = "FrmMain.frx":4A5B
MousePointer = 99 'Custom
Picture = "FrmMain.frx":5325
Top = 120
Width = 255
End
Begin VB.Image cmdMin
Height = 225
Left = 5280
MouseIcon = "FrmMain.frx":53DA
MousePointer = 99 'Custom
Picture = "FrmMain.frx":5CA4
Top = 120
Width = 255
End
Begin VB.Image cmdExit
Height = 225
Left = 6000
MouseIcon = "FrmMain.frx":5D26
MousePointer = 99 'Custom
Picture = "FrmMain.frx":65F0
Top = 120
Width = 255
End
Begin VB.Label cmdButon
BackColor = &H80000003&
Caption = "Exit"
Height = 225
Index = 2
Left = 6960
TabIndex = 3
Top = 120
Width = 255
End
Begin VB.Label cmdButon
BackColor = &H80000003&
Caption = "Max"
Height = 225
Index = 1
Left = 6660
TabIndex = 2
Top = 120
Width = 255
End
Begin VB.Label cmdButon
BackColor = &H80000003&
Caption = "Min"
Height = 225
Index = 0
Left = 6360
TabIndex = 1
Top = 120
Width = 255
End
Begin VB.Label MoveFrm
BackColor = &H80000003&
Caption = "移动窗口"
Height = 460
Left = 2160
TabIndex = 0
Top = 15
Width = 2175
End
Begin VB.Label lblPC
BackColor = &H00008000&
ForeColor = &H000000FF&
Height = 180
Left = 5400
TabIndex = 42
Top = 5040
Width = 2050
End
Begin VB.Image imNumKbps
Height = 75
Index = 1
Left = 6360
Picture = "FrmMain.frx":669C
Top = 4320
Width = 165
End
Begin VB.Image imNumKbps
Height = 225
Index = 0
Left = 6360
Picture = "FrmMain.frx":6718
Top = 4350
Width = 165
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim WebPageDocument As String
Dim TitleText As String '网页标题获取
Dim NowWebTitle As String '获取当前测试网页标题
Dim vbPageNum As Integer '测试页的页数设置
Dim PcNum As Integer '打开网页次数设置
Dim LostNum As Integer '丢失次数设置
Dim snPCNum As Double '当前的Kbps数值
Private Sub about_Click()
FrmAbout.Show 1
End Sub
'顶部按钮 最大化.最小化.关闭等按钮特效
Private Sub cmdButon_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Index
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -