Mini curso 13 videos

Iniciado por Expermicid, Enero 17, 2013, 12:43:51 PM

Tema anterior - Siguiente tema

0 Miembros y 2 Visitantes están viendo este tema.

Enero 17, 2013, 12:43:51 PM Ultima modificación: Mayo 04, 2015, 07:01:57 PM por Expermicid
AutoIt Tutorial Part 0 (Introduction)

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 1

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 2

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 3

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 4

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 5

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 6

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 6.1

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 7

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 8

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 9

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 10

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 11

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 11.1

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 12

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 12.1

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

AutoIt Tutorial Part 13

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

Fuente: UDT

Saludos

Excelente aporte, este tuto lo voy a aplicar en mi trabajo. Felizmente sé ingles.
Gracias!
;)

Muchas gracias por este aporte. Es excelente contar con este tipo de tutoriales.

Gracias compa, recien estaba volviendo a autoit.

-Saludos-

Está muy bueno no solo por el tema, sino por el inglés que está clarisimamente hablado.

Estuve viendo todas las partes del tuto y fui haciendo en el autoit los ejemplos, ahora estuve haciendo un keylogger que genera un htm con la fecha y lo guarda en X.
Me falta la parte de poder enviar ese archivo, alguien me da 1 mano de como  mas o menos hago para enviar un archivo (de algún modo similar al TCPSend que utiliza en el tuto para crear el servidor y el cliente).
Gracias.

HOLA!!!

Fijate que yo publique como enviar archivos por TCP con Autoit, usa el buscador.

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scouts Team*                                                No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

Febrero 20, 2014, 12:23:56 PM #7 Ultima modificación: Febrero 20, 2014, 01:12:21 PM por Knaya
Si es el que está 2 o 3 posts debajo de este, titulo [Autoit TCP File Send] ya lo ví pero pense que sería para otra cosa, porque no vi el receptor. Y aparte tampoco lo temino de entender, como dije, acabo de terminar de ver esos videos solamente.

Sender
Código: text
Func sendfile()

Local $szConfirm = ""
Local $sock = -1
Local $data

TCPStartup()
$sock = TCPConnect(@IPAddress1, 403)
$fileopen = FileOpen(log.txt)
$data = FileRead($fileopen)
TCPSend($sock, $data)

While 1
    $szConfirm = TCPRecv($sock, 1024)
    If @error Or StringLen($szConfirm) Then
        TCPShutdown()
        ExitLoop
    EndIf
WEnd

EndFunc


Receiver

Código: text

Dim $iMainSocket = -1, $iSocket = -1
Dim $buffer = ""
Dim $bytes = -1
Dim $iRet = -1

TCPStartup()

$iMainSocket = TCPListen(@IPAddress1,403)

While 1
    If $iSocket = -1 Then
        $iRet = TCPAccept($iMainSocket)
        If Not @error Then $iSocket = $iRet
    Else
        $buffer &= TCPRecv($iSocket,1024)
        If $bytes = -1 And StringInStr($buffer,",") Then
            $bytes = StringLeft($buffer,StringInStr($buffer,",")-1)
            $buffer = StringTrimLeft($buffer,StringInStr($buffer,","))
        Else
            SplashTextOn("Receive","Receiving ...",200,40)
            If StringLen($buffer) = $bytes Then
                SplashOff()
                $FileReceived = FileSaveDialog("File save",@desktopdir,"All (*.*)")
                ExitLoop
            EndIf
        EndIf
    EndIf
WEnd

FileDelete($FileReceived)
FileWrite($FileReceived,$buffer)

MsgBox(4096,"","Transfer Complete")

TCPShutdown()


Muchas gracias por el aporte !