Chat

Jam00

Hab auch mal nen chat gemacht, allerdings wird ein Netzlaufwerk S:\ benötigt! Und auf dem Laufwer S:\ Muss der ordner Data mit den entsprechenden Daten sein, Sie sind im anhang. Gibt auch nen Admin-Tool, damit kann man benutzer rauschmeißen und man bekommt ne anfrage wenn ein benutzer beitreten will! Also Passt af, das sind die scripts von beidem!
Das is der Normale:

[autoit]

While 1
$Name = InputBox("Chat", "Wie heißt du?")
If @error = "1" Then
Exit
ElseIf $Name = "" Then
$MSG = MsgBox(16 + 1, "Error", "Gib deinen Namen ein")
If $MSG = "2" Then Exit
Else
ExitLoop
EndIf
WEnd

[/autoit][autoit][/autoit][autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit][autoit][/autoit][autoit]

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\ToolTip\Chat\Benutzeroberfäche\Severkontackt.kxf
$Form2 = GUICreate("Sever", 230, 51, 282, 219, $WS_POPUP, 0)
GUISetBkColor(0xC8FFA5)
$Label1 = GUICtrlCreateLabel("Verbindung zum Sever wird hergestellt", 3, 3, 260, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
$Label2 = GUICtrlCreateLabel("", 4, 21, 205, 28, $SS_CENTER)
GUICtrlSetFont(-1, 16, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
WinSetOnTop("Sever", "", 1)
$zahl = 0
$zahl1 = 0
$Sever2 = FileExists("S:\E-Chat\Sever")
If $Sever2 = "1" Then
Do
$zahl1 = $zahl1 + 1
Sleep(200)
GUICtrlSetData($Label2, ".")
Sleep(200)
GUICtrlSetData($Label2, "...")
Sleep(200)
GUICtrlSetData($Label2, ".....")
Sleep(200)
GUICtrlSetData($Label2, ".......")
Sleep(200)
GUICtrlSetData($Label2, "...........")
Sleep(200)
GUICtrlSetData($Label2, ".............")
Sleep(200)
GUICtrlSetData($Label2, "...............")
Sleep(200)
GUICtrlSetData($Label2, ".................")
Sleep(10)
$Anfrage = FileExists("S:\E-Chat\LogIn-Anfrage")
Until $Anfrage = 0
EndIf
$Sever1 = FileExists("S:\E-Chat\Sever")
If $Sever1 = "1" Then
FileWrite("S:\E-Chat\LogIn-Anfrage", $Name)
EndIf
While 1
$Sever = FileExists("S:\E-Chat\Sever")
If $Sever = "0" Then
If $zahl1 = 1 Then
$zahl = $zahl + 1
ExitLoop
EndIf
EndIf
If $Sever = "1" Then
$LogIn1 = FileExists("S:\E-Chat\LogIn")
If $LogIn1 = "1" Then
$LogIn3 = FileReadLine("S:\E-Chat\LogIn", 1)
If $LogIn3 = $Name Then
$LogIn2 = FileReadLine("S:\E-Chat\LogIn", 2)
If $LogIn2 = "6" Then
$zahl = $zahl + 1
FileDelete("S:\E-Chat\LogIn")
FileDelete("S:\E-Chat\LogIn-Anfrage")
ExitLoop
ElseIf $LogIn2 = "7" Then
MsgBox(16 + 1, "Error", "Sever gibt keine Erlaubnis, wennden sie sich an den Sever")
FileDelete("S:\E-Chat\LogIn")
FileDelete("S:\E-Chat\LogIn-Anfrage")
Exit
ElseIf FileExists("S:\E-Chat\LogIn-Nachricht") = "1" Then
$LogIn4 = FileRead("S:\E-Chat\LogIn-Nachricht")
MsgBox(64, "Severnachricht", $LogIn4)
EndIf
EndIf
EndIf
EndIf
$zahl1 = $zahl1 + 1
Sleep(200)
GUICtrlSetData($Label2, ".")
Sleep(200)
GUICtrlSetData($Label2, "...")
Sleep(200)
GUICtrlSetData($Label2, ".....")
Sleep(200)
GUICtrlSetData($Label2, ".......")
Sleep(200)
GUICtrlSetData($Label2, "...........")
Sleep(200)
GUICtrlSetData($Label2, ".............")
Sleep(200)
GUICtrlSetData($Label2, "...............")
Sleep(200)
GUICtrlSetData($Label2, ".................")
WEnd
Break(0)
FileDelete("S:\E-Chat\Meldung")
WinSetState("Sever", "", @SW_HIDE)
DirCreate("S:\E-Chat\On")
DirRemove("S:\E-Chat\" & $Name, 1)
DirCreate("S:\E-Chat\" & $Name)
FileWrite("S:\E-Chat\On\" & $Name, $Name)
FileWrite("S:\E-Chat\Meldung", "on" & @CRLF & $Name & " hat den Chat betreten")
HotKeySet("!{v}", "V")
HotKeySet("!{w}", "W")
Func V()
WinSetState("Chat " & $Name, "", @SW_HIDE)
EndFunc ;==>V
Func W()
WinSetState("Chat " & $Name, "", @SW_SHOW)
EndFunc ;==>W
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>

[/autoit][autoit][/autoit][autoit]

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\hendrik\favoriten\eigene dateien\autoit\tooltip\chat\benutzeroberfäche\tooltip-chat2.kxf
$Form1_1 = GUICreate("Chat " & $Name, 629, 485, 190, 147, BitOR($WS_POPUP, $WS_CLIPSIBLINGS), 0)
GUISetBkColor(0xC8FFA5)
$Pic1 = GUICtrlCreatePic("S:\Data\Hintergrund.jpg", -3, -3, 631, 487, $WS_GROUP)
$Edit1 = GUICtrlCreateEdit("", 6, 54, 413, 284, BitOR($ES_READONLY, $WS_BORDER))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor(-1, 0xC0FF9E)
$Edit2 = GUICtrlCreateEdit("", 6, 342, 614, 107, $ES_WANTRETURN)
GUICtrlSetData(-1, "")
GUICtrlSetCursor(-1, 5)
$Close = GUICtrlCreateButton("(Not allowed)", 594, 6, 22, 22, $BS_BITMAP)
GUICtrlSetImage(-1, "S:\Data\X.bmp", 0)
GUICtrlSetCursor(-1, 0)
$TreeView1 = GUICtrlCreateTreeView(423, 54, 196, 283)
$Input1 = GUICtrlCreateInput("Input1", 69, 455, 475, 21, $ES_center)
GUICtrlSetBkColor(-1, 0x2FE223)
GUICtrlSetState(-1, $GUI_HIDE)
$Button1 = GUICtrlCreateButton("Multinachricht", 546, 453, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Senden", 3, 453, 63, 25, 0)
Dim $Form1_1_AccelTable[1][2] = [["{ENTER}", $Button2]]
GUISetAccelerators($Form1_1_AccelTable)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$BZhal = 12
$minus = 0
MsgBox(0 + 64, "Info", "Drücke Alt+V um den Chat zu verstecken" & @CRLF & "Drücke Alt+W um den Chat wieder sichtbar zu machen")
Call("Benutzer")
Func Benutzer()
$minus2 = FileRead("S:\E-Chat\" & $Name & "\minus")
$BZhal = $BZhal - $minus2
GUICtrlDelete($TreeView1)
$TreeView1 = GUICtrlCreateTreeView(423, 54, 196, 283)
GUICtrlSetBkColor(-1, 0xA8FEA5)
$suche = FileFindFirstFile("S:\E-Chat\On\*.*")
DirRemove("S:\E-Chat\" & $Name, 1)
DirCreate("S:\E-Chat\" & $Name)
While 1
$datei = FileFindNextFile($suche)
If @error Then ExitLoop
GUICtrlCreateTreeViewItem($datei, $TreeView1)
$BZhal = $BZhal + 1
FileWrite("S:\E-Chat\" & $Name & "\" & $BZhal, $datei)
$minus1 = FileRead("S:\E-Chat\" & $Name & "\minus")
FileDelete("S:\E-Chat\" & $Name & "\minus")
FileWrite("S:\E-Chat\" & $Name & "\minus", $minus1 + 1)
WEnd
EndFunc ;==>Benutzer
Func Meldung()
$MeldungRead = FileReadLine("S:\E-Chat\Meldung", 1)
$MeldungRead2 = FileReadLine("S:\E-Chat\Meldung", 2)
GUICtrlSetData($Input1, $MeldungRead2)
GUICtrlSetState($Input1, $GUI_SHOW)
If $MeldungRead = "On" Then
SoundPlay("S:\Data\On.mp3")
ElseIf $MeldungRead = "Off" Then
SoundPlay("S:\Data\Off.mp3")
EndIf
Sleep(50)
FileDelete("S:\E-Chat\Meldung")
Call("Benutzer")
EndFunc ;==>Meldung
Func Nachricht()
SoundPlay("S:\Data\Nachricht.mp3")
$Nachricht = FileRead("S:\E-Chat\" & $Name & "\Nachricht")
$2 = GUICtrlRead($Edit1)
GUICtrlSetData($Edit1, $Nachricht & $2)
FileDelete("S:\E-Chat\" & $Name & "\Nachricht")
$Active = WinActive("Chat " & $Name)
If $Active = "0" Then
TrayTip("Chat", $Nachricht, 10, 1)
EndIf
EndFunc ;==>Nachricht
Func MNachricht()
$Active = WinActive("Chat " & $Name)
SoundPlay("S:\Data\Nachricht.mp3")
$MNachricht = FileRead("S:\E-Chat\MNachricht")
$M2 = GUICtrlRead($Edit1)
If $Active = "0" Then
TrayTip("Chat", $MNachricht, 20, 1)
EndIf
GUICtrlSetData($Edit1, $MNachricht & $M2)
FileDelete("S:\E-Chat\MNachricht")
EndFunc ;==>MNachricht
Func Senden()
$TreeRead = GUICtrlRead($TreeView1)
$File = FileRead("S:\E-Chat\" & $Name & "\" & $TreeRead)
$Edit = GUICtrlRead($Edit2)
If $File = $Name Then
MsgBox(16, "Error", "Du kannst keine Nachricht an dich selber schreiben!")
ElseIf $TreeRead = "" Then
MsgBox(16, "Error", "Wähle ein Benutzer aus")
ElseIf $Edit = "" Then
Sleep(1)
Else
FileWrite("S:\E-Chat\" & $File & "\Nachricht", $Name & " schreibt:" & @CRLF & $Edit & @CRLF)
$1 = GUICtrlRead($Edit1)
GUICtrlSetData($Edit1, "An " & $File & ":" & @CRLF & $Edit & @CRLF & $1)
EndIf
GUICtrlSetData($Edit2, "")
SoundPlay("S:\Data\Senden.mp3")
EndFunc ;==>Senden
Func MSenden()
$TreeRead = GUICtrlRead($TreeView1)
$File = FileRead("S:\E-Chat\MNachricht")
$Edit = GUICtrlRead($Edit2)
If $Edit = "" Then
Sleep(1)
Else
FileWrite("S:\E-Chat\MNachricht", "Von " & $Name & " an Alle:" & @CRLF & $Edit & @CRLF)
$1 = GUICtrlRead($Edit1)
GUICtrlSetData($Edit2, "")
SoundPlay("S:\Data\Senden.mp3")
EndIf
EndFunc ;==>MSenden
Func Close()
FileDelete("S:\E-Chat\Meldung")
FileWrite("S:\E-Chat\Meldung", "Off" & @CRLF & $Name & " hat den Chat verlassen")
FileDelete("S:\E-Chat\On\" & $Name)
DirRemove("S:\E-Chat\" & $Name, 1)
Exit
EndFunc ;==>Close
$MeldungZahl = 0
While 1
Sleep(10)
$ende = FileExists("S:\E-Chat\" & $Name & "Exit")
If $ende = "1" Then
MsgBox(16, "Error", "Du wurdest rausgeschmissen! Bei Fragen wende dich an den Sever", 10)
Call("Close")
EndIf
$3 = FileExists("S:\E-Chat\" & $Name & "\Nachricht")
$4 = FileExists("S:\E-Chat\MNachricht")
If $3 = "1" Then
Call("Nachricht")
ElseIf $4 = "1" Then
Call("MNachricht")
EndIf
$Meldung1 = GUICtrlRead($Input1)
If $Meldung1 = "" Then
Sleep(50)
Else
$MeldungZahl = $MeldungZahl + 1
EndIf
If $MeldungZahl = "190" Then
$MeldungZahl = $MeldungZahl - 190
GUICtrlSetData($Input1, "")
GUICtrlSetState($Input1, $GUI_HIDE)
EndIf
$Meldung = FileExists("S:\E-Chat\Meldung")
If $Meldung = "1" Then
Call("Meldung")
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Close
Call("Close")
Case $Button2
Call("Senden")
Case $Button1
Call("MSenden")
EndSwitch
WEnd

[/autoit]

Und das der Admin:

[autoit]

Break (0)
While 1
$Name = InputBox("Chat", "Wie heißt du?")
If @error = "1" Then
Exit
ElseIf $Name = "" Then
$MSG = MsgBox (16+1,"Error", "Gib deinen Namen ein")
If $MSG = "2" Then Exit
Else
ExitLoop
EndIf
WEnd
HotKeySet ("!{v}","V")
HotKeySet ("!{w}","W")
Func V()
WinSetState ("Chat " & $Name,"",@SW_HIDE)
EndFunc
Func W()
WinSetState ("Chat " & $Name,"",@SW_SHOW)
EndFunc
FileDelete ("S:\E-Chat\Meldung")
WinSetState("Sever", "", @SW_HIDE)
DirCreate ("S:\E-Chat\On")
DirRemove ("S:\E-Chat\" & $Name,1)
DirCreate ("S:\E-Chat\" & $Name)
FileWrite ("S:\E-Chat\On\" & $Name,$Name)
FileWrite ("S:\E-Chat\Meldung", "on" & @CRLF & $Name & " hat den Chat betreten")
FileDelete ("S:\E-Chat\LogIn-Anfrage")
FileWrite ("S:\E-Chat\Sever","")
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>

[/autoit][autoit][/autoit][autoit]

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\hendrik\favoriten\eigene dateien\autoit\tooltip\chat\benutzeroberfäche\tooltip-chat2.kxf
$Form1_1 = GUICreate("Chat " & $Name, 629, 485, 190, 147, BitOR($WS_POPUP,$WS_CLIPSIBLINGS), 0)
GUISetBkColor(0xC8FFA5)
$Pic1 = GUICtrlCreatePic("S:\Data\Hintergrund.jpg", -3, -3, 631, 487, $WS_GROUP)
$Edit1 = GUICtrlCreateEdit("", 6, 54, 413, 284, BitOR($ES_READONLY,$WS_BORDER))
GUICtrlSetData(-1, "")
GUICtrlSetBkColor (-1,0xC0FF9E)
$CheckBox = GUICtrlCreateCheckbox ("Alle Benutzer zulassen",425,321)
GUISetBkColor(0xA8FEA5)
$Edit2 = GUICtrlCreateEdit("", 6, 342, 614, 107, $ES_WANTRETURN)
GUICtrlSetData(-1, "")
GUICtrlSetCursor (-1, 5)
$Close = GUICtrlCreateButton("(Not allowed)", 594, 6, 22, 22, $BS_BITMAP)
GUICtrlSetImage(-1, "S:\Data\X.bmp", 0)
GUICtrlSetCursor (-1, 0)
$TreeView1 = GUICtrlCreateTreeView(423, 54, 196, 260)
$Input1 = GUICtrlCreateInput("Input1", 69, 455, 475, 21,$ES_center)
GUICtrlSetBkColor (-1,0x2FE223)
GUICtrlSetState (-1,$GUI_HIDE)
$Button3 = GUICtrlCreateButton ("BE",3,453,50,0)
$Button1 = GUICtrlCreateButton("Multinachricht", 546, 453, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Senden", 3, 453, 63, 25, 0)
Dim $Form1_1_AccelTable[1][2] = [["{ENTER}", $Button2]]
GUISetAccelerators($Form1_1_AccelTable)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$BZhal = 12
$minus = 0
Call ("Benutzer")
Func Benutzer ()
$minus2 = FileRead ("S:\E-Chat\" & $Name & "\minus")
$BZhal = $BZhal - $minus2
GUICtrlDelete ($TreeView1)
$TreeView1 = GUICtrlCreateTreeView(423, 54, 196, 260)
GUICtrlSetBkColor($TreeView1, 0xA8FEA5)
$suche = FileFindFirstFile ("S:\E-Chat\On\*.*")
DirRemove ("S:\E-Chat\" & $Name,1)
DirCreate ("S:\E-Chat\" & $Name)
While 1
$datei = FileFindNextFile($suche)
If @error Then ExitLoop
GUICtrlCreateTreeViewItem($datei, $TreeView1)
$BZhal = $BZhal + 1
FileWrite ("S:\E-Chat\" & $Name & "\" & $BZhal,$datei)
$minus1 = FileRead ("S:\E-Chat\" & $Name & "\minus")
FileDelete ("S:\E-Chat\" & $Name & "\minus")
FileWrite ("S:\E-Chat\" & $Name & "\minus",$minus1 + 1)
WEnd
EndFunc
Func BE()
$GuiRead = GUICtrlRead ($Edit2)
FileWrite ("S:\E-Chat\" & $GuiRead & "exit","")
GUICtrlSetData ($Edit2,"")
EndFunc

[/autoit][autoit][/autoit][autoit]

Func Meldung()
$MeldungRead = FileReadLine ("S:\E-Chat\Meldung",1)
$MeldungRead2 = FileReadLine ("S:\E-Chat\Meldung",2)
GUICtrlSetData ($Input1,$MeldungRead2)
GUICtrlSetState ($Input1,$GUI_SHOW)
If $MeldungRead = "On" Then
SoundPlay ("S:\Data\On.mp3")
ElseIf $MeldungRead = "Off" Then
SoundPlay ("S:\Data\Off.mp3")
EndIf
Sleep (50)
FileDelete ("S:\E-Chat\Meldung")
Call ("Benutzer")
EndFunc
Func LogIn ()
FileDelete ("S:\E-Chat\LogIn")
$LogIn1 = FileRead ("S:\E-Chat\LogIn-Anfrage")
$LogIn2 = MsgBox (64+3,"LogIn","Darf " & $LogIn1 & " dem Chat beitreten?")
If $LogIn2 = "2" Then
$In1 = InputBox ("Severnachricht","Wie soll sie Nachricht lauten?")
FileWrite ("S:\E-Chat\LogIn-Nachricht",$In1)
Else
FileWrite ("S:\E-Chat\LogIn",$LogIn1 & @CRLF & $LogIn2)
EndIf
Sleep (5)
FileDelete ("S:\E-Chat\LogIn-Anfrage")
Sleep (50)
EndFunc
Func Nachricht()
SoundPlay ("S:\Data\Nachricht.mp3")
$Nachricht = FileRead ("S:\E-Chat\" & $Name & "\Nachricht")
$2 = GUICtrlRead ($Edit1)
GUICtrlSetData ($Edit1, $Nachricht & $2)
FileDelete ("S:\E-Chat\" & $Name & "\Nachricht")
$Active = WinActive ("Chat " & $Name)
If $Active = "0" Then
TrayTip ("Chat",$Nachricht,10,1)
EndIf
EndFunc
Func MNachricht ()
$Active = WinActive ("Chat " & $Name)
SoundPlay ("S:\Data\Nachricht.mp3")
$MNachricht = FileRead ("S:\E-Chat\MNachricht")
$M2 = GUICtrlRead ($Edit1)
If $Active = "0" Then
TrayTip ("Chat",$MNachricht,20,1)
EndIf
GUICtrlSetData ($Edit1, $MNachricht & $M2)
FileDelete ("S:\E-Chat\MNachricht")
EndFunc
Func Senden()
$TreeRead = GUICtrlRead ($TreeView1)
$File = FileRead ("S:\E-Chat\" & $Name & "\" & $TreeRead)
$Edit = GUICtrlRead ($Edit2)
If $File = $Name Then
MsgBox (16,"Error","Du kannst keine Nachricht an dich selber schreiben!")
ElseIf $TreeRead ="" Then
MsgBox (16,"Error","Wähle ein Benutzer aus")
ElseIf $Edit = "" Then
Sleep (1)
Else
FileWrite ("S:\E-Chat\" & $File & "\Nachricht",$Name & " schreibt:" & @CRLF & $Edit & @CRLF)
$1 = GUICtrlRead ($Edit1)
GUICtrlSetData ($Edit1,"An " & $File & ":" & @CRLF & $Edit & @CRLF & $1)
EndIf
GUICtrlSetData ($Edit2,"")
SoundPlay ("S:\Data\Senden.mp3")
EndFunc
Func MSenden ()
$TreeRead = GUICtrlRead ($TreeView1)
$File = FileRead ("S:\E-Chat\MNachricht")
$Edit = GUICtrlRead ($Edit2)
If $Edit = "" Then
Sleep (1)
Else
FileWrite ("S:\E-Chat\MNachricht","Von "& $Name & " an Alle:" & @CRLF & $Edit & @CRLF)
$1 = GUICtrlRead ($Edit1)
GUICtrlSetData ($Edit2,"")
SoundPlay ("S:\Data\Senden.mp3")
EndIf
EndFunc
Func Close()
FileDelete ("S:\E-Chat\Meldung")
FileWrite ("S:\E-Chat\Meldung","Off" & @crlf & $Name & " hat den Chat verlassen")
FileDelete ("S:\E-Chat\On\" & $Name)
DirRemove ("S:\E-Chat\" & $Name,1)
FileDelete ("S:\E-Chat\Sever")
Exit
EndFunc
$MeldungZahl = 0
$CheckZahl = 4
While 1
Sleep (10)
$LogIn = FileExists ("S:\E-Chat\LogIn-Anfrage")
If $LogIn = "1" Then
Call ("LogIn")
EndIf
$3 = FileExists ("S:\E-Chat\" & $Name & "\Nachricht")
$4 = FileExists ("S:\E-Chat\MNachricht")
$Check = GUICtrlRead ($CheckBox)
IF $CheckZahl = $Check Then
Sleep (1)
Else
If $Check = 1 Then
$CheckZahl = $CheckZahl -3
FileDelete ("S:\E-Chat\Sever")
ElseIf $Check = 4 Then
$CheckZahl = $CheckZahl + 3
FileWrite ("S:\E-Chat\Sever","")
EndIf
EndIf
If $3 = "1" Then
Call ("Nachricht")
ElseIf $4 = "1" Then
Call ("MNachricht")
EndIf
$Meldung1 = GUICtrlRead ($Input1)
If $Meldung1 = "" Then
Sleep (1)
Else
$MeldungZahl = $MeldungZahl + 1
EndIf
If $MeldungZahl = "190" Then
$MeldungZahl = $MeldungZahl - 190
GUICtrlSetData ($Input1,"")
GUICtrlSetState ($Input1,$GUI_HIDE)
EndIf
$Meldung = FileExists ("S:\E-Chat\Meldung")
If $Meldung = "1" Then
Call ("Meldung")
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Close
Call ("Close")
Case $Button2
Call ("Senden")
Case $Button1
Call ("MSenden")
Case $Button3
Call ("BE")
EndSwitch
WEnd

[/autoit]

anno2008

/Edit: War Blödsinn, ich hab mir die Funktion weise nicht angeguggt.

Aber ansonsten ist es realtiv kompliziert einen Chat über Textdatei zu betreiben...
Naja, den Sinn was zu lernen hat es bestimmt erfüllt.

PS. Call() braucht man nicht, wenn man eine Funktion aufrufen will, dann macht man dass, indem man einfach den Funktionsnamen aufruft.

[autoit]

Call("Benutzer")

[/autoit]

So:

[autoit]

Benutzer()

[/autoit]

Und Spoiler wären vielleicht trotzdem ganz nützlich

Jam00

Schreibt doch mal was

Padmak

du könntest das zeug mit dem Data ordner einfach weghaun wenn du am anfang des scriptes ein FileInstall nach @Temp machen würdest mit den dateien die du brauchst
dieser weg ist eig der einfachste

Padmak