also ich bin momentan dabei ein ftp chatprogramm zu schreiben hat bis jetzt auch alles super geklapt aber ich sitze jetzt schon seit knapp ner stunde an ein und dem selben problem. Es wird eind datei gedownloadet und aus gelesen aber ich bekomme es einfach nicht hin den text in der inputbox anzeigen zu lassen.
hier mal das script:
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.10.0
Author: LeV-GØT.T A.K.A. MaStEr Of FrEaKness
Script Function:
FTP Chatprogramm
#ce ----------------------------------------------------------------------------
#include <ftp.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include< WindowsConstants.au3>
#include <GUIEdit.au3>
#include <IE.au3>
#include <INet.au3>
DirCreate(@ScriptDir & "\Temp")
$server = "adorrawow.kilu.de"
$username = "**********"
$pass = "*******"
$nickname = FileReadLine("Config.settings",2)
;------------------------------------------------------------------------------------------
If $nickname = "" Then
$nick = GUICreate("LeVCY Light Pro", 249, 22, -1, -1, BitOR($WS_DLGFRAME, $WS_POPUP, $WS_CLIPSIBLINGS))
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("Nickname:", 0, 4, 58, 17)
GUICtrlSetColor(-1, 0x00FA00)
GUICtrlSetFont(-1, 8, 400, 0, "Digital")
$name = GUICtrlCreateInput("", 64, 0, 145, 21)
$ok = GUICtrlCreateButton("OK", 212, 2, 33, 17, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ok
$file = FileOpen(@ScriptDir & "\Config.settings", 2)
FileWrite($file, "[Name]" & @CRLF)
FileWrite($file, GUICtrlRead($Name))
FileClose($file)
GUIDelete($nick)
EndSwitch
WEnd
Else
;-----------------------------CHAT--------------------------------------------------------
InetGet( "http://adorrawow.kilu.de/levcy/temp.txt", @ScriptDir & "/temp/temp.txt", 1 )
$notice = FileReadLine(@ScriptDir & "/temp/temp.txt", 1 )
$yournick = FileReadLine("Config.settings",2)
GUICreate("LeVCY Light Pro F&F", 345, 114, -1, -1)
GUISetBkColor(0x000000)
$chatlog = GUICtrlCreateInput("", 0, 0, 345, 21)
GUICtrlSetData(-1, $notice)
$namelabel = GUICtrlCreateLabel("<" & $yournick & ">:", 0, 26, 70, 19)
GUICtrlSetColor(-1, 0x00FA00)
$Textfromyou = GUICtrlCreateInput("", 72, 24, 273, 21)
$send = GUICtrlCreateButton("Send", 0, 48, 345, 17, 0)
$exit = GUICtrlCreateButton("eXit", 0, 64, 345, 17, 0)
$web = GUICtrlCreateLabel("www.LEVIN1993.de", 0, 80, 100, 17)
GUICtrlSetColor(-1, 0x0000FD)
GUICtrlSetFont(-1, 8, 400, 0, "Digital")
$c = GUICtrlCreateLabel("(C) By MaStEr Of FrEaKness A.K.A. LeV-GØT.T", 112, 80, 232, 17)
GUICtrlSetColor(-1, 0x00FA00)
$MenuItem1 = GUICtrlCreateMenu("Optionen")
$MenuItem3 = GUICtrlCreateMenuItem("Nickname ändern", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("Hintergrundfarbe ändern", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenu("???")
$MenuItem2 = GUICtrlCreateMenuItem("Hilfe", $MenuItem5)
$MenuItem6 = GUICtrlCreateMenuItem("", $MenuItem5)
$MenuItem7 = GUICtrlCreateMenuItem("About", $MenuItem5)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $send
$file = FileOpen(@ScriptDir & "\temp\temp.txt", 2)
FileWrite($file,"<" & $yournick & ">:" & GUICtrlRead($Textfromyou))
FileClose($file)
$Open = _FTPOpen('My FTP')
$Conn = _FTPConnect($Open,$server,$username,$pass)
$Ftpp = _FTPPutFile($Conn, @ScriptDir & '\temp\temp.txt','/www/levcy/temp.txt')
$Ftpc = _FTPClose($Open)
Case $exit
Exit
EndSwitch
WEnd
;-----------------------------------------------------------------------------------------
EndIf