Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Konstante einbnden
Autor: hyroglyphic
Datum: 26.03.02 13:27
Nochmals Danke! Mir feht allerdings das Basiswissen um festzustellen wo ich in der Funktion festlegen kann, das ein Drucker verbunden werden soll. Die Funktion sieht nun so aus: '******************************************************* '* Netzlaufwerk verbinden/trenne (ohne Windows-Dialog) * '******************************************************* Private Declare Function WNetAddConnection Lib "mpr.dll" _ Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, _ ByVal lpszPassword As String, _ ByVal lpszLocalName As String, ByVal RType) As Long Private Declare Function WNetCancelConnection Lib _ "mpr.dll" Alias "WNetCancelConnectionA" _ (ByVal lpszName As String, ByVal bForce As Long) _ As Long ' Fehler-/Rückgabe-Konstanten und Resource-Konstanten Private Const WN_SUCCESS = 0 Private Const RESOURCETYPE_PRINTER = &H2 ' Drucker verbinden Public Function Drive_Connect(ByVal LocalDrive As String, _ ByVal NetworkPath As String, _ Optional ByVal ShowError As Boolean = False) As Boolean Dim lResult As Long lResult = WNetAddConnection(NetworkPath, _ vbNullString, LocalDrive) ' Dim bResult As Boolean ' bResult = (WNetConnectionDialog(Hwnd, RESOURCETYPE_PRINTER) = 0) If ShowError And lResult <> WN_SUCCESS Then MsgBox "Fehler! Drucker wurde nicht verbunden!", vbCritical, "Fehler beim verbinden des Druckers..." End If Drive_Connect = (lResult = WN_SUCCESS) End Function ' Drucker trennen Private Function Drive_Disconnect( _ ByVal LocalDrive As String, _ Optional ByVal ShowError As Boolean = False) As Boolean Dim lResult As Long lResult = WNetCancelConnection(LocalDrive, True) If ShowError And lResult <> WN_SUCCESS Then MsgBox "Fehler! Druckerverbindung wurde nicht getrennt!", vbCritical, "Fehler beim löschen der Verbindung..." End If Drive_Disconnect = (lResult = WN_SUCCESS) End Function Hoffe Ihr könnt mir weiterhelfen! PS: Super Board!!!!!!

Netzwerkdrucker verbinden	97	hyroglyphic	26.03.02 10:50
Re: Netzwerkdrucker verbinden	539	Dieter	26.03.02 11:07
Re: Konstante einbnden	72	hyroglyphic	26.03.02 12:07
Re: Konstante einbnden	391	Dieter	26.03.02 12:21
Re: Konstante einbnden	73	hyroglyphic	26.03.02 13:27
Re: Konstante einbnden	354	Dieter	26.03.02 13:47
Re: Konstante einbnden	71	hyroglyphic	26.03.02 14:06
Leider nein (oT)	353	Dieter	26.03.02 14:11

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