|
1 | 1 | Public Class PS4Menu |
2 | 2 |
|
| 3 | +#Region "Tools" |
| 4 | + |
| 5 | + Private Sub OpenPUPExtractorMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenPUPExtractorMenuItem.Click |
| 6 | + Dim NewPUPExtractor As New PUPExtractor() With {.ShowActivated = True} |
| 7 | + NewPUPExtractor.Show() |
| 8 | + End Sub |
| 9 | + |
| 10 | + Private Sub OpenUSBWriterMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenUSBWriterMenuItem.Click |
| 11 | + Dim NewUSBWriter As New USBWriter() With {.ShowActivated = True} |
| 12 | + NewUSBWriter.Show() |
| 13 | + End Sub |
| 14 | + |
| 15 | + Private Sub OpenPayloadSenderMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenPayloadSenderMenuItem.Click |
| 16 | + Dim NewPKGSender As New PS5Sender() With {.ShowActivated = True} |
| 17 | + NewPKGSender.Show() |
| 18 | + End Sub |
| 19 | + |
| 20 | + Private Sub OpenFTPBrowserMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenFTPBrowserMenuItem.Click |
| 21 | + Dim NewFTPBrowser As New FTPBrowser() With {.ShowActivated = True} |
| 22 | + NewFTPBrowser.Show() |
| 23 | + End Sub |
| 24 | + |
| 25 | + Private Sub OpenParamSFOEditorMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenParamSFOEditorMenuItem.Click |
| 26 | + Dim NewSFOEditor As New SFOEditor() With {.ShowActivated = True} |
| 27 | + NewSFOEditor.Show() |
| 28 | + End Sub |
| 29 | + |
| 30 | + Private Sub OpenPKGMergerMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenPKGMergerMenuItem.Click |
| 31 | + Dim NewPS4PKGMerger As New PS5PKGMerger() With {.ShowActivated = True} |
| 32 | + NewPS4PKGMerger.Show() |
| 33 | + End Sub |
| 34 | + |
| 35 | + Private Sub OpenPPPwnerMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenPPPwnerMenuItem.Click |
| 36 | + Dim NewPPPwner As New PPPwner() With {.ShowActivated = True} |
| 37 | + NewPPPwner.Show() |
| 38 | + End Sub |
| 39 | + |
| 40 | + Private Sub CheckForUpdatesMenuItems_Click(sender As Object, e As RoutedEventArgs) Handles CheckForUpdatesMenuItems.Click |
| 41 | + If Utils.IsPSMultiToolsUpdateAvailable() Then |
| 42 | + If MsgBox("An update is available, do you want to download it now ?", MsgBoxStyle.YesNo, "PS Multi Tools Update found") = MsgBoxResult.Yes Then |
| 43 | + Utils.DownloadAndExecuteUpdater() |
| 44 | + End If |
| 45 | + Else |
| 46 | + MsgBox("PS Multi Tools is up to date!", MsgBoxStyle.Information, "No update found") |
| 47 | + End If |
| 48 | + End Sub |
| 49 | + |
| 50 | + Private Sub OpenPKGExtractorMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenPKGExtractorMenuItem.Click |
| 51 | + Dim NewPKGExtractor As New PS4PKGExtractor() With {.ShowActivated = True} |
| 52 | + NewPKGExtractor.Show() |
| 53 | + End Sub |
| 54 | + |
| 55 | + Private Sub OpenPSClassicsfPKGBuilderMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenPSClassicsfPKGBuilderMenuItem.Click |
| 56 | + Dim NewPSClassicsfPKGBuilder As New PSClassicsfPKGBuilder() With {.ShowActivated = True} |
| 57 | + NewPSClassicsfPKGBuilder.Show() |
| 58 | + End Sub |
| 59 | + |
| 60 | +#End Region |
| 61 | + |
3 | 62 | #Region "Menu Downloads" |
4 | 63 |
|
5 | | -#Region "Hosts" |
| 64 | +#Region "Hosts & Exploits" |
6 | 65 |
|
7 | 66 | Private Sub Download405Host_Click(sender As Object, e As RoutedEventArgs) Handles Download405Host.Click |
8 | 67 | Dim NewDownloader As New Downloader() With {.ShowActivated = True} |
|
112 | 171 | End If |
113 | 172 | End Sub |
114 | 173 |
|
| 174 | + Private Sub OpenPPPwnGitHub_Click(sender As Object, e As RoutedEventArgs) Handles OpenPPPwnGitHub.Click |
| 175 | + Process.Start("https://github.com/TheOfficialFloW/PPPwn") |
| 176 | + End Sub |
| 177 | + |
| 178 | + Private Sub OpenPPPwnTool_Click(sender As Object, e As RoutedEventArgs) Handles OpenPPPwnTool.Click |
| 179 | + Dim NewPPPwner As New PPPwner() With {.ShowActivated = True} |
| 180 | + NewPPPwner.Show() |
| 181 | + End Sub |
| 182 | + |
115 | 183 | #End Region |
116 | 184 |
|
117 | | -#Region "Homebrew" |
| 185 | +#Region "Homebrew & Payloads" |
118 | 186 |
|
119 | 187 | Private Sub DownloadApolloST_Click(sender As Object, e As RoutedEventArgs) Handles DownloadApolloST.Click |
120 | 188 | Dim NewDownloader As New Downloader() With {.ShowActivated = True} |
121 | 189 | NewDownloader.Show() |
122 | | - If NewDownloader.CreateNewDownload("http://X.X.X.X/ps4/hb/ApolloSaveTool_V1.4.0.pkg") = False Then |
123 | | - MsgBox("Could not download the selected file.", MsgBoxStyle.Critical) |
124 | | - NewDownloader.Close() |
125 | | - End If |
126 | | - End Sub |
127 | | - |
128 | | - Private Sub DownloadApolloSTGithub_Click(sender As Object, e As RoutedEventArgs) Handles DownloadApolloSTGithub.Click |
129 | | - Dim NewDownloader As New Downloader() With {.ShowActivated = True} |
130 | | - NewDownloader.Show() |
131 | | - If NewDownloader.CreateNewDownload("https://github.com/bucanero/apollo-ps4/releases/latest/download/IV0000-APOL00004_00-APOLLO0000140PS4.pkg") = False Then |
| 190 | + If NewDownloader.CreateNewDownload("https://github.com/bucanero/apollo-ps4/releases/download/v1.6.0/IV0000-APOL00004_00-APOLLO0000000PS4.pkg") = False Then |
132 | 191 | MsgBox("Could not download the selected file.", MsgBoxStyle.Critical) |
133 | 192 | NewDownloader.Close() |
134 | 193 | End If |
|
152 | 211 | End If |
153 | 212 | End Sub |
154 | 213 |
|
155 | | - Private Sub DownloadGoldHEN505_Click(sender As Object, e As RoutedEventArgs) Handles DownloadGoldHEN505.Click |
156 | | - Dim NewDownloader As New Downloader() With {.ShowActivated = True} |
157 | | - NewDownloader.Show() |
158 | | - If NewDownloader.CreateNewDownload("https://raw.githubusercontent.com/GoldHEN/GoldHEN/master/goldhen_2.3_505.bin") = False Then |
159 | | - MsgBox("Could not download the selected file.", MsgBoxStyle.Critical) |
160 | | - NewDownloader.Close() |
161 | | - End If |
162 | | - End Sub |
163 | | - |
164 | | - Private Sub DownloadGoldHEN672_Click(sender As Object, e As RoutedEventArgs) Handles DownloadGoldHEN672.Click |
| 214 | + Private Sub DownloadGoldHEN_Click(sender As Object, e As RoutedEventArgs) Handles DownloadGoldHEN.Click |
165 | 215 | Dim NewDownloader As New Downloader() With {.ShowActivated = True} |
166 | 216 | NewDownloader.Show() |
167 | | - If NewDownloader.CreateNewDownload("https://raw.githubusercontent.com/GoldHEN/GoldHEN/master/goldhen_2.3_672.bin") = False Then |
168 | | - MsgBox("Could not download the selected file.", MsgBoxStyle.Critical) |
169 | | - NewDownloader.Close() |
170 | | - End If |
171 | | - End Sub |
172 | | - |
173 | | - Private Sub DownloadGoldHEN900_Click(sender As Object, e As RoutedEventArgs) Handles DownloadGoldHEN900.Click |
174 | | - Dim NewDownloader As New Downloader() With {.ShowActivated = True} |
175 | | - NewDownloader.Show() |
176 | | - If NewDownloader.CreateNewDownload("https://raw.githubusercontent.com/GoldHEN/GoldHEN/master/goldhen_2.3_900.bin") = False Then |
| 217 | + If NewDownloader.CreateNewDownload("https://github.com/GoldHEN/GoldHEN/blob/beta/goldhen.bin") = False Then |
177 | 218 | MsgBox("Could not download the selected file.", MsgBoxStyle.Critical) |
178 | 219 | NewDownloader.Close() |
179 | 220 | End If |
|
401 | 442 |
|
402 | 443 | #End Region |
403 | 444 |
|
404 | | -#Region "Tools" |
| 445 | +#Region "Utilities" |
405 | 446 |
|
406 | 447 | Private Sub DownloadDiscDumperVTX405_Click(sender As Object, e As RoutedEventArgs) Handles DownloadDiscDumperVTX405.Click |
407 | 448 | Dim NewDownloader As New Downloader() With {.ShowActivated = True} |
|
510 | 551 |
|
511 | 552 | #End Region |
512 | 553 |
|
513 | | -#Region "Tools" |
514 | | - |
515 | | - Private Sub OpenPUPExtractorMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenPUPExtractorMenuItem.Click |
516 | | - Dim NewPUPExtractor As New PUPExtractor() With {.ShowActivated = True} |
517 | | - NewPUPExtractor.Show() |
518 | | - End Sub |
519 | | - |
520 | | - Private Sub OpenUSBWriterMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenUSBWriterMenuItem.Click |
521 | | - Dim NewUSBWriter As New USBWriter() With {.ShowActivated = True} |
522 | | - NewUSBWriter.Show() |
523 | | - End Sub |
524 | | - |
525 | | - Private Sub OpenPayloadSenderMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenPayloadSenderMenuItem.Click |
526 | | - Dim NewPKGSender As New PS5Sender() With {.ShowActivated = True} |
527 | | - NewPKGSender.Show() |
528 | | - End Sub |
529 | | - |
530 | | - Private Sub OpenFTPBrowserMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenFTPBrowserMenuItem.Click |
531 | | - Dim NewFTPBrowser As New FTPBrowser() With {.ShowActivated = True} |
532 | | - NewFTPBrowser.Show() |
533 | | - End Sub |
534 | | - |
535 | | - Private Sub OpenParamSFOEditorMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenParamSFOEditorMenuItem.Click |
536 | | - Dim NewSFOEditor As New SFOEditor() With {.ShowActivated = True} |
537 | | - NewSFOEditor.Show() |
538 | | - End Sub |
539 | | - |
540 | | - Private Sub OpenPKGMergerMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenPKGMergerMenuItem.Click |
541 | | - Dim NewPS4PKGMerger As New PS5PKGMerger() With {.ShowActivated = True} |
542 | | - NewPS4PKGMerger.Show() |
543 | | - End Sub |
544 | | - |
545 | | - Private Sub OpenPPPwnerMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenPPPwnerMenuItem.Click |
546 | | - Dim NewPPPwner As New PPPwner() With {.ShowActivated = True} |
547 | | - NewPPPwner.Show() |
548 | | - End Sub |
549 | | - |
550 | | - Private Sub CheckForUpdatesMenuItems_Click(sender As Object, e As RoutedEventArgs) Handles CheckForUpdatesMenuItems.Click |
551 | | - If Utils.IsPSMultiToolsUpdateAvailable() Then |
552 | | - If MsgBox("An update is available, do you want to download it now ?", MsgBoxStyle.YesNo, "PS Multi Tools Update found") = MsgBoxResult.Yes Then |
553 | | - Utils.DownloadAndExecuteUpdater() |
554 | | - End If |
555 | | - Else |
556 | | - MsgBox("PS Multi Tools is up to date!", MsgBoxStyle.Information, "No update found") |
557 | | - End If |
558 | | - End Sub |
559 | | - |
560 | | - Private Sub OpenPKGExtractorMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenPKGExtractorMenuItem.Click |
561 | | - Dim NewPKGExtractor As New PS4PKGExtractor() With {.ShowActivated = True} |
562 | | - NewPKGExtractor.Show() |
563 | | - End Sub |
564 | | - |
565 | | - Private Sub OpenPSClassicsfPKGBuilderMenuItem_Click(sender As Object, e As RoutedEventArgs) Handles OpenPSClassicsfPKGBuilderMenuItem.Click |
566 | | - Dim NewPSClassicsfPKGBuilder As New PSClassicsfPKGBuilder() With {.ShowActivated = True} |
567 | | - NewPSClassicsfPKGBuilder.Show() |
568 | | - End Sub |
569 | | - |
570 | | -#End Region |
571 | | - |
572 | 554 | End Class |
0 commit comments