kneze Posted May 27, 2011 Share Posted May 27, 2011 (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 May 27, 2011 by kneze Link to comment Share on other sites More sharing options...
jchd Posted May 27, 2011 Share Posted May 27, 2011 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 hereRegExp tutorial: enough to get startedPCRE 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) Link to comment Share on other sites More sharing options...
BrewManNH Posted May 27, 2011 Share Posted May 27, 2011 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 GudeHow 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 Link to comment Share on other sites More sharing options...
ahmet Posted May 27, 2011 Share Posted May 27, 2011 Try with ContinueCase Link to comment Share on other sites More sharing options...
martin Posted May 27, 2011 Share Posted May 27, 2011 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. Link to comment Share on other sites More sharing options...
kneze Posted May 27, 2011 Author Share Posted May 27, 2011 (edited) Thanks for sugestions. with If @error = 1 Then ContinueLoop it works. Edited May 27, 2011 by kneze Link to comment Share on other sites More sharing options...
jchd Posted May 27, 2011 Share Posted May 27, 2011 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 hereRegExp tutorial: enough to get startedPCRE 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) Link to comment Share on other sites More sharing options...
falcontechnics Posted May 4, 2017 Share Posted May 4, 2017 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 Link to comment Share on other sites More sharing options...
jchd Posted May 4, 2017 Share Posted May 4, 2017 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 hereRegExp tutorial: enough to get startedPCRE 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) 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