Catching Errors

[Solarlight27]

Is there a way to catch errors in AutoIt? SImilar to java's "Try-Catch" methods?

My program keeps on throwing errors and I need them to just go away, my program works fine, other than these errors.

Here's my code:

expandcollapse popup

#NoTrayIcon
#include 
#include 
#include 
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#Obfuscator_Parameters=/cs /cf
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

;Opt("TrayMenuMode",1)
;$menu = TrayCreateItem("DriveLocker")
;$menu2 = TrayCreateItem("")
;$menuLock = TrayCreateItem("Lock Drive")
;TraySetState()

HotKeySet("{F9}", "_LockDrive")
HotKeySet("{PAUSE}", "_Switch")

$running = True
While 1
While ($running)
$letter = DriveGetDrive("REMOVABLE")
If IsArray($letter) Then
For $i = 1 to $letter[0]
_Check($letter[$i])
Next
EndIf
$time = TimerInit()
While TimerDiff($time) < 10000
If IsArray($letter) Then
For $i = 1 to $letter[0]
_Check($letter[$i])
Next
EndIf
Sleep(100)
WEnd
WEnd
Sleep(10*1000)
WEnd

Func _Switch()
If ($running) Then
$running = False
Else
$running = True
EndIf
EndFunc

Func _Check($strDriveLetter)
If ($running) Then
If FileExists($strDriveLetter & "\AutoIt3\Locker\IAmLocked") Then
_Unlock($strDriveLetter)
ElseIf FileExists($strDriveLetter & "\lock.txt") Then
_Unlock($strDriveLetter)
EndIf
EndIf
EndFunc

Func _Unlock($strDriveLetter)
If ($running) Then
$strPassword = InputBox("Security Check", "Enter your password.", "", "*", "", "", @DesktopWidth/2, @DesktopHeight/2,8, "passwordBox")
ToolTip("Enter Password NOW.")
_MouseTrap(@DesktopWidth, @DesktopHeight-100)
If ($strPassword = "PASSWORD") Then
_MouseTrap()
ToolTip("")
FileDelete($strDriveLetter & "\AutoIt3\Locker\IAmLocked")
FileDelete($strDriveLetter & "\lock.txt")
_ReAnimate($strDriveLetter)
ElseIf ($strPassword = "PASSWORDFAILSAFE") Then
_MouseTrap()
ToolTip("")
FileDelete($strDriveLetter & "\AutoIt3\Locker\IAmLocked")
FileDelete($strDriveLetter & "\lock.txt")
_ReAnimate($strDriveLetter)
Else
EjectVolume($strDriveLetter)
ToolTip("")
_MouseTrap()
EndIf
EndIf
EndFunc

Func _ReAnimate($strDriveLetter)
;Run(StringUpper($letter[$i]) & "\")
;Run(StringUpper($letter[$i]) & "\new.txt.lnk")
;Run(StringUpper($letter[$i]) & "\you.lnk")
;WinClose("AutoPlay")
;ProcessClose("mcagent.exe")
EndFunc

Func _LockDrive()
$letter = DriveGetDrive("REMOVABLE")
If IsArray($letter) Then
For $i = 1 To $letter[0]
If MsgBox(36,"Lock This Drive?","Do you wish to lock the " & StringUpper($letter[$i]) & " drive?") = 6 Then
FileWrite($letter[$i] & "\AutoIt3\Locker\IAmLocked","Locked")
_FileCreate($letter[$i] & "\lock.txt")
;EjectVolume($letter[$i])
EndIf
Next
EndIf
EndFunc

[BrewManNH]

Is there a way to catch errors in AutoIt? SImilar to java's "Try-Catch" methods?

My program keeps on throwing errors and I need them to just go away, my program works fine, other than these errors.

A program that keeps erroring isn't working fine, just an FYI. What are the errors you're getting, and how are you trying to prevent them? Catching them isn't going to make them go away, you're just going to hide them (make them not crash the script), which means that your script still won't work right but no one would know it.

[Solarlight27]

Yes I do know that an erring program isn't working fine, I'm just hoping that a Band-aid solution can fix my problem here...

My script had been working fine for a long while, but then lately with my new flash drive it has been throwing errors, it still does what its programmed to do just it think at some there should still be a flash drive plugged in after its ejected. And the error, is a Windows error window that says "No Disk"

Edited January 9, 2013 by Solarlight27

[guinness]

There are examples in the examples section by JScript & MrCreatoR which might be of interest. Just do a quick search.

[Solarlight27]

Sweet, found it, I still have to figure out his program and everything...