Guten Abend, liebe Community!
Ich habe heute Fragen bezüglich meines SA:MP Launcher.
Undzwar: Ich habe bisher alles hingekriegt, dass wenn man auf einem
bestimmten Button klickt, den GTA Ordner auswählt & dann wird gecheckt,
ob die samp.exe vorhanden ist. Soweit alles okay, jedoch kann es sein, möchte
ich so eine Art "Cheatdetektor" ein programmieren mit eurer Hilfe.
Die Frage ist: Wie kann ich es machen, dass gecheckt wird ob die
Standartdateien&Verzeichnisse drinnen sind. (also nur die von GTA) &
ALLES andere, was nicht in dieser Liste bzw. eig. im GTA sind, wird dann
eine MSGbox kommen, dass die Dateien gelöscht werden sollen.
Code:
Spoiler anzeigen
Ich habe heute Fragen bezüglich meines SA:MP Launcher.
Undzwar: Ich habe bisher alles hingekriegt, dass wenn man auf einem
bestimmten Button klickt, den GTA Ordner auswählt & dann wird gecheckt,
ob die samp.exe vorhanden ist. Soweit alles okay, jedoch kann es sein, möchte
ich so eine Art "Cheatdetektor" ein programmieren mit eurer Hilfe.
Die Frage ist: Wie kann ich es machen, dass gecheckt wird ob die
Standartdateien&Verzeichnisse drinnen sind. (also nur die von GTA) &
ALLES andere, was nicht in dieser Liste bzw. eig. im GTA sind, wird dann
eine MSGbox kommen, dass die Dateien gelöscht werden sollen.
Code:
VB.NET-Quellcode
- Imports System.IO
- Public Class Form1
- Dim sampfad As String
- Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
- If (sampfad.) Then //Hier brauche ich Hilfe
- End Sub
- Private Sub MonoFlat_Button2_Click(sender As Object, e As EventArgs) Handles MonoFlat_Button2.Click
- Dim FolderBrowser As New FolderBrowserDialog
- sampfad = MonoFlat_Label2.Text
- FolderBrowser.Description = "Bitte wählen ..."
- FolderBrowser.ShowNewFolderButton = True
- FolderBrowser.RootFolder = System.Environment.SpecialFolder.Desktop
- FolderBrowser.SelectedPath = My.Computer.FileSystem.SpecialDirectories.Desktop
- If FolderBrowser.ShowDialog = Windows.Forms.DialogResult.OK Then
- If File.Exists(FolderBrowser.SelectedPath & "\samp.exe") = False Then
- MonoFlat_Label2.Location = New Point(112, 82)
- Exit Sub
- Else
- MonoFlat_Label2.Text = "GTA:SA Pfad: " + FolderBrowser.SelectedPath & "\samp.exe"
- sampfad = FolderBrowser.SelectedPath & "\samp.exe"
- MonoFlat_Label2.Location = New Point(49, 82)
- End If
- End If
- End Sub
- End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Kenox“ ()