Beiträge von TimoIt

[autoit]

$con = TCPAccept($srvSocket)
If $con >= 0 Then
$rec = ""
While True
$rec &= TCPRecv($con,$max_Anzahl_Zeichen)
If @error Then ExitLoop
WEnd
;---------------------------------------

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

$msg_gesamt = $msg_gesamt & @CRLF & $rec & @CRLF
GUICtrlSetData($Verlauf,$msg_gesamt)

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

if $con >= 0 then
$Client1IP = SocketToIp($srvSocket)

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

MsgBox(0,"hallo",$Client1IP)

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

$cltSocket = TCPConnect($Client1IP,$ClientPort)
TCPSend($cltSocket,$msg_gesamt)
TCPCloseSocket($cltSocket)
EndIf

[/autoit]

Ich muss ja den oberen Socket $srvSocket eingeben ode(Zeile 18)r? wenn ichs mach dann kommt als ergebniss(msgbox) nur "0" raus!

mein ich ja ;D

ok also die func includen und dann z.b.

$Client1_IP = SocketToIP()

?

hey leute, mein chat ist fast fertig, ich benötig jetzt allerdings noch die IP adressen der clients die mit mir verbunden sind, habt ihr eine ahnung wie ich die ip adressen ermitteln kann?

irgendwie hab ich was mit SockettoIp() mitbekommen, hab aber keine ahnung wies gehen soll.

