Stumped on adding custom button to MsgBox

vyperhand · April 2, 2015

I have a script that captures all relevant user and system information into a single pop-up screen that can be referenced easily by our helpdesk personnel to save time on information gathering.

I have been asked to add a second option to the screen that will give the customer the option to reboot their system. For the life of me, I cannot make that work in an acceptable way. I have tried GUI options to replicate my existing functionality until I've gone cross-eyed, and I cannot seem to figure out how the frack to just add this button and leave everything else in my script operational.

Here is the basic script:

Global $strComputer

Global $strlist

Global $collection

Global $objWMI
$strComputer="."

$strlist=""

$objWMI = ObjGet("winmgmts:\\.\root\cimv2")

$collection = $objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

$colSMBIOS = $objWMI.ExecQuery ("Select * from Win32_SystemEnclosure")
$strlist="Computername: " & @TAB & @ComputerName & @CRLF

$strlist=$strlist & "Username: " & @TAB & @UserName & @CRLF

$strlist=$strlist & "Operating System: " & @TAB & @OSVersion & @CRLF

$strlist=$strlist & "OS Patch: " & @TAB  & @TAB & @OSServicePack & @CRLF

For $objSMBIOS in $colSMBIOS

 $SN = $objSMBIOS.SerialNumber

Next

$strlist=$strlist & "Serial or Service Tag: " & @TAB & $SN & @CRLF & @CRLF
For $obj In $collection

 $AdapterName = $obj.Description

 $IP = $obj.IPAddress

 $DNS = $obj.DNSServerSearchOrder

    $Gateway = $obj.DefaultIPGateway

 Next  
$strlist=$strlist & $AdapterName & @CRLF

$strlist=$strlist & "  IP Address: " & @TAB & $IP[0] & @CRLF

$strlist=$strlist & "  DNS Server 1: " & @TAB & $DNS[0] & @CRLF

$strlist=$strlist & "  DNS Server 2: " & @TAB & $DNS[1] & @CRLF

$strlist=$strlist & "  Gateway: " & @TAB & $Gateway[0] & @CRLF 
$result = MsgBox(0,"System Information", $strlist)

I tried replacing $result with this, but it's too easy for the user to reboot unintentionally:

$result = MsgBox(68,"System Information", $strlist & @CRLF & "" & @CRLF & "Do you want to reboot this terminal?",0)

switch $result
 case 6 ;YES

 Run("shutdown -r -f -t 0")
 case 7 ;NO

 Exit
endswitch

What I would like to do is have a separate Reboot? button with a verification pop-up injected right above the OK button - but as soon as I interject any GUI elements at all, I can no longer get it to properly output the massive contents of $strlist. Here's the most recent variation I tried before surrendering:

$winders = GUICreate ("System Information")

GUISetState(@SW_SHOW)

GUICtrlSetData($strlist, -1 , -1)

$doReboot = GUICtrlCreateButton("Reboot?", -1 , -1)

GUICtrlSetOnEvent($doReboot, "Choice_Reboot")

$doneNow = GUICtrlCreateButton ("OK", -1 , -1)

GUICtrlSetOnEvent($doneNow, "Done_Now")

  While 1

    Sleep(10)

  WEnd

This gave me a blank window with working buttons, but $strlist was nowhere to be found.

Any help would be greatly appreciated.

Kyan · April 2, 2015

I don't know if I'm understanding your problem right, but if you want to display text, your need to create a label or edit and use GUICtrlSetData to set the text

GUICtrlCreateEdit() GUICtrlCreateLabel()

MilesAhead · April 2, 2015

A simple solution to reduce the chance of unintended reboot would be to make the No Button the default. That way if the user just hits Enter without thinking, it will be NO.

JLogan3o13 · April 2, 2015

Look at Melba's Extended MsgBox: '?do=embed' frameborder='0' data-embedContent>>

Melba23 · April 2, 2015

vyperhand,

If you want a dialog with custom button titles, I suggest you use my ExtMsgBox UDF (look in my sig for the link). Then you can do something like this:

$result = _ExtMsgBox(0, "Reboot|Exit", "System Information", $strlist) ; Note custom button text
Switch $result
    Case 1 ; First button
        If MsgBox($MB_SYSTEMMODAL + $MB_YESNO, "Confirm", "Are you sure you want to reboot?") = $IDYES Then ; Here is your confirmation
            ConsoleWrite("Reboot" & @CRLF) ; Replace this with the reboot code
        EndIf
    Case 2
        ConsoleWrite("Exit" & @CRLF)
