كسي ميتونه اين كد رو اصلاح كنه؟

سلام

يه كد vb6 پيدا كردم كه براي قطع كردن كانكشن اينترنت هست. اون كد اينه:

کد:

---

'Module Code
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 Type RasEntryName
    dwSize As Long
    szEntryName(RAS_MAXENTRYNAME) As Byte
End Type

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

Public 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 gstrISPName As String
Public ReturnCode As Long

Public Sub HangUp()
    Dim i As Long
    Dim lpRasConn(255) As RasConn
    Dim lpcb As Long
    Dim lpcConnections As Long
    Dim hRasConn As Long
    lpRasConn(0).dwSize = RAS_RASCONNSIZE
    lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize
    lpcConnections = 0
    ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, _
    lpcConnections)

    If ReturnCode = ERROR_SUCCESS Then
        For i = 0 To lpcConnections - 1
            If Trim(ByteToString(lpRasConn(i).szEntryName)) = Trim(gstrISPName) Then
                hRasConn = lpRasConn(i).hRasConn
                ReturnCode = RasHangUp(ByVal hRasConn)
            End If
        Next i
    End If
End Sub

Public Function ByteToString(bytString() As Byte) As String
    Dim i As Integer
    ByteToString = ""
    i = 0
    While bytString(i) = 0&
        ByteToString = ByteToString & Chr(bytString(i))
        i = i + 1
    Wend
End Function


'Form Code
Private Sub Command1_Click()
    Call HangUp
End Sub

---

من براي استفاده از اون در VB 2005 تغييراتي درش دادم كه تبديل شد به اين:

کد:

---

    'Module Code
    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 Structure RasEntryName
        Public dwSize As Long
        Public szEntryName() As Byte 'RAS_MAXENTRYNAME

    End Structure

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

    Public Declare Function RasEnumConnections Lib _
    "rasapi32.dll" Alias "RasEnumConnectionsA" (<System.Runtime.InteropServices.MarshalAsAttribute( _
        System.Runtime.InteropServices.UnmanagedType.AsAny)> ByVal lpRasConn As Object, _
    ByVal lpcb As Long, ByVal lpcConnections As Long) As Long

    Public Declare Function RasHangUp Lib "rasapi32.dll" Alias _
    "RasHangUpA" (ByVal hRasConn As Long) As Long
    Public gstrISPName As String
    Public ReturnCode As Long

    Public Sub HangUp()
        Dim i As Long
        Dim lpRasConn(255) As RasConn
        Dim lpcb As Long
        Dim lpcConnections As Long
        Dim hRasConn As Long
        lpRasConn(0).dwSize = RAS_RASCONNSIZE
        lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize
        lpcConnections = 0

        ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, _
        lpcConnections)

        If ReturnCode = ERROR_SUCCESS Then
            For i = 0 To lpcConnections - 1
                If Trim(ByteToString(lpRasConn(i).szEntryName)) = Trim(gstrISPName) Then
                    hRasConn = lpRasConn(0).hRasConn
                    ReturnCode = RasHangUp(hRasConn)
                End If
            Next i
        End If
    End Sub

    Public Function ByteToString(ByVal bytString() As Byte) As String
        Dim i As Integer
        ByteToString = ""
        i = 0
        While bytString(i) = 0&
            ByteToString = ByteToString & Chr(bytString(i))
            i = i + 1
        End While
    End Function


    'Form Code
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        HangUp()

    End Sub

---

حالا وقتي دكمه Button1 رو ميزنم كه اتصال اينترنت رو قطع كنه با اين ارور مواجه ميشم:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

كسي ميتونه كد رو اصلاح كنه كه وقتي روي دكمه Button1 كليك مي كنيم، كانكشن اينترنت رو قطع كنه؟

خيلي متشكرم

سلام
کد ها را درست نخواندم ولی ایرادی واضح دارند! در تبدیلات API ها از VB6 به نسخه بالاتر باید نوع Long را به Integer تغییر دهی چون در VB6 متغیرهای Long دارای 32 بیت بودند ولی در VB7 و VB8 متغییرهای Integer دارای 32 بیت هستند.

اگه Long ها رو به Integer تبديل كنم، ميشه اين:
(اما باز هم با زدن دكمه Button1 هيچ اتفاقي نمي افته)
كسي ميتونه كد رو اصلاح كنه تا وقتي Button1‌ رو ميزنيم كانكشن قطع بشه؟

کد:

---

Public Class Form1

    'Module Code
    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 Structure RasEntryName
        Public dwSize As Integer
        Public szEntryName() As Byte 'RAS_MAXENTRYNAME

    End Structure

    Public Structure RasConn
        Public dwSize As Integer
        Public hRasConn As Integer
        Public szEntryName() As Byte 'RAS_MAXENTRYNAME
        Public szDeviceType() As Byte 'RAS_MAXDEVICETYPE
        Public szDeviceName() As Byte 'RAS_MAXDEVICENAME
    End Structure

    Public Declare Function RasEnumConnections Lib _
    "rasapi32.dll" Alias "RasEnumConnectionsA" (<System.Runtime.InteropServices.MarshalAsAttribute( _
        System.Runtime.InteropServices.UnmanagedType.AsAny)> ByVal lpRasConn As Object, _
    ByVal lpcb As Integer, ByVal lpcConnections As Integer) As Integer

    Public Declare Function RasHangUp Lib "rasapi32.dll" Alias _
    "RasHangUpA" (ByVal hRasConn As Integer) As Integer
    Public gstrISPName As String
    Public ReturnCode As Integer

    Public Sub HangUp()
        Dim i As Integer
        Dim lpRasConn(255) As RasConn
        Dim lpcb As Integer
        Dim lpcConnections As Integer
        Dim hRasConn As Integer
        lpRasConn(0).dwSize = RAS_RASCONNSIZE
        lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize
        lpcConnections = 0

        ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, _
        lpcConnections)

        If ReturnCode = ERROR_SUCCESS Then
            For i = 0 To lpcConnections - 1
                If Trim(ByteToString(lpRasConn(i).szEntryName)) = Trim(gstrISPName) Then
                    hRasConn = lpRasConn(0).hRasConn
                    ReturnCode = RasHangUp(hRasConn)
                End If
            Next i
        End If
    End Sub

    Public Function ByteToString(ByVal bytString() As Byte) As String
        Dim i As Integer
        ByteToString = ""
        i = 0
        While bytString(i) = 0&
            ByteToString = ByteToString & Chr(bytString(i))
            i = i + 1
        End While
    End Function


    'Form Code
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        HangUp()

    End Sub

   
End Class

---