vb POST提交数据的问题 50
网页提交数据时有弹框要求密码输入正确点确定才会成功这个POST的数据提交怎么写如果弹框没有密码的话只要点确认就成功的话下面的POST就没问题希望高手指点PrivateSu...
网页提交数据时有弹框要求密码 输入正确点确定才会成功 这个POST的数据提交怎么写
如果弹框没有密码的话 只要点确认就成功的话 下面的POST就没问题 希望高手指点
Private Sub Command3_Click()
Dim url
url = Text5.Text
Set oxh = CreateObject("Microsoft.XMLHTTP")
PostData = "num_id=" & Text2.Text & "&name=" & Text1.Text
oxh.open "post", url, False
oxh.setRequestHeader "Content-Length", Len(PostData)
oxh.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
oxh.send PostData
End Sub
有弹框输入密码时 改成这样 可是不成功
Private Sub Command3_Click()
Dim url
url = Text5.Text
Set oxh = CreateObject("Microsoft.XMLHTTP")
PostData = "num_id=" & Text2.Text & "&name=" & Text1.Text & "&Pwd=” & Text3.Text
oxh.open "post", url, False
oxh.setRequestHeader "Content-Length", Len(PostData)
oxh.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
oxh.send PostData
End Sub 展开
如果弹框没有密码的话 只要点确认就成功的话 下面的POST就没问题 希望高手指点
Private Sub Command3_Click()
Dim url
url = Text5.Text
Set oxh = CreateObject("Microsoft.XMLHTTP")
PostData = "num_id=" & Text2.Text & "&name=" & Text1.Text
oxh.open "post", url, False
oxh.setRequestHeader "Content-Length", Len(PostData)
oxh.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
oxh.send PostData
End Sub
有弹框输入密码时 改成这样 可是不成功
Private Sub Command3_Click()
Dim url
url = Text5.Text
Set oxh = CreateObject("Microsoft.XMLHTTP")
PostData = "num_id=" & Text2.Text & "&name=" & Text1.Text & "&Pwd=” & Text3.Text
oxh.open "post", url, False
oxh.setRequestHeader "Content-Length", Len(PostData)
oxh.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
oxh.send PostData
End Sub 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询