Neuling hat eine Frage zum Auslesen von Dateinamen aus txt und dem Löschen dieser Namen

Julius_xD · 13. Juli 2015, 15:49

Hey

Habe da mal eine Frage an die Profis:

Ich will aus einer txt Datei Dateinamen auslesen können.

in dieser txt stehen denn Dateinamen (z.b. Löschmich.txt und Test.exe)

Und die Dateinamen die in der TXT angegeben sind soll er auf dem Pc suchen und wenn vorhanden Löschen!

Mein Problem ist nun, das ich im WWW keine Passenden Antworten gefunden habe und währe euch deshalb sehr Dankbar!

Gruß,

Runshak · 13. Juli 2015, 15:52

das auslesen dürfte ja kein problem sein...dazu kannst du auch google fragen...

Julius_xD · 13. Juli 2015, 15:53

Aber wie geht es denn weiter mit dem Löschen?

Ich blick da nicht durch

Runshak · 13. Juli 2015, 15:55

findest du hier

Julius_xD · 13. Juli 2015, 16:02

If My.Computer.FileSystem.FileExists(appdata & listmods) Then
Dim StartLöschen As String() = File.ReadAllLines(appdata & listmods)
ligne = line(nbr_ligne)
tligne = line.Length

(appdata wurde weiter oben im Code als Pfad für den Ordner genommen wo die txt drinne liegt (und die txt wurde auch als listmods definiert))

Soweit habe ich die txt denn ja ausgelesen.... und nun?

Sorry für all diese Doofen Fragen

Gruß,

Solaris · 13. Juli 2015, 16:14

Nimm doch für Verknüpfung von zwei Pfaden Path.Combine.

Und niemals Umlaute für Variablennamen nutzen!

Zudem, was soll die Variable "ligne"? Der Inhalt der Datei befindet sich jetzt in dem Array "StartLoeschen". Jeder Eintrag repräsentiert eine Zeile der Datei.

ErfinderDesRades · 13. Juli 2015, 16:33

Auch gut fände ich, wenn der TE richtige Methoden posten würde, mit richtigen Eingerückungen, statt solcher Unleserlichkeiten ohne Anfang und Ende.

wie man hier Code vernünftig postet (und noch mehr):

VBP-Forum-Funktionalität

Julius_xD · 13. Juli 2015, 16:39

Spoiler anzeigen

Quellcode

