[mostfa1995]

تصحيح الكود الخاص بقفل عملية KillProcess

كود :

   Private Sub KillProcess()
       Dim processArray As Process()
       Dim num As Integer
       Dim process As Process
       processArray = Process.GetProcesses
       num = 0
       process = processArray(num)
       If (((((((((((((((((process.MainWindowTitle.Contains("URL") Or process.MainWindowTitle.Contains("Fiddler")) Or process.MainWindowTitle.Contains("HiDownload")) Or process.MainWindowTitle.Contains("Charles")) Or process.MainWindowTitle.Contains("Postman")) Or process.MainWindowTitle.Contains("NetworkMiner")) Or process.MainWindowTitle.Contains("WebScarab")) Or process.MainWindowTitle.Contains("HoneyProxy")) Or process.MainWindowTitle.Contains("HttpFox")) Or process.MainWindowTitle.Contains("SmartSniff")) Or process.MainWindowTitle.Contains("HttpWatch")) Or process.MainWindowTitle.Contains("LANGuardian")) Or process.MainWindowTitle.Contains("AppScope")) Or process.MainWindowTitle.Contains("HttpRequester")) Or process.MainWindowTitle.Contains("IEWatch")) Or process.MainWindowTitle.Contains("HTTPNetworkSniffer")) Or process.MainWindowTitle.Contains("WebSiteSniffer")) Is Nothing) Then

       End If
       process.CloseMainWindow()

       num = (num + 1)

       If (num < CInt(processArray.Length)) Then
       End If
       Return
   End Sub