sending file from a remote pc to my pc

[NileshSutar]

Hello everyone.

I am very new to autoit.So i want to  know how can i transfer an image file from remote pc to my pc.I have permission to run any script on that pc.So please guide me.

[water]

Welcome to AutoIt and the forum!

Is his PC located in a company environment?

Security considerations might limit the possible solutions.

[NileshSutar]

Is his PC located in a company environment?

No it is not.I want t odo it from any pc

[water]

You could install a FTP server on the target PC.

[NileshSutar]

You could install a FTP server on the target PC.

how about TCP file transfer.Will it work for sending images.The image size is not more than 300kb

Edited September 18, 2013 by NileshSutar

[water]

What do you mean by "TCP file transfer"? Can you elaborate?

[NileshSutar]

What do you mean by "TCP file transfer"? Can you elaborate?

i want to send files over tcp from that pc to mine.

i have got the following code for senders pc:

expandcollapse popup

#include<GUIConstants.au3>

GUICreate("Send",200,120)
$File = GUICtrlCreateInput("",10,10,100,20)
$fileopendialog = GUICtrlCreateButton(" ... ",120,10,40,20)
$serverinput = GUICtrlCreateInput("",10,40,100,20)
GUICtrlCreateLabel("Server-IP",120,40)
$ok = GUICtrlCreateButton(" Send ",40,80,40,20)
GUISetState()

While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then
        Exit
    EndIf
    If $msg = $fileopendialog Then
        $Fileopen = FileOpenDialog("File open",@desktopdir,"All (*.*)")
        GUICtrlSetData($File,$Fileopen)
    EndIf
    If $msg = $ok Then
        Call("sendfile")
    EndIf
WEnd

Func sendfile()

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

$server = GUICtrlRead($serverinput)
$FileSent = GUICtrlRead($File)

TCPStartup()
$sock = TCPConnect($server,50911)
$data = FileRead($FileSent,FileGetSize($FileSent))
SplashTextOn("Send","Sending ...",200,40)
TCPSend($sock,FileGetSize($FileSent) & "," & $data)
SplashOff()
While 1
    $szConfirm = TCPRecv($sock,128)
    If @error Or StringLen($szConfirm) Then
        TCPShutdown()
        ExitLoop
    EndIf
WEnd

EndFunc

and receivers pc(my pc):

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

TCPStartup()

$iMainSocket = TCPListen(@IPAddress1,50911)

While 1
    If $iSocket = -1 Then
        $iRet = TCPAccept($iMainSocket)
        If Not @error Then $iSocket = $iRet
    Else
        $buffer &= TCPRecv($iSocket,4096)
        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()

i want my pc to listen from any pc that is connecting to me at port 50911.If the script is already designed to do that then its ok,but if it is not designed to do that then can you plz suggest changes to my above script.

Edited September 18, 2013 by NileshSutar

[water]

Doesn't look bad. Have you already tried to transmit a file?

[NileshSutar]

Doesn't look bad. Have you already tried to transmit a file?

No i havent tried yet.

[water]

I tried and it works just fine here.

[JLogan3o13]

No i havent tried yet.

  

You have all of that written out, but you didn't try it before posting?!

[NileshSutar]

You have all of that written out, but you didn't try it before posting?!

Soory,but i havent written it.I searched for two days on forum   and found this code

[NileshSutar]

I tried and it works just fine here.

thanks

[NileshSutar]

i have got another question.Shall i ask it here or make a new thread??