脚本编写实例

20xx年终决算时写了几个自动登录网站的小脚本，记录一下编写经验。

网站登录脚本的针对性很强，要写出有效的脚本就要仔细分析对应登录页面的源代码，很多重要信息如表单名、表单顺序、控件名、控件顺序、触发程序等都可以在源代码中看到。

首先来看看人行的电子邮件登录页面。以下是登录页面源代码

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<title>业务网电子邮件系统</title><meta http-equiv="pragma" content="no-cache;charset=gb2312"><link rel='stylesheet' href='/domcfg.nsf/DLfont.css' type='text/css'><link rel="shortcut icon" href="/domcfg.nsf/favicon.ico">

<!--

var NN4 = (document.layers) ? true : false;

// required for NN4 to reliably capture key events

if (NN4) document.captureEvents(Event.KEYPRESS)

document.onkeypress = function (event) {

checkEnter(event)

return true

}

function setFormFocus() {

document.forms[0].Username.focus();

document.forms[0].Username.select();

}

//submit the form if the user presses the ENTER key

function checkEnter(event)

{

var code = 0

if (NN4) {

code = event.which

} else {

code = window.event.keyCode

}

if (code==13)

document.forms[0].submit()

}

// -->

</script>

</head>

</td><td width="100%" valign="middle"><img width="1" height="1" src="/icons/ecblank.gif" border="0" alt=""><br>

Please identify yourself:</td></tr>

</td><td width="100%" valign="middle"><img width="1" height="1" src="/icons/ecblank.gif" border="0" alt=""><br>

</td></tr>

<div align="right">Password:</div></td><td width="1%" valign="middle"><img width="12" height="1" src="/icons/ecblank.gif" border="0" alt=""><br>

</td><td width="100%" valign="middle"><img width="1" height="1" src="/icons/ecblank.gif" border="0" alt=""><br>

</td></tr>

</td><td width="100%" valign="middle"><img width="1" height="1"

src="/icons/ecblank.gif" border="0" alt=""><br>

<br>

</table>

</td><td width="158"><img src="/domcfg.nsf/b3fdf2b64f39f0fa482574e1001c7ee2/$Body/0.14A6?OpenElement&FieldElemFormat=jpg" width="159" height="165"></td></tr>

</table>

</div><div align="center"><br>

</td></tr></table></div>

<body>

<tr>

</tr>

<tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<tr>

</td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<!-- 20091028变更：邮箱首页“取消”为死链，更改如下的herf值

-->

</tr>

<tr>

</tr>

</table>

</td>

</tr>

<tr>

<tr>

<td width="290" height="21" align="left" valign="middle" class="font_12px_000">技术支持：金融信息管理中心 </td>

</td>

</tr>

</table>

</td>

</tr>

</table>

</body>

</div></form>

</body>

</html>

页面很简单，我们需要填写的控件就只有用户名和密码两项。So..以下是对应的登录脚本。

on error resume next ‘跳过错误，防止重复打开页面提示错误

Set ie1=WScript.CreateObject("internetexplorer.application") ‘创建一个默认使用浏览器对象ie1.Visible=1 ‘使该浏览器可见

ie1.Navigate "http://mail.pbc.gov" ‘访问邮件系统,默认跳转到登录页

While ie1.Busy Or ie1.ReadyState<>4 ‘确认浏览器状态ok,否则等待

Wend

ie1.Document.forms(0).Username.Value="某某" ‘用浏览器对象获取document对象, ie1.Document.forms(0).Password.Value="password" ‘在相应控件里填写登录信息

ie1.Document.forms(0).submit() ‘提交

注: ie1.Document.forms(0).Username.Value中的forms(0)是要填写的控件所在的form,这是用顺序数表示form,也可以用该form的name属性,但前提是name属性不能有非法字符,这个form的name是 _DominoForm 有” _”就不行了.不然可以改成 ie1.Document._DominoForm.Username.Value

