一、在web提供者创建了test1，
代码如下：
Dim s As NotesSession

Class WebServiceOne

Sub NEW
'Print "kaishi..."
'Set s = New NotesSession
'Print s.EffectiveUserName
'Print "jieshu"
End Sub

Function operation1(input1 As String, input2 As String) As String
operation1 = "hello,My Dear!"
End Function

Function operation2(input1 As String, input2 As String) As String
operation2 = "hello,Jason!"
End Function

End Class

二、在web使用者创建了usews。
%INCLUDE "lsxsd.lss"
Class WebServiceOne As PortTypeBase

Sub NEW
Call Service.Initialize ("UrnDefaultNamespaceWebServiceOneService", _
"WebServiceOneService.Domino", "http://xxxxx:8090/ttt.nsf/test1?OpenWebService", _
"WebServiceOne")
Print "rrrruuuu"
End Sub

Function OPERATION1(INPUT1 As String, INPUT2 As String) As String
Let OPERATION1 = Service.Invoke("OPERATION1", INPUT1, INPUT2)
End Function

Function OPERATION2(INPUT1 As String, INPUT2 As String) As String
Let OPERATION2 = Service.Invoke("OPERATION2", INPUT1, INPUT2)
End Function

End Class
三、然后新建代理，调usews，
Sub Initialize
Dim s As New notessession

Dim ws As WebServiceOne

Print "123456"

Set ws = New WebServiceOne

If ws Is Nothing Then
Print "aaaa"
Else
Print "bbbbb"
End If

Print ws.OPERATION1(" "," ")
End Sub
执行代理，输出“123456 rrrruuuu bbbbb ”

我想输出“hello,My Dear!”这句话，但是系统控制台说调用超时。前面的判断说明，ws变量没实例化，我这种调用是否有问题，有经验的大虾指导指导，谢谢！