使用vbs自动填写Web表单 [英] Fill web forms automatically using vbs

问题描述

美好的一天，



我正在开发一个简单的程序，它会在一次执行时自动填充网站表单.vbs



我的第一次尝试是： http://www.tekibears.com/ [ ^ ]



样本＃1

下面的代码确实有效

Good Day,

I am developing a simple program that will automatically fill a website form at one execute of .vbs

My First attempt is to: http://www.tekibears.com/[^]

Sample #1
The code below really works

On Error Resume Next
Const PAGE_LOADED = 4
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("http://www.tekibears.com/contact-us")
objIE.Visible = True

WScript.Sleep(1000) 

objIE.Document.all.Item("w-form-521e10620cf2287d915d4cfd-0").Value = "[e-mail]"
objIE.Document.all.Item("w-form-521e10620cf2287d915d4cfd-1").Value = "[e-mail]"
objIE.Document.all.Item("w-form-521e10620cf2287d915d4cfd-2").Value = "[e-mail]"
objIE.Document.all.Item("w-form-521e10620cf2287d915d4cfd-3").Value = "[e-mail]"
objIE.Document.all.Item("w-form-521e10620cf2287d915d4cfd-4").Value = "[e-mail]"
objIE.Document.all.Item("w-form-521e10620cf2287d915d4cfd-5").Value = "[e-mail]"
objIE.Document.all.Item("w-form-521e10620cf2287d915d4cfd-6").Value = "[e-mail]"
objIE.Document.all.Item("w-form-521e10620cf2287d915d4cfd-7").Value = "[e-mail]"

objIE.Document.all.Item("contact_form-20684482-DC5A-476A-A102-DE809178C376-submit").submit

示例＃2

我认为我的第二次尝试组合框有点问题，使用IE默认用户名toresdodo和密码ea67f4 已登录我执行此脚本的帐户

Sample #2
My second attempt has a little problem with combo boxes i think, Using IE with default username "toresdodo" and password "ea67f4" already signed in to the account i executed this script

On Error Resume Next
Const PAGE_LOADED = 4
Set objIE = CreateObject("InternetExplorer.Application")
Call objIE.Navigate("http://66.96.90.84/newitem.php")
objIE.Visible = True
Do Until objIE.ReadyState = PAGE_LOADED : Call WScript.Sleep(100) : Loop

objIE.Document.all.Item("sec").selectedvalue = "Want To Buy"
objIE.Document.all.Item("name").Value = "2pcs bullet Camera Package"
objIE.Document.all.Item("cat").selectedindex = "Other PC Devices"
objIE.Document.all.Item("pricebudget").Value = "10880"
objIE.Document.all.Item("con").selectedindex = "Brand New"
objIE.Document.all.Item("warranty").selectedindex = "Shop Warranty"
objIE.Document.all.Item("postspan").selectedindex = "Expire after 15 days"
objIE.Document.all.Item("caption").Value = "Brand new, 1 year warranty, price is 10,880 free delivery. Supports Cloud Technology"




call objIE.Document.all.Item("submit").click
Set objIE = Nothing

在一开始我遇到过问题似乎那些组合框没有响应我的脚本。



有人可以分享一个想法。

In the very beginning i encountered problems Its seems those combo boxes are not responding with my script.

Can someone share an idea.

推荐答案

这篇关于使用vbs自动填写Web表单的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！