هل تريد أنهاء جميع الأتصالات Connections على الجهاز

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default هل تريد أنهاء جميع الأتصالات Connections على الجهاز

مُساهمة من طرف iemad في الإثنين أكتوبر 23, 2006 11:46 pm

هل تريد أنهاء جميع الأتصالات Connections على الجهاز
كود API
الرمز:
API Declarations
Option Explicit

Private Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As Any, lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long

Public Const RAS_MAXENTRYNAME As Integer = 256
Public Const RAS_MAXDEVICETYPE As Integer = 16
Public Const RAS_MAXDEVICENAME As Integer = 128
Public Const RAS_RASCONNSIZE As Integer = 412
Public Const ERROR_SUCCESS = 0

Public Type RasConn
    dwSize As Long
    hRasConn As Long
    szEntryName(RAS_MAXENTRYNAME) As Byte
    szDeviceType(RAS_MAXDEVICETYPE) As Byte
    szDeviceName(RAS_MAXDEVICENAME) As Byte
End Type
 

ضع الكود التالي في Modul

الرمز:
Module
'Terminate all the RAS Connections
Sub TerminateRAS()
    Dim i As Long
    Dim RasConn(255) As RasConn
    Dim structSize As Long
    Dim ConnectionsCount As Long
    Dim ret As Long


    RasConn(0).dwSize = RAS_RASCONNSIZE
    structSize = RAS_MAXENTRYNAME * RasConn(0).dwSize
    ret = RasEnumConnections(RasConn(0), structSize, ConnectionsCount)
 
    If ret = ERROR_SUCCESS Then
        For i = 0 To ConnectionsCount - 1
            ret = RasHangUp(RasConn(i).hRasConn)
        Next
    End If
End Sub
 

أما طريقة الأستعمال كالتالي

الرمز:
Usage
'Usage:
Private Sub Command1_Click()
    TerminateRAS
End Sub

iemad
مراقب عام
مراقب عام

عدد الرسائل : 20
تاريخ التسجيل : 23/10/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default مشكور اخي iemad

مُساهمة من طرف bigboss_quraan في الثلاثاء أكتوبر 24, 2006 6:15 pm

مشكور اخي iemad
على تفاعلك في المنتدى
واتمنى لك دوام التقدم و النجاح

_________________





bigboss_quraan
مشرف عام
مشرف عام

عدد الرسائل : 136
العمر : 26
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default شكر

مُساهمة من طرف العـطوي في الثلاثاء نوفمبر 14, 2006 8:55 pm

أشكرك يا iemad على كل جهودك القيمة. وأشكر كل من أدلى بمعلومة أو ساهم في ذلك.
وارجو منكم يأهل المعلومات أن تعذرونا لأننا الصراحة نستفيد وما نقدر نفيد
أحد لأن معلوماتنا سطحية.بس اللي نقدر نسوية الشكر والتقدير لمجهودكم الرائع
والدعاء لمن أعاننا.........................................................................................................................................................شكري الخاص وتقديري

العـطوي
عضو متميز
عضو متميز

عدد الرسائل : 43
تاريخ التسجيل : 06/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default الحقيقة أنت كفيت ووفيت يا أخ ( العـطوي )

مُساهمة من طرف iemad في السبت نوفمبر 18, 2006 7:34 pm

أخي ( العـطوي ) الحقيقة أنما نعمل لوجه الله , لا لشئ آخر .
وأنما الشكر يكون لله عز وجل .
وأنا بدوري عندما أرى أحد الأخوة قد أستفاد من المعلومة فأني أفرح بفرحه والله .
Very Happy
وأن شاء الله تكون من المحترفين .....

iemad
مراقب عام
مراقب عام

عدد الرسائل : 20
تاريخ التسجيل : 23/10/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default شكر

مُساهمة من طرف العـطوي في الأحد نوفمبر 19, 2006 7:38 am

شكري وتقديري

العـطوي
عضو متميز
عضو متميز

عدد الرسائل : 43
تاريخ التسجيل : 06/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى