[NeX#]

Hey,

wollte fragen welchen Code ich bei Button1 eingeben muss, sodass bei Textbox1 der Windows Key (Serial) steht, der gerade benutzt wird.

Danke

[tha_specializt]

Also meine Glaskugel ist zwar mächtig aber nicht allmächtig - um was gehts überhaupt? Du willst den Windows-ProductKey auslesen, ja? Entgegen all meiner Gewohnheit kriegste direkt die Lösung in VB ... auch wenn man befürchten muss dass du damit nur wenig anfangen kannst :

 '  ##############################################################
 '  #        #
 '  # VBS***** to find the DigitalProductID for your  #
 '  # Microsoft windows Installation and decode it to  #
 '  # retrieve your windows Product Key    #
 '  #        #
 '  # -----------------------------------------------  #
 '  #        #
 '  #  Created by:  Parabellum   #
 '  #        #
 '  ##############################################################
 '
 ' <--------------- Open Registry Key and populate binary data into an array -------------------------->
 '
 const HKEY_LOCAL_MACHINE = &H80000002 
 strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
 strValueName = "DigitalProductId"
 strComputer = "."
 dim iValues()
 Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
       strComputer & "\root\default:StdRegProv")
 oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,iValues
 Dim arrDPID
 arrDPID = Array()
 For i = 52 to 66
 ReDim Preserve arrDPID( UBound(arrDPID) + 1 )
 arrDPID( UBound(arrDPID) ) = iValues(i)
 Next
 ' <--------------- Create an array to hold the valid characters for a microsoft Product Key -------------------------->
 Dim arrChars
 arrChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9")
 
 ' <--------------- The clever bit !!! (Decrypt the base24 encoded binary data)-------------------------->
 For i = 24 To 0 Step -1
 k = 0
 For j = 14 To 0 Step -1
  k = k * 256 Xor arrDPID(j)
  arrDPID(j) = Int(k / 24)
  k = k Mod 24
 Next
 strProductKey = arrChars(k) & strProductKey
 ' <------- add the "-" between the groups of 5 Char -------->
 If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey
 Next
 strFinalKey = strProductKey
 '
 ' <---------- This part of the s***** displays operating system Information and the license Key --------->
 '
 strComputer = "."
 Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
 For Each objOperatingSystem in colOperatingSystems
    strOS   = objOperatingSystem.Caption
    strBuild   = objOperatingSystem.BuildNumber
    strSerial   = objOperatingSystem.SerialNumber
    strRegistered  = objOperatingSystem.RegisteredUser
 Next
 Set wshShell=CreateObject("ws*****.shell")
 strPopupMsg = strOS & vbNewLine & vbNewLine
 strPopupMsg = strPopupMsg & "Build Number:  " & strBuild & vbNewLine
 strPopupMsg = strPopupMsg & "PID:  " & strSerial & vbNewLine & vbNewLine
 strPopupMsg = strPopupMsg & "Registered to:  " & strRegistered & vbNewLine & vbNewLine & vbNewLine
 strPopupMsg = strPopupMsg & "Your Windows Product Key is:" & vbNewLine & vbNewLine & strFinalKey
 strPopupTitle = "Microsoft Windows License Information"
 wshShell.Popup strPopupMsg,,strPopupTitle,vbCancelOnly+vbinformation
 WS*****.Quit

Und um den Kids gleich die Trollgrundlage zu rauben :
[ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ]

[NeX#]

/edit:
jagut hast recht.. sry aber ich hasse es wenn ich das wort "kiddy" seh, weil falls ich eins wär (was nicht der fall ist) sollte man die trotzdem nicht beleidigen oder sonstiges weil jeder mal ein kind war.

[Xalir]

Du hast den Sinn seiner Aussage nicht verstanden. Es ging nicht um Dich, sondern dass das S***** nicht von ihm stammt.

[tha_specializt]

Zitat von NeX#

/edit:
jagut hast recht.. sry aber ich hasse es wenn ich das wort "kiddy" seh, weil falls ich eins wär (was nicht der fall ist) sollte man die trotzdem nicht beleidigen oder sonstiges weil jeder mal ein kind war.

Interessant dass du dich angesprochen fühlst ... und noch interessanter ist dass du so etwas als Beleidigung interpretierst

[NeX#]

hm also ich denke mal das wir beide wissen das dus als beleidigung gemeint hast auch wenn dus jetzt nicht so sagen würdest. und wie schon gesagt ich hatte den letzten satz nicht richtig gelesen, deswegen habe ich gedacht das du mich meinst.

[tha_specializt]

Zitat von NeX#

hm also ich denke mal das wir beide wissen das dus als beleidigung gemeint hast

Nö, das "weisst" nur du. Sonst niemand. Denn eine Personengruppenbeschreibung kann definitionsgemäß keine Beleidigung sein - das lernt man eigentlich in der Grundschule.

Zitat von NeX#

auch wenn dus jetzt nicht so sagen würdest.

Aha? Was denn überhaupt? Weisst du das eigentlich selbst? Ich bezweifle es; im Übrigen "weiss" das auch sonst niemand. Aber da du scheinbar sehr viel Wissen über alle Dinge dieser Existenz besitzt erleuchtest du uns bestimmt gleich - zumindest hoffe ich das

und wie schon gesagt ich hatte den letzten satz nicht richtig gelesen, deswegen habe ich gedacht das du mich meinst.

Nein, das schreibst du just zum allerersten Mal.

[NeX#]

Sry aber du gehst mir voll auf den Sack (das haben nur männliche Menschen). Und du glaubst wohl auch das ein ganz toller bist oder..

Zitat:
Zitat von NeX# Beitrag anzeigen
auch wenn dus jetzt nicht so sagen würdest.
Aha? Was denn überhaupt? Weisst du das eigentlich selbst? Ich bezweifle es; im Übrigen "weiss" das auch sonst niemand. Aber da du scheinbar sehr viel Wissen über alle Dinge dieser Existenz besitzt erleuchtest du uns bestimmt gleich - zumindest hoffe ich das

lies den ganzen satz und dann weißt dus.

und nein, ich habe folgendes nicht zum erstenmal gesagt:

und wie schon gesagt ich hatte den letzten satz nicht richtig gelesen

. Ich habe das gefühl das du eine Leseschwäche hast. Ich empfehle dir zu einem Arzt zu gehen oder ein sogenantes "Buch" kaufst und es dir liest bzw. versuchst zu lesen.