Suche mit Ausgabe in ein anderen fenster

    • Offizieller Beitrag

    Nach was suchst du weiter? RTFM? :whistling:

    Eigentlich paßt das bei AutoIt nicht. RTFH ist besser.

  • [autoit]

    IECreate ( @ScriptDir & "\Datei.mht")

    [/autoit]

    Das geht so nicht mit mein script


    Hier noch mal der script

    Spoiler anzeigen
    [autoit]

    #Region
    #AutoIt3Wrapper_Icon=\favicon.ico
    #EndRegion

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

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>
    #include <IE.au3>

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

    Opt('GUIOnEventMode', 1)
    Opt('GUICloseOnESC', 0)
    Opt("TrayAutoPause", 0)
    Opt("TrayMenuMode", 1)
    Opt("TrayOnEventMode", 1)

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

    TraySetIcon(@ScriptDir & "\favicon.ico")

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("txt", 890, 780, 50, 5)
    $Label1 = GUICtrlCreateLabel("txt", 770, 5, 36, 17)
    $Label2 = GUICtrlCreateLabel("txt", 290, 5, 100, 60)
    $Input1 = GUICtrlCreateInput("", 680, 20, 200, 21)
    $oIE=_IECreateEmbedded()
    $Obj=GUICtrlCreateObj($oIE,10,20,657,729)
    GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
    GUISetState(@SW_SHOW)
    $FolderIE=StringReplace(@ScriptDir,"\","/")
    #EndRegion ### END Koda GUI section ###
    GUISetIcon(@ScriptDir & "\favicon.ico")
    GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')
    GUISetBkColor(0x87CEEB)

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

    $Menu_File = GUICtrlCreateMenu("Info")
    $Menu_File_Item = GUICtrlCreateMenuItem("About", $Menu_File)
    GUICtrlSetOnEvent(-1, '_About')

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

    TraySetState()
    TraySetToolTip("txt")
    TrayCreateItem("Beenden")
    TrayItemSetOnEvent(-1, "_Exit")

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

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

    Func MY_WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    Local $nNotifyCode = BitShift($wParam, 16)
    Local $hCtrl = $lParam
    If $nNotifyCode = 1024 Or $nNotifyCode = 786 Then
    If $hCtrl = GUICtrlGetHandle($Input1) Then
    $suchbegriff=GUICtrlRead($Input1)
    if FileExists($suchbegriff&".html") then
    _IENavigate($oIE,"file://localhost/"&$FolderIE&"/"&$suchbegriff&".html")
    endif
    EndIf
    EndIf
    Return $GUI_RUNDEFMSG
    EndFunc

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

    While Sleep(1000)
    WEnd

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

    While 1
    Sleep(10)
    WEnd

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

    Exit

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

    Func _Exit()
    Exit
    EndFunc

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

    Func _About()
    Run("About.exe")
    EndFunc

    [/autoit]
    • Offizieller Beitrag

    Ich habe das mal angepasst (viel überflüssiges entfernt):

    Spoiler anzeigen
    [autoit]


    #AutoIt3Wrapper_Icon=\favicon.ico

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

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>
    #include <IE.au3>

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

    Opt('GUIOnEventMode', 1)
    Opt('GUICloseOnESC', 0)
    Opt("TrayAutoPause", 0)
    Opt("TrayMenuMode", 1)
    Opt("TrayOnEventMode", 1)

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

    TraySetIcon(@ScriptDir & "\favicon.ico")

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("txt", 890, 780, 50, 5)
    $Label1 = GUICtrlCreateLabel("txt", 770, 5, 36, 17)
    $Label2 = GUICtrlCreateLabel("txt", 290, 5, 100, 60)
    $Input1 = GUICtrlCreateInput("", 680, 20, 200, 21)
    $oIE = _IECreateEmbedded()
    $Obj = GUICtrlCreateObj($oIE, 10, 20, 657, 729)
    GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    GUISetIcon(@ScriptDir & "\favicon.ico")
    GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')
    GUISetBkColor(0x87CEEB)

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

    $Menu_File = GUICtrlCreateMenu("Info")
    $Menu_File_Item = GUICtrlCreateMenuItem("About", $Menu_File)
    GUICtrlSetOnEvent(-1, '_About')

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

    TraySetState()
    TraySetToolTip("txt")
    TrayCreateItem("Beenden")
    TrayItemSetOnEvent(-1, "_Exit")

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

    While Sleep(1000)
    WEnd

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

    Func MY_WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
    Local $nNotifyCode = BitShift($wParam, 16)
    Local $hCtrl = $lParam
    If $nNotifyCode = 1024 Or $nNotifyCode = 786 Then
    If $hCtrl = GUICtrlGetHandle($Input1) Then
    $suchbegriff = GUICtrlRead($Input1) & ".html"
    If FileExists($suchbegriff) Then _IENavigate($oIE, @ScriptDir & "/" & $suchbegriff)
    EndIf
    EndIf
    Return $GUI_RUNDEFMSG
    EndFunc ;==>MY_WM_COMMAND

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

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

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

    Func _About()
    Run("About.exe")
    EndFunc ;==>_About

    [/autoit]
    • Offizieller Beitrag

    Welcher Error? Wo? Las dir doch nicht immer alles aus der Nase ziehen. :wacko: