新建 文本文档.txt

来自「hdl_dump(ps2灌硬盘的软件)的gui 含大量api」· 文本 代码 · 共 83 行

chkinput
If getname = "" Then
       getname = InputBox("自行输入游戏名称，建议升级数据库！", "未找到有效数据！")
    End If




DVD 3402720KB "" "SLUS_215.77"
dual-layer DVD 8333664KB "GODOFWAR2" "SCUS_974.81"



媒体     大小            选项 启动标示     名称
DVD 4331872KB               3 SLUS_211.34  re4
DVD 3941440KB               3 SLUS_212.51  flat2
DVD 4491040KB               3 SLPS_254.78  gudum
DVD 3328608KB             7+8 SCPS_150.45  wen2
DVD 2375648KB               3 SLUS_209.51  vjoe
total 38144MB, used 19840MB, available 18304MB


类型   起始地址   块数  大小 名称
0x0001 00000000.:  1   128MB __mbr
0x1337 00040000.:  8  4352MB PP.HDL.re4
0x1337 008c0000.:  6  3968MB PP.HDL.flat2
0x1337 01080000.:  7  4480MB PP.HDL.gudum
0x0100 01940000.:  1   128MB HDLoader Settings
0x1337 01980000.:  4  3328MB PP.HDL.wen2
0x0100 01a00000.:  1  1024MB +other
0x1337 02200000.:  4  2432MB PP.HDL.vjoe
Total slice size: 38154MB, used: 19840MB, available: 18304MB



Private Function chknet(ByVal info As String) As Long
   If objDOS.ExecuteCommand$("ping " & info & " -w 2500 -n 1") Like "*(100% loss)*" Then
      '设置了ping xxx 一次2.5秒的检查接通时间
      chknet = 0 '无法接通退出
      MsgBox "无法接通的网络硬盘！"
      Exit Function
   ElseIf Len(objDOS.ExecuteCommand$("hdl_dump diag " & info)) > 5 Then
      '判断PS2格式
      chknet = 1 '可接通但不是ps2
      MsgBox "不是PS2格式的网络硬盘或数据已损坏！"
   Else
      chknet = 2 '可接通ps2
   End If
End Function





Private Sub Command1_Click()
Label1(3).Visible = True
Label1(3) = "dsfhdsfhsis"
Frame2.Height = 3500
Combo3.Top = 3010
End Sub
   
   a = GetSaveFileName(OFN)
   If a >= 1 Then
      
      If Len(Dir(OFN.sFile)) <> 0 Then
         a = MsgBox("确实要删除已存在的镜像:" & OFN.sFile, vbOKCancel)
         Select Case a
                Case 1
                     Kill OFN.sFile
                     Text2.Text = OFN.sFile
                Case 2
                     Text2.Text = "点击选择镜像"
                Case Else
                     MsgBox "错误!"
                     End
         End Select
      Else
         Text2.Text = OFN.sFile
      End If

   Else
      Text2.Text = "点击选择镜像"
   End If