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:
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
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#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>
#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
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>
#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
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