?? 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 + -