<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <system.diagnostics>
    <sources>
      <!-- В этой секции определяется конфигурация ведения журнала для My.Application.Log -->
      <source name="DefaultSource" switchName="DefaultSwitch">
        <listeners>
          <add name="FileLog"/>
          <!-- Раскомментируйте следующую секцию для записи в журнал событий приложения -->
          <!--<add name="EventLog"/>-->
        </listeners>
      </source>
    </sources>
    <switches>
      <add name="DefaultSwitch" value="Information" />
    </switches>
    <sharedListeners>
      <add name="FileLog"
           type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
           initializeData="FileLogWriter"/>
      <!-- Раскомментируйте следующую секцию и замените APPLICATION_NAME на имя своего приложения для записи в журнал событий приложения -->
      <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
    </sharedListeners>
  </system.diagnostics>
  <system.serviceModel>
    <bindings>
      <basicHttpBinding>
        <binding name="ZWSBSK_GET_ACTS" closeTimeout="00:01:00" openTimeout="00:01:00"
            receiveTimeout="00:10:00" sendTimeout="00:01:00" allowCookies="false"
            bypassProxyOnLocal="false" hostNameComparisonMode="StrongWildcard"
            maxBufferSize="65536" maxBufferPoolSize="524288" maxReceivedMessageSize="65536"
            messageEncoding="Text" textEncoding="utf-8" transferMode="Buffered"
            useDefaultWebProxy="true">
          <readerQuotas maxDepth="32" maxStringContentLength="8192" maxArrayLength="16384"
              maxBytesPerRead="4096" maxNameTableCharCount="16384" />
          <security mode="Transport">
            <transport clientCredentialType="None" proxyCredentialType="None"
                realm="" />
            <message clientCredentialType="UserName" algorithmSuite="Default" />
          </security>
        </binding>
        <binding name="ZWSBSK_GET_ACTS1" closeTimeout="00:01:00" openTimeout="00:01:00"
            receiveTimeout="00:10:00" sendTimeout="00:01:00" allowCookies="false"
            bypassProxyOnLocal="false" hostNameComparisonMode="StrongWildcard"
            maxBufferSize="65536" maxBufferPoolSize="524288" maxReceivedMessageSize="65536"
            messageEncoding="Text" textEncoding="utf-8" transferMode="Buffered"
            useDefaultWebProxy="true">
          <readerQuotas maxDepth="32" maxStringContentLength="8192" maxArrayLength="16384"
              maxBytesPerRead="4096" maxNameTableCharCount="16384" />
          <security mode="None">
            <transport clientCredentialType="None" proxyCredentialType="None"
                realm="" />
            <message clientCredentialType="UserName" algorithmSuite="Default" />
          </security>
        </binding>
      </basicHttpBinding>
    </bindings>
    <client>
      <endpoint address="https://d03.enmashbel.ru:5200/sk/getacts"
          binding="basicHttpBinding" bindingConfiguration="ZWSBSK_GET_ACTS"
          contract="ServiceReference1.zwssk_Get_Acts" name="ZWSBSK_GET_ACTS" />
    </client>
  </system.serviceModel>
</configuration>

 Private myMathServicet As New proba3.ServiceReference1.zwssk_Get_ActsClient
    Private myMathServicet1 As New proba3.ServiceReference1.Z_SK_GET_ACTS
    Private myMathServicetr As New proba3.ServiceReference1.Z_SK_GET_ACTSResponse

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        myMathServicet.ClientCredentials.UserName.UserName = "MMM44"
        myMathServicet.ClientCredentials.UserName.Password = "4321"
        myMathServicet1.ERDAT = "02.11.2020"
        myMathServicetr = myMathServicet.Z_SK_GET_ACTS(Z_SK_GET_ACTS1:=myMathServicet1)
    End Sub

  <security mode="Transport">
            <transport clientCredentialType="None" proxyCredentialType="None"
                realm="" />
            <message clientCredentialType="UserName" algorithmSuite="Default" />
          </security>

   <security mode="Transport">
            <transport clientCredentialType="Basic" />
          </security>

  Dim myBinding As New WSHttpBinding()
        myBinding.Security.Mode = SecurityMode.Transport
        myBinding.Security.Transport.ClientCredentialType = HttpClientCredentialType.Basic
        Dim ea As New EndpointAddress("https://d03.emachful.ru:5200/sk/getacts")
        Dim cc As New ServiceReference1.zwssk_Get_ActsClient(myBinding, ea)
        cc.ClientCredentials.UserName.UserName = "MMMM44"
        cc.ClientCredentials.UserName.Password = "12345"