在ASP中能不能调用winapi，在线等待，现在我只有这些分了，问题回答好了，我可以以后再给大家继续增加

luckyhongyu 2002-06-29 10:27:58

我现在在VB中编写了一个DLL，代码如下：
'''=====用VB创建ActiveX DLL，工程名为ITGroup，类模块名称Monitor
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Private Const WM_CLOSE = &H10
Private Const WM_SYSCOMMAND = &H112
Const SC_CLOSE = &HF060

Public Function SndMsg()
Dim dwnd As Long
Dim rval As Long
Dim i As Integer
'Find a window having caption VBFinished
dwnd = FindWindow(vbNullString, "我的电脑")
If dwnd Then
rval = SendMessage(dwnd, WM_SYSCOMMAND, SC_CLOSE, 0)
End If
End Function
'定义我们自己的一个组件方法
Public Function HelloWorld()
HelloWorld = "<H1>Hello,World!</H1>"
End Function

Public Sub getWindow(strServerWindowName As String)
Dim ThWnd As Long '后台窗口句柄
'获取后台服务程序的句柄hWnd
ThWnd = 0
ThWnd = FindWindow(vbNullString, strServerWindowName)
rp.Write "<b>" & strServerWindowName & "</b>=" & CStr(ThWnd)
End Sub

这里有我自己定义的函数也有winapi函数，我在ASP中是这样调用的：

dim aa
set aa=server.creatobject("itgroup.monitor")
response.write aa.helloworld
aa.sndmsg
set aa=nothing

执行的时候，其中response.write aa.helloworld能正确执行，但是aa.sndmsg就不可以了(如果执行的话，结果应该是先找到“我的电脑”这个窗口，然后关掉)，是不是在ASP中不能调用winapi或者说我的调用方法不对呢，请大家帮帮忙，我现在只有这些分了，以后我可以再加的？如果能调用的话，可不可以给个具体的例子。帮帮忙

...全文