📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 3 'Fixed Dialog
Caption = "HDL_DUMP GUI"
ClientHeight = 3930
ClientLeft = 45
ClientTop = 330
ClientWidth = 6630
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3930
ScaleWidth = 6630
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame2
Caption = "操作选项"
Height = 3255
Left = 0
TabIndex = 11
Top = 50
Width = 4815
Begin VB.ComboBox Combo3
Enabled = 0 'False
Height = 300
Left = 120
Style = 2 'Dropdown List
TabIndex = 17
Top = 2760
Width = 4575
End
Begin VB.ComboBox Combo2
Enabled = 0 'False
Height = 300
Left = 120
Style = 2 'Dropdown List
TabIndex = 15
Top = 1080
Width = 4575
End
Begin VB.ComboBox Combo1
Height = 300
Left = 120
Style = 2 'Dropdown List
TabIndex = 13
Top = 480
Width = 4575
End
Begin VB.Label Label1
Height = 255
Index = 3
Left = 120
TabIndex = 19
Top = 2760
Visible = 0 'False
Width = 4575
End
Begin VB.Label Label1
Caption = "3.执行操作 一旦选中将无法撤销"
Height = 255
Index = 2
Left = 120
TabIndex = 18
Top = 2520
Width = 4575
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 855
Left = 120
TabIndex = 16
Top = 1560
Width = 4575
End
Begin VB.Label Label1
Caption = "2.选择可用操作"
Height = 255
Index = 1
Left = 120
TabIndex = 14
Top = 840
Width = 3255
End
Begin VB.Label Label1
Caption = "1.选择数据源"
Height = 255
Index = 0
Left = 120
TabIndex = 12
Top = 240
Width = 3255
End
End
Begin VB.Frame Frame1
Caption = "HDL_DUMP 设置"
Height = 3855
Index = 3
Left = 4920
TabIndex = 0
Top = 50
Width = 1695
Begin VB.CheckBox Check1
Caption = "自动阻塞控制"
Height = 255
Index = 0
Left = 120
TabIndex = 8
Top = 240
Width = 1455
End
Begin VB.CheckBox Check1
Caption = "开启ASPI支持"
Height = 255
Index = 1
Left = 120
TabIndex = 7
Top = 600
Width = 1455
End
Begin VB.CheckBox Check1
Caption = "28bit地址"
Height = 255
Index = 2
Left = 120
TabIndex = 6
Top = 960
Width = 1215
End
Begin VB.CheckBox Check1
Caption = "ToxicOS命名"
Height = 255
Index = 3
Left = 120
TabIndex = 5
Top = 1320
Width = 1335
End
Begin VB.CheckBox Check1
Caption = "使用压缩"
Height = 255
Index = 4
Left = 120
TabIndex = 4
Top = 1680
Width = 1095
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Index = 1
Left = 120
TabIndex = 3
Text = "未设置"
Top = 2400
Width = 1455
End
Begin VB.TextBox Text1
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Index = 2
Left = 120
TabIndex = 2
Text = "未设置"
Top = 3000
Width = 1455
End
Begin VB.CommandButton Command3
Caption = "应用设置"
Height = 375
Left = 120
TabIndex = 1
Top = 3360
Width = 1455
End
Begin VB.Label Label1
Caption = "默认IP"
Height = 255
Index = 5
Left = 120
TabIndex = 10
Top = 2160
Width = 735
End
Begin VB.Label Label1
Caption = "目标速率(KB/s)"
Height = 255
Index = 6
Left = 120
TabIndex = 9
Top = 2760
Width = 1335
End
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "for hdl_dump CLI"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 3480
TabIndex = 21
Top = 3720
Width = 1575
End
Begin VB.Label Label1
Caption = "HDLDUMP GUI"
BeginProperty Font
Name = "Times New Roman"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 4
Left = 0
TabIndex = 20
Top = 3450
Width = 3735
End
Begin VB.Menu main
Caption = ""
Enabled = 0 'False
Visible = 0 'False
Begin VB.Menu sta
Caption = ""
Enabled = 0 'False
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private WithEvents objDOS As DOSOutputs
Attribute objDOS.VB_VarHelpID = -1
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hicon As Long
szTip As String * 64
End Type
Private Type OPENFILENAME
nStructSize As Long
hWndOwner As Long
hInstance As Long
sFilter As String
sCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
sFile As String
nMaxFile As Long
sFileTitle As String
nMaxTitle As Long
sInitialDir As String
sDialogTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
sDefFileExt As String
nCustData As Long
fnHook As Long
sTemplateName As String
End Type
Dim nfIconData As NOTIFYICONDATA
Private Sub view(ByVal info As String)
Label1(3).Visible = True
Label1(3) = info
Frame2.Height = 3500
Combo3.Top = 3010
End Sub
Private Sub noview()
Label1(3).Visible = False
Frame2.Height = 3255
Combo3.Top = 2760
End Sub
Private Sub install(ByVal cmd As String)
way = 99 '长命令信号
Me.Hide
Call ShowIcon("等待系统消息")
objDOS.ExecuteCommand$ (cmd)
way = 0
Form1.Caption = "HDL_DUMP GUI"
Call HideIcon
Me.Show
End Sub
Sub ShowIcon(ByVal info As String)
With nfIconData
.hwnd = Me.hwnd
.uID = Me.Icon
.uFlags = 7
.uCallbackMessage = &H200
.hicon = Me.Icon.Handle
.szTip = info & Chr$(0)
.cbSize = Len(nfIconData)
End With
Call Shell_NotifyIcon(&H0, nfIconData)
End Sub
Sub NewIcon(ByVal info As String)
With nfIconData
.szTip = info & Chr$(0)
.cbSize = Len(nfIconData)
End With
Call Shell_NotifyIcon(&H1, nfIconData)
End Sub
Sub HideIcon()
Call Shell_NotifyIcon(&H2, nfIconData)
End Sub
Private Sub getdrv(ByVal info As String)
Dim temp As String
Dim a As Long
Dim b As Long
Dim c As Long
Dim i As Long
'初始化
Label2 = ""
Combo1.Clear
Combo2.Clear
Combo2.Enabled = False
Combo3.Clear
Combo3.Enabled = False
'查找硬盘的代码
For i = 0 To 4
a = InStr(info, "hdd" & i & ": ")
If a <> 0 Then
'每个硬盘信息
b = InStr(a, info, Chr$(13))
temp = RTrim(Mid$(info, a, b - a))
'判断格式
If temp Like "*" & "formatted Playstation 2 HDD" Then
Combo1.AddItem "PS2 " & temp
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -