[VB.NET]设置remoting超时timeout代码

'超时设置：

1. <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
2. Dim httpProp As IDictionary = New Hashtable()
3.         httpProp("name") = "http801"
4.         httpProp("timeout") = 1000
5. Dim channel As IChannel = New HttpChannel(httpProp, New SoapClientFormatterSinkProvider(), New SoapServerFormatterSinkProvider())
6.         ChannelServices.RegisterChannel(channel)