EndSwitch
; And we exit here
Exit

I hope this helps.

M23

Edit: I see others thought the same.

Edited April 2, 2015 by Melba23

vyperhand · April 2, 2015

I'll check out Extended MsgBox, thank you both that suggested it.

This is really driving me batty, so I hope this works!

ViciousXUSMC · April 2, 2015

Yes either use Extended MsgBox or a GUI.

I have a reboot button in my GUI for techs to use.

It follows up with a confirmation so that it is not done on accident.

#Region Button12 Restart PC
    If $nMsg = $Button12 Then
        $restart = MsgBox(4, "Black Magic GUI", "Restart Computer Now?")
        If $restart = 6 Then
            Shutdown(2)
            EndIf

    EndIf

vyperhand · April 2, 2015

Looks like that will in fact take care of it - moving to sandbox test now. Thanks again - looks like you've saved what's left of my sanity twice now.

So you know, this is what I ended up doing with it:

$result = _ExtMsgBox(0, "Reboot|Exit", "System Information", $strlist)

Switch $result

    Case 1 ; First button

        $confirm = MsgBox(68,"Confirm Reboot", "Are you sure you want to reboot?",0)

   switch $confirm

    case 6 ;YES

    Run("shutdown -r -f -t 60")
    case 7 ;NO

    Exit

   endswitch

 Case 2

        Exit

EndSwitch

Exit

Melba23 · April 2, 2015

vyperhand,

looks like you've saved what's left of my sanity

My pleasure.

M23

vyperhand · April 2, 2015

OK... so, there are no operational problems at all, now. That's cool.

But for some reason, the extmsgbox function output formatting is being super erratic - I can't get it to display the output consistently on any two machines. The text ends up misaligned, sometimes wrapping around the message box, sometimes not. Sometimes my tabbing still results in two neat output columns, on others it zig-zags wildly. Is there a way I can force the message box to just be as wide as the longest line and never wrap a line?

Edited April 2, 2015 by vyperhand

nitekram · April 3, 2015

Yes either use Extended MsgBox or a GUI.

I have a reboot button in my GUI for techs to use.

It follows up with a confirmation so that it is not done on accident.

#Region Button12 Restart PC
    If $nMsg = $Button12 Then
        $restart = MsgBox(4, "Black Magic GUI", "Restart Computer Now?")
        If $restart = 6 Then
            Shutdown(2)
            EndIf

    EndIf

I think this might be better?

#Region Button12 Restart PC
    If $nMsg = $Button12 Then
        If MsgBox(4, "Black Magic GUI", "Restart Computer Now?") = 6 Then Shutdown(2)
    EndIf

my $0.02

Melba23 · April 3, 2015

vyperhand,

I can't get it to display the output consistently on any two machines

That is because the various descriptors are of different lengths and so depending on the machine's default font the text after the tab is sometimes pushed to the next stop. You already make a allowance for this effect in this line with its added tab:

"OS Patch: " & @TAB  & @TAB & @OSServicePack & @CRLF

I suggest you use the flexibility of the ExtMsgBox UDF to make the display font monospaced so that you have a consistent descriptor length and can then set the correct number of tabs to align the following text - here is my take on how it might be done:

#include <MsgBoxConstants.au3>
#include <ExtMsgBox.au3>

; You can declare and assign on the same line
Global $strComputer = "."
Global $strlist = ""
Global $objWMI = ObjGet("winmgmts:\\.\root\cimv2")
Global $collection = $objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
$colSMBIOS = $objWMI.ExecQuery ("Select * from Win32_SystemEnclosure")

; Added @TABs where necessary
$strlist="Computername: " & @TAB & @TAB & @ComputerName & @CRLF
$strlist &= "Username: " & @TAB & @TAB & @UserName & @CRLF
$strlist &= "Operating System: " & @TAB & @OSVersion & @CRLF
$strlist &= "OS Patch: " & @TAB & @TAB & @OSServicePack & @CRLF

For $objSMBIOS in $colSMBIOS
    $SN = $objSMBIOS.SerialNumber
Next

; Note use of &= to add to the same string
$strlist &= "Serial or Service Tag: " & @TAB & $SN & @CRLF & @CRLF

For $obj In $collection
    $AdapterName = $obj.Description
    $IP = $obj.IPAddress
    $DNS = $obj.DNSServerSearchOrder
    $Gateway = $obj.DefaultIPGateway
