Question

vb inet post 出错 ,发其他站都对了，就这个不对

Private Sub Command5_Click()
Dim myurl As String, send_data As String, my_head As String

myurl = "http://club.qingdaonews.com/SaveReAnnounce_static.php"

send_data = "viewmode=&topic_id=4359888&parent_id=4359888&board_id=113&Page=1&a_name=ve996&subject=%BB%D8%B8%B4%3A&ubb=UBB&chkSignature=1&body=eeeeeeeee&insertimg="

my_head = "Content-Type: application/x-www-form-urlencoded"

Inet1.Execute myurl, "POST", send_data, my_head

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim get_data As String

If State = 12 Then
get_data = Inet1.GetChunk(1024)
Label1.Caption = get_data
End If

End Sub

返回的 信息 是 “对不起，您使用的游览器不被支持，保存失败”

我发其他站，都没问题，直接发就上内容了，就这个站不行，大家帮我看看估计是什么情况？ 他 是不是跳转了，还是什么？
回答者： haokeyy

谢谢你， 返回的消息 是 已保存， 但是 内容并没有发到网站里， 请帮我看看

Answer 1

将
my_head = "Content-Type: application/x-www-form-urlencoded"

改成
my_head = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
my_head = my_head & "Referer: http://club.qingdaonews.com/showAnnounce.php?board_id=113&topic_id=4359888" & vbCrLf