sh=WScript.CreateObject("WScript.Shell"); i=WScript.CreateObject("InternetExplorer.Application"); i.Width=2000;i.Height=1250;i.Top=0;i.Left=-10; i.visible=true; i.Navigate("http://cloud.ntpc.gov.tw/certificateIndex.do"); sh.AppActivate(i); WScript.Sleep(500); sh.Run("mshta vbscript:ClipBoardData.setData(\"Text\",\"javascriptdocument.loginForm.USER_PWD.value=;login1();\")(Window.Close)"); sh.SendKeys("{F4}"); sh.SendKeys("^v"); sh.SendKeys("{HOME}"); WScript.Sleep(500); sh.SendKeys("{RIGHT 10}"); sh.SendKeys("+;"); sh.SendKeys("{ENTER}"); sh.SendKeys("^a"); WScript.Sleep(10); sh.SendKeys("{DEL}"); sh.SendKeys("{ESC}");