程序代码：

Dim myurl As String, send_data As String, my_head As String
myurl = “网址”send_data = “user=帐号&pass=密码”my_head = “Content-Type: application/x-www-form-urlencoded” '

Inet1.Execute myurl, “POST”, send_data, my_head 

WebBrowser1.Navigate "网址",好像不行