تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تعديل في الكود
#1
PHP كود :
For Each a As Process In Process.GetProcesses
            Dim x 
As String a.MainWindowTitle
            x 
x.ToLower
            
If x.Contains("i") Or x.Contains("r") Or x.Contains("t"Then
                a
.Kill()
                
MsgBox("")
            
End If
        
Next 


اتمني اجد طريقة لاضع فيها عدد كبير من الكلمات لاني لو وضعت

ذلك من خلال تكرار Or x.Contains يصبح الكود يغلق المتصفح او دون وجود

الكلمة الدالة تلقائي Angry
[/align]

الرد
تم الشكر بواسطة:
#2
يعني انت تبي تغلق المتصفح لو كان شغال ؟؟

استخدم اسم البروسس بدل وضع حروف عشوائية

فإسم البروسس ثابت ولايختلف بين مستخدم واخر

PHP كود :
For Each p As Process In Process.GetProcesses
            Dim CurrentProcessName 
As String p.ProcessName.ToLower()
            If 
CurrentProcessName "firefox" Or CurrentProcessName "chrome" Or CurrentProcessName "iexplorer" Then
                p
.Kill()
            
End If
        
Next 

الكود سيقوم باغلاق الفايرفوكس + قوقل كروم + انترنت اكسبلورر

لو سألتني من وين جبت اسماء البروسس ، سأقول لك يمكنك الحصول عليها من Task Manger

الرد
تم الشكر بواسطة: m0075 , سعود , Aly El-Haddad
#3
بارك الله فيك اخي انت لم تفهم قصدي

انا اريد ان اغلق المتصفح في حالة وجد في شرطيه كلمة محددة مثلا

[php]For Each a As Process In Process.GetProcesses
Dim x As String = a.MainWindowTitle
x = x.ToLower
If x.Contains("فيجول بيسك لكل العرب ") Then
a.Kill()
MsgBox("")
End If
Next [code]

الان لو وجد في شريط المصتفح العنوان للصفحة فيجول بيسك لكل العرب سيغلق المصتفح والا لن يغلقه اتمني وصلت الفكرة
[/align]

الرد
تم الشكر بواسطة:
#4
(28-12-13, 10:24 AM)m0075 كتب : بارك الله فيك اخي انت لم تفهم قصدي

انا اريد ان اغلق المتصفح في حالة وجد في شرطيه كلمة محددة مثلا

[php]For Each a As Process In Process.GetProcesses
Dim x As String = a.MainWindowTitle
x = x.ToLower
If x.Contains("فيجول بيسك لكل العرب ") Then
a.Kill()
MsgBox("")
End If
Next [code]

الان لو وجد في شريط المصتفح العنوان للصفحة فيجول بيسك لكل العرب سيغلق المصتفح والا لن يغلقه اتمني وصلت الفكرة

اخي من بداية الموضوع انا موفاهم ويش تقصد بالضبط

هل تقصد انك تريد اضافة مجموعة كلمات ليتم مقارنتها بدل استعمال Or في كل مرة ؟؟
الرد
تم الشكر بواسطة:
#5
السلام عليكم، الكود التالي يقوم بجلب عناوين جميع القوائم (ليس القائمة الأساسية من كل تطبيق فقط) ثم مطابقة عناوينها مع قائمة أخرى من الكلمات و إذا تطابقت يغلق التطبيق الذي به هذه النافذة (طبعاً الكود يعمل عند الضغط على الزر Button1)

PHP كود :
Imports System.Runtime.InteropServices

Public Class Form1

    
<DllImport("user32.dll"EntryPoint:="GetWindowText")> _
    
Private Shared Function GetWindowText(ByVal hwnd As IntPtrByVal lpString As System.Text.StringBuilderByVal cch As Int32) As Int32
    End 
Function

    <
DllImport("user32.dll"EntryPoint:="GetWindowTextLength")> _
    
Private Shared Function GetWindowTextLength(ByVal hwnd As IntPtr) As Int32
    End 
Function

    <
DllImport("user32.dll"EntryPoint:="EnumWindows")> _
    
Private Shared Function EnumWindows(ByVal Adress As CallBackByVal lParam As Integer) As Integer
    End 
Function

    <
DllImport("user32.dll"EntryPoint:="GetWindowThreadProcessId")> _
    
Private Shared Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, <Out()> ByRef lpdwProcessId As UInteger) As UInteger
    End 
Function

    Private 
Delegate Function CallBack(ByVal hWnd As IntPtrByVal lParam As Integer) As Boolean

    
Private Function Enumerator(ByVal hWnd As IntPtrByVal lParam As Integer) As Boolean
        windowTexts
.Add(hWndGetText(hWnd))
        Return 
True
    End 
Function

    Private Function 
GetText(ByVal handle As IntPtr) As String
        
If handle.ToInt32() <= 0 Then Return Nothing : Exit Function
        
Dim length As Integer GetWindowTextLength(handle)
        If 
length 0 Then Return String.Empty : Exit Function
        
Dim SB As New System.Text.StringBuilder(length 1)
        
GetWindowText(handleSBSB.Capacity)
        Return 
SB.ToString()
    
End Function

    Private 
Sub RefreshWindowTexts()
        
windowTexts.Clear()
        
EnumWindows(AddressOf EnumeratorNothing)
    
End Sub

    
Private windowTexts As New Dictionary(Of IntPtrString)

    Private 
Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Dim forbiddenWords 
As New List(Of String)({"facebook""yahoo"})
        
RefreshWindowTexts()
        
Dim keys As IntPtr() = New IntPtr(windowTexts.Keys.Count 1) {}
        
