彗星网页调用外部浏览器偶尔失效

光头强来偷树

  

子程序名	返回值类型	公开	备 注
_彗星网页框1_即将跳转
参数名	类 型	参考	可空	数组	备 注
地址	文本型
标记	整数型
目标窗口名称	文本型
投送的数据指针	整数型
投送的数据长度	整数型
类型说明	文本型
取消跳转	逻辑型

如果真 (寻找文本 (地址, 取运行目录 (), , 假) ≠ -1)
返回 ()
运行 (path ＋ “ ” ＋ 地址, 假, )
取消跳转 ＝ 真

.版本 2<br /> <br /> .子程序 _彗星网页框1_即将跳转<br /> .参数 地址, 文本型, 参考<br /> .参数 标记, 整数型<br /> .参数 目标窗口名称, 文本型, 参考<br /> .参数 投送的数据指针, 整数型<br /> .参数 投送的数据长度, 整数型<br /> .参数 类型说明, 文本型, 参考<br /> .参数 取消跳转, 逻辑型, 参考<br /> <br /> .如果真 (寻找文本 (地址, 取运行目录 (), , 假) ≠ -1)<br />     返回 ()<br /> .如果真结束<br /> 运行 (path ＋ “ ” ＋ 地址, 假, )<br /> 取消跳转 ＝ 真

我是想实现在彗星网页框里面打开a标签，但是是调用我指定的浏览器打开网址。
我的代码是上面这样的，a 标签没有用  target   如果用target 不能用指定的浏览器打开网址，所以想到的是用 彗星网页框 的_即将跳转 取消跳转，然后再调用我指定的浏览器打开网址，但是这种遇到极个别网页还是会在彗星网页框里面打开新的窗口，很蛋疼
大佬们又解决方案吗  或者用其他的方式实现也行。

FallingSnow

  

ShellExecuteA (0, “open”, path ＋ “ ” ＋ 地址, “”, “”, 1)

DLL命令名	返回值类型	公开	备 注
ShellExecuteA	整数型		文件_执行
DLL库文件名:
shell32.dll
在DLL库中对应命令名:
ShellExecuteA
参数名	类 型	传址	数组	备 注
hwnd	整数型			指定一个窗口的句柄，有些时候，Windows程序有必要在创建自己的主窗口前显示一个消息框。
lpOperation	文本型			指定字串“Open”来打开lpFlie文档；或指定“Print”来打印它。也可设为vbNullString，表示默认为“Open”
lpFile	文本型			想用关联的程序打印或打开的一个程序名或文件名
lpParameters	文本型			如lpFile是一个可执行文件，则这个字串包含了传递给执行程序的参数。如lpFile引用的是一个文档文件，或者不需要使用参数，则设为vbNullString
lpDirectory	文本型			想使用的默认路径完整路径
nShowCmd	整数型			定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数

ShellExecuteA (0, “open”, path ＋ “ ” ＋ 地址, “”, “”, 1)<br /> <br /> <br /> .版本 2<br /> <br /> .DLL命令 ShellExecuteA, 整数型, "shell32.dll", "ShellExecuteA", 公开, 文件_执行<br />     .参数 hwnd, 整数型, , 指定一个窗口的句柄，有些时候，Windows程序有必要在创建自己的主窗口前显示一个消息框。<br />     .参数 lpOperation, 文本型, , 指定字串“Open”来打开lpFlie文档；或指定“Print”来打印它。也可设为vbNullString，表示默认为“Open”<br />     .参数 lpFile, 文本型, , 想用关联的程序打印或打开的一个程序名或文件名<br />     .参数 lpParameters, 文本型, , 如lpFile是一个可执行文件，则这个字串包含了传递给执行程序的参数。如lpFile引用的是一个文档文件，或者不需要使用参数，则设为vbNullString<br />     .参数 lpDirectory, 文本型, , 想使用的默认路径完整路径<br />     .参数 nShowCmd, 整数型, , 定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数

FallingSnow

ShellExecuteA (0, “open”, 取文本("`%s` `%s`",path,地址), “”, “”, 1) 如果还是不行的话就换这句  
或者这句
运行 (取文本("`%s` `%s`",path,地址), 假, )

光头强来偷树

FallingSnow 发表于 2021-12-5 13:18
ShellExecuteA (0, “open”, 取文本("`%s` `%s`",path,地址), “”, “”, 1) 如果还是不行的话就换这句   ...

用浏览器打开都是正常的，就是打开的同时，彗星网页框里面的页面也跳转了，等于是  取消跳转 = 假   失效了