Jump to content

Need your feedback and help


Recommended Posts

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

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

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

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

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

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
Exit

AppInstall.au3

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...