Next

$strlist &= $AdapterName & @CRLF
$strlist &= "  IP Address: " & @TAB & @TAB & $IP[0] & @CRLF
; And what if there is only 1 DNS? Best to do it this way
For $i = 0 To UBound($DNS) - 1
    $strlist &= "  DNS Server " & $i + 1 & ": " & @TAB & $DNS[$i] & @CRLF
Next
$strlist &= "  Gateway: " & @TAB & @TAB & $Gateway[0] & @CRLF

; Set the ExtMsgBox to use default font on the buttons, but a monospaced font for the text
_ExtMsgBoxSet(4, Default, Default, Default, 9, "Consolas")
$result = _ExtMsgBox(0, "Reboot|Exit", "System Information", $strlist)
Switch $result
    Case 1 ; First button
        If MsgBox($MB_SYSTEMMODAL + $MB_YESNO, "Confirm", "Are you sure you want to reboot?") = $IDYES Then ; Here is your confirmation
            ConsoleWrite("Reboot" & @CRLF) ; Replace this with the reboot code
        EndIf
    Case 2
        ConsoleWrite("Exit" & @CRLF)
EndSwitch
; And we exit here
Exit

I also made a few other changes to your basic script - I hope the comments are self-explanatory.

M23

Bert · April 3, 2015

Melba - would the display size make any difference? I haven't worked with your code so I have no idea.

vyperhand · April 3, 2015

Thank you again Melba.

I took a look, and that concept works as long as there is only one active adapter. If there is a second active adapter (such as VPN or Wireless) the formatting kinda loses it's mind again.

I attached a sample of what happened on one of the sandboxes.

I appreciate the help you've been, and I will continue tinkering to find a solution that both works and looks decent.

Melba23 · April 3, 2015

vyperhand,

That looks as if the text is correctly aligned horizontally, but there is a wrapped line which throws off the vertical sizing. Try using the "Expand Tabs" option like this:

_ExtMsgBoxSet(4 + 8, Default, Default, Default, 9, "Consolas")

That option was designed for this very case and should force the dialog to be wider and so have room to fit the line. Any better? :huh:

M23

vyperhand · April 6, 2015

Unfortunately, it seems I may have to abandon the ExtMsgBox plan entirely and go back to trying to build a gui, or just chicken out completely and just go back to my original VBScript and use nested yes-no boxes for reboot validation.

Adding the parameters above made things look great across 9/10 test platforms... unfortunately on the 10th which is the oldest make/model/OS in our field, I get a 100% replicable error I was unable to resolve.

"AutoIt Error

Line 4849 <path to script file>

Error: Subscript used on non-accessible variable"

For now, I'm back to chopping away to try and get the GUI to intelligently put buttons at the bottom while retaining dynamic window width to allow it to expand as necessary on systems with more than one active adapter.

Melba23 · April 6, 2015

vyperhand,

I may have to abandon the ExtMsgBox plan entirely and go back to trying to build a gui

An ExtMsgBox is just an standard AutoIt GUI - so that plan does not seem entirely viable.

>

If you can post the actual text you get in the SciTE console when you run the script on that one recalcitrant machine we might be able to help you determine exactly what is going wrong. What OS is that machine running? AutoIt in its latest releases requires a minimum of XP SP3. :huh:

M23

vyperhand · April 6, 2015

That really was it - see attached. This is from running the compiled .exe on a test machine. Yes, I tried re-compiling. I even re-imaged the machine to fresh in case I'd messed something on it up during other test efforts. The machine is XP SP3, but it's XP embedded.

*However*, this error only started with the last change to the ExtMsgBoxSet - the 4+8 option changed from just the 4 option.

If I come up with an alternative solution or get my original plan working, I will post it to this thread.

Melba23 · April 6, 2015

vyperhand,

this error only started with the last change to the ExtMsgBoxSet - the 4+8 option changed from just the 4 option

I can see nothing linked to that change which jumps out as a possible cause when looking at the UDF code. :wacko:

Can you let me see the script you are using. Attach it to a PM if you do not want to post it in open forum.

M23

Sign In

Stumped on adding custom button to MsgBox

Recommended Posts

vyperhand

Kyan

MilesAhead

JLogan3o13

Melba23

vyperhand

ViciousXUSMC

vyperhand

Melba23

vyperhand

nitekram

Ternary operator

Melba23

Bert

vyperhand

Melba23

vyperhand

Melba23

vyperhand

Melba23

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta