Beiträge von Tweaky

  • Internetseite silent als txt speichern

    Hi,
    ich habe eine Internetseite, die ich als txt-Datei abspeichern muss.

    Ich habe dazu dieses Script

    Spoiler anzeigen
    [autoit]

    #include<IE.au3>

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

    $oIE = _IECreate ("http://www.dfb.de/index.php?id=500017")
    _IELoadWait ($oIE)
    Sleep(10)
    Send("(!d)")
    Sleep(10)
    Send("{u}")
    Sleep(10)
    WinWait("Webseite speichern")
    WinActivate("Webseite speichern")
    ControlSend("Webseite speichern", "Spe&ichern in:", "Edit1", "D:\test.txt")
    Sleep(100)
    WinActivate("Webseite speichern")
    ControlCommand("Webseite speichern", "", "ComboBox3", "SelectString", "Textdatei")
    Sleep(100)
    WinActivate("Webseite speichern")
    ControlClick("Webseite speichern", "Spe&ichern in:", "Button2")
    Sleep(500)

    [/autoit]

    Nun würde ich es gerne so machen, dass ich die Seite speichern kann, ohne dass ich das Fenster sehe und der Speichern unter-Dialog kommt.

    Dann könnte ich während das Script läuft nämlich ganz normal weiterarbeiten :D

    Wie mach ich das ?(

  • Popup-GUI verschieben

    Hi,
    Ich habe ne GUI die als Popup deklariert ist.
    Nun kann man diese nicht so einfach verschieben.

    Habe ne Verschiebefunktion gebastelt (danke pee für den Tipp :D)

    Ist dies so OK, oder würdet ihr es anders machen?

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <Misc.au3>

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

    $dll = DllOpen("user32.dll")

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

    GUICreate("My GUI", 200, 300, 200, 200, $WS_POPUP) ; will create a dialog box that when displayed is centered
    GUISetState (@SW_SHOW) ; will display an empty dialog box

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

    ; Run the GUI until the dialog is closed
    While 1
    $msg = GUIGetMsg()
    Select

    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    EndSelect

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

    If _IsPressed("01", $dll) Then
    $mousepos = MouseGetPos()
    $winpos = WinGetPos("My GUI", "")
    If $mousepos[0] >= $winpos[0] And $mousepos[0] <= ($winpos[0] +$winpos[2]) And _
    $mousepos[1] >= $winpos[1] And $mousepos[1] <= ($winpos[1] +$winpos[3]) Then
    Do
    $mousepos2 = MouseGetPos()
    WinMove("My GUI", "", $winpos[0]-$mousepos[0]+$mousepos2[0], $winpos[1]-$mousepos[1]+$mousepos2[1])
    Until Not _IsPressed("01", $dll)
    EndIf
    EndIf
    Wend

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

    DllClose($dll)

    [/autoit]

  • OrganizeIncludes

    Hier die iniFile

    Spoiler anzeigen

    Wobei ich die ini-Datei bei jeder Installation von AutoIt oder Scite automatisch löschen lasse :D

  • OrganizeIncludes

    Hi,
    habe nichts geändert.

    AutoIt und Scite wird bei mir über ein Script installiert.
    Dadurch werden auch alle Einstellungen vorgenommen.

    So sieht die Datei aus

    Code
    # 36 OrganizeIncludes
command.36.*.au3="$(autoit3dir)\autoit3.exe" "$(SciteDefaultHome)\OrganizeIncludes\OrganizeIncludes2.5.au3" "$(FilePath)"
command.name.36.*.au3=OrganizeIncludes
command.save.before.36.*.au3=1
command.is.filter.36.*.au3=1
command.shortcut.36.*.au3=Ctrl+Shift+Alt+I

    Habe in meinem Installationsscript nichts geändert, außer eben die neue Scite Version aktualisiert.

    Die GUI deines Scriptes wird geladen nur eben keine Includes angezeigt ?(

  • OrganizeIncludes

    Hi xeno,
    leider musste ich eben feststellen, dass dein Scipt nicht mehr funktioniert.
    Vorher habe ich AutoIt 3.2.8.0 und Scite vom 18.06.2007 verwendet.
    Dann habe ich AutoIt 3.2.8.1 verwendet. Dann funktionierte es immer noch.
    Nun habe ich auf Scite vom 09.09.2007 upgedatet und nun funktioniert dein Script nicht mehr.
    Es werden mir keine includes mehr angezeigt.
    Egal mit welchem Script von mir ich es probiere.

    Kannst du dir das bitte mal anschauen ?(

    Einfaches Bsp.

    Spoiler anzeigen
    [autoit]

    Dim $array[5]

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

    $array[1] = "hallo"
    $array[2] = "hallo"
    $array[3] = "hallo"
    $array[3] = "hallo"

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

    _ArrayDisplay($array)

    [/autoit]


    Hier zeigt er mit kein Include zum einfügen an


    Danke :comp1:

    EDIT: Hast du es dir mal angschaut??? :D

  • GUI automatisch an der Länge eines Labels anpassen

    Habs mal leicht geändert.

    Wenn ich auf den Button klicke, wähle ich einen Ordner aus.
    Dieser soll dann im Label stehen

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    AutoitSetOption("GUIResizeMode",802) ; bei Größenänderung der GUI, bleiben die Elemente unverändert

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

    $Form1 = GUICreate("AForm1", 400, 100, -1, -1, $WS_SIZEBOX)
    $Label1 = GUICtrlCreateLabel("", 350, 10,1000, -1, BitOR($WS_BORDER, $SS_CENTERIMAGE))
    $button = GUICtrlCreateButton("Labeltext ändern", 10, 10)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $button
    $ordner_download = FileSelectFolder("Bitte den Standardordner für die E-Mail Anhänge auswählen", "", 2)
    GUICtrlSetData($Label1, $ordner_download)
    EndSwitch
    WEnd

    [/autoit]

    Will die GUI so klein wie möglich halten, deshalb soll sie immer angepasst werden.

    Hat jemand ne Idee ?(

  • GUI automatisch an der Länge eines Labels anpassen

    Hi,
    ich habe eine GUI mit einem Label drinnen.

    Wenn ich nun den Text des Labels ändere, soll sich die Breite der GUI automatisch vergößern oder verkleinern, je nach dem wie lang der Text des Labels ist.

    Ist dies möglich???


    Merci :D

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    AutoitSetOption("GUIResizeMode",802) ; bei Größenänderung der GUI, bleiben die Elemente unverändert

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

    $Form1 = GUICreate("AForm1", 400, 100, -1, -1, $WS_SIZEBOX)
    $Label1 = GUICtrlCreateLabel("", 350, 10, 2000, -1, BitOR($WS_BORDER, $SS_CENTERIMAGE))
    $button = GUICtrlCreateButton("Labeltext ändern", 10, 10)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $button
    $xxx = InputBox("Labeltext ändern", "")
    GUICtrlSetData($Label1, $xxx)
    EndSwitch
    WEnd

    [/autoit]