自动填表时如何激活INPUT中的onkeypress事件

 1 解决方案1
 2 
 3 Dim oDoc As HTMLDocument 
 4 Set oDoc = pDisp.Document 
 5 
 6 Dim oInput As HTMLInputElement 
 7 Set oInput = oDoc.getElementsByName("user")(0
 8 oInput.FireEvent "onkeypress" 
 9 
10 
11 解决方案2
12 
13 Dim vDoc, vTag 
14 Dim I As Integer 
15 Set vDoc = WB1.Document 
16 For I = 0 To vDoc.All.length - 1 
17 If UCase(vDoc.All(I).tagName) = "INPUT" Then 
18 Set vTag = vDoc.All(I) 
19 If vTag.Type = "text" Then 
20 Select Case vTag.Name 
21 Case "username" '如果是用户名的那个框 
22 vTag.Value = "用户名" '这个是用户名 
23 vTag.onkeypress 
24 End Select 
25 
26 End If 
27 End If 
28 Next I 
29 
30 

 

posted @ 2009-12-29 18:28  clown  阅读(690)  评论(0编辑  收藏  举报