23-04-16, 08:54 PM
تصحيح الكود الخاص بقفل عملية 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