Foro de elhacker.net

;Detector de Unidades removibles [1.4] author CarlitoS.dll
;Script para AutoIt3
#NoTrayIcon

msgUnidadesRemovibles()

Func msgUnidadesRemovibles()
	Local $mensaje = ""
	Local $rdrive = DriveGetDrive("Removable")
	If Not @error Then
		For $indice = 1 to $rdrive[0]
			If StringCompare($rdrive[$indice], "a:", 1) > 0 Then
				$mensaje &= StringUpper($rdrive[$indice]) & @CR
			EndIf
		Next
	EndIf
	If $mensaje == "" Then
		$mensaje = "Ninguna"
	EndIf
	MsgBox(0,"Unidades Removibles",$mensaje)
EndFunc

If not $rdrive[$indice] = "A:" then

If StringCompare($rdrive[$indice], "a:", 1) > 0 Then

C:\Users\Administrador\Documents\dd.au3(12,46) : ERROR: StringCompare(): undefined function.
			If StringCompare($rdrive[$indice], "a:", 1)
			~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Administrador\Documents\dd.au3 - 1 error(s), 0 warning(s)