stealsoapmsg.vbs

来自「You may have heard the Latest Brief web 」· VBS 代码 · 共 16 行

Option Explicit
on error resume next

Dim clt
Set clt = CreateObject("MSSOAP.SoapClient30")
clt.MsSoapInit "http://localhost/LatestBrief/latest.wsdl"

clt.GetLatestArticleBrief 20
'clt.GetLatestLoungeBrief 10
'clt.GetLatestCommentsBrief 10
'clt.GetNewsflash

Set clt = nothing