تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جلب اسم نافذة tabs للمتصفح وإغلاقه (Get browser tab captions & close tab)
#1
السلام عليكم ورحمة الله وبركاته
المرجوا مساعدتي في جلب اسم نافذة tabs للمتصفحات مع إمكانية إغلاقtabs
بحثت بالانترنيت ووجدت كود ولاكن غير مكتمل


الملفات المرفقة
.txt   Get browser tab captions & close tab.txt (الحجم : 6.46 ك ب / التحميلات : 26)
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

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

- تحياتي .


الملفات المرفقة
.rar   Show_TabsWindow.rar (الحجم : 2.88 ك ب / التحميلات : 48)
الرد }}}}
تم الشكر بواسطة:
#3
بارك الله فيك وزادك من علمه
لي عودة بعد تجربة المثالWink
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله
المثال جيد و لاكن لا يتعامل مع جميع المتصفحات. Sad
كيف يمكن تعديل المثال بالمرفقات بحيث يغلق نافذة tabs الحالية بدون اغلاق المتصفح باكمله:confused:
وجزاكم الله خيرا


الملفات المرفقة
.zip   مثال لحجب موقع.zip (الحجم : 2.38 ك ب / التحميلات : 31)
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله
3amo كتب :السلام عليكم ورحمة الله
المثال جيد و لاكن لا يتعامل مع جميع المتصفحات. Sad
كيف يمكن تعديل المثال بالمرفقات بحيث يغلق نافذة tabs الحالية بدون اغلاق المتصفح باكمله:confused:
وجزاكم الله خيرا
ارجوا مساعدتي, فبرنامجي متوقف على هذا الكود وجزاكم الله خيرا.
[ATTACH=CONFIG]2349[/ATTACH][ATTACH=CONFIG]2350[/ATTACH]


الملفات المرفقة صورة/صور
       
الرد }}}}
تم الشكر بواسطة:
#6
جرب هذا الكود
الكود التالي مطبق على الفايرفوكس

كود :
'/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")



بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#7
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 وجزاك الله خيرا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  web browser و firefox AEDC 0 324 30-07-13, 02:48 AM
آخر رد: AEDC
  اغلاق نافذة asto 4 455 17-06-13, 05:14 AM
آخر رد: asto
  سؤال حول فتح موقع من تكست للمتصفح الافتراضى elhon.tec 2 461 12-05-13, 09:26 AM
آخر رد: elhon.tec

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


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