Hmmm, warum ein script machen wenn es auch per Silent schalter geht z.B. für Adobe Flash wäre es -install davon findet man noch viele mehr
Warum mach ich mir dann die Arbeit :pinch: Naja aber Für Skype / ICQ gibts das glaube ich nicht..
Hmmm, warum ein script machen wenn es auch per Silent schalter geht z.B. für Adobe Flash wäre es -install davon findet man noch viele mehr
Warum mach ich mir dann die Arbeit :pinch: Naja aber Für Skype / ICQ gibts das glaube ich nicht..
Hallo Community,
über ein Jahr ist's nun her, das ich nix mehr mit Auto It gemacht habe Nun melde ich mich zurück. Es ist zwar nix spektakuläres, aber ich muss ja erstmal wieder reinkommen
Zum Projekt:
Wer kennt das nicht... Man installiert seinen PC neu, und danach muss man alles neu installieren. Drum habe ich mal ein paar Autoinstallationsscripte gebastelt. Mit der Zeit kommen sicherlich (hoffentlich auch von euch) weitere Scripte dazu
Adobe Flash Player (Jonathan)
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]Version: 1.0
Author: Jonathan
#ce ----------------------------------------------------------------------------
#RequireAdmin
$filename = "install_flash_player.exe" ; Lokaler Speichername
Func download()
$download = InetGet("http://fpdownload.adobe.com/get/flashplayer/current/install_flash_player.exe",@TempDir&"\install_flash_player.exe",1,1)
ProgressOn("Download",$filename,"0%","","",18)
Do
Sleep(100)
ProgressSet(InetGetInfo($download,0)/InetGetInfo($download,1)*100,Round(InetGetInfo($download,0)/InetGetInfo($download,1)*100,1) & "%")
Until InetGetInfo($download,2)
ProgressOff()
EndFunc
func install()
ShellExecute(@TempDir&"\install_flash_player.exe")
WinWait("Installationsprogramm für Adobe® Flash® Player")
ControlClick("Installationsprogramm für Adobe® Flash® Player","",200) ;Lizenzbedingungen zustimmen
ControlClick("Installationsprogramm für Adobe® Flash® Player","",102) ; Installieren Button drücken
if ProcessExists("firefox.exe") Then ProcessClose("firefox.exe") ; Falls Firefox offen ist, Firefox schließen
do
Sleep(100)
ControlClick("Installationsprogramm für Adobe® Flash® Player","",102) ; Fertig button drücken
Until not WinExists("Installationsprogramm für Adobe® Flash® Player") ; Prüfen ob Installation Fertig ist (Fenster geschlossen)
EndFunc
download()
install()
ICQ 7.5 Pro7-Version BETA(Jonathan)
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]Version: 1.0
Author: Jonathan
#ce ----------------------------------------------------------------------------
#RequireAdmin
$filename = "install_pro7_icq7.exe" ; Lokaler Speichername
Func download()
$download = InetGet("http://ftp.icq.com/pub/ICQ7/install_pro7_icq7.exe",@TempDir&"\"&$filename,1,1)
ProgressOn("Download",$filename,"0%","","",18)
Do
Sleep(100)
ProgressSet(Round(InetGetInfo($download,0)/InetGetInfo($download,1)*100,1),Round(InetGetInfo($download,0)/InetGetInfo($download,1)*100,1) & "%")
Until InetGetInfo($download,2)
ProgressOff()
EndFunc
func install()
ShellExecute(@TempDir&"\"&$filename)
ToolTip("Auf Fenster warten")
WinWait("ICQ7.5")
Sleep(3000)
MouseClick("left",0,0)
Do
Until ControlGetFocus("ICQ7.5") = "Button2"
Sleep(200)
ControlClick("ICQ7.5","",13) ; Bedingungen aktzeptieren
Sleep(200)
ControlClick("ICQ7.5","",16) ; Weiter
Sleep(200)
ControlClick("ICQ7.5","",42) ; Auswahlmenü ausklappen
Sleep(200)
ControlClick("ICQ7.5","",33) ; Werbung weg
ControlClick("ICQ7.5","",34) ; ,,
ControlClick("ICQ7.5","",35) ; ,,
ControlClick("ICQ7.5","",16) ; Weiter
Sleep(200)
ToolTip("Auf Ende warten")
MouseClick("left",0,0)
do
Sleep(100)
Until ControlGetFocus("ICQ7.5") = "Button17"
ControlClick("ICQ7.5","",60) ; sofort starten ausschalten
ControlClick("ICQ7.5","",61) ; schnellstart icon deaktivieren
ControlClick("ICQ7.5","",68) ; Beenden
EndFunc
[/autoit] [autoit][/autoit] [autoit]download()
install()
Skype (Jonathan)
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]Version: 1.3
Author: Jonathan
#ce ----------------------------------------------------------------------------
#RequireAdmin
$filename = "SkypeSetup.exe" ; Lokaler Speichername
Func download()
$download = InetGet("http://download.skype.com/partner/trackable/259/SkypeSetup.exe",@TempDir&"\"&$filename,1,1)
ProgressOn("Download",$filename,"0%","","",18)
Do
Sleep(100)
ProgressSet(Round(InetGetInfo($download,0)/InetGetInfo($download,1)*100,1),Round(InetGetInfo($download,0)/InetGetInfo($download,1)*100,1) & "%")
Until InetGetInfo($download,2)
ProgressOff()
EndFunc
func install()
ShellExecute(@TempDir&"\"&$filename)
ToolTip("Auf Fenster warten")
WinWait("Skype")
Sleep(500)
Send("{enter}")
;ControlClick("Skype","",3342866) ; Next Button drücken
Sleep(200)
ControlClick("Skype","",3408836) ; google chrome abwählen
ControlClick("Skype","",3342866) ; Next Button drücken
Sleep(200)
ToolTip("Aufs Ende warten")
Do
Until ControlGetFocus("Skype") = "TButton1"
ControlClick("Skype","",2818540) ; Ende Button drücken
Sleep(1000)
WinWait("Skype")
WinClose("Skype")
Sleep(500)
WinClose("Skype")
EndFunc
download()
install()
AutoIt 3.3.6.1 (Jonathan)
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]Version: 1.3
Author: Jonathan
#ce ----------------------------------------------------------------------------
#RequireAdmin
$filename = "autoit-v3-setup.exe" ; Lokaler Speichername
Func download()
$download = InetGet("http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe",@TempDir&"\"&$filename,1,1)
ProgressOn("Download",$filename,"0%","","",18)
Do
Sleep(100)
ProgressSet(Round(InetGetInfo($download,0)/InetGetInfo($download,1)*100,1),Round(InetGetInfo($download,0)/InetGetInfo($download,1)*100,1) & "%")
Until InetGetInfo($download,2)
ProgressOff()
EndFunc
func install()
ShellExecute(@TempDir&"\"&$filename)
WinWait("AutoIt v3")
ControlClick("AutoIt v3","",1) ; Next Button drücken
Sleep(200)
ControlClick("AutoIt v3","",1) ; Lizentvereinbarung aktzeptieren
Sleep(200)
ControlClick("AutoIt v3","",1) ; Next button (Neuinstallation)
Sleep(200)
ControlClick("AutoIt v3","",1) ; Next button (Run the Script)
Sleep(200)
ControlClick("AutoIt v3","",1) ; Next button (Komplette Installation)
Sleep(200)
ControlClick("AutoIt v3","",1) ; Install-Button
do
Sleep(100)
ControlClick("AutoIt v3","",1) ; beenden
Until WinExists("AutoIt v3") = 0 ; Prüfen ob Installation Fertig ist (Fenster geschlossen)
Sleep(1500)
ProcessClose("hh.exe")
EndFunc
download()
install()
Hoffe euch gefällts, und ihr helft etwas mit Weitere Scripte bitte per PN zu mir, füge Sie dann hier oben ein
Ich versteh die Problemstellung nicht genau.
Soweit ich das verstanden habe, möchte er das Menü Transparent oder mindestens Farbig machen
1. Kann mann den Hintergrund des Menue`s ähnlich wie bei Label´n auf Transparent setzen?
2. Wenn 1 nicht geht, kann man dann wenigstens die Farbe des hintergrundes anpassen?
soweit ich weiß, ist das nciht möglich. kann aber sein, das ich mir irre...
Zitatdamit ich das besser nachvollziehen und verstehen kann zum besseren lernen!
Super Einstellung
ZitatFrage zum Menue und dessen Einbau
Rettet den Genitiv
Das ist auf jedenfall ne gute Idee Super
geht bestimmt... Man kann ja auch mit Dll´s von anderen Treibern auf USB geräte zugreifen
Edit: Ich hatte mal von Oscar (?) Ein Script bekommen, das die Position eines Lenkrads auslesen konnte und ähnliches... müsste ja dann auch andersrum gehn. oder?
Gut gut, evtl. auch die Benutzung einer Gui fände ich gut... dann sieht man die aktuelle Onlineliste
Das Script ist ja nur da, um im Hintergrund zu laufen, während du auf AutoIt.de surfst, und dich dann benachrichtigt, wenn jemand Online kommt. Eine Onlineliste hast du ja Standardmäßig links...
Oder tappe ich gerade im Dunkeln
Ist das jetzt wieder so ein Thread, wie von Blume???
Nein, ist es nicht, und das wird mir einfach zuviel Streß und eigentlich an sprenger: Natührlich ist das leben kein Zuckerschlecken aber eigentlich sollte das hier Spaß machen, immerhin ist das meine Freizeit aber Vielleicht werde ich ja mal wiederkommen, so oder so, ich halte euch immer in erinnerung Bleibt sone nette Community wie ihr seid
Hallo, naja besser gesagt auf wiedersehn...
Ich mache erstmal schluss mit AutoIt, obwohl es mir immer sehr viel spaß gemacht hat, auch hier im Forum zu stöbern und manchmal auch uralte Beiträge auszugraben , Oder den Smilie zu entwerfen, und ich hoffe der bleibt hier noch erhalten^^
aber irgendwie wird AutoIt langweilig, und hier im forum fühle ich mich auchnichtmehr so wohl. Warum genau kann ich nicht sagen... Eventuell zum einem weil mir AutoIt langweilig wird, aber vllt. auch von der Forumsentwicklung her... Vielleicht wächst mir der Streß auch einfach über den Kopf, wo ich früher ncoh Stunden hier verbracht habe, bin ich nurnoch selten, manche Tage garnichtmehr Online.
Ich werde bestimmt mal wieder hier aufkreuzen, bis dahin wünsche ich euch weiterhin viel spaß...
L.g. Jonathan
1. bei uns gibts berufskollegs, da lernt man etwas, wenn du etwas wohne schule lernen willst gibts eigentlich nur eine Formel:
50% learning by Doing
50% learning by reading
Herzlichen Glühstrumpf
[Blockierte Grafik: http://www.grusskartenkoenig.de/images/de/ecards/geburtstagsgruesse/herzlichen_gluehstrumpf.gif]
Und herzlichen glückwunsch an die anderen, die aber eh nicht online sind^^
Wieder mal witzig:
Ja ich will dich zwar nicht heiraten, aber das iPhone, wo wir dabei sind iPhone 4 ist raus
Find ich doch Herbe korrekt...
vllt. hast du dir son SpaßVirus eingefangen
Das sieht echt cool aus max,
i♥it
[autoit]Sleep(1)
[/autoit]
Was soll dir denn ein sleep von eins bringen? Ich nehem immer mindestens 10 !
Du könntest vorher eine post.html machen, dort ein inputfeld, und die Daten nicht per GET sondern per POST Methode weitergeben, aber das ist natührlich etwas komplizierter
Eigentlich sollte das ein kleiner Wettbewerb mit Djblume werden, wer in möglichst kurzer Zeit einen vernünftigen Chat hinbekommt... Aber die Blume hat Kapituliert. Deswegen ist er auch nicht ganz Fertig (Einstellungsdialog ist nicht da & die Smilys werden im Chatfenster nicht angezeigt) Aber ich dachte mir, wenn jemand mal in das Thema TCP & Chat einsteigen will, ist das ja ein tolles Beispiel.
Extras:
Getestet wurde der Chat Lokal, sowie auch über das Internet mit Raupi & name22 (danke euch beiden)
;---------------FehlerCodes----------------
; 1 - Server nicht erreichbar
; 2 - Fehler beim Verbinden mit dem Server
; 3 - Fehler beim senden des Strings
; 4 - Fehler beim empfangen der Rückmeldung über LoginDaten
; 5 - Fehler beim empfangen der Chatnachrischten
; -----------------------------------------
;Copyright by Jonathan Möwe
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
;~ #include <ScrollBarConstants.au3>
;~ #include <GuiRichEdit.au3>
#RequireAdmin
Global $Server_ip = @IPAddress1
Global $socket
Global $anmeldung = False
If Not Ping($Server_ip) Then fehler(1, True)
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$Gui = GUICreate("TCPChat by Möwe", 693, 467, 192, 124)
$Username_label = GUICtrlCreateLabel("Username:", 16, 20)
$Passwort_label = GUICtrlCreateLabel("Passwort:", 224, 20)
$Verbinden_button = GUICtrlCreateButton("Verbinden", 424, 16, 75, 25, $WS_GROUP)
;~ $StatusBar1 = _GUICtrlStatusBar_Create($Gui) ;kommt vllt. später mal...
$username_input = GUICtrlCreateInput("user", 80, 16, 121, 21)
$passwort_input = GUICtrlCreateInput("passwort", 280, 16, 121, 21, $ES_PASSWORD)
$onlineuser_liste = GUICtrlCreateEdit("", 496, 64, 185, 297,$ES_READONLY)
GUICtrlSetState(-1, $GUI_DISABLE)
$Trennen_button = GUICtrlCreateButton("Trennen", 512, 16, 75, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
$Einstellungen_button = GUICtrlCreateButton("Einstellungen", 600, 16, 75, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
$Chatfenster = GUICtrlCreateEdit("", 24, 64, 441, 297) ;$ES_AUTOVSCROLL + $ES_READONLY <-- geht nciht
;~ GUICtrlSetState(-1,$GUI_Hide)
;~ $Chatfenster = _GUICtrlRichEdit_Create($Gui, "", 24, 64, 441, 297, BitOR($ES_MULTILINE, $ES_READONLY))
[/autoit] [autoit][/autoit] [autoit]$senden_input = GUICtrlCreateInput("", 24, 376, 441, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Senden = GUICtrlCreateButton("Senden", 24, 408, 75, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
$smili_lol_button = GUICtrlCreateButton("", 112, 408, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, "lol.ico", "", 0)
$smili_angel_button = GUICtrlCreateButton("", 144, 408, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, "angel.ico", "", 0)
$smili_angry_button = GUICtrlCreateButton("", 176, 408, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, "angry.ico", "", 0)
$smili_cool_button = GUICtrlCreateButton("", 208, 408, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, "cool.ico", "", 0)
$smili_happy_button = GUICtrlCreateButton("", 240, 408, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, "happy.ico", "", 0)
$smili_hmm_button = GUICtrlCreateButton("", 304, 408, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, "hmm.ico", "", 0)
$smili_sad_button = GUICtrlCreateButton("", 272, 408, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, "sad.ico", "", 0)
$smili_shame_button = GUICtrlCreateButton("", 368, 408, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, "shame.ico", "", 0)
$smili_surprise_button = GUICtrlCreateButton("", 336, 408, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, "surprise.ico", "", 0)
$smili_weepy_button = GUICtrlCreateButton("", 432, 408, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, "weepy.ico", "", 0)
$smili_winky_button = GUICtrlCreateButton("", 400, 408, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, "winky.ico", "", 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
TCPStartup()
Local $Accels[1][2] = [["{enter}", $Senden]]
GUISetAccelerators($Accels, $Gui)
;~ _GUICtrlRichEdit_AutoDetectURL($Chatfenster, True)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
disconnect()
TCPShutdown()
Exit
Case $Verbinden_button
verbinden(GUICtrlRead($username_input), GUICtrlRead($passwort_input))
Case $Senden
If GUICtrlRead($senden_input) <> "" Then senden(GUICtrlRead($senden_input))
Case $Trennen_button
disconnect()
Case $smili_angel_button
GUICtrlSetData($senden_input, GUICtrlRead($senden_input) & " :angel: ")
Case $smili_angry_button
GUICtrlSetData($senden_input, GUICtrlRead($senden_input) & " :angry: ")
Case $smili_cool_button
GUICtrlSetData($senden_input, GUICtrlRead($senden_input) & " :cool: ")
Case $smili_happy_button
GUICtrlSetData($senden_input, GUICtrlRead($senden_input) & " :happy: ")
Case $smili_hmm_button
GUICtrlSetData($senden_input, GUICtrlRead($senden_input) & " :hmm: ")
Case $smili_lol_button
GUICtrlSetData($senden_input, GUICtrlRead($senden_input) & " :lol: ")
Case $smili_sad_button
GUICtrlSetData($senden_input, GUICtrlRead($senden_input) & " :sad: ")
Case $smili_shame_button
GUICtrlSetData($senden_input, GUICtrlRead($senden_input) & " :shame: ")
Case $smili_surprise_button
GUICtrlSetData($senden_input, GUICtrlRead($senden_input) & " :suprise: ")
Case $smili_weepy_button
GUICtrlSetData($senden_input, GUICtrlRead($senden_input) & " :weepy: ")
Case $smili_winky_button
GUICtrlSetData($senden_input, GUICtrlRead($senden_input) & " :winky: ")
EndSwitch
If $anmeldung = True Then
$daten_empfangen = TCPRecv($socket, 550)
If @error Then fehler(5, False)
If $daten_empfangen <> "" Then
;~ $daten_empfangen = "liste user1|user2"
$userliste = StringSplit($daten_empfangen, "")
If $userliste[0] = 2 And $userliste[1] = "liste " Then
GUICtrlSetData($onlineuser_liste,"")
GUICtrlSetData($onlineuser_liste,StringReplace($userliste[2],"",@CRLF))
ElseIf $userliste[0] <> 2 And $userliste[1] <> "liste" Then
GUICtrlSetData($Chatfenster,GUICtrlRead($Chatfenster) & $daten_empfangen & @CRLF)
TrayTip("","Neue Chatmitteilung",5,1)
_GUICtrlEdit_Scroll($Chatfenster,3)
;~ _GUICtrlRichEdit_AppendText($Chatfenster, $daten_empfangen & @CRLF)
EndIf
EndIf
EndIf
WEnd
[/autoit] [autoit][/autoit] [autoit];Funktionen -----------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]Func fehler($code, $exit)
MsgBox(48, "Fehler", "FehlerCode: " & $code)
If $exit = True Then Exit
EndFunc ;==>fehler
Func verbinden($username, $passwort)
$socket = TCPConnect($Server_ip, 2412)
If @error Then fehler(2, True)
senden($username & ":" & $passwort)
$waittimer = TimerInit()
While TimerDiff($waittimer) < 1000
If TCPRecv($socket, 100) = "okay" Then
If @error Then fehler(4, False)
MsgBox(64, "Anmeldung erfolgreich", "Sie wurden erfolgreich angemeldet", 1)
$anmeldung = True
GUICtrlSetState($Verbinden_button, $GUI_DISABLE)
GUICtrlSetState($Trennen_button, $GUI_Enable)
GUICtrlSetState($senden_input, $GUI_Enable)
GUICtrlSetState($Senden, $GUI_Enable)
GUICtrlSetState($username_input, $GUI_DISABLE)
GUICtrlSetState($passwort_input, $GUI_DISABLE)
;~ _GUICtrlRichEdit_AppendText($Chatfenster, "--- Mit dem Server Verbunden ---" & @CRLF)
GUICtrlSetData($Chatfenster,GUICtrlRead($Chatfenster) & "--- Mit Server Verbunden ---" & @CRLF)
Else
$anmeldung = False
EndIf
WEnd
If $anmeldung <> True Then MsgBox(16, "Fehler", "Der Server hat die Verbindung nicht angenommen!")
EndFunc ;==>verbinden
[/autoit] [autoit][/autoit] [autoit]Func senden($zusendenderstring)
TCPSend($socket, $zusendenderstring)
If @error Then fehler(3, False)
GUICtrlSetData($senden_input, "")
EndFunc ;==>senden
Func disconnect()
TCPCloseSocket($socket)
GUICtrlSetData($Chatfenster,GUICtrlRead($Chatfenster) & "--- Verbindung getrennt ---" & @CRLF)
GUICtrlSetState($senden_input, $GUI_DISABLE)
GUICtrlSetState($Senden, $GUI_DISABLE)
GUICtrlSetState($Verbinden_button, $GUI_Enable)
GUICtrlSetState($Trennen_button, $GUI_DISABLE)
GUICtrlSetState($username_input, $GUI_Enable)
GUICtrlSetState($passwort_input, $GUI_Enable)
$anmeldung = False
EndFunc ;==>disconnect
#RequireAdmin
; Copyright by Jonathan Möwe
;~ Global
Global $ip = @IPAddress1
$maxuser = 100
Global $userliste = ""
Global $User[$maxuser]
Global $Userarraysize = UBound($User) - 1
Global $Username[$maxuser]
Global $Usernamearraysize = UBound($Username) - 1
TCPStartup()
$socket = TCPListen($ip, 2412)
$logfile = FileOpen(@ScriptDir & "\logs\" & @MDAY & "-" & @MON & "-" & @YEAR & ".log", 1)
FileWrite($logfile,"[" & @HOUR & ":" & @MIN & "] Server Gestartet!" & @CRLF)
AdlibRegister("sendeuserliste",5000)
While 1
For $i = 0 To $Userarraysize
If $User[$i] = -1 Then
$User[$i] = TCPAccept($socket)
;~ $userwaittimer = TimerInit()
;~ while TimerDiff($userwaittimer) <
$userdaten = TCPRecv($User[$i], 500)
If $userdaten = "" Then
TCPSend($User[$i], "0")
TCPCloseSocket($User[$i])
$User[$i] = -1
ElseIf $userdaten <> "" Then
$user_anmeldedaten = StringSplit($userdaten, ":")
If $user_anmeldedaten[2] = IniRead("user.ini", "user", $user_anmeldedaten[1], "error") Then
$Username[$i] = $user_anmeldedaten[1]
TCPSend($User[$i], "okay")
FileWrite($logfile, "[" & @HOUR & ":" & @MIN & "] Angemeldet - " & $user_anmeldedaten[1] & @CRLF)
Else
TCPSend($User[$i], "0")
FileWrite($logfile, "[" & @HOUR & ":" & @MIN & "] Anmeldeversuch - FALSCHES PASSWORT - " & $user_anmeldedaten[1] & @CRLF)
EndIf
EndIf
;~ WEnd
EndIf
[/autoit] [autoit][/autoit] [autoit]If $User[$i] <> -1 Then
$sRecvied = TCPRecv($User[$i], 700); Daten empfangen
If @error Then
TCPCloseSocket($User[$i]) ;Verbindung trennen
$User[$i] = -1 ;Und wieder verfügbar machen
EndIf
If $sRecvied <> "" Then
;~ MsgBox(0,"Daten empfangen",$sRecvied)
FileWrite($logfile, "[" & @HOUR & ":" & @MIN & "] Chat: " & $username[$i] & " - " & $sRecvied & @CRLF)
For $iY = 0 To $Userarraysize
If $User[$iY] <> -1 Then TCPSend($User[$iY], "[" & @HOUR & ":" & @MIN & "] " & $Username[$i] & ": " & $sRecvied) ; empfangende Daten weiterleiten
Next
$sRecvied = ""
EndIf
EndIf
Next
WEnd
func sendeuserliste()
$userliste = ""
For $iZ = 0 to $Userarraysize
If $user[$iZ] <> -1 then $userliste &= $username[$iZ] & ""
Next
For $iY = 0 To $Userarraysize
If $User[$iY] <> -1 Then TCPSend($User[$iY], "liste " & $userliste) ; empfangende Daten weiterleiten
Next
FileWrite($logfile, "[" & @HOUR & ":" & @MIN & "] Userliste aktualisiert... : " & $userliste & @CRLF)
EndFunc
Im server script habe ich meine evtl. schwieriger nachzuvollziehenden Gedankengänge mit Kommentaren Versehen
Danke, das können bestimmt einige gut gebrauchen, ich werde vllt. auch mal hierher verweisen, wenn jemand ein gutes Beispiel oder einen anwendungszweck für eine GUI braucht.
Du könntest es aber auchnoch fertigmachen.
nettes Design, du könntest die Eingabezeilen für empfänger etc. auf eine Linie bringen, dann siehts noch besser aus Mach weiter so, ich freue mich auf das endgültige Projekt
Von mir auch einen herzlichen Glühstrumpf [Blockierte Grafik: http://www.grusskartenkoenig.de/images/de/ecards/geburtstagsgruesse/herzlichen_gluehstrumpf.gif]