ich hab nen bisschen auf youtube rumgeschaut und hab ne lösung gefunden und es tut auch(:
bis jetzt tuts und wird um Zusatzfunktionen erweitert^^

Danke für die Mühe was du dir gemacht hast

Hey Leute ich schreib momentan ein chat, Problem: Vom Client zum Server zu senden Funktioniert, Anderstrum allerdings nicht.
Ich poste einfach mal Auszüge aus meinem Script:

CLIENT

[autoit]

Func _Send ()
$msg = GUICtrlRead($Input_msg) ;Nachricht aus inputbox auslesen
GUICtrlSetData($Input_msg,"") ;Werte in inputbox löschen
$msg_mit_username = $User_Name & @CRLF & $msg;Nachricht bilden aus Username, Eingabe und Nachricht
$ConnectedSocket_Send = TCPConnect($Server_IP, $Port_OUT);Verbindung zum Server herstellen
If $ConnectedSocket_Send = -1 Then;Wenn Verbindung nicht hergestellt werden kann, Erscheint eine Fehlermeldung
MsgBox(16, "Client - Warning", "Message failed")
EndIf
TCPSend($ConnectedSocket_Send,$msg_mit_username);Nachricht $msg wird auf die aufgebaute Verbindung $connectedSocket gesendet
TCPCloseSocket($ConnectedSocket_Send);Verbindung wird wieder geschlossen.
EndFunc

[/autoit]

SERVER

[autoit]

$socket = TCPListen($Server_IP,$Port_IN);Listening Port
...
$con = TCPAccept($socket)
If $con >= 0 Then
$rec = ""
While True
$rec &= TCPRecv($con,2048)
If @error Then ExitLoop
WEnd
;------------------------------------------
$msg_gesamt = $msg_gesamt & @CRLF & $rec & @CRLF ;Empfangene Nachricht mit Verlauf verknüpfen
GUICtrlSetData($Verlauf,$msg_gesamt) ;gesamter Verlauf wird in das Editfeld geschrieben

[/autoit]

Eigentlich müsste ich ja damit ich von Server zum Client den Verlauf übermitteln kann, einfach nur beide Func's austauschen oder?
tut dann aber nicht. HILFE!

naja gedacht wars eig so, ich drück den button, der script wertet 2 input's aus, und schreibt diese in zwei variablen, (ist kein problem), danach soll halt das erste fenster geschlossen werden und das zweie geöffnet werden.

Hey Leute, ich hab eine Frage zum Thema GUI.

Wie ich ein GUI ($Form1) öffne ist klar, mein Ziel ist es jetzt auf den Button $Close drücke, soll $Form1 geschlossen werden und ein zweites GUI ($Form2) geöffnet werden.

mein Lösungsansatz wäre:

[autoit]

Case $Button1
GUIDelete($Form1)
_neuesFensterOeffnen()

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

Func _neuesFensterOeffnen()
...
...
EndFunc

[/autoit]

Allerdings wil ich es irgendwie ohne Funktion hin bekommen. Vorschläge bitte;D

Hey Leute,
mit meinem Chat bin ich mittlerweile weiter gekommen.
Das Senden von Client auf den Server funktioniert einwandfrei.

Gedacht ist der Chat so:

Client sendet seine Message an den Server, dieser Speichert sich den Text in eine Variable, bzw fügt die neue Nachricht dieser Variable hinzu.
Nun soll der Server dem Client den gesamten Chatverlauf dem Client via TCP senden.
Den empfangenen Text soll der Client nun in seine Editbox(zur Darstelung) schreiben.
Der aktualisierungsvorgang soll alle 2s stattfinden.

wie schon gesagt funktionier das Senden des Verlaufs vom Server auf den Client nicht wirklich.
jetzt wollt ich die Community einfach mal fragen ob jemand Erfahrungen darin hat oder weis wie man vorgehen kann.

mfg Timo

Hey Leute,

ich bin grad dabei nen kleines Chatprogrämmchen zu schreiben. Leider komm ich momentan einfach nicht weiter.
mein Chatverlauf soll in der GUI &Anzeige (Editbox) dargestellt werden. gibt es bessere Varianten?!

Ich poste einfach mal mein Clientscript :

[autoit]

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
TCPStartup()

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;Statparameter
$Server_IP = "no Server IP"
$Verlauf = FileRead("logging.txt.")

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ToIP by Timo _ Client Version ", 625, 445, 192, 124)
;Anzeige chat verlauf------------------------------------
$Anzeige = GUICtrlCreateEdit($Verlauf, 40, 16, 361, 329)
GUICtrlSetData(2, $Verlauf)
;--------------------------------------------------------
$Input1 = GUICtrlCreateInput("", 40, 368, 265, 21)
$Send = GUICtrlCreateButton("Send", 320, 368, 81, 25, 0)
$Group_Server_Ip = GUICtrlCreateGroup("Server Ip Adresse", 424, 24, 185, 137)
$IPAdresse_Input = GUICtrlCreateInput("", 440, 56, 145, 21)
$IPAdresse_Bestatigen = GUICtrlCreateButton("Ok", 552, 88, 33, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_User_Ip = GUICtrlCreateGroup("Group_User_Ip", 424, 176, 185, 89)
$User_IP_adresse = GUICtrlCreateLabel(@IPAddress1, 440, 208, 86, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$User_Name = GUICtrlCreateGroup("User_Name", 424, 288, 185, 57)
$User_Name_bestatigen = GUICtrlCreateButton("Ok", 552, 312, 33, 17, 0)
$chat_name_eingabe = GUICtrlCreateInput("", 440, 312, 97, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $IPAdresse_Bestatigen
$Server_IP = GUICtrlRead($IPAdresse_Input)

Case $Send
Nachricht_Senden()

Case $User_Name_bestatigen
$user_name = GUICtrlRead($chat_name_eingabe)

EndSwitch
WEnd

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

Func Nachricht_Senden ()
$nachricht = GUICtrlRead($input1)
$so = TCPConnect($Server_IP, 6776)
If $so = -1 then MsgBox(0, "Error",$Server_IP)
;Nachricht generieren mit username
$Nachricht_plus_username = $user_name&@crlf&$nachricht
;Nachricht senden
TCPSend($so,$nachricht_plus_username)
TCPCloseSocket($so)

EndFunc

[/autoit]

meine Frage ist halt wie ichs einfach am besten realisieren könnte, also Verlauf etc.

Hey Leute, mein neustes Projekt befasst sich mit einer Art Teammanager.

Gedacht ist das man nach Starten des Scripts in einer Art Inputbox die verschiedene Namen der Mitspieler eintragen, z.B. Simon, Denni, Peter, Hans etc.

Nach Betätigen des Buttons "OK" würfelt der Teammanagerdie verschiedene Anzahl an Spieler gleichmäßig in jeweils Team Rot oder Team Blau.

Anschließend soll sich einfach Fenster öffnen der in Tabellarischer Form die zusammengewürfelten Teams anzeigt.

Und jetzt wollt ich einfach mal die Community fragen wie ich vorgehen könnte, ich hab mittlerweile einfach den Durchblick verloren;D

Danke(:

Hallo Leute,
Dank eurer Hilfe bin ich jetzt mit meinem kleinen Tool fertig.
Was jetzt noch nicht schlecht wär, wenn man Programm selbständig startet...

Ich hab mir jetzt eine SD-Karte besorgt, mein Ziel wär es jetzt das sie mein Programm nach einstecken der SD-Karte sich selber ausführt.
Im Internet bin ich auf eine "autostart.inf" datei gestosen, mein Versuch scheiterte aber...
Jetzt wollt ich fragen ob jemand von euch zufällig ne ahnung hat.

Danke im Voraus(:

Hallo Leute,

derzeit Arbeite ich an einem kleinen Projekt zum Thema Sicherheit und Kommunikation.
Geplant sind 2 Exe-Anwendungen.

-Die Hauptanwendung (A) wird gestartet(manuell) und startet Programm B
-Programm B errechnet sich aus bestimmten Computerdatei wie z.B.: Mac-Adresse, IP-Adresse usw eine Zahl
--> diese Zahl soll nun direkt zu Anwenung A gesendet werden, OHNE INI ODER SONSTIGE ZWISCHENDATEIEN.
-Nachdem Hauptanwenung A den Wert von Programm B erhalten hat soll es mit seiner eigentlichen Arbeit beginnen.

hat jemand ein Vorschlag wie ich das erreichen könnte?
Danke im Voraus

mit GUI hab ich mich noch nicht so wirklich viel befasst aber Danke für den Hinweis

habs gemerkt;D
hab davor nen ewig langen Text eingebenen und den codierten text warsch falsch abgeschrieben.

sorry nochmal(:

Hallo Leute
Ich arbeite grad an nem winzigen Programm zur Verschlüsslung & Entschlüsslung von Texten wie z-B. Passwörter usw.

Jetzt hab ich leiden nen kleines Problem,
die Verschlüsslung klappt, nur die Entschlüsslung...hmm naja.... geht irgendwie nicht -.-'

kann sichs mal jemand anschaun?
Danke im Vorraus(:

[autoit]

#include <String.au3>
HotKeySet("{F1}","code")
HotKeySet("{F2}","entcode")
HotKeySet("{F4}","ende")
Func code () ;Codierung des eigegebenen Textes
$CO_Text = InputBox("Text", "Text der Codiert werden soll")
$CO_PW = InputBox("Passwort", "Gib dein Passwort ein")
$CO_LVL = InputBox("Sicherheitslevel","Gib dein Sicherheitslevel ein")
MsgBox(0,"",_StringEncrypt(1,$CO_Text,$CO_PW,$CO_LVL))
EndFunc
Func entcode () ;Decodierung des eigegebenen Textes
$EN_Text = InputBox("Text", "Text der Codiert werden soll")
$EN_PW = InputBox("Passwort", "Gib dein Passwort ein")
$EN_LVL = InputBox("Sicherheitslevel","Gib dein Sicherheitslevel ein")
MsgBox(0,"",_StringEncrypt(0,$EN_Text,$EN_PW,$EN_LVL))
EndFunc
While 1 ;Schleife
sleep(250)
WEnd
func ende () ;Ende
Exit
EndFunc

[/autoit]