自动填写表单代码.doc

var ie=WScript.createobject(InternetExplorer.Application); var args = WScript.arguments; var followme=/; if(args.length0) { ? ? followme+=args(0); } ie.Navigate(/accounts/Login?continue=+followme); SynchronizeIE(); var doc=ie.document; doc.forms[0].Email.value=yourName@; doc.forms[0].Passwd.value=密码写在这里; //这是因为PersistentCookie这个checkbox有时候有而有时候没有。 if(doc.forms[0].PersistentCookie!=null) { ? ? doc.forms[0].PersistentCookie.checked=false; } doc.forms[0].submit(); SynchronizeIE(); ie.Visible=true; //等待IE操作结束。 function SynchronizeIE() { ? ? while(ie.Busy) ? ? { ? ? ? ? ? WScript.Sleep(100); ? ? } } 这段代码可以实现，但是我不太明白这其中的意思，并且实现方法也不太了解， 有谁可以帮忙把这段代码解释一下 自动提交表单(2种写法) unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,mshtml, OleCtrls, SHDocVw, Mask, bsSkinBoxCtrls, bsSkinData, BusinessSkinForm, bsSkinCtrls, ExtCtrls,IdGlobal,mmsystem,shellapi; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Memo1: TMemo; bsBusinessSkinForm1: TbsBusinessSkinForm; bsSkinData1: TbsSkinData; bsSkinEdit1: TbsSkinEdit; bsSkinEdit2: TbsSkinEdit; bsCompressedStoredSkin1: TbsCompressedStoredSkin; bsSkinButton1: TbsSkinButton; bsSkinLabel1: TbsSkinLabel; bsSkinLabel2: TbsSkinLabel; bsSkinEdit3: TbsSkinEdit; bsSkinLabel3: TbsSkinLabel; bsSkinStdLabel1: TbsSkinStdLabel; bsSkinEdit4: TbsSkinEdit; bsSkinEdit5: TbsSkinEdit; bsSkinLabel4: TbsSkinLabel; bsSkinLabel5: TbsSkinLabel; bsSkinLabel6: TbsSkinLabel; bsSkinEdit6: TbsSkinEdit; Timer1: TTimer; bsSkinButton2: TbsSkinButton; bsSkinStdLabel2: TbsSkinStdLabel; bsSkinStdLabel3: TbsSkinStdLabel; bsSkinButton3: TbsSkinButton; bsSkinButton4: TbsSkinButton; bsSkinButton5: TbsSkinButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; procedure FormCreate(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject