Lupuz.de: Artikel-Portal / Magazin

Zurück   Postpla.net - die Forum Community > PC, Internet und Technik > Coder's Area

Mein erstes (gutes?) Programm

Anzeigen:

Thema geschlossen
 
Themen-Optionen
cyRus-ACG
Alt 30.03.2001, 15:57   #1
Mein erstes (gutes?) Programm

Also, hi PP'ler ich hab mich jetzt doch für VB entschieden, da ich das für die Firma auch am besten gebrauchen kann! Also hier gibs mein erstes (richtiges) Programm welches das Ändern des HL-CD-Keys erleichtert. http://vb.exit.mytoday.de/tgc/Files/hlkc.zip
Über ein Feedback würd ich mich freuen!

meine Homepage thx.to/tgC wird grad überarbeitet und sieht dann auch irgendwann besser aus..
 
 
Nach oben
ByteGhost
Alt 30.03.2001, 19:12   #2
Beitrag

Öhmmm nunja, kann ich zwar nicht brauchen aber hab vielen Dank das du uns eine Kostprobe deines können gibt´s

Mhhhhhh kann nicht mal einer ne neue Taskleiste schreiben, hätte da schon nen paar Vorschläge.

Hihi wollte erst sowas selber machen aber dann hat Internet nach mir gerufen und ich musste den Ruf der Wildnis wieder folgen

Greetz
ByteGhost
 
 
Nach oben
DasHeLd2k
Alt 31.03.2001, 12:23   #3
Beitrag

der link is down upps nochma


P.S vb is schwul nimm delphi
 
 
Nach oben
hackvresse
Alt 31.03.2001, 13:36   #4
Beitrag

soso VB ist schwul...
 
 
Nach oben
cyRus-ACG
Alt 31.03.2001, 14:10   #5
Beitrag

der link hatte sich geändert.. sorry..
http://vb.exit.mytoday.de/tgc/Files/cyrus/hlkc.zip

jetzt sollte es gehen..

VB ist nicht schwul..
 
 
Nach oben
Dr.Eraser
Alt 02.04.2001, 13:40   #6
Frage

Wie hast du die Registrierung angesprochen?
 
 
Nach oben
cyRus-ACG
Alt 02.04.2001, 14:31   #7
Beitrag

Über ein zusätzliches Modul (sind API-Funktionen)

Ich hab in VB - Enterprise keine Komponente gefunden die dies erleichtert...

Also hab ich mir nen Modul besorgt..
meld dich bei mir dann kannste das haben..

Mit Vb-Internen mitteln
(SaveSetting, GetSetting etc.) lässt sich nur ein VB - zugesprochener Teil in der Registry ansprechen.. (verbessert mich wenn ich mich irre)
 
 
Nach oben
cyRus-ACG
Alt 03.04.2001, 23:36   #8
Cool

So, da mir Dr.Eraser eine email geschickt hat um zu erfahren wo es das Registry-Modul gibt, poste ich mal meine Antwort auf die mail auch noch auffen PP, da es andere auch noch interessieren könnte..:

AW-MAIL:

Hi Dr.Eraser

Auf den gleich genannten Seiten ist das Modul, welches ich auch verwende, nur ein wenig modifiziert habe, was für Dich aber nicht nötig ist, um einiges besser erklärt als ich es könnte!
http://www.cae-software.com/vb/ http://www.gssg.de/tips.htm#regtool

Da findes du alles was nötig ist, wenn Dir bei der anwendung irgendwas unklar ist, kannst Du mich gern nochmal ansprechen, ich versuche Dir dann zu helfen

cu
cyRus-tgC

AW-Mail ENDE

 
 
Nach oben
Dr.Eraser
Alt 04.04.2001, 15:21   #9
Beitrag

Konkreten Dank...
-----------------
Dr.Eraser
 
 
Nach oben
Tomato

Zum Thema Registry ändern unter VB...

In der MSDN is da eigentlich ne recht ausführliche Hilfe drüber... Ich hau trotzdem mal etwas Code hier hin, mit dem ich es mache
(is von einem "anonymer Browser" an dem ich zur Zeit arbeite):

(sollte sinnvollerweise in einem Modul, NICHT in einem Formular geschehn:

*** Deklarationen ***
Code:
Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Global Const reg_NONE = 0
Global Const REG_SZ = 1
Global Const reg_EXPAND_SZ = 2
Global Const reg_BINARY = 3
Global Const REG_DWORD = 4
Global Const HKEY_CLASSES_ROOT = &H80000000
Global Const HKEY_CURRENT_USER = &H80000001
Global Const HKEY_LOCAL_MACHINE = &H80000002
Global Const HKEY_USERS = &H80000003
Global Const KEY_QUERY_VALUE = &H1
'Global Const doof = 3
Soo... und nu SICHERN von Registry-Einstellungen:
Code:
 If GetSetting("Pirate Browser", "ANONYM", "Fake Registry", "false") = "true" Then
            whatToDo.Panels(1).Text = "Sichere Registry-Settings!"
' >>>
 RetVal = RegOpenKeyEx(HKEY_CURRENT_USER, .Fields("Verzeichnis"), 0, KEY_QUERY_VALUE, hKey)
                        RetVal = RegQueryValueEx(hKey, .Fields("Wert"), 0, REG_SZ, ByVal Wert, Len(Wert))
(Wo bei mir ".fields("Verzeichnis") steht kommt das entsprechende Verzeichnis der Registry rein, also z.B. :"software\microsoft\windows\currentversion\"
wo bei mir ".fields("Wert")" steht der Schlüssel, also z.B. "ProductId"


hoffe geholfen zu haben....
 
 
Nach oben
Tomato

ähm. sprachverwirrung... sollte natürlich LESEN von Registry-Einstellungen, NICHT SICHERN heissen!
 
 
Nach oben
Ähnliche Themen, die dich vielleicht interessieren
Thema Autor Forum Antworten Letzter Beitrag
Java Programm Entschlüsselung mit bekanntem Schlüssel Wollito Coder's Area 15 11.02.2008 15:29
MP3 Programm Squdus Kreativcenter 17 17.02.2006 23:51
Backup Programm! Bjoern Betriebssysteme und Software 0 06.02.2003 19:36
Anzeigen:
Thema geschlossen

Themen-Optionen



Alle Zeitangaben in WEZ +2. Es ist jetzt 08:42 Uhr.


Lupuz.de - wir können auch anders!
©1998 - 2008, Lupuz:Information-Network
Powered by vBulletin Version 3.7.1 (Deutsch), Jelsoft Enterprises Ltd.
Grüne Links?

SEO by vBSEO 3.1.0 ©2007, Crawlability, Inc.