+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] ارجو تصحيح الكود (/showthread.php?tid=15570)
ارجو تصحيح الكود - mostfa1995 - 23-04-16
تصحيح الكود الخاص بقفل عملية 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 SubRE: ارجو تصحيح الكود - derham - 23-04-16
يمكن تقصد هذا الجزء
PHP كود :
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") Then
RE: ارجو تصحيح الكود - mostfa1995 - 23-04-16
(23-04-16, 09:18 PM)derham كتب : يمكن تقصد هذا الجزء
PHP كود :
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") Then
عايز لما اى من اسماء البرامج دى تشتغل اثناء تشغيل البرنامج متفتحش حتى لو اتغيرت اسمها