主题：[分享][【西瓜打酱油】之无验证码直接根据快递单号更新签收状态

Dim url As String = Args(0)

Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)

Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse

Dim stm As System.IO.Stream = rsps.GetResponseStream()

rsps = Nothing

rqst = Nothing

Dim reader As New System.IO.StreamReader(stm)

Dim strXML As String = reader.ReadToEnd

stm.Dispose()

Return strXML