Verbindung zum Internet herstellen
Dienstag, 10. September 2002 18:24
Private Const tsForceUnAttended = 2
Private Declare Function InternetAutodial Lib "wininet.dll" _
(ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Public Function tsConnect() As Boolean
Dim intMsgBoxResult As Integer
If InternetAutodial(tsForceUnAttended, 0) Then
tsConnect = True
Else
tsConnect = False
End If
End Function
Private Declare Function InternetAutodial Lib "wininet.dll" _
(ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Public Function tsConnect() As Boolean
Dim intMsgBoxResult As Integer
If InternetAutodial(tsForceUnAttended, 0) Then
tsConnect = True
Else
tsConnect = False
End If
End Function
Erstellung: 0.04637s 