论坛 › 已解决问题区 › [已解决]请问如何将这段ie操作代码转换成内嵌浏览器模式？

hlzxcjx 发表于 2017-2-11 22:33:34

[已解决]请问如何将这段ie操作代码转换成内嵌浏览器模式？

本帖最后由 hlzxcjx 于 2017-2-18 21:37 编辑

#include <IE.au3>

; 创建IE对象并转到百度主页
Local $oIE = _IECreate("http://www.baidu.com")
; 通过Id获取关键词文本域对象
Local $oGuanJianCi = _IEGetObjById($oIE, "kw")
If IsObj($oGuanJianCi) Then
    ; 在关键词文本域中输入内容
    $oGuanJianCi.value = "在Sublime Text 3中搭建AutoIt3环境"
Else
    MsgBox(0, "蟒加加", "获取关键词文本域对象失败！")
EndIf
; 通过Id获取确定按钮对象
Local $oBaiDuYiXia = _IEGetObjById($oIE, "su")
If IsObj($oBaiDuYiXia) Then
    ; 单击“百度一下”按钮
    $oBaiDuYiXia.click()
Else
    MsgBox(0, "蟒加加", "获取确定按钮对象失败！")
EndIf
MsgBox(0, "蟒加加", "脚本执行完毕！")如何将以上代码加入到以下是最简内嵌浏览器中呢?#include <IE.au3>
$Form1 = GUICreate("最简内嵌浏览器", 1024, 600)
$oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, 0, 0, 1024, 600)
$oIE.navigate("http://www.baidu.com")
GUISetState(@SW_SHOWNORMAL)

While 1
        Sleep(1)   
        If GUIGetMsg() = -3 Then Exit
WEnd

chamlien 发表于 2017-2-12 11:53:43

回复 1# hlzxcjx


   
#include <IE.au3>
$Form1 = GUICreate("最简内嵌浏览器", 1024, 600)
$oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, 0, 0, 1024, 600)
_IENavigate($oIE, "http://www.baidu.com")
_IELoadWait($oIE)
GUISetState(@SW_SHOWNORMAL)

; 通过Id获取关键词文本域对象
Local $oGuanJianCi = _IEGetObjById($oIE, "kw")
If IsObj($oGuanJianCi) Then
    ; 在关键词文本域中输入内容
    $oGuanJianCi.value = "在Sublime Text 3中搭建AutoIt3环境"
Else
    MsgBox(0, "蟒加加", "获取关键词文本域对象失败！")
EndIf
; 通过Id获取确定按钮对象
Local $oBaiDuYiXia = _IEGetObjById($oIE, "su")
If IsObj($oBaiDuYiXia) Then
    ; 单击“百度一下”按钮
    $oBaiDuYiXia.click()
Else
    MsgBox(0, "蟒加加", "获取确定按钮对象失败！")
EndIf
MsgBox(0, "蟒加加", "脚本执行完毕！")
While 1
      Sleep(1)   
      If GUIGetMsg() = -3 Then Exit
WEnd

hlzxcjx 发表于 2017-2-12 12:53:31

回复hlzxcjx
chamlien 发表于 2017-2-12 11:53 http://www.autoitx.com/images/common/back.gif


    谢谢！还是不太懂这些函数的用法，怎样才能在内置中打开，怎样才不弹出ie。再如：
点击"新闻"的链接还是在外置ie打开。#include <IE.au3>
$Form1 = GUICreate("最简内嵌浏览器", 1024, 600)
$oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, 0, 0, 1024, 600)
_IENavigate($oIE, "http://www.baidu.com")
_IELoadWait($oIE)
GUISetState(@SW_SHOWNORMAL)

_IELinkClickByText ($oIE, "新闻")

While 1
      Sleep(1)   
      If GUIGetMsg() = -3 Then Exit
WEnd

chamlien 发表于 2017-2-12 14:05:45

回复 3# hlzxcjx


    弹窗请参考
http://www.autoitx.com/forum.php?mod=viewthread&tid=21525&extra=&highlight=%C4%DA%C7%B6IE&page=1

heavenm 发表于 2017-2-12 17:25:43

貌似没有完美的内嵌窗口本地打开，比较完善的就是疯子的方法
貌似我研究了很久也没找到完美的方法

hlzxcjx 发表于 2017-2-12 19:15:39

回复hlzxcjx


    弹窗请参考
chamlien 发表于 2017-2-12 14:05 http://www.autoitx.com/images/common/back.gif


    还是不行!

查看完整版本: [已解决]请问如何将这段ie操作代码转换成内嵌浏览器模式？