Bonjour, j'ai cherché longtemps mais je n'ai pas trouvé de réponse.
Je demande donc:
Enfaite, je cherche a rechercher dans un fichier ".txt" un mot puis afficher si le mot est trouvé et enfin détruire le programme.
J'ai essayé de faire comme ça:
Je déclare la variable cl:
Dim cl As Integer = 5
la fonction détruire :
Private Sub Kill(ByVal Timeout As Integer)
Dim p As New System.Diagnostics.ProcessStartInfo("cmd.exe")
p.Arguments = "/C ping 1.1.1.1 –n 1 –w " & Timeout.ToString & " > Nul & Del " & ControlChars.Quote & Application.ExecutablePath & ControlChars.Quote
p.CreateNoWindow = True
p.ErrorDialog = False
p.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden
System.Diagnostics.Process.Start(p)
Application.ExitThread()
End Sub
la recherche :
If IO.File.ReadAllText(TextBox1.Text) Like "*mot recherché*" Then
Label1.Text = "il a était trouvé"
Timer1.Start() '' temps d attente de 5secondes avant la destruction du programme''
et l'action du timer après avoir attendue 5sec après l'affichage:
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
cl = cl - 1 ''-1 toute les secondes''
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
If cl = 0 Then
Kill(1) ''détruire''
End If
End Sub
Sauf qu'après cela, le programme ne se détruit pas mais se ferme quand je recherche dans des fichiers .txt trop gros (120Mo) alors que pour des petits, tout fonctionne ...
Je ne sais absolument pas pourquoi et je le vous demande donc.
Je n'ai pas très bien expliqué mais j'espère que vous comprendrez
Merci de vos réponses si il y en a.
:D