Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Verbindungsdaten abfragen
Autor: Jack
Datum: 25.02.03 18:41
'Beispiel : Online Provider Auflisten und Starten und Verbindung ' beenden. Private 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 Private Declare Function RasHangUp Lib "RasApi32.dll" _ Alias "RasHangUpA" _ (ByVal hRasConn As Long) _ As Long Private Declare Function RasEnumConnections Lib "RasApi32.dll" _ Alias "RasEnumConnectionsA" _ (lpRasCon As Any, _ lpcb As Long, _ lpcConnections As Long) _ As Long Private Declare Function RasGetConnectStatus Lib "RasApi32.dll" _ Alias "RasGetConnectStatusA" _ (ByVal hRasCon As Long, _ lpStatus As Any) _ As Long Private Const RAS95_MaxEntryName = 256 Private Const RAS95_MaxDeviceType = 16 Private Const RAS95_MaxDeviceName = 32 Private Const RASCS_DONE = &H2000 Private Const RASCS_CONNECTED = RASCS_DONE Private Type RASCONN95 dwSize As Long hRasCon As Long szEntryName(RAS95_MaxEntryName) As Byte szDeviceType(RAS95_MaxDeviceType) As Byte szDeviceName(RAS95_MaxDeviceName) As Byte End Type Private Type RASCONNSTATUS95 dwSize As Long RasConnState As Long dwError As Long szDeviceType(RAS95_MaxDeviceType) As Byte szDeviceName(RAS95_MaxDeviceName) As Byte End Type Private Type RASENTRYNAME95 dwSize As Long szEntryName(RAS95_MaxEntryName) As Byte End Type Private lIsConnect As Long Private Function fTestingOnlineConnect() As Boolean Dim RC(255) As RASCONN95 Dim RCS As RASCONNSTATUS95 Dim ldwSize As Long Dim lpcCon As Long Dim lRet As Long RC(0).dwSize = 412 ldwSize = 256 * RC(0).dwSize lRet = RasEnumConnections(RC(0), ldwSize, lpcCon) If lRet <> 0 Then Exit Function End If RCS.dwSize = 160 lRet = RasGetConnectStatus(RC(0).hRasCon, RCS) If RCS.RasConnState = RASCS_CONNECTED Then '&H2000 = 9192 fTestingOnlineConnect = True Frame1 = fTestingOnlineConnect & " : " & " Es besteht eine Online-Verbindung." lIsConnect = RC(0).hRasCon Command3.Enabled = True Command1.Enabled = False Else fTestingOnlineConnect = False Frame1 = fTestingOnlineConnect & " : " & " Es besteht keine Online-Verbindung." Command3.Enabled = False Command1.Enabled = True End If End Function Private Sub Command1_Click() Dim sRet As String sRet = "rundll rnaui.dll,RnaDial " & Me.List1.List(Me.List1.ListIndex) Shell sRet, vbNormalFocus End Sub Private Sub Command2_Click() Unload Me End End Sub Private Sub Form_Load() fAddInstalledProvider End Sub Private Function fAddInstalledProvider() ReDim REN(255) As RASENTRYNAME95 Dim sConvertUni As String Dim ldwSize As Long Dim lRet As Long Dim lEntries As Long REN(0).dwSize = 264 ldwSize = 256 * REN(0).dwSize lRet = RasEnumEntries(vbNullString, vbNullString, REN(0), ldwSize, lEntries) For lRet = 0 To lEntries - 1 sConvertUni = StrConv(REN(lRet).szEntryName(), vbUnicode) Me.List1.AddItem Left$(sConvertUni, InStr(sConvertUni, Chr$(0)) - 1) Next On Local Error Resume Next Me.List1.ListIndex = 0 End Function Private Sub Timer1_Timer() fTestingOnlineConnect End Sub Private Function fCloseConnect() As Integer Dim lRet As Long On Error GoTo ErrHandle fCloseConnect = False lRet = RasHangUp(lIsConnect) If lRet = 0 Then fCloseConnect = True End If Exit Function ErrHandle: fCloseConnect = False Exit Function End Function Private Sub Command3_Click() fCloseConnect End Sub

Verbindungsdaten abfragen	605	BhaaL	24.02.03 18:28
Re: Verbindungsdaten abfragen	378	Stormguard	24.02.03 22:34
Re: Verbindungsdaten abfragen	365	BhaaL	25.02.03 14:15
Re: Verbindungsdaten abfragen	215	Jack	25.02.03 18:41
Re: Verbindungsdaten abfragen	363	Stormguard	25.02.03 18:58
Re: Verbindungsdaten abfragen	365	BhaaL	25.02.03 19:09
Re: Verbindungsdaten abfragen	408	brave@heart	26.02.03 03:10
Re: Verbindungsdaten abfragen	380	BhaaL	26.02.03 14:22

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen