Lotus Notes / Domino Sonstiges > Tipps und Tricks

Systeminformationen (API)

<< < (3/3)

manuel:
Wie versprochen:


--- Code: ---
Declare Function InternetGetConnectedState Lib "wininet.dll" (lpSFlags As Long, Byval dwReserved As Long) As Long

Const INTERNET_CONNECTION_LAN = &H2
Const INTERNET_CONNECTION_MODEM = &H1
Const INTERNET_CONNECTION_PROXY = &H4
Const INTERNET_CONNECTION_MODEM_BUSY = &H8

--- Ende Code ---




--- Code: ---
Sub Click(Source As Button)
     Dim icFlags As Long
     
     Call InternetGetConnectedState(icFlags, 0&)
     
     Msgbox Out(icFlags, INTERNET_CONNECTION_LAN), 0, "Verbunden via LAN"
     Msgbox Out(icFlags, INTERNET_CONNECTION_MODEM), 0, "Verbunden via Modem"
     Msgbox Out(icFlags, INTERNET_CONNECTION_PROXY), 0, "Verbunden via Proxy"
     Msgbox Out(icFlags, INTERNET_CONNECTION_MODEM_BUSY), 0, "Modem ist gerade aktiv"
End Sub


Function Out(Byval icFlags&, Byval Flag&) As String
     If Flag And icFlags Then
           Out = "Ja"
     Else
           Out = "Nein"
     End If
End Function

--- Ende Code ---

eknori (retired):
Danke dir, werde es gleich mal einbauen

eknori (retired):
Habs est mal so als Sub eingebaut; mach morgen noch eine FUnktion daraus

Silvio:
Re: zu Geschrieben am: 02.04.02 um 12:25:46
Ich habe schon ein paar Jahre VB3,4,5 auf dem Buckel, aber den Std-Drucker umschalten per LS habe ich (auch noch) nicht hingekriegt. Wie du möchte ich auch zu PDF umschalten und ein Dok erstellen und wieder zurück. Leider scheitert es daran dass Notes die Info nicht von W2k erhält oder diese selbst nicht verfolgt.
Das einzige was ich nach der Std-Drucker Umstellung in W2k (noch) nicht versucht habe ist den Notes-Client ein weiteres mal zu starten und hoffen das dieser den PDF Drucker anzieht. => Setzt eine eigene Notes.INI vorraus. Benötigt ein wenig mehr Speicher aber sollte funktionieren.
Im schlimmsten Fall musst du die Notes C-API ansprechen.

Silvio

eknori (retired):
Ne ne, das geht schon mit LS und ein bisschen API Programmierung. Die Vorgehensweise ist mir im Prinzip auch schon klar, bin nur leider noch nicht dazu gekommen, das konsequent umzusetzen.

Zum Thema PDF guck doch mal hier

http://www.atnotes.de/cgi-bin/yabb/YaBB.pl?board=002-3;action=display;num=1019112400

Navigation

[0] Themen-Index

[*] Vorherige Sete