Now, i have some problem with disconnected internet connection (modem). And I want Get ip of (ppp adapter) .
In present. I develope by call bat file(include ipconfig /all command). But, end  user can't understand  And can't tell information of (ppp adapter connection) to  me
=======================
--- two question for anybody
=======================

1. How to disconnect internet connnection  in vb
2. How to get ip of (ppp adapter(modem)) in vb

Could you help me
Thanks

____________________________
TK

How to get IP address

'in Form1:

Option Explicit 'This project requires the following components: ' - a form (Form1) with a textbox (Text1, Multiline=True) '   and a command button (Command1) ' - a module (Module1) Private Sub Command1_Click()     Module1.Start End Sub

'In Module:

'****************************************************************** 'Created By Verburgh Peter. ' 07-23-2001 ' verburgh.peter@skynet.be '------------------------------------- 'With this small application , you can detect the IP's installed on your computer, 'including subnet mask , BroadcastAddr.. ' 'I've wrote this because i've a programm that uses the winsock control, but, 'if you have multiple ip's  installed on your pc , you could get by using the Listen ' method the wrong ip ... 'Because Winsock.Localip => detects the default ip installed on your PC , ' and in most of the cases it could be the LAN (nic) not the WAN (nic) 'So then you have to use the Bind function ,to bind to your right ip.. 'but how do you know & find that ip ? 'you can find it now by this appl.. it check's in the api.. IP Table.. '****************************************************************** Const MAX_IP = 5   'To make a buffer... i dont think you have more than 5 ip on your pc.. Type IPINFO      dwAddr As Long   ' IP address     dwIndex As Long '  interface index     dwMask As Long ' subnet mask     dwBCastAddr As Long ' broadcast address     dwReasmSize  As Long ' assembly size     unused1 As Integer ' not currently used     unused2 As Integer '; not currently used End Type Type MIB_IPADDRTABLE     dEntrys As Long   'number of entries in the table     mIPInfo(MAX_IP) As IPINFO  'array of IP address entries End Type Type IP_Array     mBuffer As MIB_IPADDRTABLE     BufferLen As Long End Type Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Public Declare Function GetIpAddrTable Lib "IPHlpApi" (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long Sub main() Form1.Show End Sub 'converts a Long  to a string Public Function ConvertAddressToString(longAddr As Long) As String     Dim myByte(3) As Byte     Dim Cnt As Long     CopyMemory myByte(0), longAddr, 4     For Cnt = 0 To 3         ConvertAddressToString = ConvertAddressToString + CStr(myByte(Cnt)) + "."     Next Cnt     ConvertAddressToString = Left$(ConvertAddressToString, Len(ConvertAddressToString) - 1) End Function Public Sub Start() Dim Ret As Long, Tel As Long Dim bBytes() As Byte Dim Listing As MIB_IPADDRTABLE Form1.Text1 = "" On Error GoTo END1     GetIpAddrTable ByVal 0&, Ret, True     If Ret <= 0 Then Exit Sub     ReDim bBytes(0 To Ret - 1) As Byte     'retrieve the data     GetIpAddrTable bBytes(0), Ret, False            'Get the first 4 bytes to get the entry's.. ip installed     CopyMemory Listing.dEntrys, bBytes(0), 4     'MsgBox "IP's found : " & Listing.dEntrys    => Founded ip installed on your PC..     Form1.Text1 = Listing.dEntrys & "   IP addresses found on your PC !!" & vbCrLf     Form1.Text1 = Form1.Text1 & "----------------------------------------" & vbCrLf     For Tel = 0 To Listing.dEntrys - 1         'Copy whole structure to Listing..        ' MsgBox bBytes(tel) & "."         CopyMemory Listing.mIPInfo(Tel), bBytes(4 + (Tel * Len(Listing.mIPInfo(0)))), Len(Listing.mIPInfo(Tel))          Form1.Text1 = Form1.Text1 & "IP address                   : " & ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr) & vbCrLf          Form1.Text1 = Form1.Text1 & "IP Subnetmask            : " & ConvertAddressToString(Listing.mIPInfo(Tel).dwMask) & vbCrLf          Form1.Text1 = Form1.Text1 & "BroadCast IP address  : " & ConvertAddressToString(Listing.mIPInfo(Tel).dwBCastAddr) & vbCrLf          Form1.Text1 = Form1.Text1 & "**************************************" & vbCrLf     Next 'MsgBox ConvertAddressToString(Listing.mIPInfo(1).dwAddr) Exit Sub END1: MsgBox "ERROR" End Sub

____________________________
If you find the answer helpful, please mark this topic as solved.

How to disconnect:

Option Explicit Const RAS_MAXENTRYNAME = 256 Const RAS_MAXDEVICETYPE = 16 Const RAS_MAXDEVICENAME = 128 Const RAS_RASCONNSIZE = 412 Private 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 Private Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As Any, lpcb As Long, lpcConnections As Long) As Long Private Declare Function RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long Private Sub Form_Load()     'KPD-Team 1998     'URL: http://www.allapi.net/     'E-Mail: KPDTeam@Allapi.net     'This program will close your Internet-connection, so to test this, you will have to open an Internet-connection.     Dim i As Long, lpRasConn(255) As RasConn, lpcb As Long     Dim lpcConnections As Long, hRasConn As Long     'Set the structure's size     lpRasConn(0).dwSize = RAS_RASCONNSIZE     lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize     lpcConnections = 0     'Enumerate all the available connections     returncode = RasEnumConnections(lpRasConn(0), lpcb, lpcConnections)     If returncode = 0 Then         For i = 0 To lpcConnections - 1             hRasConn = lpRasConn(i).hRasConn             'Hang up             returncode = RasHangUp(ByVal hRasConn)         Next i     End If End Sub

____________________________
If you find the answer helpful, please mark this topic as solved.

Thanks you so much. I love Network forum
=============================


____________________________
TK