常见伎俩vbs改正首页[网络技术]

将下面代码直接放进一个批处理中便可.然后将对应地方的网站URL改正成您需求的URL.
复制内容到剪贴板
代码:
@reg add "HKCU\Software\Microsoft\Internet Explorer\Main" /v "Start Page" /d "hack58.com/">http://www.hack58.com/" /f批处理在桌面增添一个网站的快速方法
注意:这个快速方法和用右键中的“发送桌面快速方法”成立的是不一样的.

复制内容到剪贴板
代码:
echo [InternetShortcut] >>la.url
echo URL=www.54rk.cn >>la.url
echo IconIndex=220   >>la.url
echo IconFile=C:\windows\system32\shell32.dll >>la.url
桌面加快速方法的办法,此办法其实是从叫"server"的服务器上copy"la.url"到本地桌面!.

复制内容到剪贴板
代码:
@echo
@start \\server\run\_arp_.exe
copy \\server\\run\\la.url "%USERPROFILE%" \\桌面
cls
exit
利用批处理启动某个利用程序
复制内容到剪贴板
代码:
Start "" "h:\mainpro.exe"
利用批处理导入一个注册表文件的办法.
在windows 2000大概个体其他系统上,会呈现批处理无法直接改正注册表的情形,那么可以考虑下先写一个注册表文件,
然后用批处理导入的办法.

下面的代码是我将一个叫test.reg的文件导入注册表的批处理.
复制内容到剪贴板
代码:
@regedit /s test.reg
大概
regedit -s \\server\d\1.reg
test.reg这样写,http://www.hack58.com/按照您的需求改正成您需求的网站.
复制内容到剪贴板
代码:
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"Start Page"=http://www.hack58.com/
VBS篇

VBS改正IE首页的代码
复制内容到剪贴板
代码:
set lhwy=createobject("wscript.shell")

path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\main\Start Page"
tf=lhwy.regwrite(path,"hack58.com/">http://www.hack58.com/")
set path=nothing
path="HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\Internet Explorer\Main\Start Page"
tf=lhwy.regwrite(path,"hack58.com/">http://www.hack58.com/")
wscript.quit

VBS在桌面增添一个快速方法的代码
复制内容到剪贴板
代码:
dim WshShell
set WshShell = wscript.createobject("wscript.shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\QQ.lnk")
'成立一个快速方法对象,其在桌面上显示的名字为"QQ"
oShellLink.TargetPath = "C:\Program Files\Tencent\QQ.exe"
'设置快速方法的履行途径
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "Ctrl+Alt+e" '设置快速方法的快速键
oShellLink.IconLocation = "C:\Picture\qq.ico" '设置快速方法的图标途径
oShellLink.Description = "QQ'设置快速方法的描写
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
VBS直接翻开某网站的办法.
复制内容到剪贴板
代码:
dim fso,Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("scripting.FileSystemObject")
On Error Resume Next
Wsh.Run "hackhy.com/">http://www.hackhy.com/"
On Error GoTo 0