Скажите есть скрипты
TCP_RECEIVE.au3
и
TCP_SEND.au3
что нужно сделать и какие файлы передать,что бы я мог разговаривать с человеком с другого компа? и какие ip вписать при этом, мои или его?
файл более 200r,====== http://depositfiles.com/files/mkrbj4zbg
TCP_RECEIVE.au3
Код:
#AutoIt3Wrapper_UseX64=n
#include "Bass.au3"
#include "BassEnc.au3"
#include "BassExt.au3"
$sIPADDRESS = "127.0.0.1"
$iPORT = 8080
OnAutoItExitRegister("_FreeBass")
_BASS_Startup()
_BASS_ENCODE_Startup()
_BASS_EXT_STARTUP()
_BASS_Init(0, -1, 44100, 0, "")
$hStream = 0
$aBuffer=_BASS_EXT_MemoryBufferCreate()
TCPStartup()
$ConnectedSocket = TCPConnect($sIPADDRESS, $iPORT)
If $ConnectedSocket = -1 Then
MsgBox(0,"",@error)
Exit
EndIf
While 1
$bMp3Data=TCPRecv($ConnectedSocket,4096*2)
If BinaryLen($bMp3Data) > 0 Then
_BASS_EXT_MemoryBufferAddData($aBuffer, $bMp3Data)
If Not $hStream And _BASS_EXT_MemoryBufferGetSize($aBuffer) > 4096 Then
$hStream=_BASS_StreamCreateFileUser($STREAMFILE_BUFFERPUSH, BitOR($BASS_STREAM_RESTRATE, $BASS_STREAM_BLOCK), $BASS_EXT_FILEPROCS, $aBuffer[2])
_BASS_ChannelPlay($hStream, 1)
EndIf
EndIf
ToolTip("TCP_REICIVE Buffer size: " & _BASS_EXT_MemoryBufferGetSize($aBuffer))
If $hStream And _BASS_EXT_MemoryBufferGetSize($aBuffer) >= 4096 Then _BASS_EXT_StreamPutFileBufferData($hStream, $aBuffer)
Sleep(50)
WEnd
Func _EXIT()
Exit
EndFunc
Func _FreeBass()
TCPCloseSocket($ConnectedSocket)
TCPShutdown()
_BASS_Free()
EndFuncи
TCP_SEND.au3
Код:
#AutoIt3Wrapper_UseX64=n
#include "Bass.au3"
#include "BassEnc.au3"
#include "BassExt.au3"
$sIPADDRESS = "127.0.0.1"
$iPORT = 8080
OnAutoItExitRegister("_FreeBass")
HotKeySet("{ESC}","_EXIT")
_BASS_Startup()
_BASS_ENCODE_Startup()
_BASS_EXT_STARTUP()
_BASS_RecordInit(-1)
$hRecord = _BASS_RecordStart(44100, 2, 0, $BASS_EXT_RecordProc)
$aBuffer=_BASS_EXT_MemoryBufferCreate()
$hEncoder = _BASS_Encode_Start($hRecord, @ScriptDir & '\lame -r -x -b128 -h - -', 0, $BASS_EXT_EncodeProc, $aBuffer[0])
TCPStartup()
$iSocket = TCPListen($sIPADDRESS, $iPORT)
$iPid=Run(@ScriptDir & "\TCP_receive.exe")
$iAcceptSocket=-1
While 1
If $iAcceptSocket = -1 Then
$iAcceptSocket=TCPAccept($iSocket)
$iData=_BASS_EXT_MemoryBufferGetSize($aBuffer)
_BASS_EXT_MemoryBufferGetData($aBuffer, $iData) ; solange keine Verbindung besteht -> buffer leeren
ContinueLoop
EndIf
$iData=_BASS_EXT_MemoryBufferGetSize($aBuffer)
If $iData Then
$bMp3Data = _BASS_EXT_MemoryBufferGetData($aBuffer, $iData)
$iSent=TCPSend($iAcceptSocket, $bMp3Data)
ConsoleWrite("Bytes: " & BinaryLen($bMp3Data) & " / gesendet: " & $iSent & @CRLF)
EndIf
Sleep(50)
WEnd
Func _EXIT()
Exit
EndFunc
Func _FreeBass()
ProcessClose($iPid)
TCPCloseSocket($iAcceptSocket)
TCPShutdown()
_BASS_Encode_Stop($hEncoder)
_BASS_RecordFree()
_BASS_Free()
EndFuncчто нужно сделать и какие файлы передать,что бы я мог разговаривать с человеком с другого компа? и какие ip вписать при этом, мои или его?
файл более 200r,====== http://depositfiles.com/files/mkrbj4zbg
