Hallo,
ich habe ein Problem. Und zwar bekomm ich das Programm das ich geschrieben habe nicht zum laufen.
Das Programm soll Hexzeichen in Ascii Zeichen umwandlen, indem er die Windows Registrie Files (Hex- Werte) einliest und daraus eine neue Datei erstellt wo dann die Ascii Namen ausgegeben werden sollen...
Hier der Quelltext meines Programms:
_______________________________________________________________________________________________________________________________________
____________________________________________________________________________________________________________________________________
Da ich nur ein Laie bin, hoffe hier kann und will mir jemand helfe!!!
VIELEN DANK
Edit by LaMa5:
- VB-Tag hinzugefügt; Beim nächsten Mal bitte selbst dran denken!!
ich habe ein Problem. Und zwar bekomm ich das Programm das ich geschrieben habe nicht zum laufen.
Das Programm soll Hexzeichen in Ascii Zeichen umwandlen, indem er die Windows Registrie Files (Hex- Werte) einliest und daraus eine neue Datei erstellt wo dann die Ascii Namen ausgegeben werden sollen...
Hier der Quelltext meines Programms:
_______________________________________________________________________________________________________________________________________
Visual Basic-Quellcode
- Option Explicit
- Dim InputText_HEX As String
- Dim OutputText_ASC As String
- Dim TmpRegFile As String
- 'Quellpfad aus Registry, in dem der Office-Username steht
- Const SourceRegSubKey_UserInfos = "Software\Microsoft\Office\UserInfo_Temp"
- Const SourceRegKey_UserNameHEX = "UserNameHEX"
- Const SourceRegKey_UserEnvironment = "UserEnvironment"
- 'Zielpfad in Registry, in dem der Office-Username steht
- Const DestinationRegSubKey_UserName = "Software\Microsoft\Office\UserInfo_Temp"
- Const DestinationRegKeyName = "UserNameASC"
- 'Funktion Hex to String
- Private Function Convert2String(ByVal Username As String) As String
- Dim x As Integer 'Variable wird deklariert
- For x = 1 To Len(Username) Step 6 'Nach 6 Zeichen, wird ein neues Ascii- Zeichen ausgegeben (wegen "00,")
- Convert2String = Convert2String & Chr$(CLng("&H" & Mid$(Username, x, 2))) 'ToString Funktion
- Next
- Exit Function
- End Function
- 'tmp. Reg-File erzeugen
- Private Function CreateRegFile()
- On Error Resume Next
- Dim RegFile As Integer
- RegFile = FreeFile
- Open TmpRegFile For Output As #RegFile
- Print #RegFile, "Windows Registry Editor Version 5.00"
- Print #RegFile, "[HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Common\UserInfo]"
- Print #RegFile, ""
- Print #RegFile, """Username""=hex:" & OutputText_ASC
- Close #RegFile
- End Function
- Private Sub cmdTranslate_Click()
- On Error Resume Next
- InputText_HEX = ""
- OutputText_ASC = ""
- lblInfo.Caption = "- Microsoft FullUsername auslesen aus:" & vbCrLf & _
- " 'HKCU\Software\Microsoft\Office\10.0\Common\UserInfo\UserNameASCII'" & vbCrLf & vbCrLf & _
- "- Usernamen in Registry entsprechenden ASC-Wert umwandeln" & vbCrLf & vbCrLf & _
- "- Tmp. Reg-File anlegen: 'C:\UserName.reg' und ASC-Wert darin speichern"
- 'MS.Fullname aus Reg einlesen
- InputText_HEX = Reg_GetValue(HKEY_CURRENT_USER, SourceRegSubKey_UserInfos, SourceRegKey_UserNameHEX)
- 'Tmp. Regfile Pfad aus Registry einlesen
- TmpRegFile = Reg_GetValue(HKEY_CURRENT_USER, SourceRegSubKey_UserInfos, SourceRegKey_UserEnvironment)
- 'Ueberpruefung ob letztes Zeichen ein '\' ist
- If Right(TmpRegFile, 1) <> "\" Then TmpRegFile = TmpRegFile & "\"
- TmpRegFile = TmpRegFile & "UserInfos.reg"
- 'Falls KEIN Username hinterlegt ist, wird 'Meffert AG' eingetragen
- If InputText_HEX = "" Then InputText_HEX = "4D,00,65,00,66,00,66,00,65,00,72,00,74,00,20,00,41,00,47"
- 'Username in Registry entsprechenden HEX-Wert umwandeln
- OutputText_ASC = Convert2String(InputText_HEX) & "00,00"
- 'tmp. Reg-File mit HEX-Wert erzeugen
- CreateRegFile
- 'erzeugten HEX-Wert in tmp. Reg-Wert schreiben
- Reg_SetString HKEY_CURRENT_USER, DestinationRegSubKey_UserName, DestinationRegKeyName, OutputText_ASC
- End Sub
- Private Sub Form_Load()
- cmdTranslate_Click
- End
- End Sub
____________________________________________________________________________________________________________________________________
Da ich nur ein Laie bin, hoffe hier kann und will mir jemand helfe!!!
VIELEN DANK
Edit by LaMa5:
- VB-Tag hinzugefügt; Beim nächsten Mal bitte selbst dran denken!!
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „LaMa5“ ()