我自己写了个小软件了,实现了部分功能,但是还很麻烦,部分代码如下: Dim vDoc, vTag Dim i As Integer
Set vDoc = WebBrowser1.Document For i = 0 To vDoc.All.length - 1 If UCase(vDoc.All(i).tagName) = "INPUT" Then Set vTag = vDoc.All(i) If vTag.Type = "text" Then If Text1.Text = "" Then vTag.Value = " " Else vTag.Value = Text1.Text Text1.Text = "" End If ElseIf vTag.Type = "button" Then vTag.Click End If End If Next i Dim X, vTag Dim CtrlRange For Each X In WebBrowser1.Document.All If X.tagName = "IMG" Then Set CtrlRange = WebBrowser1.Document.body.createControlRange() CtrlRange.Add (X) CtrlRange.execCommand ("Copy") Set Image1.Picture = Clipboard.GetData End If Next
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
If Text1.Text = "" Then
vTag.Value = " "
Else
vTag.Value = Text1.Text
Text1.Text = ""
End If
ElseIf vTag.Type = "button" Then
vTag.Click
End If
End If
Next i
Dim X, vTag
Dim CtrlRange
For Each X In WebBrowser1.Document.All
If X.tagName = "IMG" Then
Set CtrlRange = WebBrowser1.Document.body.createControlRange()
CtrlRange.Add (X)
CtrlRange.execCommand ("Copy")
Set Image1.Picture = Clipboard.GetData
End If
Next
用POST