找回密码
 加入
搜索
查看: 15709|回复: 15

[交流] 用AU3可否给IE加壳

[复制链接]
发表于 2011-3-8 08:08:01 | 显示全部楼层 |阅读模式
如题,我的想法是,用AU3写个东西把IE嵌入进去,就像遨游一样,用IE内核,然后在GUI界面上加一些自己需要的工具

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

我是新手,还只写过MsgBox("Hello World!")
发表于 2011-3-8 10:08:15 | 显示全部楼层
那不是给ie加壳吧。
我也是新手,帮你顶起!
发表于 2011-3-8 12:48:54 | 显示全部楼层
当然OK,请多看帮助文件,里面有例子的。
发表于 2011-3-8 21:04:14 | 显示全部楼层
我也是新手,支持下你。
发表于 2011-3-11 18:03:44 | 显示全部楼层
果然是新人,MsgBox("Hello World!")   ..........
发表于 2011-3-11 23:41:07 | 显示全部楼层
为 msgbos("hello world")的顶个
发表于 2011-3-11 23:41:44 | 显示全部楼层
是msgbox
发表于 2011-4-15 22:40:47 | 显示全部楼层
我也只会msgbox(“hello word!”)
发表于 2011-4-15 22:43:56 | 显示全部楼层
哈哈  学习中
发表于 2011-4-17 22:12:57 | 显示全部楼层
帮你顶,貌似不叫加壳。
发表于 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



发表于 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[4])
 
        $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
 楼主| 发表于 2012-6-9 10:11:23 | 显示全部楼层
太忙了,以至于很久没来光顾,原来已经有这么多热心朋友给了建议和方案
去试试,先多谢了哈~
发表于 2012-6-20 00:51:19 | 显示全部楼层
IE怎么加壳,还没听说过....
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 21:13 , Processed in 0.077567 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表