windowTexts.Keys.CopyTo(keys0)
        For 
Each ptr As IntPtr In keys
            
For As Integer 0 To forbiddenWords.Count 1
                
If windowTexts(ptr).ToLower().Contains(forbiddenWords(I).ToLower()) Then
                    Dim pid 
As Integer 0
                    GetWindowThreadProcessId
(ptrpid)
                    
Process.GetProcessById(pid).Kill()
                
End If
            
Next
        Next
    End Sub
End 
Class 
الرد
تم الشكر بواسطة: سعود , m0075 , الشاكي لله
#6
بارك الله فيك اخي Aly El-Haddad هل استطيع اضافة 30 كلمة ويعمل الكود بشكل سليم ؟؟؟ ساجرب الان

(28-12-13, 10:50 AM)الشاكي لله كتب :
(28-12-13, 10:24 AM)m0075 كتب : بارك الله فيك اخي انت لم تفهم قصدي

انا اريد ان اغلق المتصفح في حالة وجد في شرطيه كلمة محددة مثلا

[php]For Each a As Process In Process.GetProcesses
Dim x As String = a.MainWindowTitle
x = x.ToLower
If x.Contains("فيجول بيسك لكل العرب ") Then
a.Kill()
MsgBox("")
End If
Next [code]

الان لو وجد في شريط المصتفح العنوان للصفحة فيجول بيسك لكل العرب سيغلق المصتفح والا لن يغلقه اتمني وصلت الفكرة

اخي من بداية الموضوع انا موفاهم ويش تقصد بالضبط

هل تقصد انك تريد اضافة مجموعة كلمات ليتم مقارنتها بدل استعمال Or في كل مرة ؟؟

نعم اريد استخدام مجموعات كلمات يتم فحصها في حالة وجدها البرنامج في ريط التصفح

اغلق المتصفح ....
[/align]

الرد
تم الشكر بواسطة:
#7
اخي Aly El-Haddad تظهر مشكلة بعد قتل العملية في متصفح internet explorer

صورة للتوضيح بارك الله فيك يا ريت الحل

[/align]

الرد
تم الشكر بواسطة:
#8
PHP كود :
Dim forbiddenWords As New List(Of String)({"facebook""yahoo"})
        
RefreshWindowTexts()
        
Dim keys As IntPtr() = New IntPtr(windowTexts.Keys.Count 1) {}
        
windowTexts.Keys.CopyTo(keys0)
        
Dim pids As New List(Of Integer)
        For 
Each ptr As IntPtr In keys
            
For As Integer 0 To forbiddenWords.Count 1
                
If windowTexts(ptr).ToLower().Contains(forbiddenWords(I).ToLower()) Then
                    Dim pid 
As Integer 0
                    GetWindowThreadProcessId
(ptrpid)
                    If 
Not pids.Contains(pidThen
                        Process
.GetProcessById(pid).Kill()
                        
pids.Add(pid)
                    
End If
                
End If
            
Next
        Next 
الرد
تم الشكر بواسطة: m0075
#9
(29-12-13, 09:34 PM)Aly El-Haddad كتب :
PHP كود :
Dim forbiddenWords As New List(Of String)({"facebook""yahoo"})
        
RefreshWindowTexts()
        
Dim keys As IntPtr() = New IntPtr(windowTexts.Keys.Count 1) {}
        
windowTexts.Keys.CopyTo(keys0)
        
Dim pids As New List(Of Integer)
        For 
Each ptr As IntPtr In keys
            
For As Integer 0 To forbiddenWords.Count 1
                
If windowTexts(ptr).ToLower().Contains(forbiddenWords(I).ToLower()) Then
                    Dim pid 
As Integer 0
                    GetWindowThreadProcessId
(ptrpid)
                    If 
Not pids.Contains(pidThen
                        Process
.GetProcessById(pid).Kill()
                        
pids.Add(pid)
                    
End If
                
End If
            
Next
        Next 

جزاك الله الفردوس الاعلي اخي وبارك الله بيك وبعلمك
[/align]

الرد
تم الشكر بواسطة: Aly El-Haddad


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يمكن اختصار هذا الكود blida02 3 37 منذ 11 ساعة مضت
آخر رد: mrnooo2000
  هل انتم مهتمون ببرنامج يكتب عنكم الكود viv 20 331 أمس, 03:48 AM
آخر رد: bidaya
  [سؤال] اين الخطاء في الكود قناص المدينة 7 699 21-05-18, 12:20 AM
آخر رد: عبدالله الدوسري
  [سؤال] ما هو الكود الذي من خلاله يعطي عدد الخلايا الفارغة من عمود محدد سمير الجبالي 2 105 07-05-18, 04:45 AM
آخر رد: sendbad100
  ما الخطأ في هذا الكود blida02 2 77 06-05-18, 03:16 PM
آخر رد: blida02
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 14 1,810 05-05-18, 08:56 AM
آخر رد: رمضان محمد
  [VB.NET] فحص الكود التالي فراس الغزي 2 95 26-04-18, 09:14 PM
آخر رد: فراس الغزي
  [سؤال] اريد تعديل علي برنامج يحول المقالات الي فيديو elokely 1 66 24-04-18, 02:23 AM
آخر رد: silverlight
  ارجو المساعده فى تعديل كود SELECT نبيل فتحى 4 176 20-04-18, 07:22 PM
آخر رد: محمد كريّم
  كيف اجعل الكود يكتب التاريخ بجوار اسم قاعدة البيانات عند النسخ الاحتياطي السيد الجوهري 2 155 13-04-18, 12:43 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم