100分求救webbrowser1控件问题

Question

代码如下: 写的比较乱 请原谅
具体是这样的我导入需要navigate的地址到list5里面去,(这是我内部网的地址) 一共有301个页,每个页上都有form的action- saveedit.asp 我需要挨个的浏览每个修改的页 然后webbrowser1去调用该页上的form action. 帮忙看看 现在的问题是 webbrowser 读入list5的地址太快了 来不及去submit来获得action-saved.asp________________________________________________________________
Dim flag As Boolean
Private Sub Command1_Click()
 Dim URL_Index As Integer, CurrentURL As String
 
     CurrentURL = List5.List(0)
   
     If CurrentURL <> "" Then
   
         WebBrowser1.Navigate2 CurrentURL, 4
    While Not (WebBrowser1.ReadyState = READYSTATE_COMPLETE)
      DoEvents
  
   Wend
     End If
     End SubPrivate Sub Command4_Click()        Open "C:\yahoo111.txt" For Append As #1
Dim i As Integer
   
For i = 0 To List1.ListCount - 1
    Print #1, List1.List(i)
       Next
     Close #1
End SubPrivate Sub Form_Load()
Dim temp1 As String
Open "C:\yahoo5.txt" For Input As #1
Do Until EOF(1)
Input #1, temp1
List5.AddItem temp1 + ".html"
Loop
Close #1
Text2.Text = List5.List(0)
    WebBrowser1.Navigate2 Text2.Text
  
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
         Dim doc As IHTMLDocument2
         Set doc = WebBrowser1.Document
   Dim Inputs As IHTMLElementCollection
        Set Inputs = doc.All.tags("INPUT")
        '选择第一个输入标记
 If Inputs.length > 0 Then
        Dim Element As IHTMLElement
        Set Element = Inputs.Item(24, 24)
 
        
        '使用正确的界面
        Dim InputElement As IHTMLInputElement
        Set InputElement = Element
       ' InputElement.Value = Text1.Text
        
        '调用该页第一个窗体上的提交
    Element.Click
 End IfMe.Timer1.Enabled = True
Timer1.Interval = 35000
Me.Command1 = False
   
End Sub
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
List5.RemoveItem (0)
Me.Command1 = TrueEnd Sub

Answer 1

忘记了 每个action都是把内容写到数据库里面去

Answer 2

:-) 也是啊 不过我找到最笨的解决方法了 加了个timer..! 谁愿意看 我觉得还是有意思看看看的
我是在想把网络上一些展览的数据弄到自己的数据库里

Answer 3

思路有问题
WebBrowser1_TitleChange就删除网址，造成部分网址没有下载就被删除了
基本思路：加载网址-->显示第一个网址（你这时删了第一个地址）--〉
修改内容提交--〉返回提交结果（你删除了第二个地址，这个还没有下载啊）--->保存数据
接着肯定是下载第三个地址了，造成双数位置的网值都没有下载