动态修改 webservice 引用

       Public Sub New()
            MyBase.New()
            Me.Url = ExcelConfig.GetConfigServiceUrl
            If (Me.IsLocalFileSystemWebService(Me.Url) = True) Then
                Me.UseDefaultCredentials = True
                Me.useDefaultCredentialsSetExplicitly = False
            Else
                Me.useDefaultCredentialsSetExplicitly = True
            End If
        End Sub

        '添加一个带参数的构造函数。
        Public Sub New(ByVal stringUrl As String)
            MyBase.New()
            Me.Url = stringUrl
            If (Me.IsLocalFileSystemWebService(Me.Url) = True) Then
                Me.UseDefaultCredentials = True
                Me.useDefaultCredentialsSetExplicitly = False
            Else
                Me.useDefaultCredentialsSetExplicitly = True
            End If
        End Sub