private sub command1_click() ??? dim ielist as new shellwindows ??? dim browser ??? dim doc ??? ??? on error resume next ??? ??? '遍歷當前地瀏覽器窗口 ??? for each browser in ielist ??????? '找到需要地ie窗口 ??????? if browser.document.title = "testpage" then ??????????? '獲得瀏覽器地文檔對象 ??????????? set doc = browser.document ??????????? ??????????? '填寫用戶名字段 ??????????? doc.body.all("loginname").value = "eddie" ??????????? '填寫密碼字段 ??????????? doc.body.all("loginpassword").value = "123456" ??????????? ??????????? '提交 ??????????? doc.body.all("clickme").click ??????? end if ??? next end sub
