ich hab mir einen kleinen ip to ip chat gebastelt, und möchte jetzt, das man mit mehr wie nur einer person chatten kann.
hier mein chat:
chat
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstants.au3>
#Include <File.au3>
#Include <GuiEdit.au3>
#include <GuiStatusBar.au3>
#include <ScrollBarConstants.au3>
#include <GuiIPAddress.au3>
If IsAdmin() = 0 Then
MsgBox(48,"WARNUNG"," !!!!!!ACHTUNG!!!!!!" & @CRLF & "Sie haben keine Administrator Rechte. Für dieses Programm werden Administrator rechte benötigt!")
exit2()
EndIf
Global $ip1 ,$edit2 ,$chat ,$chat2 ,$recive
[/autoit] [autoit][/autoit] [autoit]$file = FileOpen(@WindowsDir & "/Chat/settings.ini",0)
If $file = -1 Then
If DirGetSize(@WindowsDir & "/Chat") = -1 Then
DirCreate(@WindowsDir & "/Chat")
EndIf
_FileCreate(@WindowsDir & "/Chat/settings.ini")
$file = FileOpen(@WindowsDir & "/Chat/settings.ini",2)
FileWriteLine($file,"[settings]")
FileWriteLine($file,"")
FileWriteLine($file,"Name=" & @ComputerName)
$i = 1
Do
FileWriteLine($file,$i & "=0")
$i += 1
Until $i = 21
EndIf
FileClose($file)
$openlog = FileOpen(@WindowsDir & "/Chat/" & @MDAY & "." & @MON & "." & @YEAR & ".txt",0)
If $openlog = -1 Then
If DirGetSize(@WindowsDir & "/Chat") = -1 Then
DirCreate(@WindowsDir & "/Chat")
EndIf
$openlog = _FileCreate(@WindowsDir & "/Chat/" & @MDAY & "." & @MON & "." & @YEAR & ".txt")
EndIf
$socket = -1
$socket2 = -1
TCPStartup()
If @error = 1 Then Exit
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\Tetris.mp3", @WindowsDir & "\Chat\Tetris.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\hallo.mp3", @WindowsDir & "\Chat\hallo.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\hehe.mp3", @WindowsDir & "\Chat\hehe.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\adminsaege.mp3", @WindowsDir & "\Chat\adminsaege.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\axel.mp3", @WindowsDir & "\Chat\axel.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\buh.mp3", @WindowsDir & "\Chat\buh.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\bett.mp3", @WindowsDir & "\Chat\bett.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\bass.mp3", @WindowsDir & "\Chat\bass.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\da.mp3", @WindowsDir & "\Chat\da.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\cu.mp3", @WindowsDir & "\Chat\cu.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\frauen.mp3", @WindowsDir & "\Chat\frauen.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\ja.mp3", @WindowsDir & "\Chat\ja.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\jagut.mp3", @WindowsDir & "\Chat\jagut.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\lucker.mp3", @WindowsDir & "\Chat\lucker.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\messer.mp3", @WindowsDir & "\Chat\messer.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\moin.mp3", @WindowsDir & "\Chat\moin.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\nein.mp3", @WindowsDir & "\Chat\nein.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\schoen.mp3", @WindowsDir & "\Chat\schoen.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\rumble.mp3", @WindowsDir & "\Chat\rumble.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\sry.mp3", @WindowsDir & "\Chat\sry.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\ups.mp3", @WindowsDir & "\Chat\ups.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\np.mp3", @WindowsDir & "\Chat\np.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\bier.mp3", @WindowsDir & "\Chat\bier.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\licht.mp3", @WindowsDir & "\Chat\licht.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\lol.mp3", @WindowsDir & "\Chat\lol.mp3")
FileInstall("C:\Dokumente und Einstellungen\Kevin\Desktop\PCKing\Scriptzeug\chat\sounds\karl.mp3", @WindowsDir & "\Chat\karl.mp3")
$gui = GUICreate("IP",100,60)
GUISetState(@SW_SHOW)
$combo = GUICtrlCreateCombo(@IPAddress1,0,0,100,80)
If @IPAddress2 <> "0.0.0.0" Then
GUICtrlSetData(-1, @IPAddress2)
EndIf
If @IPAddress3 <> "0.0.0.0" Then
GUICtrlSetData(-1, @IPAddress3)
EndIf
If @IPAddress4 <> "0.0.0.0" Then
GUICtrlSetData(-1, @IPAddress4)
EndIf
$button = GUICtrlCreateButton("OK",0,20,100,40)
While 1
$msg = GUIGetMsg()
If $msg = $button Then
$ip1 = GUICtrlRead($combo)
GUIDelete($gui)
ExitLoop
EndIf
If $msg = $GUI_EVENT_CLOSE Then
GUIDelete($gui)
Exit2()
EndIf
WEnd
$gui = GUICreate("IP",125,60)
$ipaddress = _GUICtrlIpAddress_Create($gui,0,0)
$button = GUICtrlCreateButton("ok",0,27,125,33)
GUISetState(@SW_SHOW,$gui)
While 1
$msg = GUIGetMsg()
If $msg = $button Then
$ip = _GUICtrlIpAddress_Get($ipaddress)
GUIDelete($gui)
ExitLoop
ElseIf $msg = $GUI_EVENT_CLOSE Then
GUIDelete($gui)
Exit2()
EndIf
WEnd
If @error = 1 Then Exit
$main = TCPListen($ip1,50,1)
$socket = -1
Do
$socket = TCPAccept($main)
$socket2 = TCPConnect($ip,50)
Until $socket <> -1 Or $socket2 <> -1
GUICreate("Chat V1.2",500,500)
$edit = GUICtrlCreateEdit("",0,0,500,250)
$edit2 = GUICtrlCreateEdit("",0,250,500,200)
$settings = GUICtrlCreateMenu("Einstellungen")
$menu1 = GUICtrlCreateMenuItem("Name Ändern",$settings)
$button = GUICtrlCreateButton("Send",0,450,100,30)
GUISetState(@SW_SHOW)
$readlog = FileRead($openlog)
GUICtrlSetData($edit,$readlog)
$iLen = _GUICtrlEdit_GetTextLen($edit)
_GUICtrlEdit_SetSel($edit, $iLen, $iLen)
_GUICtrlEdit_Scroll($edit, $SB_SCROLLCARET)
HotKeySet("{ENTER}","senden2")
While 1
$msg = GUIGetMsg()
$recive = TCPRecv($socket,1000)
$read = GUICtrlRead($edit)
$send = GUICtrlRead($edit2)
Select
Case $socket = -1
Do
$socket = TCPAccept($main)
Until $socket <> -1
Case $socket2 = -1
Do
$socket2 = TCPConnect($ip,50)
Until $socket2 <> -1
Case $recive <> ""
check($recive,2)
Case $msg = $button
check($send,1)
Case $msg = $menu1
$name = IniRead(@WindowsDir & "/Chat/settings.ini","settings","Name",@ComputerName)
$input = InputBox("Name","Gib bitte den neuen Namen ein",$name)
If $input = "" Then $input = @ComputerName
IniWrite(@WindowsDir & "/Chat/settings.ini","settings","Name",$input)
EndSelect
If $msg = $GUI_EVENT_CLOSE Then Exit2()
WEnd
Func senden2()
$send = GUICtrlRead($edit2)
check($send,1)
EndFunc
Func check($chat,$check)
$chat2 = $chat
$split = StringSplit($chat,":")
If $split[0] <> 1 Then
If FileExists(@WindowsDir & "/Chat/" & $split[2] & ".mp3") Then
SoundPlay(@WindowsDir & "/Chat/" & $split[2] & ".mp3")
$chat2 = $split[1] & " " & $split[3]
EndIf
ElseIf $split[0] = 1 Then
$chat2 = $split[1]
EndIf
If $check = 1 Then
senden($chat,$chat2)
ElseIf $check = 2 Then
empfangen($chat2)
EndIf
EndFunc
Func senden($send,$log)
$name = IniRead(@WindowsDir & "/Chat/settings.ini","settings","Name",@ComputerName)
TCPSend($socket2, $name & " -> " & $send & " (" & @HOUR & ";" & @MIN & ";" & @SEC & ")")
FileClose($openlog)
$openlog3 = FileOpen(@WindowsDir & "/Chat/" & @MDAY & "." & @MON & "." & @YEAR & ".txt",1)
$writelog = FileWriteLine($openlog3, $name & " -> " & $log & " (" & @HOUR & ";" & @MIN & ";" & @SEC & ")")
FileClose($openlog)
$openlog2 = FileOpen(@WindowsDir & "/Chat/" & @MDAY & "." & @MON & "." & @YEAR & ".txt",0)
$readlog = FileRead($openlog2)
GUICtrlSetData($edit, $readlog)
$iLen = _GUICtrlEdit_GetTextLen($edit)
_GUICtrlEdit_SetSel($edit, $iLen, $iLen)
_GUICtrlEdit_Scroll($edit, $SB_SCROLLCARET)
GUICtrlSetData($edit2,"")
EndFunc
Func empfangen($empfang)
FileClose($openlog)
$openlog3 = FileOpen(@WindowsDir & "/Chat/" & @MDAY & "." & @MON & "." & @YEAR & ".txt",1)
$writelog = FileWriteLine($openlog3, $empfang)
FileClose($openlog)
$openlog2 = FileOpen(@WindowsDir & "/Chat/" & @MDAY & "." & @MON & "." & @YEAR & ".txt",0)
$readlog = FileRead($openlog2)
GUICtrlSetData($edit, $readlog)
$iLen = _GUICtrlEdit_GetTextLen($edit)
_GUICtrlEdit_SetSel($edit, $iLen, $iLen)
_GUICtrlEdit_Scroll($edit, $SB_SCROLLCARET)
EndFunc
Func Exit2()
TCPShutdown()
FileClose($openlog)
FileDelete(@WindowsDir & "/Chat/hallo.mp3")
FileDelete(@WindowsDir & "/Chat/hehe.mp3")
FileDelete(@WindowsDir & "/Chat/adminsaege.mp3")
FileDelete(@WindowsDir & "/Chat/axel.mp3")
FileDelete(@WindowsDir & "/Chat/buh.mp3")
FileDelete(@WindowsDir & "/Chat/bett.mp3")
FileDelete(@WindowsDir & "/Chat/bass.mp3")
FileDelete(@WindowsDir & "/Chat/da.mp3")
FileDelete(@WindowsDir & "/Chat/cu.mp3")
FileDelete(@WindowsDir & "/Chat/frauen.mp3")
FileDelete(@WindowsDir & "/Chat/ja.mp3")
FileDelete(@WindowsDir & "/Chat/jagut.mp3")
FileDelete(@WindowsDir & "/Chat/lucker.mp3")
FileDelete(@WindowsDir & "/Chat/messer.mp3")
FileDelete(@WindowsDir & "/Chat/moin.mp3")
FileDelete(@WindowsDir & "/Chat/nein.mp3")
FileDelete(@WindowsDir & "/Chat/schoen.mp3")
FileDelete(@WindowsDir & "/Chat/rumble.mp3")
FileDelete(@WindowsDir & "/Chat/sry.mp3")
FileDelete(@WindowsDir & "/Chat/ups.mp3")
FileDelete(@WindowsDir & "/Chat/np.mp3")
FileDelete(@WindowsDir & "/Chat/bier.mp3")
FileDelete(@WindowsDir & "/Chat/licht.mp3")
FileDelete(@WindowsDir & "/Chat/lol.mp3")
FileDelete(@WindowsDir & "/Chat/karl.mp3")
FileDelete(@WindowsDir & "/Chat/Tetris.mp3")
Exit
EndFunc
freue mich über jede hilfe
EDIT// die FileInstall und FileDelete am ende und anfang nicht beachten