السلام عليكم ورحمة الله
المثال جيد و لاكن لا يتعامل مع جميع المتصفحات.
كيف يمكن تعديل المثال بالمرفقات بحيث يغلق نافذة tabs الحالية بدون اغلاق المتصفح باكمله:confused:
وجزاكم الله خيرا
3amo كتب :السلام عليكم ورحمة الله
المثال جيد و لاكن لا يتعامل مع جميع المتصفحات.
كيف يمكن تعديل المثال بالمرفقات بحيث يغلق نافذة tabs الحالية بدون اغلاق المتصفح باكمله:confused:
وجزاكم الله خيرا
ارجوا مساعدتي, فبرنامجي متوقف على هذا الكود وجزاكم الله خيرا.
[ATTACH=CONFIG]2349[/ATTACH][ATTACH=CONFIG]2350[/ATTACH]
'/2012 (c) by Simon-Benyo/'
Imports System.Runtime.InteropServices
Public Module SiteBlocker
<DllImport("user32.dll", CallingConvention:=CallingConvention.StdCall, CharSet:=CharSet.Unicode, EntryPoint:="keybd_event", ExactSpelling:=True, SetLastError:=True)> _
Public Function keybd_event(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Int32, ByVal dwExtraInfo As Int32) As Boolean
End Function
<DllImport("PSAPI")> _
Private Function EmptyWorkingSet(ByVal hProc As IntPtr) As IntPtr
End Function
Sub Block(ByVal sSite As String)
Dim i As New Threading.Thread(AddressOf TS)
i.Start(sSite)
End Sub
Sub TS(ByVal str As String)
Do
For Each x As Process In Process.GetProcessesByName("firefox")
If LCase(x.MainWindowTitle).Contains(str) Then
Dim Control As Byte = &H11
Dim KEYUP As Byte = &H2
keybd_event(Control, 0, 0, 0)
keybd_event(Keys.W, 0, 0, 0)
keybd_event(Control, 0, KEYUP, 0)
keybd_event(Keys.W, 0, KEYUP, 0)
End If
Next
EmptyWorkingSet(-1) 'We Must Clean After What We Done its rude to let the place dirty
Threading.Thread.Sleep(400)
Loop
End Sub
End Module
nablion كتب :جرب هذا الكود
الكود التالي مطبق على الفايرفوكس
كود :
'/2012 (c) by Simon-Benyo/'
Imports System.Runtime.InteropServices
Public Module SiteBlocker
<DllImport("user32.dll", CallingConvention:=CallingConvention.StdCall, CharSet:=CharSet.Unicode, EntryPoint:="keybd_event", ExactSpelling:=True, SetLastError:=True)> _
Public Function keybd_event(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Int32, ByVal dwExtraInfo As Int32) As Boolean
End Function
<DllImport("PSAPI")> _
Private Function EmptyWorkingSet(ByVal hProc As IntPtr) As IntPtr
End Function
Sub Block(ByVal sSite As String)
Dim i As New Threading.Thread(AddressOf TS)
i.Start(sSite)
End Sub
Sub TS(ByVal str As String)
Do
For Each x As Process In Process.GetProcessesByName("firefox")
If LCase(x.MainWindowTitle).Contains(str) Then
Dim Control As Byte = &H11
Dim KEYUP As Byte = &H2
keybd_event(Control, 0, 0, 0)
keybd_event(Keys.W, 0, 0, 0)
keybd_event(Control, 0, KEYUP, 0)
keybd_event(Keys.W, 0, KEYUP, 0)
End If
Next
EmptyWorkingSet(-1) 'We Must Clean After What We Done its rude to let the place dirty
Threading.Thread.Sleep(400)
Loop
End Sub
End Module
طريقة الاستخدام
SiteBlocker.Block("virustotal")
بالتوفيق
بارك الله فيك وزادك من علمه
اخي العزيز nablion هذا الكود بالدوت نت وانا اريد vb6 وجزاك الله خيرا