text auf server speichern [gelöst] und anzeigenlassen [Gelöst]und immer den zum aktuelsten runer scrollen und automatich aktualisiren[offen]

  • @Masterfreak0815
    Meinst du die Textdatei die du auf dem Server erstellst?
    Die kannst du dir über INetGet() holen, dann als Text einlesen und in einem dritten Control anzeigen.
    Wenn du das meinst kann ich mal gucken ob ich dir was basteln kann (natürlich ohne Gewähr ;) ).

  • @Masterfreak0815 
    Meinst du die Textdatei die du auf dem Server erstellst?
    Die kannst du dir über INetGet() holen, dann als Text einlesen und in einem dritten Control anzeigen.
    Wenn du das meinst kann ich mal gucken ob ich dir was basteln kann (natürlich ohne Gewähr ;) ).

    genau das meinme ich und wen du das machen würdest währe das echt net den ich vertehe das nich^^´

    naja und wenn das nicht funkt bastel ich mir das halt mit html und php^^

  • Gestern Abend fiel mir auf was das wird : Ein Messi ;)
    Jetzt schnall ich auch warum du den 'Gesprächsverlauf' anzeigen willst :D .
    Sag sowas beim nächsten mal einfach und viel mehr Leute wären drauf angesprungen.
    Ich brauch von dir noch den Namen und Speicherort der Datei auf deinem Server.

  • Moin,

    I-Net war weg :(.
    Aber ich hab was :D.
    Leider wird der neue Text noch nicht auf's Ende gescrollt, aber da können dir die anderen hier sicher helfen.
    Ich mach jetzt Wochenende! :thumbup:

    Spoiler anzeigen
    [autoit]

    ;Include constants
    #include <GUIConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIEdit.au3>
    ;\/**\/**\/**\/**\/**\/**\/**\/**\/**\/**\/**\/**\/
    #include <IE.au3> ;/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\
    ;\/**\/**\/**\/**\/**\/**\/**\/**\/**\/**\/**\/**\/
    #include <INet.au3> ;/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\
    ;Initialize variables
    Global $GUIWidth
    Global $GUIHeight
    $GUIWidth = 600
    $GUIHeight = 450
    ;Create window
    GUICreate("Kontakt me", $GUIWidth, $GUIHeight)
    ; INPUTBOX
    ;\/**\/**\/**\/**\/**\/**\/**\/**\/**\/**\/**\/**\/
    ;MIT VARIABLE
    $Content = ReadText()
    $output1 = GUICtrlCreateInput($Content, 10, 10, 580, 280, $ES_Multiline + $ES_AutoVScroll + $WS_VScroll)

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

    $Refresh_Btn = GUICtrlCreateButton("Aktualisieren", 490, 300, 100, 25)

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

    GUICtrlCreateLabel("Name", 10, 310, 80, 20)
    $input1 = GUICtrlCreateInput("", 10, 330, 180, 20)
    ; INPUTBOX
    ;\/**\/**\/**\/**\/**\/**\/**\/**\/**\/**\/**\/**\/
    ;MIT VARIABLE
    GUICtrlCreateLabel("Nachricht", 10, 360, 80, 20)
    $input2 = GUICtrlCreateInput("", 10, 380, 180, 20)
    ;Create an "Senden" button
    $OK_Btn = GUICtrlCreateButton("Senden", 120, 410, 70, 25)
    ;Show window/Make the window visible
    GUISetState(@SW_SHOW)
    GUICtrlSetState( $input1, $GUI_Focus )
    ;Loop until:
    ;- user presses Esc
    ;- user presses Alt+F4
    ;- user clicks the close button
    While 1
    ;After every loop check if the user clicked something in the GUI window
    $msg = GUIGetMsg()
    Select
    ;Check if user clicked on the close button
    Case $msg = $GUI_EVENT_CLOSE
    ;Destroy the GUI including the controls
    GUIDelete()
    ;Exit the script
    Exit

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

    Case $msg = $Refresh_Btn
    GUICtrlSetState($Refresh_Btn, $GUI_Disable)
    $Content = ReadText()
    GUICtrlSetData($output1, $Content)
    _GUICtrlEdit_SetSel($output1, StringLen($Content), StringLen($Content))
    GUICtrlSetState($Refresh_Btn, $GUI_Enable)
    GUICtrlSetState($input2, $GUI_Focus)

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

    ;Check if user clicked on the "Senden" button
    Case $msg = $OK_Btn
    ;MsgBox(64, "Senden", "Hir sollte eig die messeg gesendet werden!")
    GUICtrlSetState($OK_Btn, $GUI_Disable)
    $oIE = _IECreate("Levin1993.de/ZCQ.php?name=" & _INetExplorerCapable(GUICtrlRead($input1)) & "&data=" & _INetExplorerCapable(GUICtrlRead($input2)), 0, 0)
    _IELoadWaitTimeout(3000)
    _IELoadWait($oIE)
    _IEQuit($oIE)
    GUICtrlSetState($OK_Btn, $GUI_Enable)
    $Content = ReadText()
    GUICtrlSetData($output1, $Content)
    _GUICtrlEdit_SetSel($output1, StringLen($Content), StringLen($Content))
    GUICtrlSetState($input2, $GUI_Focus)
    ;HIER SENDEN:
    ;\/**\/**\/**\/**\/**\/**\/**\/**\/**\/**\/**\/**\/
    ;InetGet("Levin1993.de/ZCQ.php?name="&_INetExplorerCapable(GUICtrlread($input1))&"&data="&_INetExplorerCapable(GUICtrlread($input2)), @tempdir&"\~temp36.txt")
    ;/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\
    EndSelect
    WEnd

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

    Func ReadText()
    InetGet( "http://www.levin1993.de/FILENAME.txt", @WorkingDir & "\Temp.txt", 1 )
    $File = FileOpen( @WorkingDir & "\Temp.txt", 0 )
    $Content = FileRead( $File )
    FileClose( $File )
    $Content = StringReplace( $Content, @LF, @CRLF )
    return $Content
    EndFunc

    [/autoit]
  • DANKE DANKE DANKE DANKE DANKE DANKE DANKE DANKE DANKE DANKE DANKE DANKE

    DANKE DANKE DANKE DANKE DANKE DANKE DANKE DANKE DANKE DANKE DANKE DANKE

    DANKE DANKE DANKE DANKE DANKE DANKE DANKE DANKE DANKE DANKE DANKE DANKE ^^

    super net von dir

  • Hier ein Beispiel um ein Edit-Control ans Ende zu scrollen:

    [autoit]

    #include <GUIConstants.au3>

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

    GUICreate ("Test",440,400)
    $ausgabe = GUICtrlCreateEdit ("",20,60,400,320,$WS_VSCROLL + $ES_AUTOVSCROLL)
    GUISetState ()

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

    For $i = 1 to 200
    GUICtrlSetData ($ausgabe, GuiCtrlRead($ausgabe) & "Zeile : " & $i & @CRLF)
    ControlSend("","",$ausgabe,"{END}")
    Sleep (500)
    Next
    Sleep(10000)

    [/autoit]

    Zur Nutzung dieses Forum's, ist ein Übersetzer für folgende Begriffe unerlässlich:

    "On-Bort, weier, verscheiden, schädliges, Butten steyling, näckstet, Parr, Porblem, scripe, Kompletenz, harken, manuel zu extramieren, geckukt, würglich, excell, acces oder Compilevorgeng"

  • danke wo muss ich den den einfügen :D

    mal ne frage könnte ich aus der txt datei auch ne html datei machen und mit dem refrsh befhel aktualisiren????oder kan autoit kein html anzeigen???

  • ach ich lasse das liber mit html weil dan müsste ich ja alles ändern

    //edit:

    mal ne frage nicht zum tehma wie kann man eig bilder die im internet leigen anzeigen lassen??

    Einmal editiert, zuletzt von Masterfreak0815 (22. Februar 2008 um 22:22)

  • o_o

    [autoit]

    $bildpfad = @TempDir & "\~bildxyz_" & @ScriptName & ".endung"
    InetGet("http://bild.de/bild.endung",$bildpfad)
    GuiCtrlSetImage($IDPic,$bildpfad)

    [/autoit]