Hallo erstmal
im Tutorial steht ja, dass man bei TCPListen für gewöhnlich seine eigene ip angibt. Nur woher bekomm ich die? Ich habs schon mit so manchen "ips" versucht aber nie hats funktioniert. Kann mir jemand helfen?
Hallo erstmal
im Tutorial steht ja, dass man bei TCPListen für gewöhnlich seine eigene ip angibt. Nur woher bekomm ich die? Ich habs schon mit so manchen "ips" versucht aber nie hats funktioniert. Kann mir jemand helfen?
Start---->Ausführen----->cmd----->ipconfig
_GetIP()
Aber evtl. musst du dich auch über Portforwarding informieren, wenn du hinter einem Router sitzt.
peethebee
ok er schreibt immernoch ip adresse inkorrekt, naja dann werd ich wohl mal nach den ports gucken^^
Das ging jetzt zumindest mit meinem eigenen PC, aber wie kann ich das so machen dass Informationen von einem Computer zum anderen geschickt werden? So in etwa wie in einem Chat.
(Ich hab das hier mit Hamachi versucht, aber irgendwie liefs nich)
Das ganze soll über notepad laufen, hier die datei zum anzeigen der Texte:
Run("C:\WINDOWS\notepad.exe")
WinWaitActive("Unbenannt - Edi")
#include <GUIConstants.au3>
TCPStartUp()
Dim $szIPADDRESS = @IPAddress2
Dim $nPORT = 1993
$Socket = TCPListen($szIPADDRESS, $nPORT)
If $Socket = -1 Then
MsgBox(0, "IP", "IP Fehler")
EndIf
Do
$ConnectedSocket = TCPAccept($Socket)
Until $ConnectedSocket <> -1
While 1
$text = TCPRecv ($ConnectedSocket, 1000)
If Not $text = "" Then
ControlSend( "Unbenannt - Editor", "", "Edit1", $text)
ControlSend( "Unbenannt - Editor", "", "Edit1", "{enter}")
EndIf
WEnd
und hier das Fenster zum reinschreiben (die Kommentare kommen aus der Hilfe):
TCPStartUp()
$socket = TCPConnect( "5.175.28.202", 1993 )
If $socket = -1 Then MsgBox(0, "Connect", "Connectfehler")
Dim $szData
; Falls es einen Fehler gibt, wird er angezeigt
If @error Then
MsgBox(4112,"Fehler","TCPConnect schlug mit folgendem WSA-Fehler fehl: " & @error)
; Wenn es keinen Fehler gibt, dann erscheint wiederholt eine Inputbox zur Eingabe von Daten, die zum Server gesendet werden sollen.
Else
;Fragt fortwährend nach Daten, die zum Server gesendet werden sollen.
While 1
; InputBox für die zu versendenden Daten
$szData = InputBox("Daten für den Server",@LF & @LF & "Gib Daten ein, die zum Server transferiert werden sollen:")
; Wenn die Inputbox geschlossen wird oder leer bleibt, wird die Schleife beendet.
If @error Or $szData = "" Then ExitLoop
; Wir sollten Daten in $szData haben... Lasst uns versuchen, sie durch unseren verbundenen Socket zu versenden.
TCPSend($Socket, "NAME{:}" )
TCPSend($Socket, "{space}")
TCPSend($Socket, $szData)
; Wenn das Senden mit @error fehlgeschlagen ist, dann ist der Socket getrennt.
;----------------------------------------------------------------
If @error Then ExitLoop
WEnd
EndIf
Hi,
versucht doch net immer das Rad neu zuerfinden....
Gebe mal unter Suchen "Chat" ein da gibt es bestimmt einige Lösungen. Es hat mal einer nen Chat geschrieben.
MfG
Der_Doc
so habs jetzt hinbekommen, war ein einfacher Fehler bei den IPs. thx nochmal an alle die geholfen haben xD