🚀 go-pugleaf

si,cerca su internet  cmq io l'ho fatto con le seguenti api da inserire in
un modulo e sul form un controllo combo dove si elencano le connessioni
disponibili


********************************************
MODULO*******************************

Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef
lpdwFlags As Long, ByVal dwReserved As Long) As Boolean
Declare Function RasHangUp Lib "RasApi32.dll" Alias "RasHangUpA" (ByVal
hRASConn As Long) As Long
Declare Function RasEnumEntries Lib "RasApi32.dll" Alias "RasEnumEntriesA"
(ByVal reserved As String, ByVal lpszPhonebook As String, lprasentryname As
Any, lpcb As Long, lpcEntries As Long) As Long
Declare Function RasEnumConnections Lib "RasApi32.dll" Alias
"RasEnumConnectionsA" (lprasconn As Any, lpcb As Long, lpcConnections As
Long) As Long
Type RASCONN
   dwSize As Long
   hRASConn As Long
   szEntryName(256) As Byte
   szDeviceType(16) As Byte
   szDeviceName(128) As Byte
End Type

Type RASENTRYNAME
       dwSize As Long
       szEntryName(256) As Byte
End Type

Function Connesso() As Boolean
Connesso = InternetGetConnectedState(0&, 0&)
End Function


Sub ListDU()
Dim RASEntN_Size As Long
Dim RASEntN_Numb As Long
Dim lngRet As Long
ReDim RASEntN(255) As RASENTRYNAME
RASEntN(0).dwSize = 264
RASEntN_Size = 256 * RASEntN(0).dwSize
lngRet = RasEnumEntries(vbNullString, vbNullString, RASEntN(0),
RASEntN_Size, RASEntN_Numb)
Dim Nome, Dato As String
For i = 0 To RASEntN_Numb - 1
    Nome = StrConv(RASEntN(i).szEntryName(), vbUnicode)
    Dato = Left(Nome, InStr(Nome, Chr(0)) - 1)
    Form1.Combo1.AddItem Dato
Next i
End Sub

Sub Connetti(Nconn)
lngRet = Shell("rundll32.exe rnaui.dll,RnaDial " & Nconn, vbNormalFocus)
DoEvents
SendKeys "{enter}", True
DoEvents
End Sub

Sub Riattacca(Nconn)
Dim RASConnN_Size As Long
Dim RASConnN_Numb As Long
Dim lngRet As Long
ReDim RASCON(255) As RASCONN
RASCON(0).dwSize = 412
RASConnN_Size = 256 * RASCON(0).dwSize
lngRet = RasEnumConnections(RASCON(0), RASConnN_Size, RASConnN_Numb)
If lngRet = ERROR_SUCCESS Then
    For i = 0 To RASConnN_Numb - 1
          hRASConn = RASCON(i).hRASConn
          Nome = StrConv(RASCON(i).szEntryName(), vbUnicode)
    If Nconn = Left(Nome, InStr(Nome, Chr(0)) - 1) Then lngRet =
RasHangUp(ByVal hRASConn)
   Next i
End If
End Sub



"jekonet" <fbwros@tin.it> ha scritto nel messaggio
news:7JT19.146995$Jj7.3327262@news1.tin.it...
> ciao ragazzi,
> come posso attivare una connessione ad inernet di accesso remoto da codice
> vb6?
> c'� un API o qualcos'altro?
> grazzzzzzzz
>
>