منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته
المرجوا مساعدتي في جلب اسم نافذة tabs للمتصفحات مع إمكانية إغلاقtabs
بحثت بالانترنيت ووجدت كود ولاكن غير مكتمل

السلام عليكم

- هذا المثال وطريقته قد تكون ماتريد .

- تحياتي .

بارك الله فيك وزادك من علمه
لي عودة بعد تجربة المثال

السلام عليكم ورحمة الله
المثال جيد و لاكن لا يتعامل مع جميع المتصفحات.
كيف يمكن تعديل المثال بالمرفقات بحيث يغلق نافذة tabs الحالية بدون اغلاق المتصفح باكمله:confused:
وجزاكم الله خيرا

السلام عليكم ورحمة الله

3amo كتب :السلام عليكم ورحمة الله
المثال جيد و لاكن لا يتعامل مع جميع المتصفحات.
كيف يمكن تعديل المثال بالمرفقات بحيث يغلق نافذة tabs الحالية بدون اغلاق المتصفح باكمله:confused:
وجزاكم الله خيرا

ارجوا مساعدتي, فبرنامجي متوقف على هذا الكود وجزاكم الله خيرا.
[ATTACH=CONFIG]2349[/ATTACH][ATTACH=CONFIG]2350[/ATTACH]

جرب هذا الكود
الكود التالي مطبق على الفايرفوكس




طريقة الاستخدام


SiteBlocker.Block("virustotal")



بالتوفيق

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 وجزاك الله خيرا