تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف اوضع ProgressBar في هذا الكود e-coder 0 39 أمس, 07:43 PM
آخر رد: e-coder
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 104 22-05-17, 09:25 AM
آخر رد: hglogtd
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 47 19-05-17, 04:09 PM
آخر رد: e-coder
  منع تعديل التاريخ والوقت ريم النهاري 7 147 18-05-17, 09:28 AM
آخر رد: ريم النهاري
  [VB.NET] كيف اضع وقت في هذا الكود e-coder 4 129 18-05-17, 08:07 AM
آخر رد: e-coder
  اين الخطا في هذا الكود rabeh.ram 18 457 16-05-17, 10:48 PM
آخر رد: rabeh.ram
  [مشروع] ممكن تعديل علي المشروع دموع الوطن 12 205 15-05-17, 09:29 AM
آخر رد: دموع الوطن
  [كود] طلب الكود للتاريخ الميلادي كتابياُ باسم الشهر الميلادي . محمد مسافر 2 78 11-05-17, 12:42 AM
آخر رد: محمد مسافر
  محتاج مساعدة في اكمال الكود bidaya 7 216 04-05-17, 05:14 PM
آخر رد: bidaya
  [VB.NET] طلب حل مشكلة هذا الكود A-R 3 93 02-05-17, 05:10 PM
آخر رد: A-R

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


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