30.09.2007, 16:10 Uhr
Falls es jemanden interessiert, hab ich hier ein Paket angehängt, mit dem man DLL und OCX in einem AB-Script beim System registrieren kann.
-> Das angehängte Paket runter laden, und im Angelbot Verzeichnis (oder einem Unterverzeichnis) Entpacken.
-> Die enthaltene Batch Datei ausführen (registerdll.bat).
War der vorgang erfolgreich, solltet ihr jetzt im Script die DLL "RegisterDLL.dll" nutzen können.
<edit>
Es muss natürlich
AllowCreateObject=Yes
aktiviert sein
</edit>
Beispiel:
Die dllFileSystem.dll ist eine kleine Test-DLL, die ich beigefügt hab.
Da wir die dllFileSystem.dll mit Register registriert haben, sollten wir jetzt auch bequem darauf zugreifen können:
Download:
[attachment=31]
Oder
Paket: Klick
und weil es so shcön war, hier noch mal ein komplettes Beispiel:
(Inhalt des angehängten Pakets muss im Angelbot Hauptverzeichnis liegen)
http://pasteit.angelbot-portal.de/84
EDIT:
bevor jemand anprangert..
ja ich weiß, es besteht evt ein gewisses Risiko deshalb empfehle ich es auch wirklich nur die machen zu lassen, die wissen was sie machen °_°
Ich will für keinerlei schäden verantwortlich gemacht werden.
-> Das angehängte Paket runter laden, und im Angelbot Verzeichnis (oder einem Unterverzeichnis) Entpacken.
-> Die enthaltene Batch Datei ausführen (registerdll.bat).
War der vorgang erfolgreich, solltet ihr jetzt im Script die DLL "RegisterDLL.dll" nutzen können.
<edit>
Es muss natürlich
AllowCreateObject=Yes
aktiviert sein
</edit>
Beispiel:
Code:
Dim Reg
Sub Init()
'Object erstellen
Set Reg = CreateObject("RegisterDLL.clsRegister")
'funktion register aus der RegisterDLL aufrufen, und somit eine andere
' weitere DLL oder OCX Registrieren.
r = Reg.Register("dllFileSystem.dll", True)
If r = 1 Then
'Regsitration der "dllFileSystem.dll" erfolgreich
SpreadFlagMessage 0, "+m", "*** Regsitration erfolgreich!"
Else
'Regsitration nicht erfolgreich
SpreadFlagMessage 0, "+m", "*** Regsitration nicht erfolgreich!"
End If
End SubDie dllFileSystem.dll ist eine kleine Test-DLL, die ich beigefügt hab.
Da wir die dllFileSystem.dll mit Register registriert haben, sollten wir jetzt auch bequem darauf zugreifen können:
Code:
'Objekt erstellen
Set FS = CreateObject("dllFileSystem.clsFileSystem")
'abfragen ob verzeichnis existiert
If FS.DirExists("pfad\zum\verzeichnis") Then
End IF
'oder datei:
If FS.FileExists("pfad\zur\datei.txt") Then
End IFDownload:
[attachment=31]
Oder
Paket: Klick
und weil es so shcön war, hier noch mal ein komplettes Beispiel:
(Inhalt des angehängten Pakets muss im Angelbot Hauptverzeichnis liegen)
http://pasteit.angelbot-portal.de/84
EDIT:
bevor jemand anprangert..
ja ich weiß, es besteht evt ein gewisses Risiko deshalb empfehle ich es auch wirklich nur die machen zu lassen, die wissen was sie machen °_°
Ich will für keinerlei schäden verantwortlich gemacht werden.
