kneze

Exit case without quit script

9 posts in this topic

#1 ·  Posted (edited)

Hi

i have a while loop. in this loop i have case statments. First Check is if Computer is online. The next step is Inputbox.

My InpuBox has two Buttons Ok and Cancel. If User clicks Cancel Autoit close completely. Thats wrong.

It has only to exit case to while statement. Could you give me a sugestion how can i do this ?

Thanks.

Case $test

$var = Ping($CPname,250)
If @error = 0 Then  
                        
$s_Command = InputBox("Message", "Computer Number: "&$CPname& @CRLF & @CRLF &"Please Enter Code"& @CRLF & @CRLF & "Log Off = 0" & @CRLF & "Forced Log Off = 0+4" & @CRLF & "Shutdown = 1" & @CRLF & "Forced Shutdown = 1+4" & @CRLF & "Reboot = 2" & @CRLF & "Forced Reboot = 2+4" &@CRLF &" Power Off = 8" &@CRLF &"Forced Power Off = 8+4","","",250,300,400,300)

If @error = 1 Then .... exit case

    _RemoteShutdown($s_Command)

        Func _RemoteShutdown(ByRef $CPname, ByRef $s_Command)
    Local $wbemFlagReturnImmediately, $wbemFlagForwardOnly, $objWMIService, $colItems, $objItem
    
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $objWMIService = ObjGet("winmgmts:\\" & $CPname & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT Name From Win32_OperatingSystem", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    
    For $objItem in $colItems
    $objItem.Win32ShutDown($s_Command); 0=Log Off|0+4=Forced Log Off|1=Shutdown|1+4=Forced Shutdown|2=Reboot|2+4=Forced Reboot|8=Power       Off|8+4=Forced Power Off
   Next

EndFunc
    Else 
    MsgBox(0, "Error", "Client isn't Online or wrong input")
endif
endif
Edited by kneze

Share this post


Link to post
Share on other sites



You seem to have a function inside a Case, which isn't its place.

Now just do nothing. Invert the test in the case and code other Case as needed.

Sanitize/tidy your code.


This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Share this post


Link to post
Share on other sites

Without more code it's hard to say, but I'm guessing it's the Exit Case line myself. Seeing as how there's no exit case command, the script sees exit, and exits.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. 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.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _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.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

Try with ContinueCase

Share this post


Link to post
Share on other sites

Hi

i have a while loop. in this loop i have case statments. First Check is if Computer is online. The next step is Inputbox.

My InpuBox has two Buttons Ok and Cancel. If User clicks Cancel Autoit close completely. Thats wrong.

It has only to exit case to while statement. Could you give me a sugestion how can i do this ?

Thanks.

Case $test

$var = Ping($CPname,250)
If @error = 0 Then  
                        
$s_Command = InputBox("Message", "Computer Number: "&$CPname& @CRLF & @CRLF &"Please Enter Code"& @CRLF & @CRLF & "Log Off = 0" & @CRLF & "Forced Log Off = 0+4" & @CRLF & "Shutdown = 1" & @CRLF & "Forced Shutdown = 1+4" & @CRLF & "Reboot = 2" & @CRLF & "Forced Reboot = 2+4" &@CRLF &" Power Off = 8" &@CRLF &"Forced Power Off = 8+4","","",250,300,400,300)

If @error = 1 Then .... exit case

    _RemoteShutdown($s_Command)

        Func _RemoteShutdown(ByRef $CPname, ByRef $s_Command)
    Local $wbemFlagReturnImmediately, $wbemFlagForwardOnly, $objWMIService, $colItems, $objItem
    
    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $objWMIService = ObjGet("winmgmts:\\" & $CPname & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT Name From Win32_OperatingSystem", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    
    For $objItem in $colItems
    $objItem.Win32ShutDown($s_Command); 0=Log Off|0+4=Forced Log Off|1=Shutdown|1+4=Forced Shutdown|2=Reboot|2+4=Forced Reboot|8=Power      Off|8+4=Forced Power Off
   Next

EndFunc
    Else 
    MsgBox(0, "Error", "Client isn't Online or wrong input")
endif
endif

First of all you aught to post code which actually makes sense or at least is valid AutoIt code.

If you have an InputBox and someone presses Cancel then @error is set to 1 and it looks like you have decided that when @error is 1 you will shut down.

If you simply want to set your code so that if Cancel is pressed the Case doesn't continue you only need to have

Case $whatever
  $Result = InputBox($blahblah...
 if @error <> 1 then
   ;continue with rest of Case
endif

Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

Thanks for sugestions.

with If @error = 1 Then ContinueLoop

it works.

Edited by kneze

Share this post


Link to post
Share on other sites

Dirty.


This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Share this post


Link to post
Share on other sites

#8 ·  Posted

Hi,

Try "Return False"...

For example;

Case $insxReport
    if @UserName = "username" Then
    Local $iAnswer = MsgBox (BitOR($MB_YESNO, $MB_ICONWARNING), "WARNING", "Illegal/Unknown software report for the site will be prepared, this process may take some time. Are you sure you want to start?")
    If $iAnswer = 7 Then
    MsgBox($MB_SYSTEMMODAL, "Software 2017", "You canceled.")
    Return False
    EndIf
    insReport ()
   Else

Share this post


Link to post
Share on other sites

#9 ·  Posted

Do you realize how old and dead is this thread?


This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Share this post


Link to post
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