| |
| |
|
Frank
Abbing | Eine kleine Dll um die ID eines Users sehr sicher ermitteln zu können. Die Dll gibt einen 19-stelligen Code zurück - einen 16-stelligen Erkennungscode mit 3 integrierten Trennzeichen. Inklusive Testcode.
 |
|
| |
| |
| |
|
|
Jac
de
Lad | Gaaaaaaaaaaaaaaaaanz große Klasse.  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 18.05.2008 ▲ |
|
| |
|
|
Jac
de
Lad | Bau die Funktion doch noch mit in die ProSpeed.dll ein.  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 18.05.2008 ▲ |
|
| |
|
|
Frank
Abbing | Jac
Bau die Funktion doch noch mit in die ProSpeed.dll ein.
Wäre in der Tat sinnvoll...  |
|
| |
| |
| |
|
|
| @Frank
in der Listview.dll wäre das Teil auch gut aufgehoben  |
|
| |
| |
| |
|
|
Frank
Abbing | Horst Horn
@Frank in der Listview.dll wäre das Teil auch gut aufgehoben
Hehe, kann das doch nicht in alle meine Dlls einbauen...
Vielleicht ist eine eigenständige Dll doch die beste Lösung, oder ich mach es zusätzlich als XPIA-Beispiel. |
|
| |
| |
| |
|
|
| ...oder eine Unit ???  |
|
| |
| |
| |
|
|
 | Bleibt noch: get  (userID) - also ab damit nach → Roland  |
|
| |
| |
| |
|
|
Frank
Abbing | | Wenn Roland das so einbauen möchte, soll es mir recht sein, gerne. |
|
| |
| |
| |
|
|
RGH | Gute Idee! Erinnere mich jemand bitte noch mal dran, wenn ich beginne, die nächsze Version nach 11.0 vorzubereiten.
Gruß
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 19.05.2008 ▲ |
|
| |
|
|
Frank
Abbing | iF schon geschehen...  |
|
| |
| |
| |
|
|
Jac
de
Lad | Folgender Quelltext liefert bei mir unterschiedliche UserIDs:
KompilierenMarkierenSeparierenDeclare text$,x&,bereich#
Dim bereich#,32
External(userid.dll, GetUserID, bereich#)
text$=String$(bereich#,0)
Cls
Print text$
x&=ImportDLL(userid.dll,)
GetUserID(bereich#)
text$=String$(bereich#,0)
Print text$
FreeDLL y&
x&=ImportDLL(userid.dll,)
GetUserID(bereich#)
text$=String$(bereich#,0)
Print text$
FreeDLL y&
x&=ImportDLL(userid.dll,)
GetUserID(bereich#)
text$=String$(bereich#,0)
Print text$
FreeDLL y&
x&=ImportDLL(userid.dll,)
GetUserID(bereich#)
text$=String$(bereich#,0)
Print text$
FreeDLL y&
x&=ImportDLL(userid.dll,)
GetUserID(bereich#)
text$=String$(bereich#,0)
Print text$
FreeDLL y&
Dispose bereich#
WaitInput
Ist das normal? |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 08.06.2008 ▲ |
|
| |
|
(320)
Deutsch
English
Français
Español
Italia