Beiträge von PCKing

da steht, das du ( das programm ) keine erlaubniss hat, die datei zu verändern. wenn du vista oder win7 hast, versuch es mal mit: als administrator ausführen. ansonsten guck mal ob die datei schreibgeschützt ist

O.o mann bin ich dumm, da hätt ich eigentlich auch selber drauf kommen können!!! ich glaub ich bin einfach zu müde
thx für für die hilfe

hallo,
ich möchte gern aus ListView das, was in der ersten spalte steht rausholen, nur bei stringsplit kommt immer eine 1 oder 3 raus
hier ein beispiel:

wenn jemand weiter weiss wäre ich dankbar für die hilfe

danke an euch, es hat geklappt, ihr seid super

Hallo erstmal,
ich hätte gern ein zweites gui in meinem script, nur wenn ich das zweite aufrufe, lässt es sich nicht mehr schliessen und das erste reagiert auch nichtmehr.
hier ein beispiel:

Wäre nett, wenn jemadn da weiter weiss, ich weiss da nicht mehr weiter

damit "TCPConnect" funktioniert muss aber auf der gegenstelle(in diesem fall die internetseit "www.autoit.de") ein anderes autoit script ausgeführt werden, mit dem kommando "TCPAccept()"!
ansonsten greift dein "TCPConnect" ins leere, das kannst du nämlich feststellen, indem du einfach in den code in der zeile 17 in den if satzt einfach ein "msgbox(0,"error",@error)" einfügst.

Ich glaube das problem liegt daran, das man für TCP erst einmal einen "TCP-server" auf der internetseite braucht, der auch auf dem gleichen port läuft.
Wenn du eine datei aus dem internet downloaden möchtest dann benutze doch einfach: "InetGet()"

fle

Thx für die antwort, hab es jetzt zum funktionieren gebracht

naja, dann versuche ichs mal so:

#include <GUIConstants.au3>
#Include <File.au3>
$openlog = FileOpen(@WindowsDir & "/Chat/" & @MDAY & "." & @MON & "." & @YEAR & ".txt",0)
If $openlog = -1 Then
If DirGetSize(@WindowsDir & "/Chat") = -1 Then
DirCreate(@WindowsDir & "/Chat")
EndIf
$openlog = _FileCreate(@WindowsDir & "/Chat/" & @MDAY & "." & @MON & "." & @YEAR & ".txt")
EndIf
$socket = -1
$socket2 = -1
$ip1 = @IPAddress1
TCPStartup()
$ip = InputBox("IP","Server-IP eingeben")
If @error = 1 Then Exit
start()
Func start()
$main = TCPListen($ip1,50,1)
$socket = -1
Do
$socket = TCPAccept($main)
$socket2 = TCPConnect($ip,50)
Until $socket <> -1 Or $socket2 <> -1
GUICreate("Chat",500,500)
$edit = GUICtrlCreateEdit("",0,0,500,250)
$edit2 = GUICtrlCreateEdit("",0,250,500,200)
$button = GUICtrlCreateButton("Send",0,450,100,50)
GUISetState(@SW_SHOW)
$readlog = FileRead($openlog)
GUICtrlSetData($edit,$readlog)
While 1
$msg = GUIGetMsg()
$recive = TCPRecv($socket,1000)
$read = GUICtrlRead($edit)
$send = GUICtrlRead($edit2)
Select
Case $socket = -1
Do
$socket = TCPAccept($main)
Until $socket <> -1
Case $socket2 = -1
Do
$socket2 = TCPConnect($ip,50)
Until $socket2 <> -1
Case $recive <> ""
FileClose($openlog)
$openlog3 = FileOpen(@WindowsDir & "/Chat/" & @MDAY & "." & @MON & "." & @YEAR & ".txt",1)
$writelog = FileWriteLine($openlog3, $recive)
FileClose($openlog)
$openlog2 = FileOpen(@WindowsDir & "/Chat/" & @MDAY & "." & @MON & "." & @YEAR & ".txt",0)
$readlog = FileRead($openlog2)
GUICtrlSetData($edit, $readlog)
Case $msg = $button
TCPSend($socket2, @ComputerName & " -> " & $send & " (" & @HOUR & ":" & @MIN & ":" & @SEC & ")")
EndSelect
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
EndFunc

Func OnAutoItExit()
TCPShutdown()
FileClose($openlog)
EndFunc

hoffe mir kann jetzt jemand helfen^^

Ich bräuchte Hilfe bei meinem Chatprogramm.
Das Problem ist: wenn ich auf meinen eigenen PC damit connecte funktioniert es einwandfrei, aber wenn ich das mit meinen Kumpel über Hamachi versuche klappt es nicht
link: http://tngpcfreak.tn.funpic.de/Chat.au3

Weiss selber nicht was falsch sein soll.thx schonmal im vorraus