Sending Text

[Joscpe]

Is there a way i could send a text file to someone over the internet? I made test programs to try it...

Server

expandcollapse popup

#include <guiconstants.au3>

$ServerWin = GUICreate("Text Transfer Test - Server", 500, 120)
$Going = 0
$a = 0
$f = ""
$FileDest = GUICtrlCreateInput(@MyDocumentsDir, 10, 12, 390, 18)
$Browse = GUICtrlCreateButton("&Browse...", 400, 8, 75, 25)
$Go = GUICtrlCreateButton("&Start", 170, 55, 90, 30)

GUISetState(@SW_SHOW, $ServerWin)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $Browse
            BROWSE()
        Case $msg = $Go
            RunServ()
    EndSelect
    If @error Then MsgBox(1, "Uh Oh", "Holy, you broke it numbnuts!", 3500)
    If $a = 1 Then
        $f = TCPAccept($Listen)
    EndIf
WEnd

Func BROWSE()
    $dir = FileSelectFolder("Select A Directory", @MyDocumentsDir)
    GUICtrlSetData($FileDest, $dir)
EndFunc

Func RunServ()
    If $Going = 0 Then
        $Going = 1
        GUICtrlSetData($Go, "Stop")
        TCPStartup()
        Global $Listen = TCPListen(@IPAddress1, 1234)
        $a = 1
    ElseIf $Going = 1 Then
        $Going = 0
        FileWrite(GUICtrlRead($FileDest)&"\sentfile.txt", $f)
        GUICtrlSetData($Go, "Start")
        $a = 0
        TCPShutdown()
    Else
        MsgBox(1, "Uh Oh", "Holy, you broke it numbnuts!", 3500)
    EndIf
EndFunc

Is it possible to do it?

What I tried to do was send the text in the file to the server and the server writes that to a file. It only puts "-1" in the file....

[Rad]

All your base are belong to us !!

[JoshDB]

That... That was productive.

Anyways, check out YAC-P and erifash's chat program that use TCP commands. Those will shed some light on the inner working of TCP

[Joscpe]

I downloaded it, i fixed the links to where i put the files and i compiles them. I get an error refering to the server file:

Global $List[$MaxUsers][2] ;[ index ][ socket, username ]

NVM, just had to add into the INI file

I guess I'll just read through the code...

Also... How do you make a skin?

Edited January 6, 2007 by Joscpe

[Neoborn]

The search button is your friend:

Searched the word "skin"

[Joscpe]

in that guys messenger, he uses _TCPSendText (data, ip) but it isnt an actual function, TCPSend(ip, data) is but it doesnt work...

[Joscpe]

Here are my script files... could someone please help?

[Rad]

I said it before and ill say it again, jordan

All your base are belong to us !!

[Paulie]

I said it before and ill say it again, jordan

All your base are belong to us !!

:spam:

[Joscpe]

Is there a simple way to send files over the internet with autoit??

-is stating something is spam and nothing else, spam?

Edited January 7, 2007 by Joscpe

[Rad]

aye nuthr bump

[Joscpe]

So I guess there isnt??

[Stealth111]

I am looking into the same type of function for a chat program I am working on, I want to be able to let the clients do file transfers on our local intranet, I don't need ANYTHING to go over the internet just our local LAN..

[MrSpacely]

I made a script about a year ago

http://www.autoitscript.com/forum/index.ph...mp;#entry135054

this can send binary files over internet.

(ow yeah the useless reply at the bottom did not test his source mine actually worked)

its a bit old now but it still works (some gui things donot seem to work)

Larger files always got screwed up because of bad buffer reading so I made a flow control system.

Maybe nice to check maybe not:P

Edited January 13, 2007 by MrSpacely