отправить текст на конкретный комп в интернете

[urrya]

Всем Привет.
Сразу скажу, что ещё новичок в программировании, пожалуйста помогите в написании скрипта.
Задача такая, есть два компьютера, надо с одного на др. послать текст, тот в свою очередь получив текст,
подаёт звуковой сигнал, потом наоборот. Всё это по интернету и IP адреса динамические у компов.
В общем GUI оконце, в нём поле для ввода текста и кнопка отправить,
рядом часики как в трее .
Такое возможно сделать? Или надо по любому писать полноценный чат?! :'(

 

[winstan]

нужен какойнить "сервер" со статическим ip как минимум можно сделать сайт на php чтобы его использовать как место хранения сообщени

 

[joiner]

http://autoit-script.ru/index.php/topic,5170.0.html

 

[Arei]

А я бы предложил работать с FTP и отправлять просто файл. И быстро и геморроя нет с ip/

 

[joiner]

Arei
ну почему же. я использовал leetchat от Fever эта версия отличается от той что в первом посте темы по ссылке.
час назад общался с другом из средней азии. сам живу во владивостоке. у себя завел "сервер" этой прогой (она кстати, сама находит нужный айпи на моем компе. а адрес у меня динамический - vpn). скинул другу копию скомпилированной проги. дал адрес "сервера" и мы общались в чате. даже передавали текстовые документы друг другу. все просто
ну а если не заморачиваться вообще, то http://www.ammyy.com/ru/

 

[Mur]

OffTopic:

ну а если не заморачиваться вообще, то http://www.ammyy.com/ru/

А так же VNC, Team Viewer (quick & portable) и многие другие...

я использовал leetchat от Fever эта версия отличается от той что в первом посте темы по ссылке.

А я и забыл про неё уже.. :(

Простой насколько это возможно, немного видоизменённый под требования пример:
Сервер

#Include <process.au3>

TCPStartup()
$IP = @IPAddress1
$port = 1200
MsgBox(48, "Info", "Ip: " & @IPAddress1)

Func _msg()
If MsgBox(48, "allow", "Stop music?") = 1 Then $play = SoundPlay("") else MsgBox(0, "ok", "ok") EndIf
EndFunc

While 1
    $socket = TCPListen($IP, $port, 100)
    If @error Then ExitLoop
    $Connect = -1
    Do
        $Connect = TCPAccept($socket)
    Until $Connect <> -1
    
     While 100
        $comand = TCPRecv($Connect, 2048)

        Select
        Case $comand = "Exit"
            Exit
			Case $comand = "play"
			SoundPlay("7Floor.mp3" & _msg())
        Case $comand <> ""
            MsgBox(0, "message", $comand)
            ContinueLoop
        EndSelect
        
        If @error Then ExitLoop
       WEnd
Wend    
    
TCPCloseSocket($socket)
TCPShutdown()

Клиент

Global $Box

HotKeySet("{F2}", "_Start") 

TCPStartUp()
$g_IP = InputBox("Введите  IP","Введите  IP - адрес")

$socket = TCPConnect( $g_IP, 1200 )
$msg = TCPSend($socket, $Box)
If $socket = -1 Then 
    Exit
Else
    MsgBox(1, "","Есть соединение !")
EndIf

while 1
          Sleep(100)
WEnd

TCPCloseSocket($socket)
TCPShutdown()

Func _Start()
$Box=InputBox("Введите команду", "Введите команду или сообщение")

EndFunc

P.s. муз. файл тот же =D