Entwicklung - VB

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(t...

'API-Function deklarieren 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, ...

'API-Function deklarieren Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Command1_Click() tsOpenCdFach True End Sub Private Sub Command2_Click() tsOpenCdFach False End ...