Dim reqstr As String = Args(0)
Dim bodystr As String = Args(1)
Dim pos As object
try
Dim body As String = bodystr
Dim req = System.Net.WebRequest.Create(reqstr)
req.Method = "POST"
req.C
req.UserAgent = "Mozilla/5.0 (Windows NT 6.3; rv:57.0) Gecko/20100101 Firefox/57.0"
Dim aryBuf As Byte() = Encoding.UTF8.GetBytes(body)
req.ContentLength = aryBuf.Length
Dim writer = req.GetRequestStream()
writer.Write(aryBuf, 0, aryBuf.Length)
writer.Close()
writer.Dispose()
pos = req.GetResponse
catch ex As System.Net.WebException
pos = ctype(ex.Response,System.Net.HttpWebResponse)
'Return "post错误"
End try
Dim stm As System.IO.Stream = pos.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
pos.Close
stm.Close
reader.close
Return str
加好友 
发短信
Post By：2019/3/29 16:51:00 [显示全部帖子]
