NicoTn 0 Report post Posted February 26, 2006 (edited) System Tool CHANGELOG Version: 0.1 BETA By Str!ke Update v0.1 BETA * Added Date * Added Time * Added Product Key * Added Serial Key * Added OS Will Be Updated Soon Many Credits To th.meger THANKS expandcollapse popup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Func Createdby($Str!ke);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; msgbox(0, "Createdby()", "Nick 'Str!ke' Kamoen");; ;; EndFunc;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Copyright 2006 © Deepdesigns.nl;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Many Credits To th.meger THANKS;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;; #include <Date.au3>;;; ;;;;;;;;;;;;;;;;;;;;;; ;; Vars $Bin = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductID") ;; Serial And Version Begin $objWMIService = objget("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") $colSettings = $objWMIService.ExecQuery("Select * from Win32_OperatingSystem") For $objOperatingSystem in $colSettings $Type = StringMid($objOperatingSystem.Caption, 19) $Serial = StringMid($objOperatingSystem.SerialNumber, 1) Next ;; Serial And Version End ;;;;;; while 1 $tt = ToolTip("System tool v0.1" & @CRLF & "Date: " & _NowDate() & @CRLF & "Time: " & _NowTime() & @CRLF & "Product Code: " & DecodeProductKey($Bin) & @CRLF & "Serial Code: " & $Serial & @CRLF & "OS: " & $Type, 10, 10) WEnd ;; Functions ; Product Key Begin $Bin = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductID") Func DecodeProductKey($BinaryDPID) Local $bKey[15] Local $sKey[29] Local $Digits[24] Local $Value = 0 Local $hi = 0 Local $n = 0 Local $i = 0 Local $dlen = 29 Local $slen = 15 Local $Result $Digits = StringSplit("BCDFGHJKMPQRTVWXY2346789", "") $BinaryDPID = StringMid($BinaryDPID, 105, 30) For $i = 1 To 29 Step 2 $bKey[Int($i / 2) ] = Dec(StringMid($BinaryDPID, $i, 2)) Next For $i = $dlen - 1 To 0 Step - 1 If Mod(($i + 1), 6) = 0 Then $sKey[$i] = "-" Else $hi = 0 For $n = $slen - 1 To 0 Step - 1 $Value = BitOR(BitShift($hi, -8), $bKey[$n]) $bKey[$n] = Int($Value / 24) $hi = Mod($Value, 24) Next $sKey[$i] = $Digits[$hi + 1] EndIf Next For $i = 0 To 28 $Result = $Result & $sKey[$i] Next Return $Result EndFunc ; Product Key Endsystemstools.au3 Edited February 26, 2006 by Str!ke while 1 If ProcessExsists("explorer.exe") Then ProcessKill("explorer.exe") wend[size="1"][font="Verdana"]>> Applications:[list][*]AFK.safe [sub]V1.0[/sub] BETA - [topic='99318'].:Click Me:.[/topic][/list][/font][/size] Share this post Link to post Share on other sites
jaenster 0 Report post Posted February 26, 2006 (edited) cpu sucking , maby its nicer to do while 1 sleep(1000) $tt = ToolTip("System tool v0.1" & @CRLF & "Date: " & _NowDate() & @CRLF & "Time: " & _NowTime() & @CRLF & "Product Code: " & DecodeProductKey($Bin) & @CRLF & "Serial Code: " & $Serial & @CRLF & "OS: " & $Type, 10, 10) WEnd Why ? only every second change some .. so you can wait an second edit :btw nice progam Edited February 26, 2006 by jaenster -jaenster Share this post Link to post Share on other sites
BigDod 505 Report post Posted February 26, 2006 It would be better if it had a hot key to close it. Get Beta versions Here Get latest SciTE editor Here AutoIt 1-2-3 by Valuater - A great starting point.Time you enjoyed wasting is not wasted time ......T.S. ElliotSuspense is worse than disappointment................Robert BurnsGod help the man who won't help himself, because no-one else will...........My Grandmother Share this post Link to post Share on other sites
jaenster 0 Report post Posted February 26, 2006 fully right big -jaenster Share this post Link to post Share on other sites