meetrix Posted May 22, 2006 Share Posted May 22, 2006 I'm trying to put together a GUI that will allow someone to launch an installation and to have the Serial number appear when required. The idea is silly but for the sake of helping some of my friends, I thought it would be a good idea after all. Sometimes is hard to locate CDs and have the serial number at hand during an intallation. Please review the following script and let me know your thoughts. It's not 100% functional, when I click on the ProductKey button a number 4 displays. ????????? I've not figure this out yet. Do you think that this would be something useful for anyone to use? The end results would be to include at least four application software in a DVD and launch the app to install GUI. #include <GuiConstants.au3> GuiCreate("Software Libary Selection", 682, 177,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) $OfficeXP_1 = GuiCtrlCreateButton("Office XP Professional", 20, 50, 220, 50) $OfficeKey_2 = GuiCtrlCreateButton("ProductKey", 270, 50, 70, 50) $ShowKey_3 = GuiCtrlCreateInput("", 370, 60, 290, 30) GuiCtrlSetData("Productkey", "11111111111") $Group_4 = GuiCtrlCreateGroup("Software Application", 10, 30, 240, 90) $Group_5 = GuiCtrlCreateGroup("GetKey", 260, 30, 90, 90) $Group_6 = GuiCtrlCreateGroup("Product Key", 360, 30, 310, 90) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $OfficeKey_2 GuiCtrlSetData($ShowKey_3,$OfficeKey_2) EndSelect WEnd Exit Link to comment Share on other sites More sharing options...
GaryFrost Posted May 22, 2006 Share Posted May 22, 2006 I'm trying to put together a GUI that will allow someone to launch an installation and to have the Serial number appear when required. The idea is silly but for the sake of helping some of my friends, I thought it would be a good idea after all. Sometimes is hard to locate CDs and have the serial number at hand during an intallation. Please review the following script and let me know your thoughts. It's not 100% functional, when I click on the ProductKey button a number 4 displays. ????????? I've not figure this out yet. Do you think that this would be something useful for anyone to use? The end results would be to include at least four application software in a DVD and launch the app to install GUI. #include <GuiConstants.au3> GuiCreate("Software Libary Selection", 682, 177,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) $OfficeXP_1 = GuiCtrlCreateButton("Office XP Professional", 20, 50, 220, 50) $OfficeKey_2 = GuiCtrlCreateButton("ProductKey", 270, 50, 70, 50) $ShowKey_3 = GuiCtrlCreateInput("", 370, 60, 290, 30) GuiCtrlSetData("Productkey", "11111111111") $Group_4 = GuiCtrlCreateGroup("Software Application", 10, 30, 240, 90) $Group_5 = GuiCtrlCreateGroup("GetKey", 260, 30, 90, 90) $Group_6 = GuiCtrlCreateGroup("Product Key", 360, 30, 310, 90) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $OfficeKey_2 GuiCtrlSetData($ShowKey_3,$OfficeKey_2) EndSelect WEnd Exit GuiCtrlSetData($ShowKey_3,GuiCtrlRead($OfficeKey_2)) SciTE for AutoItDirections for Submitting Standard UDFs Don't argue with an idiot; people watching may not be able to tell the difference. Link to comment Share on other sites More sharing options...
meetrix Posted May 22, 2006 Author Share Posted May 22, 2006 When I run the script the 11111111111 display first, then when I click on "Productkey" it changes to ProductKey????? The idea is when the script run, the input box should be blank, and when you click on the Product Key button the numbers should be display. GuiCtrlSetData($ShowKey_3,GuiCtrlRead($OfficeKey_2)) Link to comment Share on other sites More sharing options...
GaryFrost Posted May 22, 2006 Share Posted May 22, 2006 When I run the script the 11111111111 display first, then when I click on "Productkey" it changes to ProductKey????? The idea is when the script run, the input box should be blank, and when you click on the Product Key button the numbers should be display.put the data into a variable, then when the user presses the button, set the control to that data i.e.$s_prodkey = '11111111111'then GuiCtrlSetData($ShowKey_3,$s_prodkey) SciTE for AutoItDirections for Submitting Standard UDFs Don't argue with an idiot; people watching may not be able to tell the difference. Link to comment Share on other sites More sharing options...
meetrix Posted May 22, 2006 Author Share Posted May 22, 2006 Thank you, that worked. Do you think that this would be a useful tool? put the data into a variable, then when the user presses the button, set the control to that data i.e.$s_prodkey = '11111111111'then GuiCtrlSetData($ShowKey_3,$s_prodkey) Link to comment Share on other sites More sharing options...
meetrix Posted May 23, 2006 Author Share Posted May 23, 2006 To anyone, I'm going to create an autorun CD with this application. If there's no specific drive letter assing for the CD-ROM how can I direct it to run the setup from the folder? Do you think that this is a good idea or not? Let me know your thoughts. #include <GuiConstants.au3> GuiCreate("Norton Antivirus 2006", 757, 252,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) $Norton2006 = GuiCtrlCreateButton("Norton AntiVirus 2006", 20, 80, 200, 70) $KeyLabel = GuiCtrlCreateButton("Product Key", 260, 80, 110, 70) $DisplayKey = GuiCtrlCreateInput("", 410, 100, 320, 30) $Exit = GuiCtrlCreateButton("Exit", 440, 190, 90, 50) $Group_6 = GuiCtrlCreateGroup("Application", 10, 40, 220, 140) $Group_7 = GuiCtrlCreateGroup("Get Key", 240, 40, 150, 140) $Group_8 = GuiCtrlCreateGroup("Serial Number Key", 400, 40, 340, 140) $NortonProKey = '11111-11111-1111-1111' GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Norton2006 Run("V:\Antivirus2006\NAVSetup.exe") Case $msg = $KeyLabel GuiCtrlSetData($DisplayKey,$NortonProKey) Case $msg = $Exit Exit EndSelect WEnd Exit Thank you, that worked. Do you think that this would be a useful tool? Link to comment Share on other sites More sharing options...
meetrix Posted May 23, 2006 Author Share Posted May 23, 2006 I have attached a script and would like your feedback. It's very simple and it made not be as useful to anyone except for some of my friends. I would appreciate if you think that it can be improve or add on more options. Thank you in advanced. Even though I have posted different GUIs, the attached file is what I will be working from here on. To anyone, I'm going to create an autorun CD with this application. If there's no specific drive letter assing for the CD-ROM how can I direct it to run the setup from the folder? Do you think that this is a good idea or not? Let me know your thoughts. #include <GuiConstants.au3> GuiCreate("Norton Antivirus 2006", 757, 252,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) $Norton2006 = GuiCtrlCreateButton("Norton AntiVirus 2006", 20, 80, 200, 70) $KeyLabel = GuiCtrlCreateButton("Product Key", 260, 80, 110, 70) $DisplayKey = GuiCtrlCreateInput("", 410, 100, 320, 30) $Exit = GuiCtrlCreateButton("Exit", 440, 190, 90, 50) $Group_6 = GuiCtrlCreateGroup("Application", 10, 40, 220, 140) $Group_7 = GuiCtrlCreateGroup("Get Key", 240, 40, 150, 140) $Group_8 = GuiCtrlCreateGroup("Serial Number Key", 400, 40, 340, 140) $NortonProKey = '11111-11111-1111-1111' GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Norton2006 Run("V:\Antivirus2006\NAVSetup.exe") Case $msg = $KeyLabel GuiCtrlSetData($DisplayKey,$NortonProKey) Case $msg = $Exit Exit EndSelect WEnd ExitAppInstall.au3 Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now