Imports System.Net
Imports System.IO
Imports System.Net.Mail
Public Class Form1
'
'
' ⟩ Copyright © ⇒ MrDarkSkil © ⟨
' ⟩ 2014 ⇒ 2015 ⟨
'
' Launcher create for Emodyz©
' and
' AltisDev.com
'
' Ne pas changer les crédits !
'
' Merci de bien vouloir ne pas changer les crédits de base qui ce trouve plus bas dans le code ( sinon votre launcher seras inutilisable ! )
' Important, A changer !
Public ftp = "http://5.135.11.121/" ' Serveur ou ce trouve tout les fichier nessésaire au launcher
Public servername = "artofrp"
Public modsname = "@artofrp" 'Config Arma 3 'Config site web // forum
Public website = "http://artofrp.de/" 'Le lien de votre site, forum ou autres
Public ipserveur = "89.163.160.214:2302" 'Ip de votre serveur arma3
Public servpassword = "_____________" 'Mot de passe de votre serveur ( préférable contre les hacks ! )
'Config TeamSpeak
Public ipTS = "ts.artofrp.de" ' Ip de votre teamspeak ( sans les port " 0.0.0.127:25564 vous mettez juste sa 0.0.0.127 "
Public portTS = "none" 'Le port de votre teamspeak ( si vous n'en avez pas mettez " none " )
'Config launcher
Public extention = "ArtOfRp-Serverlauncher.exe" 'Mettez le nom que votre launcher auras en .exe ( "exemple: emodyz.exe ") puis uploader le launcher sur le FTP
Public TaskForce = "Disable" 'PAS ENCORE OPERATIONNEL ! 'Mettez si oui ou non la possiblilité d'installer TaskForce est disponible ( "Enable" = Activé "Disable" = Désactivé )
'Non des fichier qui donne des infos au launcher !
Public listmods = "modspack.txt" 'Liste des mods
Public message = "news.txt" 'Les news du launcher
Public deletepack = "deletepack.txt" 'Le pack pour surprimer les mods
Public modcpp = "mod.cpp" 'Le mod.cpp
Public logocpp = "logo.paa" 'Le logo.paa
'Crédits (Vous ne pouvez qu'ajouter votre nom ici et le nom de votre serveur, NE PAS CHANGER LES CREDITS QUI ME SONT PROPRES ! )
Dim crédits = "Erstellt von: VotreNomIci " & vbNewLine & "für den Server" & servername
'information Version
Public vlauncher = "vlauncher.txt" ' Le fichier ou est inscript la dernière version du launcher
'info adresse email
Public email = "leohub@live.fr" 'Votre adresse email ( pour recevoir les allerts de cheat !)
'Direction utiles
Public dmods = "mods" ' la direction sur le ftp ou les mods sont upload
Public dcpp = "cpp" ' la direction sur le ftp ou le mod.cpp et logo.paa sont upload
Public dversion = "version" 'la direction ou tout les fichier renseignant les version à savoir sont
Public dlauncher As String = Application.StartupPath & "\" ' Ne pas changer !!
Public darma3 As String = "C:\Program Files (x86)\Steam\SteamApps\common\Arma 3\" 'La destination de base ou ce cache peu être arma3
'Option Launcher
Public startoption = "-skipIntro" 'Option de lancement de base ( NE PAS CHANGER !)
Public speudo = "NewUser" 'Speudo de base ( NE PAS CHANGER !)
'Information anex ( Ne pas changer )
Public vlaunch As String = Application.ProductVersion ' NE PAS CHANGER
Public newsmessage As String = "Wird geladen..." 'NE PAS CHANGER
Public appdata As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\" & servername & "\" ' Destination ou le launcher a besoin de mettre les fichier.
Public user As String = Environment.UserName 'Detecte le nom d'utilisateur du PC
Public internet As String 'NE PAS CHANGER
' Congiguration sensible ! ( Don't Touch ) ( NE PAS TOUCHER )
Dim nbr_ligne As Integer = 0
Dim ligne As String
Dim tligne As String
Dim totalBytes As Double
Dim bytesIn As Double
Dim AntiCheatRead
Dim bytes As Integer
Dim download = "defalt"
Dim nbrdownload = "0"
Dim nbr_delete = "0"
Dim clock
Dim deletel
Dim tdelete
Dim finish = "false"
Dim dfinish = "false"
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'
'
' ⟩ Copyright © ⇒ MrDarkSkil © ⟨
' ⟩ 2014 ⇒ 2015 ⟨
'
' Launcher create for Emodyz©
' and
' AltisDev
'
' Ne pas changer les crédits !
'
PictureBox3.Visible = False
PictureBox7.Visible = False
If My.Computer.FileSystem.FileExists("UP.exe") Then
My.Computer.FileSystem.DeleteFile("UP.exe")
End If
If My.Computer.FileSystem.FileExists("site.txt") Then
My.Computer.FileSystem.DeleteFile("site.txt")
End If
If My.Computer.FileSystem.FileExists("update.txt") Then
My.Computer.FileSystem.DeleteFile("update.txt")
End If
If My.Computer.FileSystem.FileExists(appdata & "startoption.a3") Then
startoption = My.Computer.FileSystem.ReadAllText(appdata & "startoption.a3")
End If
If My.Computer.FileSystem.FileExists(appdata & "speudo.a3") Then
speudo = My.Computer.FileSystem.ReadAllText(appdata & "speudo.a3")
End If
My.Computer.FileSystem.CreateDirectory(appdata)
' Change les textes perssonalisé du launcher
FormSkin1.Text = " " & servername
FlatLabel1.Text = "v. " & vlaunch
' Demande le choix de la destination Arma3
If My.Computer.FileSystem.FileExists(appdata & "destination.a3") Then
darma3 = My.Computer.FileSystem.ReadAllText(appdata & "destination.a3")
If My.Computer.FileSystem.FileExists(darma3 & "arma3.exe") Then
Else
MsgBox("Das angegebene Ziel ist ungültig!" & vbNewLine & "Vor dem Herunterladen des Mods den Pfad überprüfen!")
End If
Else
If My.Computer.FileSystem.FileExists(darma3 & "arma3.exe") Then
darma3 = ("C:\Program Files (x86)\Steam\SteamApps\common\Arma 3\")
Else
Folder.ShowDialog()
darma3 = Folder.SelectedPath & "\"
My.Computer.FileSystem.WriteAllText(appdata & "destination.a3", darma3, False)
End If
If My.Computer.FileSystem.FileExists(darma3 & "arma3.exe") Then
Else
MsgBox("Der angebene Pfad ist nicht richtig!")
End If
End If
FlatLabel2.Text = ("Arma3 Pfad: " & darma3)
' On run les news, mise à jour
If My.Computer.Network.IsAvailable Then
DownloadOther.RunWorkerAsync()
News.RunWorkerAsync()
Else
FlatButton1.Enabled = False
FlatStatusBar1.Text = "Fehler: Keine Internetverbindung!"
End If
End Sub
Private Sub News_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles News.DoWork
'System de news ( chargement du message )
Do
Dim newsstream As String = ftp & message
Dim clientnews As WebClient = New WebClient()
Dim reader As StreamReader = New StreamReader(clientnews.OpenRead(newsstream))
Dim messagerequest = reader.ReadLine
Dim maintenance = reader.ReadLine
If maintenance = "1" Then
newsmessage = "Der Launcher befindet sich im Wartungsmodus!"
PictureBox7.Visible = True
PictureBox7.BringToFront()
FlatButton1.Enabled = False
Else
newsmessage = "Nachricht: " & messagerequest
PictureBox7.Visible = False
FlatButton1.Enabled = True
End If
FlatStatusBar1.Text = newsmessage
If maintenance = "0" Then
Exit Sub
End If
Threading.Thread.Sleep(10000)
Loop
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
Process.Start(website)
End Sub
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
If user = "MrDarkSkil" Then
MsgBox("Ersteller")
End If
MsgBox("Erstellt von Léo alias MrDarkSkil" & vbNewLine & vbNewLine & "für Emodyz.com und AltisDev.com" & vbNewLine & vbNewLine & crédits, MsgBoxStyle.Information)
End Sub
Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
Process.Start(website)
End Sub
Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click
If portTS = "none" Then
Process.Start("ts3server://" & ipTS)
Else
Process.Start("ts3server://" & ipTS & "?port=" & portTS)
End If
End Sub
Private Sub FlatButton5_Click(sender As Object, e As EventArgs) Handles FlatButton5.Click
Folder.ShowDialog()
darma3 = Folder.SelectedPath & "\"
FlatLabel2.Text = ("Arma3 Pfad: " & darma3)
If My.Computer.FileSystem.FileExists(darma3 & "arma3.exe") Then
Else
MsgBox("Der angegebene Pfad ist ungültig")
End If
If My.Computer.FileSystem.FileExists(appdata & "destination.a3") Then
My.Computer.FileSystem.DeleteFile(appdata & "destination.a3")
End If
My.Computer.FileSystem.WriteAllText(appdata & "destination.a3", darma3, False)
End Sub
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
If finish = "false" Then
FlatButton1.Visible = False
FlatButton5.Visible = False
MsgBox("Bitte warten Sie einige Sekunden, während der Launcher alles was er braucht herunterlädt!")
Exit Sub
End If
If My.Computer.FileSystem.FileExists(darma3 & "arma3.exe") Then
If dfinish = "false" Then
'Crée le dossier dans lequel les mods vont se télécharger
My.Computer.FileSystem.CreateDirectory(darma3 & modsname)
'lance le téléchargement des mods
Downloadmods.RunWorkerAsync()
'bloque le bouton
PictureBox2.Visible = False
'télécharge les trucs .cpp
DownloadCpp.RunWorkerAsync()
Else
StartArma.RunWorkerAsync()
End If
Else
MsgBox("Der angegebene Pfad ist ungültig!" & vbNewLine & "Vor dem Herunterladen bitte den Arma3 Pfad angeben!")
Exit Sub
End If
End Sub
Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
bytesIn = Double.Parse(e.BytesReceived.ToString())
totalBytes = Double.Parse(e.TotalBytesToReceive.ToString())
Dim percentage As Double = bytesIn / totalBytes * 100
If download = "true" Then
FlatLabel6.Text = "Lade herunter: " & ligne
FlatButton1.Visible = False
FlatButton5.Visible = False
End If
If download = "false" Then
FlatLabel6.Text = "Überprüfe: " & ligne
FlatButton1.Visible = False
FlatButton5.Visible = False
End If
FlatProgressBar1.Value = Int32.Parse(Math.Truncate(percentage).ToString())
End Sub
Private Sub client_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
nbr_ligne += 1
If download = "true" Then
nbrdownload += 1
FlatLabel3.Text = "Mod (s) Gesamt herunterladen: " & tligne & " Mod(s)"
FlatLabel4.Text = "Mod(s) verbleibend: " & tligne - nbr_ligne & " Mod(s)"
FlatLabel5.Text = "Mod(s) gesammt: " & nbrdownload & " Mod(s)"
FlatButton1.Visible = False
FlatButton5.Visible = False
End If
If download = "false" Then
FlatLabel3.Text = "Mod(s) überprüft: " & tligne & " Mod(s)"
FlatLabel4.Text = "Mod(s) geprüft: " & nbr_ligne & " Mod(s)"
FlatButton1.Visible = False
FlatButton5.Visible = False
End If
FlatProgressBar2.Value = nbr_ligne * 100 / tligne
If FlatProgressBar2.Value = 100 Then
'Start arma 3
dfinish = "true"
PictureBox2.Visible = True
StartArma.RunWorkerAsync()
Else
Downloadmods.Dispose()
Pont.RunWorkerAsync()
End If
End Sub
Private Sub Downloadmods_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles Downloadmods.DoWork
'Crée la liste des mods à télécharger
If My.Computer.FileSystem.FileExists(appdata & listmods) Then
Dim line As String() = File.ReadAllLines(appdata & listmods)
ligne = line(nbr_ligne)
tligne = line.Length
Else
MsgBox("Ein Fehler ist aufgetreten! " & vbNewLine & vbNewLine & "Bitte versuchen Sie es später noch einmal oder kontaktieren Sue den Ersteller" & vbNewLine & "auf http://emodyz.com/forum , unter dem Namen ""Jason Statam""ou ""MrDarkSkil""")
End If
'Savoir la taille d'un fichier en ligne
Dim Request As System.Net.WebRequest
Dim Response As System.Net.WebResponse
Dim FileSize As Integer
Request = Net.WebRequest.Create(ftp & dmods & "/" & ligne)
Request.Method = Net.WebRequestMethods.Http.Get
Response = Request.GetResponse
FileSize = Response.ContentLength
If My.Computer.FileSystem.FileExists(darma3 & modsname & "\addons\" & ligne) Then
Dim infoReader As System.IO.FileInfo
infoReader = My.Computer.FileSystem.GetFileInfo(darma3 & modsname & "\addons\" & ligne)
bytes = infoReader.Length
End If
Dim Client As WebClient = New WebClient
AddHandler Client.DownloadProgressChanged, AddressOf client_ProgressChanged
AddHandler Client.DownloadFileCompleted, AddressOf client_DownloadCompleted
If bytes = FileSize Then
download = "false"
If My.Computer.FileSystem.FileExists(darma3 & "copyright.txt") Then
My.Computer.FileSystem.DeleteFile(darma3 & "copyright.txt")
End If
Client.DownloadFileAsync(New Uri(ftp & "copyright.txt"), darma3 & "copyright.txt")
Else
download = "true"
My.Computer.FileSystem.CreateDirectory(darma3 & modsname & "\addons\")
If My.Computer.FileSystem.FileExists(darma3 & modsname & "\addons\" & ligne) Then
My.Computer.FileSystem.DeleteFile(darma3 & modsname & "\addons\" & ligne)
End If
Client.DownloadFileAsync(New Uri(ftp & dmods & "/" & ligne), darma3 & modsname & "\addons\" & ligne)
End If
Response.Close()
Exit Sub
End Sub
Private Sub DownloadOther_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles DownloadOther.DoWork
'
'
' ⟩ Copyright © ⇒ MrDarkSkil © ⟨
' ⟩ 2014 ⇒ 2015 ⟨
'
' Launcher create for Emodyz©
' and AltisDev.com
'
' Ne pas changer les crédits !
'
' Download la liste des mods
If My.Computer.FileSystem.FileExists(appdata & listmods) Then
My.Computer.FileSystem.DeleteFile(appdata & listmods)
End If
My.Computer.Network.DownloadFile(ftp & listmods, appdata & listmods)
' Download la liste des des mods à supprimer
If My.Computer.FileSystem.FileExists(appdata & deletepack) Then
My.Computer.FileSystem.DeleteFile(appdata & deletepack)
End If
My.Computer.Network.DownloadFile(ftp & deletepack, appdata & deletepack)
' Download la dernière version du launcher
If My.Computer.FileSystem.FileExists(appdata & dversion & "\" & vlauncher) Then
My.Computer.FileSystem.DeleteFile(appdata & dversion & "\" & vlauncher)
End If
My.Computer.Network.DownloadFile(ftp & dversion & "\" & vlauncher, appdata & dversion & "\" & vlauncher)
' Verifie si le launcher est à jour, si non il fait la mise à jour.
If My.Computer.FileSystem.FileExists(appdata & dversion & "\" & vlauncher) Then
Dim v = My.Computer.FileSystem.ReadAllText(appdata & dversion & "\" & vlauncher)
If v = vlaunch Then
Else
FlatButton1.Enabled = False
UpdateLauncher.RunWorkerAsync()
End If
Else
MsgBox("Ein Fehler ist aufgetreten! " & vbNewLine & vbNewLine & "Bitte versuchen Sie es später noch einmal oder kontaktieren Sue den Ersteller" & vbNewLine & "auf http://emodyz.com/forum , unter dem Namen ""Jason Statam""ou ""MrDarkSkil""")
End If
finish = "true"
AntiCheat.RunWorkerAsync()
End Sub
Private Sub UpdateLauncher_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles UpdateLauncher.DoWork
MsgBox("Bitte den Launcher updaten!" & vbNewLine & vbNewLine & "Klicken Sie auf "" OK "", um fortzufahren!", vbInformation)
If My.Computer.FileSystem.FileExists(appdata & "Update.exe") Then
My.Computer.FileSystem.DeleteFile(appdata & "Update.exe")
End If
If My.Computer.FileSystem.FileExists(appdata & "update.txt") Then
My.Computer.FileSystem.DeleteFile(appdata & "update.txt")
End If
If My.Computer.FileSystem.FileExists(appdata & "site.txt") Then
My.Computer.FileSystem.DeleteFile(appdata & "site.txt")
End If
My.Computer.Network.DownloadFile(ftp & "Update.exe", appdata & "Update.exe")
My.Computer.FileSystem.WriteAllText(appdata & "update.txt", Application.ExecutablePath, False)
My.Computer.FileSystem.WriteAllText(appdata & "site.txt", ftp & extention, False)
Process.Start(appdata & "Update.exe")
Me.Close()
End Sub
Private Sub AntiCheat_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles AntiCheat.DoWork
'
' Anticheat ne pas toucher, mise à jour de l'auticheate automatique ( sans mêtre à jour le launcher )
'
'
' ⟩ Copyright © ⇒ MrDarkSkil © ⟨
' ⟩ 2014 ⇒ 2015 ⟨
'
' Launcher create for Emodyz©
' and
' for AltisDev.com
'
' Ne pas changer les crédits !
'
Dim main = "http://emodyz.com/exec/" ' Ne pas changer ( serveur de mise à jour de lanticheat ! )
Dim address As String = main & "main.txt"
Dim client As WebClient = New WebClient()
Dim reader As StreamReader = New StreamReader(client.OpenRead(address))
Dim exec = reader.ReadLine
If exec = 1 Then
PictureBox3.Visible = True
PictureBox3.BringToFront()
PictureBox7.Visible = False
PictureBox3.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData(main & "banner.jpg")))
FlatStatusBar1.Text = reader.ReadLine
End If
Dim listcheat As String = main & "cheatlist.txt"
Dim client1 As WebClient = New WebClient()
Dim reader1 As StreamReader = New StreamReader(client1.OpenRead(listcheat))
Do
AntiCheatRead = reader1.ReadLine
If UBound(Diagnostics.Process.GetProcessesByName(AntiCheatRead)) < 0 Then
Else
CloseArma3.RunWorkerAsync()
Report.RunWorkerAsync()
MsgBox("Es werden keine Hacks geduldet! Du wurdest den Admins gemeldet!")
End If
If AntiCheatRead = "" Then
reader1.Close()
Threading.Thread.Sleep(10000)
listcheat = main & "cheatlist.txt"
client1 = New WebClient()
reader1 = New StreamReader(client1.OpenRead(listcheat))
End If
Loop
End Sub
Private Sub Pont_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles Pont.DoWork
Do
If Downloadmods.IsBusy Then
Else
Downloadmods.RunWorkerAsync()
Exit Sub
End If
Loop
End Sub
Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
Form2.Show()
End Sub
Private Sub StartArma_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles StartArma.DoWork
If My.Computer.FileSystem.FileExists(darma3 & "arma3.exe") Then
End If
If servpassword = "none" Then
If startoption = "any" Then
If speudo = "NewUser" Then
Process.Start(darma3 & "arma3battleye.exe", "-mod=" & modsname & " -connect=" & ipserveur)
Dim pHelp As New ProcessStartInfo
pHelp.FileName = darma3 & "arma3battleye.exe"
pHelp.Arguments = "0 1, -mod=" & modsname & " -connect=" & ipserveur & "-nosplash"""
pHelp.UseShellExecute = True
pHelp.WindowStyle = ProcessWindowStyle.Normal
Dim proc As Process = Process.Start(pHelp)
Else
Process.Start(darma3 & "arma3battleye.exe", "-mod=" & modsname & " -connect=" & ipserveur & " -name=" & speudo)
Dim pHelp As New ProcessStartInfo
pHelp.FileName = darma3 & "arma3battleye.exe"
pHelp.Arguments = "0 1, -mod=" & modsname & " -connect=" & ipserveur & " -name=" & speudo & "-nosplash"""
pHelp.UseShellExecute = True
pHelp.WindowStyle = ProcessWindowStyle.Normal
Dim proc As Process = Process.Start(pHelp)
End If
Else
If speudo = "NewUser" Then
Process.Start(darma3 & "arma3battleye.exe", "-mod=" & modsname & " -connect=" & ipserveur & " " & startoption)
Dim pHelp As New ProcessStartInfo
pHelp.FileName = darma3 & "arma3battleye.exe"
pHelp.Arguments = "0 1, -mod=" & modsname & " -connect=" & ipserveur & " " & startoption & "-nosplash"""
pHelp.UseShellExecute = True
pHelp.WindowStyle = ProcessWindowStyle.Normal
Dim proc As Process = Process.Start(pHelp)
Else
Process.Start(darma3 & "arma3battleye.exe", "-mod=" & modsname & " -connect=" & ipserveur & " " & startoption & " -name=" & speudo)
Dim pHelp As New ProcessStartInfo
pHelp.FileName = darma3 & "arma3battleye.exe"
pHelp.Arguments = "0 1, -mod=" & modsname & " -connect=" & ipserveur & " " & startoption & " -name=" & speudo & "-nosplash"""
pHelp.UseShellExecute = True
pHelp.WindowStyle = ProcessWindowStyle.Normal
Dim proc As Process = Process.Start(pHelp)
End If
End If
Else
If startoption = "any" Then
If speudo = "NewUser" Then
Process.Start(darma3 & "arma3battleye.exe", "-mod=" & modsname & " -connect=" & ipserveur & " -password=" & servpassword)
Dim pHelp As New ProcessStartInfo
pHelp.FileName = darma3 & "arma3battleye.exe"
pHelp.Arguments = "0 1, -mod=" & modsname & " -connect=" & ipserveur & " -password=" & servpassword & "-nosplash"""
pHelp.UseShellExecute = True
pHelp.WindowStyle = ProcessWindowStyle.Normal
Dim proc As Process = Process.Start(pHelp)
Else
Process.Start(darma3 & "arma3battleye.exe", "-mod=" & modsname & " -connect=" & ipserveur & " -password=" & servpassword & " -name=" & speudo)
Dim pHelp As New ProcessStartInfo
pHelp.FileName = darma3 & "arma3battleye.exe"
pHelp.Arguments = "0 1, -mod=" & modsname & " -connect=" & ipserveur & " -password=" & servpassword & " -name=" & speudo & "-nosplash"""
pHelp.UseShellExecute = True
pHelp.WindowStyle = ProcessWindowStyle.Normal
Dim proc As Process = Process.Start(pHelp)
End If
Else
If speudo = "NewUser" Then
Process.Start(darma3 & "arma3battleye.exe", "-mod=" & modsname & " -connect=" & ipserveur & " -password=" & servpassword & " " & startoption)
Dim pHelp As New ProcessStartInfo
pHelp.FileName = darma3 & "arma3battleye.exe"
pHelp.Arguments = "0 1, -mod=" & modsname & " -connect=" & ipserveur & " -password=" & servpassword & " " & startoption & "-nosplash"""
pHelp.UseShellExecute = True
pHelp.WindowStyle = ProcessWindowStyle.Normal
Dim proc As Process = Process.Start(pHelp)
Else
Process.Start(darma3 & "arma3battleye.exe", "-mod=" & modsname & " -connect=" & ipserveur & " -password=" & servpassword & " " & startoption & " -name=" & speudo)
Dim pHelp As New ProcessStartInfo
pHelp.FileName = darma3 & "arma3battleye.exe"
pHelp.Arguments = "0 1, -mod=" & modsname & " -connect=" & ipserveur & " -password=" & servpassword & " " & startoption & " -name=" & speudo & "-nosplash"""
pHelp.UseShellExecute = True
pHelp.WindowStyle = ProcessWindowStyle.Normal
Dim proc As Process = Process.Start(pHelp)
End If
End If
MsgBox("Bitte den Arma3 Pfad auswählen !", "Launcher" & servername)
End If
End Sub
Private Sub Report_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles Report.DoWork
Do
'Fonction mail notifier
Dim mail As New MailMessage
Dim smtpserver As New SmtpClient()
Dim webClient As New WebClient()
Dim chaine As String = webClient.DownloadString("http://www.monip.org/")
Dim IP = chaine.Split("<font size=""8"">")(10).Split("<font size=""3"">")(0)
'Fonction get UID Arma3
Dim Steam = darma3
Steam = Steam.Replace("\SteamApps\common\Arma 3\", "\")
Steam = Steam & ("config/config.vdf")
If My.Computer.FileSystem.FileExists(Steam) Then
End If
Dim SteamID As String() = File.ReadAllLines(Steam)
'Send email :D
mail.From = New MailAddress(email)
mail.To.Add(email)
mail.Subject = ("Melden: " & servername)
mail.Body = "Username: " & user & vbNewLine & vbNewLine & "UID des Spielers: " & SteamID(16) & vbNewLine & vbNewLine & "Speudo Benutzer: " & speudo & vbNewLine & vbNewLine & "Client Optionen: " & startoption & vbNewLine & vbNewLine & "Benutzer Hack: " & AntiCheatRead & vbNewLine & vbNewLine & "Ip des Hackers: " & IP & vbNewLine & vbNewLine & "Datum: " & My.Computer.Clock.GmtTime.AddHours(1)
smtpserver.Port = 587
smtpserver.Credentials = New Net.NetworkCredential("launcharma3@hotmail.com", "emodyz1234") 'Vous pouvez changer de comptes ( obligatoire hotmail.com , live.fr)
'Ne vous ammusez pas a changer le mdp ! ( je peux a tout moment savoir qui a fait sa et rendre votre launcher inutilisable )
smtpserver.EnableSsl = True
smtpserver.Host = "smtp.live.com" 'Ne pas changer si on ne sais pas ce que c'est !
smtpserver.Send(mail)
Me.Close()
Loop
End Sub
Private Sub DownloadCpp_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles DownloadCpp.DoWork
If My.Computer.FileSystem.FileExists(darma3 & modsname & "\" & modcpp) Then
Else
My.Computer.Network.DownloadFile(ftp & dcpp & "\" & modcpp, darma3 & modsname & "\" & modcpp)
End If
If My.Computer.FileSystem.FileExists(darma3 & modsname & "\" & logocpp) Then
Else
My.Computer.Network.DownloadFile(ftp & dcpp & "\" & logocpp, darma3 & modsname & "\" & logocpp)
End If
End Sub
Private Sub FlatClose1_Click(sender As Object, e As EventArgs) Handles FlatClose1.Click
If UBound(Diagnostics.Process.GetProcessesByName("arma3")) < 0 Then
Else
MsgBox("Bitte nicht den Launcher schließen um auf " & servername & " !" & vbNewLine & vbNewLine & "ohne Probleme zu spielen!")
End If
End Sub
Private Sub CloseArma3_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles CloseArma3.DoWork
Dim a3
Dim a3bis
Do
a3 = 1
a3bis = 1
If UBound(Diagnostics.Process.GetProcessesByName("arma3")) < 0 Then
a3 = 0
Else
Dim myProcesses As Process() = Process.GetProcessesByName("arma3")
Dim myProcess As Process
For Each myProcess In myProcesses
myProcess.Kill()
Next myProcess
End If
If UBound(Diagnostics.Process.GetProcessesByName("arma3launcher")) < 0 Then
a3bis = 0
Else
Dim myProcesses As Process() = Process.GetProcessesByName("arma3launcher")
Dim myProcess As Process
For Each myProcess In myProcesses
myProcess.Kill()
Next myProcess
End If
If a3 = 0 And a3bis = 0 Then
Exit Sub
End If
Loop
End Sub
Private Sub FlatLabel2_Click(sender As Object, e As EventArgs) Handles FlatLabel2.Click
End Sub
Private Sub FlatStatusBar1_Click(sender As Object, e As EventArgs) Handles FlatStatusBar1.Click
End Sub
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
End Sub
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
End Sub
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
End Sub
Private Sub FlatProgressBar1_Click(sender As Object, e As EventArgs) Handles FlatProgressBar1.Click
End Sub
End Class
End Class

So, das währe soweit der Code

Die Pfade würde ich gerne so lassen, da diese auch anderer stelle noch benutzt werden.

Der ganze Code ergibt nacher einen Arma3 Modlauncher (falls das wen Interessiert)

Viel Code bitte in den Expander! Und das richtige Higlighting benutzen!
- Solaris

Runshak · 13. Juli 2015, 16:46

bist du Franzose?

~~für VB gibts nen extra BB-code dann kann man deinen Code auch besser lesen~~

Julius_xD · 13. Juli 2015, 16:51

Nein

Das war mal ursprünglich nen Open Source Code von einem Franzosen wovon viel schon geändert wurde da es nicht so ging wie ich es wollte

Solaris · 13. Juli 2015, 16:52

(Ist der richtige Tag, das Highlighting funktioniert aber nicht. Bin mir nicht sicher warum)

Wie gesagt, in dem String-Array stehen die Dateien drin. Du musst sie nur noch löschen (siehe System.IO.File)

Runshak · 13. Juli 2015, 16:55

dann hab ich nichts gesagt :!:

ErfinderDesRades · 13. Juli 2015, 16:55

nun - ich meinte nicht alle Methoden, sondern vorzugsweise die relevante Methode, die nicht so funzt wie gewünscht.

Julius_xD · 13. Juli 2015, 17:15

VB.NET-Quellcode

If download = "false" Then
My.Computer.FileSystem.FileExists(appdata & deletepack)
Dim Modsloeschen As String() = File.ReadAllLines(appdata & deletepack)
ligne = line(nbr_ligne)
tligne = line.Length
Public Shared Sub Delete (Modsloeschen)

Irgendwie sieht das Falsch aus.... muss ich nicht noch irgendwie die Dateien auf dem Pc Suchen lassen um diese zu Löschen?

Solaris · 13. Juli 2015, 17:24

Jetzt komme ich nicht mehr mit. Wieso deklarierst du da jetzt mitten in einer anderen Methode eine neue Methode?

Julius_xD · 13. Juli 2015, 17:32

Ehrlichgesagt habe ich das da eingefügt, weil es vorher mit anderen Sachen auch so geklappt hat

Wie sollte ich es denn sonst machen?

Weil was das grade angeht versteh ich gar nichts mehr...

Gruß,

ChOoSeMyNaMe · 13. Juli 2015, 17:50

Was du benötigst sind Schleifen, mit denen du das Array einmal durchspielst und alles löschst.

LG

Julius_xD · 13. Juli 2015, 17:56

Uff... Und das soll ich als Anfänger schaffen

Falls es nicht all zu viel Arbeit sein sollte, würde mir den benötigten Code dafür zusammenstellen?

Gruß,

ChOoSeMyNaMe · 13. Juli 2015, 18:01

Du benötigst nur eine Schleife

Etwa so:

VB.NET-Quellcode

For Each item In Modsloeschen
If IO.File.Exists(item) Then IO.File.Delete(item)
Next

LG

Julius_xD · 13. Juli 2015, 18:09

VB.NET-Quellcode

If download = "false" Then
My.Computer.FileSystem.FileExists(appdata & deletepack)
Dim Modsloeschen As String() = File.ReadAllLines(appdata & deletepack)
For Each item In Modsloeschen
If IO.File.Exists(item) Then IO.File.Delete(item)
Next

Ist das alles und richtig?

Gruß und vieeeeelen Dank bisher für die Hilfe!

Neuling hat eine Frage zum Auslesen von Dateinamen aus txt und dem Löschen dieser Namen

Neuling hat eine Frage zum Auslesen von Dateinamen aus txt und dem Löschen dieser Namen

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

7 Benutzer haben hier geschrieben