找回密码
 加入
搜索
查看: 2715|回复: 7

[AU3基础] 默认浏览器是IE,为何_IECreate打开还是其他浏览器,郁闷。。

[复制链接]
发表于 2017-2-15 09:24:36 | 显示全部楼层 |阅读模式
默认浏览器是IE9,为何_IECreate打开还是其他浏览器,郁闷。。
#include <IE.au3>
_IECreate("www.baidu.com",1,0)

是不是IE.au3不够完善呢,还是其他什么问题??
发表于 2017-2-15 18:20:18 | 显示全部楼层
这是有软件篡改了 InternetExplorer.Application 的默认浏览器,具体是检查 HKEY_CLASSES_ROOT\CLSID\{0002DF01-0000-0000-C000-000000000046}\LocalServer32 的键值是不是iexplore.exe,可以在运行时检测并修改为 @ProgramFilesDir & "\Internet Explorer\iexplore.exe 。修改之后需要重启才能生效。
 楼主| 发表于 2017-2-16 09:59:50 | 显示全部楼层
回复 2# 帆船


    导入注册表后重启,值还是没变,晕死。。而且直接修改会提示无法修改,网上搜索试过权限问题,还是搞不定。。最后用ie锁定才可以。但注册表依旧不是ie打开的值
发表于 2017-2-16 13:08:31 | 显示全部楼层
本帖最后由 帆船 于 2017-2-16 13:09 编辑

回复 3# 229989799
手工也无法修改吗?
如果可以修改,但是开机依旧会恢复的话您就要卸载那个程序了
附上我自用的UDF:

Func _Exists()
        Local $RegInfo = RegRead("HKEY_CLASSES_ROOT\CLSID\{0002DF01-0000-0000-C000-000000000046}\LocalServer32", "")
        ConsoleWrite($RegInfo & @CRLF)
        Local $Temp = StringRegExp($RegInfo, "[\w\\\s]+\\(.+?\..+)", 1)
        ConsoleWrite($Temp[0] & @CRLF)
        If $Temp[0] = "iexplore.exe" Then Return 0
        TrayTip("提示", "检测到您的默认浏览器被篡改,即将为您修复!但想要根本解决,您应该卸载" & $Temp[0] & "程序!", 5)
        If ProcessExists($Temp[0]) Then
                Do
                        ProcessClose($Temp[0])
                Until Not ProcessExists($Temp[0])
        EndIf
        If Not FileExists(@ProgramFilesDir & "\Internet Explorer\iexplore.exe") Then
                TrayTip("提示", "您的计算机似乎没有安装IE浏览器,无法修复!", 5)
                Sleep(5000)
                Return 1
        EndIf
        RegWrite("HKEY_CLASSES_ROOT\CLSID\{0002DF01-0000-0000-C000-000000000046}\LocalServer32", "", "REG_SZ", @ProgramFilesDir & "\Internet Explorer\iexplore.exe")
        Local $MsgID = MsgBox(4, "提示", "修复完毕,是否现在为您重启计算机?")
        If $MsgID = 7 Then
                MsgBox(0, "提示", "请您稍后重启计算机后再使用此程序!")
                Return 2
        EndIf
        TrayTip("提示", "即将为您重启计算机!您还有十秒钟时间保存文件!", 10)
        Sleep(10000)
        Shutdown(2)
        Return -1
EndFunc   ;==>_Exists

评分

参与人数 1金钱 +10 收起 理由
229989799 + 10 热心网友

查看全部评分

 楼主| 发表于 2017-2-16 14:25:30 | 显示全部楼层
回复 4# 帆船


    谢谢你的帮忙哦,注册表修改重启后还是无效,估计是IE被挟持,只能修复了。。你的udf写的不错,赞。。
发表于 2017-2-19 08:18:17 | 显示全部楼层
回复 5# 229989799


    先run ie,获取句柄  再 _IEAttach呗,
不过还是建议用内嵌IE方式
发表于 2017-3-19 18:51:13 | 显示全部楼层
GUICreate("百度" , 800, 600)
$Obj1 = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($Obj1, 0, 0, 800, 600)
$Obj1.navigate("http://www.baidu.com")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
 
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
发表于 2017-3-19 20:53:08 | 显示全部楼层
帮你顶
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-3-28 22:38 , Processed in 0.085169 second(s), 27 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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