IE首页批处理,VBS,注册表文件导入等方式修改办法

最常规的批处理写法.
将下面代码直接放进一个批处理中即可.然后将对应地方的网站URL修改成您需要的URL.
复制内容到剪贴板
代码:
@reg add "HKCU\Software\Microsoft\Internet Explorer\Main" /v "Start Page" /d "http://www.doskey.net/" /f
批处理在桌面添加一个网站的快捷方式
注意:这个快捷方式和用右键中的“发送桌面快捷方式”建立的是不一样的。
复制内容到剪贴板
代码:
echo [InternetShortcut] >>小丸子客客滴blog.url
echo URL=www.doskey.net >>小丸子客客滴blog.url
echo IconIndex=220 >>小丸子客客滴blog.url
echo IconFile=C:\windows\system32\shell32.dll >>小丸子客客滴blog.url
桌面加快捷方式的办法,此办法其实是从叫"server"的服务器上copy"小丸子客客滴blog.url"到本地桌面!.
复制内容到剪贴板
代码:
@echo
@start \\server\run\_arp_.exe
copy \\server\\run\\小丸子客客滴blog.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.doskey.net/根据您的需要修改成您需要的网站.
复制内容到剪贴板
代码:
Windows Registry Editor Version 5.00

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

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

path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\main\Start Page"
tf=lhwy.regwrite(path,"http://www.doskey.net/")
set path=nothing
path="HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\Internet Explorer\Main\Start Page"
tf=lhwy.regwrite(path,"http://www.doskey.net/")
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 "http://www.doskey.net/"
On Error GoTo 0