Ne ich meinte das so:
Zeile 1
Zeile 2
Zeile 3
Ne ich meinte das so:
Zeile 1
Zeile 2
Zeile 3
Weiß jemand ob man in einer Edit-Feld nur die Schriftfarbe einer bestimten Zeile ändern kann, und nicht im gannzen Edit-Feld? Und auch die Hintergrundfarbe?
Wo isne der Script?
danke, habs hinbekommen
Stimm, hast recht, so is es besser:
#include <GUIConstants.au3>
$gui = GUICreate('Test')
GUISetState()
$active = 0
While 1
$1 = WinActive ("Test")
If $1 = $active Then
Sleep (1)
Else
If $1 = "0" Then
$active = 0
HotKeySet ("+s")
ElseIf $1 = "1" Then
$active = 1
HotKeySet ("+s","S")
EndIf
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
exit
EndSwitch
Wend
Func S()
MsgBox(0, '', 'Hotkey gedrückt')
EndFunc
Kann man auch die Maus als hotkey nehmen? z.B. HotKeySet ("left","func")
Hab hinbekommen, hab es so gemacht:
#include <GUIConstants.au3>
$gui = GUICreate('Test')
GUISetState()
While 1
$1 = WinActive ("Test")
If $1 = "0" Then
HotKeySet ("+s")
ElseIf $1 = "1" Then
HotKeySet ("+s","S")
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
exit
EndSwitch
Wend
Func S()
MsgBox(0, '', 'Hotkey gedrückt')
EndFunc
Bei deinem hab ich nti ganz durgeblickt, aber ich hab genug davon versanden^^
Kann man eigentlich auch nen Mausklick als HotKex benutzen?
kanste mir mal nen beispiel sagen? Ich wollte das acuh so haben, das die HotKeys wenn das fenster nit aktiv is dann auch für andere Programme funken
kapier ich nit Kann mir mal jemand erklären wie man es macht das hotkeys nur funken wenn das fenster aktiv is
Danke, hoffe ich blick da durch! Bin noch nit so lange am Proggen, wenn de meinen Chat mal sehen willst, er is auch bei den Scripten (Chat von Jam00)
Ich hab mal ein Programm geschrieben, das bei ICQ6 automatisch antwortet wennn man einen Nachricht bekommt, den Text der geantwortet werden soll gibt man beim Start ein1
[autoit]$Input1 = InputBox("Name", "Wie heist das Fenster?")
$Input2 = InputBox("Text", "Welcher Text soll geantwortet werden?")
WinActivate($Input1)
While 1
Sleep(50)
WinMove($Input1, "", 0, 0)
$1 = PixelGetColor(149, 328)
If $1 = "0xD3E9E7" Then
While 2
$2 = PixelGetColor(149, 328)
If $2 = "0xECFEF2" Then
MouseClick("Left", 24, 357)
Send($Input2, 1)
Send("{enter}")
ExitLoop
EndIf
WEnd
EndIf
$3 = PixelGetColor(37, 69)
If $3 = "0xEDEA3D" Then
MouseClick("Left", 37, 69)
Send($Input2, 1)
Send("{enter}")
EndIf
$4 = PixelGetColor(151, 69)
If $4 = "0xEDE93F" Then
MouseClick("Left", 151, 69)
Send($Input2, 1)
Send("{enter}")
EndIf
$4 = PixelGetColor(263, 69)
If $4 = "0xEDEA3D" Then
MouseClick("Left", 263, 69)
Send($Input2, 1)
Send("{enter}")
EndIf
$5 = PixelGetColor(371, 69)
If $5 = "0xEDE93F" Then
MouseClick("Left", 371, 69)
Send($Input2, 1)
Send("{enter}")
EndIf
Sleep(50)
WEnd
Is echt hammergeil, hab dadurch gelernt wie man ne .ini richtig benutzt, und das mit den Zeilen geht auch, hab 205 zeilen kopiert und es ging hammer
Schreibt doch mal was
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
Also mir gefällt der chat voll!! Ich hab auch nen Chat gemacht, aber ich hab es per FileWrite gemacht und nen Netzlaufwerk (S:\) haben wir in der schule, wusste nit wie ich das sonst hinbekommen soll, hab das auch noch mit benutzerauswahl un so, blick bei deinem Script allerdings noch nit so wirklich durch, aknste mir das noch mal erklären? Danke