javarike 发表于 2008-9-18 16:29:21

[急]如何使用IECreateEmbedded创建的网页控件?

看了帮助,英文的,看不明白,例子也是运行有错误的.哪位大虾可以帮下我呢??

; *******************************************************
; 例子 1 - 捕获COM错误,以便当"后退"和"前进"的超出历史记录的时候,能够返回而不退出代码.(希望COM错误被发送到控制台)
; *******************************************************
;
#include <GUIConstants.au3>
#include <IE.au3>

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
GUICreate("Embedded Web control Test", 640, 580, _
      (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
      $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)

GUISetState()       ;Show GUI

_IENavigate ($oIE, "http://www.autoitscript.com")

; Waiting for user to close the window
While 1
    $msg = GUIGetMsg()
    Select
      Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
      Case $msg = $GUI_Button_Home
            _IENavigate ($oIE, "http://www.autoitscript.com")
      Case $msg = $GUI_Button_Back
            _IEAction ($oIE, "back")
      Case $msg = $GUI_Button_Forward
            _IEAction ($oIE, "forward")
      Case $msg = $GUI_Button_Stop
            _IEAction ($oIE, "stop")
    EndSelect
WEnd

GUIDelete()

Exit

错误图片:


看到一个仁兄做的效果如下:


[ 本帖最后由 javarike 于 2008-9-18 16:31 编辑 ]

javarike 发表于 2008-9-18 16:41:13

.....斑竹在吗?HELP``````HELP``````HELP``````

javarike 发表于 2008-9-19 08:56:53

啊啊```还是没有人呢///...等到的花儿也谢鸟....

liongodmien 发表于 2008-9-27 14:35:26

没有用 #include 把应该引入的ＡＵ３脚本引入！

liongodmien 发表于 2008-9-27 14:37:05




; *******************************************************
; 例子 1 - 捕获COM错误,以便当"后退"和"前进"的超出历史记录的时候,能够返回而不退出代码.(希望COM错误被发送到控制台)
; *******************************************************
;
#include-once
#include <IE.AU3>
#include <Constants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
　;　引入了一堆东西后，你看看效果！

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
GUICreate("Embedded Web control Test", 640, 580, _
      (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
      $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)

GUISetState()       ;Show GUI

_IENavigate ($oIE, "http://www.autoitscript.com")

; Waiting for user to close the window
While 1
    $msg = GUIGetMsg()
    Select
      Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
      Case $msg = $GUI_Button_Home
            _IENavigate ($oIE, "http://www.autoitscript.com")
      Case $msg = $GUI_Button_Back
            _IEAction ($oIE, "back")
      Case $msg = $GUI_Button_Forward
            _IEAction ($oIE, "forward")
      Case $msg = $GUI_Button_Stop
            _IEAction ($oIE, "stop")
    EndSelect
WEnd

GUIDelete()

Exit
页: [1]
查看完整版本: [急]如何使用IECreateEmbedded创建的网页控件?