DLL呼び出し用PHPの操作アニメーション例とコード共有

アニメーション画中の原代码如下:

复制代码 代码如下:

バージョン 1.0 クラス
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
属性 VB_Name = "tw"
属性 VB_GlobalNameSpace = False
属性 VB_Creatable = True
属性 VB_PredeclaredId = False
属性 VB_Exused = True
オプション明示
ScriptingContext としての Private MyScriptingContext
アプリケーションとしての Private MyApplication
リクエストとしての Private MyRequest
応答としての Private MyResponse
サーバーとしての Private MyServer
セッションとしての Private MySession
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext )
Set MyScriptingContext = PassedScriptingContext
Set MyApplication = MyScriptingContext.Application
Set MyRequest = MyScriptingContext.Request
Set MyResponse = MyScriptingContext.Response
Set MyServer = MyScriptingContext.Server
Set MySession = MyScriptingContext.Session
End Sub

Public Sub OnEndPage()
Set MyScriptingContext = Nothing
Set MyApplication = Nothing
Set MyRequest = Nothing
Set MyResponse = Nothing
Set MyServer = Nothing
Set MySession = Nothing
End Sub

Public Function UserOut(User) As Variant
UserOut = User
End Function