VBS操作JS網頁元素實例
'==========================================================================
'
' 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???ó2?μ¥à?
ie.AddressBar=1 '??ê?IE???óμ??·à?
ie.ToolBar=1 '??ê?IE???ó1¤??à?
ie.StatusBar=0 '2???ê?IE???ó×′ì?à?
ie.FullScreen=0 'è??á?ˉIE???ó
ie.Resizable=0 'éè??IE???ó′óD?ê?·??éò?±????ˉ
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
' '''''''''??μ?:2aê? μ???°′?¥''''
' 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

浙公網安備 33010602011771號