VBS Operation JS Page Element instance

' ==========================================================================
‘
' VBScript Source File--Created with SAPIEN Technologies primalscript 4.0
‘
' NAME:
‘
' Author:microsoft, Microsoft
' DATE:2014/8/14
‘
' COMMENT:
‘
' ==========================================================================

Dim ie,obj
Set Ie =wscript.createobject ("Internetexplorer.application")
Ie.navigate "Www.baidu.com"
Wscript.Sleep 1000
Ie.menubar=1 ' Ïôê¾ie¶ôïó²ëµ¥à¸
Ie. Addressbar=1 ' Ïôê¾ie¶ôïóµøö À¸
Ie. Toolbar=1 ' Ïôê¾ie¶ôï󹤾ßà¸
Ie. Statusbar=0 ' ²»ïôê¾ie¶ôïóx´ì¬à¸
Ie. Fullscreen=0 ' È«æữie¶ôïó
Ie. Resizable=0 ' Éèöãie¶ôïó´óð¡êç Ñ¿éòô±»¸ä¶¯
Ie.visible=1 ' Éèöãêç ñ¿é¼û

Set obj = Ie.document

For I=0 to Obj.all.length-1

If Obj.all (i). Tagname= "INPUT" Then
If Obj.all (i). value= "°ù¶èò»ïâ" Then
Wscript.Sleep 1000
Obj.all (i). click
End If

End If

Next

Set obj=nothing

' ================================================

' X=ie.document.getelementsbytagname ("form")
' Wscript.Sleep 1000
' X.submit
' =======================================================

' Wscript.Sleep 1000
' Set obj = ie.document

"" "" "Ä¿µä:²âêôµçâ¼°´å¥"
' For i=0 to Obj.all.length-1
' If obj.all (i). Tagname= "Input" then
' If Obj.all (i). value= "°ù¶èò»ïâ" Then
' Wscript.Sleep 1000
' Obj.all (i). click
' End If
' End if
' Next