try一下
try
Dim msg As String = "head=" & head & "&body=" & body & "&updates=" & updates
Dim req = System.Net.WebRequest.Create("https://www.xxx.xyz/insertage.php")
req.Method = "POST"
req.Timeout = 10000
req.C
req.UserAgent = "Mozilla/5.0 (Windows NT 6.3; rv:66.0) Gecko/20100101 Firefox/66.0"
Dim aryBuf As Byte() = Encoding.GetEncoding("utf-8").GetBytes(msg)
req.ContentLength = aryBuf.Length
Dim writer = req.GetRequestStream()
writer.Write(aryBuf, 0, aryBuf.Length)
writer.Close()
writer.Dispose()
catch ex as Exception
msgbox("出错：" & ex.message)
end try
[此贴子已经被作者于2020/10/13 17:38:41编辑过]
加好友 
发短信
Post By：2020/10/13 16:49:00 [显示全部帖子]
