Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Private Declare Function ... in *.vbs (https://www.delphipraxis.net/9936-private-declare-function-%2A-vbs.html)

FriFra 8. Okt 2003 09:46


Private Declare Function ... in *.vbs
 
Liste der Anhänge anzeigen (Anzahl: 1)
Irgendwie stört sich der Scripting-Host beim Ausführen eines VB-Scriptes am Schlüsselwort "Function" :? .
Hat jemand eine Idee, wie man in VBS externe Funktionen deklariert?

Der Code Funktioniert unter VB, VBA, und Lotus Notes ... VB-Script will nicht
Code:
Private Declare Function GetMails_File Lib "localmail.dll" (ByVal Mailfile As String, ByVal KillDuplicates As Integer, ByVal RealNameEnabled As Integer, ByVal RealNameSimulated As Integer, ByVal FromOutlook As Integer, ByVal FromOpera As Integer, ByVal FromNetscape As Integer, ByVal FromLotusNotes As Integer, ByVal FromEudora As Integer, ByVal FromPegasus As Integer, ByVal FromTheBat As Integer) As Integer

Christian Seehase 8. Okt 2003 13:59

Re: Private Declare Function ... in *.vbs
 
Moin FriFra,

die genaue Syntax hab' ich jetzt auch nicht im Kopf, aber bei VBS kann man m.E. nicht direkt Funktionen importieren, sondern sie werden als Objekte eingebunden, z.B. so

Das FileSystemObjekt enthält dann eine Methode GetFolder usw.

Code:
Set obj_FSO = CreateObject("Scripting.FileSystemObject")
Set obj_lokalAccounts = obj_FSO.GetFolder("C:\Dokumente und Einstellungen")
Du müsstest das Ganze dann wohl als Com-Objekt realisieren.

FriFra 8. Okt 2003 14:08

Re: Private Declare Function ... in *.vbs
 
Aber auf sehr vielen Rechnern ist durch Office ja VBA verfügbar, d.h. mit einem VBA-Objekt wäre doch alles machbar...

Christian Seehase 8. Okt 2003 14:17

Re: Private Declare Function ... in *.vbs
 
Moin FriFra,

Dein Problem war doch VBS?
Das ist zumindest der Weg, den ich für VBS kenne, was allerdings nicht heissen soll, dass es der einzige Weg sein muss.
Für VBA kenne ich überhaupt keinen Weg ;-)

FriFra 8. Okt 2003 14:22

Re: Private Declare Function ... in *.vbs
 
Zitat:

Zitat von Christian Seehase
Moin FriFra,

Dein Problem war doch VBS?
Das ist zumindest der Weg, den ich für VBS kenne, was allerdings nicht heissen soll, dass es der einzige Weg sein muss.
Für VBA kenne ich überhaupt keinen Weg ;-)

In VBA funktioniert das Einbinden externer Funktionen aus DLL's problemlos (identisch zu VB)...


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:19 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf