Dejo mi primer script para AutoIt3.
;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
Muy interesante, me alegra ver que no soy el único que codea en AutoIt aquí, ya me estaba empezando a sentir raro :xD
Buen código, un saludo!! :D
Yo también codeo en autoit pero este código me falló es decir tengo mi usb kingston de 2 gigas conectado y no me lo ha detectado... :D :D
Por otra parte me gusta el código para hacer cositas con el usbe pero, checa a ver cual es la falla...
Listo, gracias por avisarme que tenía un error.
Modifiqué el post y lo arreglé.
Cambié:
If not $rdrive[$indice] = "A:" then
por:
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)
Estos son los errores que me tira ahora....
Que versión de Autoit tienes?
Stringcompare esta a partir de la versión 3.2.4.9 :-\
Saludos
mmm ignoro en que versión va, lo bajé hace poquito más de un año y no lo he movido dede entonces, puede ser mi compilador, va..
Lo ejecuté con la versión v3.2.12.1.
Por cierto Martín, ¿como hiciste para dejar el directorio de los usuarios en C:\Users ?
Cita de: Martín Fierro en 24 Julio 2008, 20:15 PM
mmm ignoro en que versión va, lo bajé hace poquito más de un año y no lo he movido dede entonces, puede ser mi compilador, va..
Entonces puede ser que tengas una anterior....
La que comento es del 25 de mayo del 2007, y fue en esa en la que se agrego esta funcion... ;)
Saludos
Cita de: carlitos.dll en 24 Julio 2008, 20:26 PM
Lo ejecuté con la versión v3.2.12.1.
Por cierto Martín, ¿como hiciste para dejar el directorio de los usuarios en C:\Users ?
Se refiere al lugar en el que está guardado el archivo au3, yo quise hacer una versión portable del scite para andarlo en el usb pero no me funcionó de la manera a mano y fácil, de transportar los arhivos del programa al usb no lo he intentado con programas para hacer portables, porque el scite llama default a sus programas en la locación de c:/archivos de programa\Autoit y no hay manera de cambiarselo.