完整的动态引用WebService(VC,VB)

            '// 1. 使用 WebClient 下载 WSDL 信息。
            'WebClient web = new WebClient();
            'Stream stream = web.OpenRead("http://localhost/FlowEngine/ProcessFlow.asmx?WSDL");
            Dim web As HttpWebRequest 'Dim web As WebClient = New WebClient()
            web = CType(WebRequest.Create(WebUrl), HttpWebRequest)
            web.Method = "POST"
            Dim sm As Stream = web.GetRequestStream() '  Dim stream As Stream = web.OpenRead(WebUrl) '"http://192.168.1.68/hr_service/SearchData.asmx?WSDL"


            '// 2. 创建和格式化 WSDL 文档。
            'ServiceDescription description = ServiceDescription.Read(stream);
            Dim description As ServiceDescription = ServiceDescription.Read(Stream)


            '// 3. 创建客户端代理代理类。
            'ServiceDescriptionImporter importer = new ServiceDescriptionImporter();
            Dim importer As ServiceDescriptionImporter = New ServiceDescriptionImporter()

            'importer.ProtocolName = "Soap"; // 指定访问协议。
            'importer.Style = ServiceDescriptionImportStyle.Client; // 生成客户端代理。
            'importer.CodeGenerationOptions = CodeGenerationOptions.GenerateProperties | CodeGenerationOptions.GenerateNewAsync; 
            importer.ProtocolName = "Soap"
            importer.Style = ServiceDescriptionImportStyle.Client
            importer.CodeGenerationOptions = CodeGenerationOptions.GenerateProperties '| codegenerationoptions.generatenewasync

            'importer.AddServiceDescription(description, null, null); // 添加 WSDL 文档。
            '''''''''''''''''''''''''''importer.AddServiceDescription(description, Nothing, Nothing)

            '// 4. 使用 CodeDom 编译客户端代理类。
            'CodeNamespace nmspace = new CodeNamespace(); // 为代理类添加命名空间，缺省为全局空间。