php调用dll的实例操作动画与代码分享

VERSION1.0CLASS
BEGIN
MultiUse=-1"True
Persistable=0"NotPersistable
DataBindingBehavior=0"vbNone
DataSourceBehavior=0"vbNone
MTSTransactionMode=0"NotAnMTSObject
END
AttributeVB_Name="tw"
AttributeVB_GlobalNameSpace=False
AttributeVB_Creatable=True
AttributeVB_PredeclaredId=False
AttributeVB_Exposed=True
OptionExplicit
PrivateMyScriptingContextAsScriptingContext
PrivateMyApplicationAsApplication
PrivateMyRequestAsRequest
PrivateMyResponseAsResponse
PrivateMyServerAsServer
PrivateMySessionAsSession
PublicSubOnStartPage(PassedScriptingContextAsScriptingContext)
SetMyScriptingContext=PassedScriptingContext
SetMyApplication=MyScriptingContext.Application
SetMyRequest=MyScriptingContext.Request
SetMyResponse=MyScriptingContext.Response
SetMyServer=MyScriptingContext.Server
SetMySession=MyScriptingContext.Session
EndSub

PublicSubOnEndPage()
SetMyScriptingContext=Nothing
SetMyApplication=Nothing
SetMyRequest=Nothing
SetMyResponse=Nothing
SetMyServer=Nothing
SetMySession=Nothing
EndSub

PublicFunctionUserOut(User)AsVariant
UserOut=User
EndFunction