Imports System.Net Imports System.Collections.Specialized PublicClass GetHttpHeadersProxyClass GetHttpHeadersProxy Inherits getheaders.header Private headerstoadd As NameValueCollection PublicSub New()SubNew() headerstoadd =New NameValueCollection End Sub PublicSub addhttpheader()Sub addhttpheader(ByVal headername AsString, ByVal headervalue AsString) headerstoadd.Add(headername, headervalue) End Sub ProtectedOverridesFunction GetWebRequest()Function GetWebRequest(ByVal uri As Uri) As WebRequest Dim request As WebRequest request =MyBase.GetWebRequest(uri) request.Headers.Add(headerstoadd) Return request End Function End Class
其中用绿色底高亮显示的地方为对WEB服务生成的引用类
在使用时如下方法
dim proxy as GetHttpHeadersProxy=new GetHttpHeadersProxy proxy.AddHttpHeader("name","aowind") proxy.AddHttpHeader("sex","man")