Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label. ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script. Latin Square password generatorīack up and restore Windows user files _3 - Modified array functions that include support for 2D arrays.
#HP SERIAL NUMBER HOW TO#
_FileGetProperty - Retrieve the properties of a file - SciTE Toolbar - A toolbar demo for use with the SciTE editor - GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.īack up and restore Windows user files _3 - Modified array functions that include support for 2D arrays. I hereby grant any person the right to use any code I post, that I am the original author of, on the forums, unless I've specifically stated otherwise in the code or the thread post. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude Give a programmer the correct code and he can do his work for a day. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to. If I posted any code, assume that code was written using the latest release version unless stated otherwise.
#HP SERIAL NUMBER SERIAL#
Expand collapse popup #Include Example Serial 2UA1410VL7 XXXYWWXXXXX MsgBox ( 0, "", MDate ( "2UA1410VL7" ) ) Func MDate ( $vSerial ) Pull 3rd Digit from Current Year for a good chance to get the current proper 10 year set to match with serial and get 4th digit from serial that represents the current year $Year = StringMid (, 1, 3 ) & StringMid ( $vSerial, 4, 1 ) Check Year Result MsgBox(0, "", $Year) Pull Raw # of Weeks from Serial # as a 2 Digit Number $Week = StringMid ( $vSerial, 5, 2 ) Check Week Result MsgBox(0, "", $Week) Divide Rawe Weeks by 4 to get Months.Weeks $RawMonth = $Week / 4 Split Months and Weeks into an Array $aMonth = StringSplit ( $RawMonth, "." ) See Array Results _ArrayDisplay($aMonth) $Month = $aMonth Check "Day" Value MsgBox(0, "", $aMonth) Set Days if Array has only 2 reults Then no deicmal was found in divison so assume first day of month, else assume 7 days for each "week" If $aMonth = 2 Then Switch $aMonth Case 25 $Day = "07" Case 5 $Day = "14" Case 75 $Day = "21" EndSwitch Else $Day = "01" EndIf Check Day Result MsgBox(0, "", $Day) $Manufacture = $Month & "/" & $Day & "/" & $Year Return $Manufacture EndFunc