ich habe folgendes VBA-Problem. Die folgenden Codes funktionieren für sich allein sehr gut (vielen Dank nochmal an alle Helfer). Und zwar wird mit dem ersten Code der Internet Explorer aufgerufen und eine bestimmte Seite aufgerufen.
//erster Code
Option Explicit
Private Declare Function ShellExecute Lib "Shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long
Private Sub cmdOpen_Click()
ShellExecute 0, "Open", "https://www.herber.de", _
vbNullString, vbNullString, 1
End Sub
Der zweite (hier folgende Code) trennt die Verbindung zum Internet. Mein Problem: ich möchte dieses automatisieren, d.h. nach dem Start (also nach dem Aufruf des ersten Codes -Aufruf der Seite) soll kurz auf der Seite verweilt werden (hierfür brauche ich einen VBA Code). Dann folgt der zweite Code:
//Internet trennen
Private Type RASCONN
dwSize As Long
hRasConn As Long
szEntryName(256) As Byte
szDeviceType(16) As Byte
szDeviceName(128) 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 Verbindung_trennen()
Dim lprasconn(255) As RASCONN
lprasconn(0).dwSize = 412
lpcb& = 256 * lprasconn(0).dwSize
RasEnumConnections lprasconn(0), lpcb&, lpcConnections&
If lpcConnections& > 0 Then
RasHangUp lprasconn(0).hRasConn
End If
End Sub
Nach der Trennung soll das Explorerfenster automatisch geschlossen und etwa 5 min gewartet werden, dann soll automatisch die Wideranwahl der Seite gestartet werden (also mit dem ersten Code wieder begonnen werden).
Katja