CASDM Web Service Test Connection

File uploaded by TMACUL Champion on Dec 23, 2015Last modified by TMACUL Champion on Dec 23, 2015
Version 3Show Document
  • View in full screen mode

WS_Test_Connection.png

 

 

The Code

 

   Dim USD As New localhost.USD_WebService

        Dim s As String

        Try

            'http://localhost:8080/axis/services/USD_R11_WebService?WSDL

            USD.Url = txtWSAddress.Text

            s = USD.login(txtuser.Text, txtpassword.Text)

            MsgBox(s)

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

 

Download Code - Form1.zip

Outcomes