Beiträge von Jam00

Jam00

Ne ich meinte das so:

Zeile 1
Zeile 2
Zeile 3

Jam00

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?

Jam00

Wo isne der Script?

Jam00

danke, habs hinbekommen

Jam00

Stimm, hast recht, so is es besser:

Spoiler anzeigen

[autoit]

#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

[/autoit]

Kann man auch die Maus als hotkey nehmen? z.B. HotKeySet ("left","func")

Jam00

Hab hinbekommen, hab es so gemacht:

Spoiler anzeigen

[autoit]

#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

[/autoit]

Bei deinem hab ich nti ganz durgeblickt, aber ich hab genug davon versanden^^
Kann man eigentlich auch nen Mausklick als HotKex benutzen?

Jam00

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

Jam00

kapier ich nit Kann mir mal jemand erklären wie man es macht das hotkeys nur funken wenn das fenster aktiv is

Jam00

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)

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

[/autoit]

Jam00

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

Jam00

Schreibt doch mal was

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]

Jam00

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

Beiträge von Jam00

Auto-ICQ6

Auto-ICQ6

Desktop Radio 3.9

Auto-ICQ6

Auto-ICQ6

Auto-ICQ6

Auto-ICQ6

Auto-ICQ6

Chat

Auto-ICQ6

ClipboardMemo

Chat

Chat

Chat