frp如何设置vbs自启动

李恒道

提示

注意，该方法必须进入电脑桌面才可以运行
如果是服务器必须远程登陆一次才可以
一种其他方向疑似可以考虑nssm，但是未经尝试

vbs申请权限之后设置注册表
reg_start_up.vbs

Set WShell = WScript.CreateObject("WScript.Shell")
set fso =CreateObject("Scripting.FileSystemObject")
tFile = "C:\Windows\System32\drivers\etc\test.txt"
WShell.run("%comspec% /c echo 123> " & tFile), 0, True
if not fso.FileExists(tFile) then
    CreateObject("Shell.Application").ShellExecute WScript.FullName, Chr(34) & WScript.ScriptFullName & Chr(34), "", "runas", 1
    WScript.Quit
else
    fso.DeleteFile(tFile)
End if
runVbsPath=replace(WScript.ScriptFullName,"\reg_start_up.vbs","\start_frpc.vbs")
WShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\frpVbsScript",runVbsPath,"REG_SZ"
MsgBox("set window start up run have success")

其中start_frpc.vbs改为绝对路径
start_frpc.vbs

   Set ws = CreateObject("Wscript.Shell") 
   directPath=replace(WScript.ScriptFullName,"start_frpc.vbs","")
   runPath=directPath+"frpc.exe -c "+directPath+"frpc.ini"
   ws.run runPath,vbhide 
   Set ws=NoThing
   WScript.quit

删除开机启动也比较简单

Set WShell = WScript.CreateObject("WScript.Shell")
set fso =CreateObject("Scripting.FileSystemObject")
tFile = "C:\Windows\System32\drivers\etc\test.txt"
WShell.run("%comspec% /c echo 123> " & tFile), 0, True
if not fso.FileExists(tFile) then
    CreateObject("Shell.Application").ShellExecute WScript.FullName, Chr(34) & WScript.ScriptFullName & Chr(34), "", "runas", 1
    WScript.Quit
else
    fso.DeleteFile(tFile)
End if
WShell.RegDelete( "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\frpVbsScript")
MsgBox("delete window start up run have success")