auFisher 发表于 2011-3-8 08:08:01

用AU3可否给IE加壳

如题，我的想法是，用AU3写个东西把IE嵌入进去，就像遨游一样，用IE内核，然后在GUI界面上加一些自己需要的工具

不知道可否实现，还请各位指点哈

我是新手，还只写过MsgBox("Hello World!") {:face (229):}

nxbigdaddy 发表于 2011-3-8 10:08:15

那不是给ie加壳吧。
我也是新手，帮你顶起！

楼上风云 发表于 2011-3-8 12:48:54

当然OK，请多看帮助文件，里面有例子的。

guang19831217 发表于 2011-3-8 21:04:14

我也是新手，支持下你。

guland 发表于 2011-3-11 18:03:44

果然是新人,MsgBox("Hello World!")   ..........

liangxuri 发表于 2011-3-11 23:41:07

:face (27):为 msgbos("hello world")的顶个

liangxuri 发表于 2011-3-11 23:41:44

:face (3):是msgbox

cocoazhang 发表于 2011-4-15 22:40:47

我也只会msgbox（“hello word！”）

baby666 发表于 2011-4-15 22:43:56

哈哈学习中

淡定开源 发表于 2011-4-17 22:12:57

帮你顶，貌似不叫加壳。

ylsfwb 发表于 2011-11-7 04:38:22

我也想知道~~~

骗子 发表于 2011-11-7 09:18:23


; *******************************************************
; Example 1 - Trap COM errors so that 'Back' and 'Forward'
;               outside of history bounds does not abort script
;               (expect COM errors to be sent to the console)
; *******************************************************
;
#include <GUIConstantsEx.au3>
#include <WindowsConstants.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 + $WS_CLIPCHILDREN)
$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



vason1019 发表于 2012-3-20 10:36:38

我也是新手只会第一个AU3
参考小龙的#include<ie.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

$oIE = _IECreateEmbedded()
$Form1 = GUICreate("专用", 800, 600, -1, -3, $WS_SIZEBOX)
$B1 = GUICtrlCreateButton("百度", 5, 90, 58, 25)
$B2 = GUICtrlCreateButton("新浪", 65, 90, 58, 25)
GUICtrlCreateLabel("", 5, 10, 740, 3, $SS_ETCHEDHORZ)
GUICtrlCreateLabel("Don't say let me to see what help files, can understand will not come" & @CRLF & _
                "here, can't, the brain stupid, will only pick up the ready-made", 10, 20)
GUICtrlCreateLabel("", 5, 80, 740, 3, $SS_ETCHEDHORZ)

$ClearEdit1 = GUICtrlCreateLabel("www.autoitx.com", 10, 57, 120)
GUICtrlSetFont($ClearEdit1, 10, 800)
GUICtrlSetColor($ClearEdit1, 0x000090)

$GUIActiveX = GUICtrlCreateObj($oIE, 0, 120, 750, 550) ; GUICtrlCreateObj($oIE, 0, 120, 1000, 1000)==>GUICtrlCreateObj($oIE, 0, 120, 750, 550)
GUICtrlSetResizing(-1, 1) ;添加了GUICtrlSetResizing(按照新窗口的大小重新设置窗口大小和坐标.)
GUISetState()

Local $hWndb, $sTafa = True, $sTafb = True

While 1
      $Pos = GUIGetCursorInfo($Form1)
      If Not @error Then _Hyperlink($Pos)

      $msg = GUIGetMsg()
      Select
                Case $msg = $GUI_EVENT_CLOSE
                        Exit
                Case $msg = $B1
                        _IENavigate($oIE, "http://www.baidu.com")
                Case $msg = $B2
                        _IENavigate($oIE, "http://www.sina.com.cn")
                Case $msg = $ClearEdit1
                        ShellExecute("www.autoitx.com")
      EndSelect
WEnd

Func _Hyperlink($hWnda)
      If $hWnda = 8 Then
                If $sTafb = True Then
                        GUICtrlSetFont($hWnda, 10, 800, 4)
;~                      GUICtrlSetColor($hWnda, 0x0080CC)
                        $hWndb = $hWnda
                        $sTafb = False
                        $sTafa = False
                EndIf
      Else
                If $sTafa = False Then
                        GUICtrlSetFont($hWndb, 10, 800)
;~                      GUICtrlSetColor($hWndb, 0x000000)
                        $sTafa = True
                        $sTafb = True
                EndIf
      EndIf
EndFunc   ;==>_Hyperlink

auFisher 发表于 2012-6-9 10:11:23

太忙了，以至于很久没来光顾，原来已经有这么多热心朋友给了建议和方案
去试试，先多谢了哈~

fhqbbfcu2050 发表于 2012-6-20 00:51:19

IE怎么加壳,还没听说过....
页: [1] 2
查看完整版本: 用AU3可否给IE加壳