找回密码
 加入
搜索
查看: 569|回复: 9

[AU3基础] 浏览器里能打开的网址内嵌到AU3里不行,不知何故 [已解决]

[复制链接]
发表于 2022-7-19 22:03:13 | 显示全部楼层 |阅读模式
本帖最后由 z761003 于 2022-7-20 10:36 编辑

一串网址 :http://page3.tdx.com.cn:7615/site/pcwebcall_static/bxb/bxb.html?code=300310&color=0
放浏览器中打开很正常,如图

可把它内嵌到AU3里就怎么都不正常,不是乱码,就是显示“正在加载中”之类的
#include <IE.au3>
          Dim $Form_iebrowse = GUICreate("",800, 800,-1,-1)
          Local $oIE = _IECreateEmbedded()
          GUICtrlCreateObj($oIE, 8, 30, 800, 800)
          $lsurl="http://page3.tdx.com.cn:7615/site/pcwebcall_static/bxb/bxb.html?code=300310&color=0"
          _IENavigate($oIE,$lsurl,1)
          GUISetState(@SW_SHOW, $Form_iebrowse)

          While 1

          WEnd
高手指点下,为什么看得见却摸不着

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2022-7-20 08:44:14 | 显示全部楼层

加到程序的开头,强制内嵌IE为当前系统中最高的版本。




#include <process.au3>
Local $regValue = "1"
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD", $regValue)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD", $regValue)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Wow64\32Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD", $regValue)


 楼主| 发表于 2022-7-20 09:00:25 | 显示全部楼层
绿色风 发表于 2022-7-20 08:44
加到程序的开头,强制内嵌IE为当前系统中最高的版本。

试了下不行,没任何改变,还是一片白
#include <IE.au3>
#include <process.au3>
Local $regValue = "1"
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD", $regValue)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD", $regValue)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Wow64\32Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD", $regValue)
          Dim $Form_iebrowse = GUICreate("",800, 800,-1,-1)
          Local $oIE = _IECreateEmbedded()
          GUICtrlCreateObj($oIE, 8, 30, 800, 800)
          $lsurl="http://page3.tdx.com.cn:7615/site/pcwebcall_static/bxb/bxb.html?code=300320&color=0"

          Local $a=_IENavigate($oIE,$lsurl,1)

          GUISetState(@SW_SHOW, $Form_iebrowse)

          While 1

          WEnd
 楼主| 发表于 2022-7-20 09:08:57 | 显示全部楼层
绿色风 发表于 2022-7-20 08:44
加到程序的开头,强制内嵌IE为当前系统中最高的版本。

是我错了,我浏览器试用的是谷歌,内嵌的是IE,谷歌能打开,是IE版本低了不能打开,谢谢前辈,!
发表于 2022-7-20 09:19:47 | 显示全部楼层
z761003 发表于 2022-7-20 09:08
是我错了,我浏览器试用的是谷歌,内嵌的是IE,谷歌能打开,是IE版本低了不能打开,谢谢前辈,!:face (2 ...

ie10 以上是没问题的。

系统内嵌默认的ie是7。0
 楼主| 发表于 2022-7-20 10:36:14 | 显示全部楼层
绿色风 发表于 2022-7-20 09:19
ie10 以上是没问题的。

系统内嵌默认的ie是7。0

好的,明白了,结贴
发表于 2022-7-20 11:06:28 | 显示全部楼层
z761003 发表于 2022-7-20 10:36
好的,明白了,结贴

你本机的ie是10以上,那上面的代码提ie版本是没有问题的。

我这显示也都是正常的。

提权后:
浏览器信息
浏览器名称 Edge
浏览器版本号 18.17763
渲染引擎 EdgeHTML 18.17763
操作系统 Windows 10
 楼主| 发表于 2022-7-20 19:43:27 | 显示全部楼层
绿色风 发表于 2022-7-20 11:06
你本机的ie是10以上,那上面的代码提ie版本是没有问题的。

我这显示也都是正常的。

好的,学习了,谢谢
 楼主| 发表于 2022-7-20 22:59:17 | 显示全部楼层
绿色风 发表于 2022-7-20 11:06
你本机的ie是10以上,那上面的代码提ie版本是没有问题的。

我这显示也都是正常的。

对了前辈,有让这个内嵌IE能修改UserAgent 的方法么,想访问手机网址,出来的总是PC的……
发表于 2022-7-21 08:22:01 | 显示全部楼层
z761003 发表于 2022-7-20 22:59
对了前辈,有让这个内嵌IE能修改UserAgent 的方法么,想访问手机网址,出来的总是PC的……

没搞过,百度一下去。有修改注册表的
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-4-27 15:03 , Processed in 0.076590 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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