Beiträge von Jonathan

Jonathan

Zitat von DevFly

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..

Jonathan

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)

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

Version: 1.0
Author: Jonathan

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

#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

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

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

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

download()
install()

[/autoit]

ICQ 7.5 Pro7-Version BETA(Jonathan)

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

Version: 1.0
Author: Jonathan

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

#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

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

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"

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

ControlClick("ICQ7.5","",60) ; sofort starten ausschalten
ControlClick("ICQ7.5","",61) ; schnellstart icon deaktivieren
ControlClick("ICQ7.5","",68) ; Beenden

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

EndFunc

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

download()
install()

[/autoit]

Skype (Jonathan)

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

Version: 1.3
Author: Jonathan

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

#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

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

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]

AutoIt 3.3.6.1 (Jonathan)

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

Version: 1.3
Author: Jonathan

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

#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

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

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

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

download()
install()

[/autoit]

Hoffe euch gefällts, und ihr helft etwas mit Weitere Scripte bitte per PN zu mir, füge Sie dann hier oben ein

Jonathan

Zitat von i2c

Ich versteh die Problemstellung nicht genau.

Soweit ich das verstanden habe, möchte er das Menü Transparent oder mindestens Farbig machen

Jonathan

Zitat von Ghostleader

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...

Zitat

damit ich das besser nachvollziehen und verstehen kann zum besseren lernen!

Super Einstellung

Zitat

Frage zum Menue und dessen Einbau

Rettet den Genitiv

Jonathan

Das ist auf jedenfall ne gute Idee Super

Jonathan

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?

Jonathan

Zitat von stayawayknight

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

Jonathan

Zitat von clezZ

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

Jonathan

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

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

Jonathan

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^^

Jonathan

Zitat von JuraX

Wieder mal witzig:

Ja ich will dich zwar nicht heiraten, aber das iPhone, wo wir dabei sind iPhone 4 ist raus

Jonathan

Find ich doch Herbe korrekt...
vllt. hast du dir son SpaßVirus eingefangen

Jonathan

Das sieht echt cool aus max,
i♥it

Jonathan

Zitat von Alizame

[autoit]
Sleep(1)
[/autoit]

Was soll dir denn ein sleep von eins bringen? Ich nehem immer mindestens 10 !

Jonathan

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

Jonathan

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:

Login nötig
Userliste
Logins werden in einer .ini beim Server gespeichert
Logdateien werden ersetllt
Übersichtliche Fehlercodeliste (nur beim Client )
Max. User Einstellung beim Server (Quellcode)

Getestet wurde der Chat Lokal, sowie auch über das Internet mit Raupi & name22 (danke euch beiden)

Client

[autoit]

;---------------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

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

Global $Server_ip = @IPAddress1
Global $socket
Global $anmeldung = False

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

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)

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

;~ $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 ###

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

TCPStartup()
Local $Accels[1][2] = [["{enter}", $Senden]]
GUISetAccelerators($Accels, $Gui)
;~ _GUICtrlRichEdit_AutoDetectURL($Chatfenster, True)

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

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: ")

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

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)

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

;~ _GUICtrlRichEdit_AppendText($Chatfenster, $daten_empfangen & @CRLF)
EndIf
EndIf
EndIf

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

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

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

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)

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

Else
$anmeldung = False
EndIf
WEnd
If $anmeldung <> True Then MsgBox(16, "Fehler", "Der Server hat die Verbindung nicht angenommen!")

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

EndFunc ;==>verbinden

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

Func senden($zusendenderstring)
TCPSend($socket, $zusendenderstring)
If @error Then fehler(3, False)
GUICtrlSetData($senden_input, "")
EndFunc ;==>senden

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

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

[/autoit]

Server

[autoit]

#RequireAdmin
; Copyright by Jonathan Möwe
;~ Global
Global $ip = @IPAddress1
$maxuser = 100

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

Global $userliste = ""
Global $User[$maxuser]
Global $Userarraysize = UBound($User) - 1
Global $Username[$maxuser]
Global $Usernamearraysize = UBound($Username) - 1

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

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)

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

;~ $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

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

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

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

func sendeuserliste()
$userliste = ""
For $iZ = 0 to $Userarraysize
If $user[$iZ] <> -1 then $userliste &= $username[$iZ] & ""
Next

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

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

[/autoit]

Im server script habe ich meine evtl. schwieriger nachzuvollziehenden Gedankengänge mit Kommentaren Versehen

Jonathan

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.

Jonathan

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

Jonathan

Von mir auch einen herzlichen Glühstrumpf [Blockierte Grafik: http://www.grusskartenkoenig.de/images/de/ecards/geburtstagsgruesse/herzlichen_gluehstrumpf.gif]

Beiträge von Jonathan

Auto-Installation

Auto-Installation

Frage zum Menue und dessen Einbau

Frage zum Menue und dessen Einbau

PayPal Gebühren Rechner

USB-Ports programmieren

Wer ist online?

Die Möwe sagt Adieu ;(

Die Möwe sagt Adieu ;(

Informatik lernen, nur wo?

Happy Birthday m-obi

SPAM! Again!

Icons Spielen verrückt

Splash Ladebildschirm (ähnlich wie bei Office 2010)

Mausposition herausfinden

Script - DB Kommunikation

TCP Chat

Unfertiger Termin Kalender(Planer) - Termini

Maili ;D

Herzlichen Glückwunsch Ahnungslos & XovoxKingdom