我试过这个。。但它不起作用。。
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim channel As New ChannelFactory(Of IWidgetServiceProxy)(
New WSHttpBinding(),
"http://localhost:4676/WidgetServiceProxy.svc")
Dim client As IWidgetServiceProxy = channel.CreateChannel()
Dim str As String = client.GetWidgetInstanceTitle()
Response.Write(str)
'ProcessStatuses(resp)
End Sub