首先,先建立一个工程,加一个窗体form1,上面添加一个textbox控件text1,和两个按钮
分别为command1和command2,
然后实现按下command1按钮就向网页提交text1的内容
先打开菜单里的,工程-〉引用-〉选中microsoft xml,必须先这样,因为下面要用到msxml对象
button1的实现代码如下:
Private Sub Command1_Click()
On Error Resume Next
Dim oXmlHttp As New MSXML.XMLHTTPRequest
Dim sPostString As String, sRespText As String
sPostString = "ID = " + Text1.Text '需要提交的数据"
oXmlHttp.open "POST", "http://127.0.0.1", False
'一定要加上下面的这一句,说明提交类型的
oXmlHttp.setRequestHeader "content-type", "application/x-www-form-urlencoded "
"
oXmlHttp.send (sPostString)
sRespText = oXmlHttp.responseText '得到处理后response回来的数据
'sRespText为返回的结果,可以根据结果进行处理,具体处理请根据需要编写
oXmlHttp = Nothing
End Sub
Private Sub Command1_Click()
Inet1.Execute "http://localhost/test/recevie.asp", "post", "info=" + Text1.Text, "Content-Type: application/x-www-form-urlencoded "
Do While Inet1.StillExecuting
DoEvents
Loop
Text2.Text = Inet1.GetChunk(1024, icString)
MsgBox ("yes")
End Sub
vb提取验证码
Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.m5home.com/blog/login.asp"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL <> "" Then
Dim Img As Object, CR As Object
Set Img = WebBrowser1.Document.getElementById("vcodeImg") '根据验证码的ID取得这个对象
Set CR = WebBrowser1.Document.body.createControlRange() '设置选区
CR.Add Img '添加验证码图片对象到选区
CR.execCommand ("Copy") '复制
Set Picture1.Picture = Clipboard.GetData() '粘贴过去
End If
End Sub