Predmet:Re: VB6 i WEB Service
Evo primjer konekcije.-
PreuzmiIzvorni kôd (Visual Basic):Option Explicit
Private Sub Command1_Click()
Dim Klijent As New SoapClient30
Dim Rez As String
Set Klijent = CreateObject("MSSOAP.SoapClient30")
'"http://tstsvr.achworks.com/testexec/achtstsoapbz.tss/wsdl/IACHSOAP"
Call Klijent.MSSoapInit("http://tstsvr.achworks.com/testexec/achtstsoapbz.tss/wsdl/IACHSOAP")
Rez = Klijent.ConnectionCheck("9502", "MY COMPANY", _
"SASD%!%$DGLJGWYRRDGDDUDFDESDHDD")
MsgBox "Rez = " & Rez
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.