admin/P2EP_Toolkit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

CD extra & settings support

Browse Source 
Written on book
This commit is contained in:
sShemet
2025-10-24 22:03:21 +05:00
parent 00ad4163f9
commit 3475406781
52 changed files with 2731 additions and 926 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
p2isPSX_CDToolkit/Additions.vb
View File

@@ -6,7 +6,7 @@ Partial Class Form1
Private Sub ImportCode_Click(sender As Object, e As EventArgs) Handles ImportCode.Click
If Not UserRadio.Checked Then MsgBox("YOU CAN IMPORT ONLY IN USER ISO!!!") : Exit Sub
If Not UserRadio.Checked And Not CDExtraBtn.Checked Then MsgBox("YOU CAN IMPORT ONLY IN USER OR CDEXTRA ISO!!!") : Exit Sub
Dim cd = New ISOTools
@@ -22,10 +22,12 @@ Partial Class Form1
Dim f = File.ReadAllBytes(filee)
If fileInfo.Contains("SLPS_028.25") Then
If fileInfo.Contains("SLPS_028.25") And UserRadio.Checked Then
cd.saveCDfile(UserPath.Text, 27, UBound(f) + 1, f)
End If
If fileInfo.Contains("SLPS_028.26") And CDExtraBtn.Checked Then
cd.saveCDfile(CDEXTRApath.Text, 28, UBound(f) + 1, f)
End If
Next
@@ -37,8 +39,16 @@ Partial Class Form1
Private Sub ExpMainExe_Click(sender As Object, e As EventArgs) Handles ExpMainExe.Click
Dim iso = New ISOTools
Dim fil = iso.getCDfile(getFilnam, 27, 1812408)
SaveFileDialog1.FileName = WorkDir.Text & "SLPS_028.25"
Dim targetSector = 27
If CDExtraBtn.Checked Then targetSector = 28
Dim fil = iso.getCDfile(getFilnam, targetSector, 1812408)
Dim fn = ""
If CDExtraBtn.Checked Then
fn = "SLPS_028.26"
Else
fn = "SLPS_028.25"
End If
SaveFileDialog1.FileName = WorkDir.Text & fn
If SaveFileDialog1.ShowDialog <> DialogResult.OK Then Exit Sub
My.Computer.FileSystem.WriteAllBytes(SaveFileDialog1.FileName, fil.ToArray, False)