==========================第二个页面============================== 这个页面比上一个复杂一些，使用了radio、select控件。以下是源代码：

<html>

<head>

</head>

function CheckForm()

{

if(document.Login.username.value=="") {

alert("请输入用户名！");

document.Login.username.focus(); return false;

}

if(document.Login.Password.value == "") {

alert("请输入密码！");

document.Login.Password.focus(); return false;

}

function login_radio()

{

document.Login.level2.value=""; document.Login.level3.value=""; document.Login.level4.value=""; document.Login.username.value=""; document.Login.slevel2.value=""; document.Login.slevel3.value=""; document.Login.slevel4.value=""; document.Login.action="login4.asp"; document.Login.submit();

}

function login_option(svalue,n)

{

//alert(svalue);

//alert(n);

if (n=="2")

{

document.Login.slevel2.value=svalue; }

if (n=="3")

{

document.Login.slevel3.value=svalue; }

if (n=="4")

{

document.Login.slevel4.value=svalue; }

document.Login.action="login4.asp"; document.Login.submit();

}

</script>

<!--

.style2 {font-size: 12px}

Input{FONT-SIZE: 12px;}

Button{FONT-SIZE: 12px;HEIGHT: 20px; }

Select{FONT-SIZE: 12px;HEIGHT: 20px;}

-->

</style>

<TR>

<TR>

<TR>

<TABLE>

<TR>

<TD width="173"><input type="radio" name="level1" value="01" onclick="login_radio()" ><span class="style2">分行机关<br></span><input type="radio" name="level1" value="02" onclick="login_radio()" checked><span class="style2">山东辖内<input type="radio" name="level1" value="03" onclick="login_radio()" >河南辖内

</span></TD>

</TR>

<TR>

<TD>

</OPTION>

<OPTION value="0201" >某某部</OPTION> <OPTION value="0202" >某某市中心支行</OPTION> <OPTION value="0203" >某某市中心支行</OPTION> <OPTION value="0204" >某某市中心支行</OPTION> <OPTION value="0205" >某某市中心支行</OPTION> <OPTION value="0206" >某某市中心支行</OPTION> <OPTION value="0207" >某某市中心支行</OPTION> <OPTION value="0208" >某某市中心支行</OPTION> <OPTION value="0209" >某某市中心支行</OPTION> <OPTION value="0210" >某某市中心支行</OPTION> <OPTION value="0211" >某某市中心支行</OPTION> <OPTION value="0212" >某某市中心支行</OPTION> <OPTION value="0213" selected >某某市中心支行<OPTION value="0214" >德州市中心支行</OPTION> <OPTION value="0215" >聊城市中心支行</OPTION> <OPTION value="0216" >滨州市中心支行</OPTION> <OPTION value="0217" >菏泽市中心支行</OPTION>

</select></TD>

</TR>

<TR>

</TR>

<TR>

</select></div></TD>

</TR>

<TR>

</TR>

</TD>

</TR>

<TR>

</select>

<TR>

</TR>

<TR>

</TR>

</TABLE>

</FORM>

</TD>

</TR>

</TABLE>

</TD>

</TR>

<TR>

</TABLE></TD>

</TR>

</TBODY>

</table>

function check_sgxt()

{

}

</script>

</body>

</html>

首先定位控件，然后确定控件value内容（select表单内容可以在源文件内找到）

注意radio控件组中每个radio都要显式写明是否checked。Select元素直接用option value当value值写入。还有要注意的一点就是触发程序，那些小脚本要手动触发才可以，置value或是checked状态是无法触发的。

以下是登录脚本。

on error resume next

Set ie1=WScript.CreateObject("internetexplorer.application")

ie1.Visible=1

ie1.Navigate "http://11.28.1.1/user/login4.asp"

set s1=wscript.createobject("wscript.shell")

s1.sleep 2000

s1.sendkeys"%( x)"

While ie1.Busy Or ie1.ReadyState<>4

Wend

ie1.document.login.slevel2.value=""

ie1.Document.Login.level1(0).checked=false

ie1.Document.Login.level1(1).checked=true

ie1.Document.Login.level1(2).checked=False

ie1.Document.Login.level1(1).onclick ‘运行触发程序

WScript.Sleep 1000

ie1.Document.Login.level2.value="0213"

ie1.Document.Login.level2.onchange

WScript.Sleep 500

while ie1.document.login.slevel2.value=""

wend

ie1.Document.Login.level3.value="021312"

ie1.Document.Login.level3.onchange

WScript.Sleep 500

while ie1.document.login.slevel3.value=""

wend

ie1.Document.Login.level4.value=""

ie1.Document.Login.level4.onchange

ie1.Document.Login.username.value="0213120007"

ie1.Document.Login.Password.value="password"

ie1.Document.Login.submit()

=====================第三个页面================================

就是想说，如果找不到submit控件，那就找到什么用什么。这种时候一般会找到button控件。以下是页面和脚本。

<html>

<head>

<title>金融行业机构信息&#31

649;理系统</title>

function validate(){

var susercode =document.all("susercode").value;

if (isEmptyToo(susercode)){

alert("请录入用户名!");

return false;

}

if (isWhitespace(susercode)){

alert("录入不许为空！");

//alert("请录入由字母或数字组成的用户名!");

return false;

}

var password = document.all("spassword").value;

if (isEmptyToo(password)){

alert("请录入密码!"); return false;

}

var bankcode = document.all("sbankcode").value;

if (isEmptyToo(bankcode)){

alert("请录入正确的14位机构码!");

return false;

}

//var ldate = document.all("logindate").value;

//if (isEmptyToo(ldate)){

//alert("请选择登录日期!");

//return false;

//}

var fireOnThis = document.all("loginhidden");

fireOnThis.click();

}

document.onkeydown=function(){

if (event.keyCode==13){

var fireOnThis = document.all("logbtn");

fireOnThis.click();

}

function init(){

var susercode =document.all("susercode").value;

if (isEmptyToo(susercode)){

document.all("susercode").focus();

}else{

document.all("spassword").focus();

}

function downloadexe(){

window.open('/bms/ctrl/jafsuite.exe','group','width=2, height=2, toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, top=400,left=400');

}

</script>

</head>

<input id="loginhidden" name="loginhidden" type="submit" onclick="if(typeof

window.clearFormHiddenParams_form!='undefined'){clearFormHiddenParams_form('form');}if(typeof

window.getScrolling!='undefined'){oamSetHiddenInput('form','autoScroll',getScrolling());}" class="invisible" />

<tr>

</tr>

<tr>

点击此处下载控件

</div>

</td>

</tr>

<tr>

</td>

</TD>

</TD>

</tr>

<tr>

</td>

</TD>

</TD>

</tr>

<tr>

</td>

</TD>

</TD>

</tr>

<tr>

</td>

</TD>

</tr>

<tr>

</tr>

</table>

</div>

</td>

</tr>

<tr>

</tr>

</TBODY>

</table>

</div>

<input type="hidden" name="form_SUBMIT" value="1" /><input type="hidden" name="form:_idcl" /><input type="hidden" name="form:_link_hidden_" /><script type="text/javascript"><!--

function clear_form()

{

clearFormHiddenParams_form('form');

}

function clearFormHiddenParams_form(currFormName)

{

var f = document.forms['form'];

f.elements['form:_idcl'].value='';

f.elements['form:_link_hidden_'].value='';

f.target='';

}

clearFormHiddenParams_form();

//--></script><input type="hidden" name="javax.faces.ViewState"

id="javax.faces.ViewState"

value="8EgC7hvJoXWgMHaUZxk5rx66APlnNueyP32ajDxbvc/i5akMf2jX5W9NF3roe9lcuwszUVsDa0paIZKDZQ/qA9OQRll/xMrtmLgZKpZNcAtQpr8GrghrNLKYKcMTveuOoPxjW0RBSGWLlbNKis4mRBrO4tujcnsSlCHO1/Ecj9sLLaWs7LYqdJslRL9wHnfUPRsur/2RBQcVQUT6EI64y6BwzaXQK37vpgyPtA7WPQ9Zg60FtkeWwSPtEDqRX46pa/pdgaxKwT5Qpr8GrghrNJXzObHKV6N3y91lSAwHr2ypchHMOzsb37act+t62rcJ6OF0Xl+b2Roe1OHE+Cd08IFhSRy0QFDihtkzwJTcNMF/uXdEjTHklsOSgV40cTZS0e17vwBJhFIgmnPhSnPHsQibPAnCvlbYOCGLTRzJwX/1j1r3IbaA1BDTyeB9EgLJhlIxyXpUaCSEfG4vrCIXNRrtrs2gSGsvkxOAjcwktcYjarrUWF9mT1BShWb+VgU6izAH8VR0q9hCcegcPPGltwmVhYCHQdjvMFydGhVy05g7XxjCJJJAqTSNXWI0jg5wWlk8XX53vQ/FAA0izcJWQ9GwH/lgGgUi8noAGlHl2N+WLFS6bmx20EdUYh4nvUU2yJPMN3w6QIKPDiBKZUn7Oafd+QBFIN3ANI1dYjSODnAoJHDPlz0ry8UADSLNwlZD0bAf+WAaBSLyegAaUeXY35YsVLpubHbQz30fdLuovUu4cMDWQGCX/r70bxI4yzwoMstRRvw3FNBS2p2zJaoDSu8jweRVcZcjpjc3aD7dzcV6iLbVa3ctLr/OGEHZlpfF9Yni0zDkbl3KTDYQ/r9xDlLXajoJFYuqNI1dYjSODnAoJHDPlz0ry8UADSLNwlZD0bAf+WAaBSLyegAaUeXY35YsVLpubHbQz30fdLuovUvY9PN6f1hQNqJrObwXe3TY1LEhsG6pJLHuo3NK4CtpAQv9vfDQlYMOqNY+Rea6SD4KCKYM/uo038GJjJXqIeZ/JCCX7+r/Pd39uqKS8gUDX1xk+MHGeMsN6ZcP8G/AsFH/zHItaz5CLx04ENeuxQEQoqlaTJB2+p/BMv0e1pcLtrVtxaLcRIKNyj942dA7PB6kUono4syJPS8jqtd7hPbcsFNtVgQbpqhfSJsoxMYqUxsVkimNZwH1jWS/FG0phJ0c8ISopoQAflcpfz/roMKN+Vr6hxjdpBFfYpAcJ8ZDXEt3O7zVk3EfmQvs9UWeFqtyVNl4sEUiZ2Rbbg40zZn314+mvMViFaFcrKSG6jL7PTcZ/7fxCZ1VVyl/P+ugwo2DfMIzFkQES9/d7kgNJzFHQ3gi+CKkV584VAVxvk1y/6YoLMM2tJJHmnIvjlvXpzUyW70eJGG2SyZGx0ly9cDKvyKaNEZ2ADKYQcuFfUpiLH4wXvwcv+PHN2S9VDHy1xjjBxsHh4MfG/RQAfITkoUDF9grRBEZni233CkMmM+cvJAjoPC+M7OIKuQkcdcO/hxsZ04XkTUy6LMs9xsMGaW6WD3UxGd3Ckt314N/b/hIkOz7a76241hzfBYz/jlbARlSFcUML35+95cbh1Zw+fR4HNoRukn4gwEbFZIpjWcB9Vor9KY7KvRibGdOF5E1MuiOqlU/O7PW1ZWi8pLKfl1GYq3xXC7BrAxqNqUeM64W172VeXVUxS4yx8cYU0HF/633K0QhE7GoN8e1vlR+CyqAVnRTwB0FivxHtrGcQM9+2+3e73sN885HFscOHjjmdTSoNuNuZVlgHBYKVda+2pPzTNaFOREXAqpmjNu5opnJ+4gqKjHAWMlcf1TxbuT18BNrncpLXIkw7FUog4AX3wOIhUfYVdGpYtPXj6a8xWIVoe5AFa7v9rYvfUKNnyfx8l6oSwQfVUIJX8d5456z6VhNqXIRzDs7G9/dzqJLikB987/2Vb2cSQClTXwqMw//ifuYEzFYpC00K0RVkhdXWSnj4R3BfWdxrjWU3pAIkQ/BdNsLjLlKUdjPDphAskTU/XYj0hd8avclRp7PzG8Xk69fJnftnZU9db9QJ3GTgys2L4hQQzoTOSrEqa0FXSkpS2CQTuzsQzskJZBO7OxDOyQluk78ojf1ZuYK340jfuwzabUIVvzXOm78rJnsZq7GkM1mjNu5opnJ+63TienZZTnFMQ+nXc7wccy/nQnDFyRysbQrkXiRYNbsIT7ipdytDYG7CzNRWwNrSlohkoNlD+oDe06Zzr4cdTGQoFXSPzTtEUivTOre4MMm9ATqsAwubztZ5xvCq8131L4VdoxmtF3yxWi8nPX9VJ66c95eqbgE+4j2ZyCJKPVIk7JRqKK8QqmGFrz2xw3LtC3TjNPI4cRwsQvsZqFznTdYJ2rZ4rg6Ozzw5m5ohTK7Mj/gOauHI2io3TRSw1X0fqxHYsWvbRmqEAIJxtpfRT/VrtaGi/NjH7FDsV/06iqGRhTxq/txRLwFND3Kjh8/r7LIWUr03taiPsdIE/wZ8uH1j1r3IbaA1BDTyeB9EgLJ3LCy0B+pNPyB68e0peCMkbD1x8paSzJ9HNoRukn4gwHRKl+TzI1BYjEjtckFyiVzVrjVv7wCo8WVTtdaIF7TJ7xHvCl0kxbsxGqwjn/z7aGQTuzsQzskJZBO7OxDOyQleeHdJf57aX7kf0ui9qPuaLoUDMLSnqg3wahDWZJSzjobFZIpjWcB9YLhC2J7qzbGLyOq13uE9tw/orIADPtCy30MKBcriutpCgimDP7qNN+TmReDj3ww0+MKlVQRnxSjGwlymuq2w967nnnivUErQ0Oc7Uh3f0YR0bXxXBC5c5Mec1heXHQN7cLQ6orCkQLon7MyXMfUr/zUriFZjAM6kgdVsCoX5iNSI2anEm8l7JsoCVFITsDGVteMClQk0lutVxlHyckVfPrfoRm9lXxD2IOi5kiPoynIHNoRukn4gwF++382pwm3FlMCTnOI7dEmLvVmUUqOhpa/Y4JPyf5eWDrLcqDQLaDMK+poPC2Ekk1JryAgF+XsSRYKVda+2pPzGJyzK4HNo5NmjNu5opnJ+7oFzxaQwf3Xhj604n3786AWClXWvtqT87Qr

kXiRYNbs8tqEKMMBGn67CzNRWwNrSlohkoNlD+oDt5B6hQo8HDvC0OqKwpEC6Eh1uRbtKSC+I5GF3fMze0Yo4XTTnSRqhcctaTutaHbG874KMzme9+imJErNJovv+OiAr0LnlUcmiKwYzf2U+DqquZ+1HoYA0uBjxljYr7nRrN37PvVXYU2ni9J0SZp2WOsyu2fn1Bc9UySW07hv+ZhqLbEWgFU4/u1LFV4oxa2wHPCEqKaEAH5sZ04XkTUy6KXLQxHZ9aANTzge0vtUltg+V4fCKWv0nFIF9bKvpLkBQ3Lnntm5EMmQTuzsQzskJS1Kd2tRRBrabfeqVhUTh/GQTuzsQzskJfTz6YigFzOTr7WYkBlHt2dWLLc5MCA6txn/5xV90BkwZozbuaKZyfu35bcbmCUQ8q+1mJAZR7dn0V64oAV2S2T8jvjJRoCNPfWPWvchtoDUENPJ4H0SAsm3hGxOtwfvGMLQ6orCkQLoSHW5Fu0pIL4jkYXd8zN7RijhdNOdJGqFxy1pO61odsbzvgozOZ736KYkSs0mi+/46ICvQueVRyaIrBjN/ZT4Oqq5n7UehgDS4GPGWNivudGs3fs+9VdhTaeL0nRJmnZYGc/ZT95CHcYI5KIn5c3sHGotsRaAVTj+7UsVXijFrbCFkxF4+3VfIL5X9U+ur9qIkE7s7EM7JCWQTuzsQzskJZBO7OxDOyQlGxWSKY1nAfVE43kPmuXwxnNP4U+LIkeo4x1WM1K/gcX1f3V4whiN3hsVkimNZwH1RON5D5rl8Ma6wg8DoCOoFM+urQdJxtd0wtDqisKRAuhIdbkW7SkgviORhd3zM3tGKOF0050kaoXHLWk7rWh2xvO+CjM5nvfopiRKzSaL7/jogK9C55VHJoisGM39lPg6qrmftR6GANLgY8ZY2K+50azd+z71V2FNp4vSdEmadlgNZyfMXFmJtFMkltO4b/mYai2xFoBVOP7tSxVeKMWtsIWTEXj7dV8goVIMm9d+Y8qQTuzsQzskJS1Kd2tRRBrabfeqVhUTh/GQTuzsQzskJXIq3+QhvsepwdhVkqO+A6k=" /></form>

function getScrolling()

{

var x = 0; var y = 0;if (self.pageXOffset || self.pageYOffset)

{

x = self.pageXOffset;

y = self.pageYOffset;

}

else if ((document.documentElement && document.documentElement.scrollLeft)||(document.documentElement && document.documentElement.scrollTop))

{

x = document.documentElement.scrollLeft;

y = document.documentElement.scrollTop;

}

else if (document.body)

{

x = document.body.scrollLeft;

y = document.body.scrollTop;

}

return x + "," + y;

}

//--></script>

</body>

</html>

脚本：

on error resume next

Dim jugg

Set ie1=WScript.CreateObject("internetexplorer.application")

Set s1=WScript.CreateObject("wscript.shell")

jugg=InputBox("1=oper 2=check 3=audit")

ie1.Navigate "http://11.129.190.130/bms/page/systemmanage/login.jsf" While ie1.Busy Or ie1.ReadyState<>4

Wend

If jugg=1 then

ie1.Document.form.susercode.value="QS2YIC"

ie1.Document.form.spassword.value="password"

ie1.Document.form.sbankcode.value="A1000137000361"

ie1.Document.getelementbyid("logbtn").click()

Else If jugg=2 then

ie1.Document.form.susercode.value="S67A1R"

ie1.Document.form.spassword.value="password"

ie1.Document.form.sbankcode.value="A1000137000361"

ie1.Document.getelementbyid("logbtn").click()

Else If jugg=3 then

ie1.Document.form.susercode.value="QUEB46"

ie1.Document.form.spassword.value="password"

ie1.Document.form.sbankcode.value="A1000137000361"

ie1.Document.getelementbyid("logbtn").click() ‘使用button控件提交页面 End If End If End If

相关推荐

脚本编写实例

专栏推荐