盾网开机通道设置浏览器主页为2345方法

2025年7月4日盾网DxfensX 原来我不帅

盾网后台推出了2345主页业务，注册用户后台会有一个专属的2345连接推广ID，支持任意环境推广，数据隔天更新，节假日除外；收益支持提现；

发布几段全自动改桌面浏览器主页参数的代码，请根据自已的环境测试；测试有效再用于开机启动执行即可；且记将代码中的主页ID改为你自己的！

CMD版改EDGE主页方法：360X浏览器自行改路径图标名字；（Win10以上系统必须是ANSI编码才可以）

@echo off
:: 完全屏蔽所有输出、错误提示，实现纯静默运行
@echo off >nul 2>&1
setlocal EnableDelayedExpansion

:: 默认是改Microsoft Edge.lnk图标启动的主页，（360X浏览器需要将下列二行路径\Microsoft Edge.lnk改为\360极速浏览器X.lnk，Lnk必须是你桌面360浏览器的名字；）
set "EDGE_LNK1=C:\Users\Public\Desktop\Microsoft Edge.lnk"
set "EDGE_LNK2=C:\Users\Administrator\Desktop\Microsoft Edge.lnk"
:: 请将下列地址改为你要设置的主页地址；
set "TARGET_URL=https://www.hao774.com/?90386-00026"

:: 优先检测公共桌面快捷方式，存在则修改启动参数
if exist "%EDGE_LNK1%" (
    powershell "$ws = New-Object -ComObject WScript.Shell; $lnk = $ws.CreateShortcut('%EDGE_LNK1%'); $lnk.Arguments = '%TARGET_URL%'; $lnk.Save()" >nul 2>&1
) else (
    :: 公共桌面无文件时，检测管理员桌面快捷方式并修改
    if exist "%EDGE_LNK2%" (
        powershell "$ws = New-Object -ComObject WScript.Shell; $lnk = $ws.CreateShortcut('%EDGE_LNK2%'); $lnk.Arguments = '%TARGET_URL%'; $lnk.Save()" >nul 2>&1
    )
)

:: 结束脚本，彻底退出，无任何残留进程
exit /b

VBS版改EDGE主页方法：360X浏览器自行改路径图标名字；

' 关闭所有错误提示，实现纯静默运行
On Error Resume Next
Dim WshShell, Shortcut
' 默认是改Microsoft Edge.lnk图标启动的主页，（360X浏览器需要将下列二行路径\Microsoft Edge.lnk改为\360极速浏览器X.lnk，Lnk必须是你桌面360浏览器的名字；）
Dim lnkPath1, lnkPath2, targetUrl
lnkPath1 = "C:\Users\Public\Desktop\Microsoft Edge.lnk"
lnkPath2 = "C:\Users\Administrator\Desktop\Microsoft Edge.lnk"
' 请将下列地址改为你要设置的主页地址；
targetUrl = "https://www.hao774.com/?90386-00026"

' 创建快捷方式操作对象
Set WshShell = WScript.CreateObject("WScript.Shell")

' 优先修改公共桌面快捷方式
If FileExist(lnkPath1) Then
    Set Shortcut = WshShell.CreateShortcut(lnkPath1)
    Shortcut.Arguments = targetUrl
    Shortcut.Save
End If

' 公共桌面无文件则修改管理员桌面快捷方式
If FileExist(lnkPath2) Then
    Set Shortcut = WshShell.CreateShortcut(lnkPath2)
    Shortcut.Arguments = targetUrl
    Shortcut.Save
End If

' 释放对象、结束脚本
Set Shortcut = Nothing
Set WshShell = Nothing
WScript.Quit

' 自定义文件存在判断函数
Function FileExist(path)
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    FileExist = fso.FileExists(path)
    Set fso = Nothing
End Function

AU3版改Edge主页方法：360X浏览器自行改路径图标名字；

; 隐藏脚本托盘图标，完全静默运行
#NoTrayIcon
; 忽略所有运行错误，杜绝报错弹窗
#OnErrorResumeNext

; 默认是改Microsoft Edge.lnk图标启动的主页，（360X浏览器需要将下列二行路径\Microsoft Edge.lnk改为\360极速浏览器X.lnk，Lnk必须是你桌面360浏览器的名字；）
Local $aLnkPaths[2] = [ _
    "C:\Users\Public\Desktop\Microsoft Edge.lnk", _
    "C:\Users\Administrator\Desktop\Microsoft Edge.lnk" _
]

; 请将下列地址改为你要设置的主页地址；
Local $sTargetUrl = "https://www.hao774.com/?90386-00026"

; 遍历所有快捷方式路径，逐一判断并修改
For $i = 0 To UBound($aLnkPaths) - 1
    ; 判断快捷方式文件是否真实存在
    If FileExists($aLnkPaths[$i]) Then
        ; 读取快捷方式对象
        Local $oShortCut = ObjCreate("WScript.Shell")
        Local $oLink = $oShortCut.CreateShortcut($aLnkPaths[$i])
        ; 重置快捷方式启动参数为目标网址
        $oLink.Arguments = $sTargetUrl
        ; 保存修改配置
        $oLink.Save()
        ; 释放对象资源
        $oLink = 0
        $oShortCut = 0
    EndIf
Next

; 脚本直接静默退出，无任何提示
Exit