儲かるかもしれないけど実行は自己責任で
<?XML version="1.0" standalone="yes" ?> <package> <job id="autoexecute"> <?job error="false" debug="false" ?> <object id="sh" progid="WScript.Shell" /> <object id="ie" progid="InternetExplorer.Application" /> <script language="VBScript" src="config.ini" /> <script language="VBScript"><![CDATA[MainSub Main Ie.Visible = True For UserIndex = 0 To UBound(Users) Step 1 LogIn Users(UserIndex, UserIdKey), Users(UserIndex, PasswordKey) For TimesIndex = 0 To ExecuteTimes Step 1 Execute Keys(Int(Rnd * UBound(Keys))) Next LogOut Next Ie.Visible = FalseEnd SubSub WaitForBusy WScript.Sleep Wait + Int(Rng * Wait) Do Until Ie.Busy = False WScript.Sleep Wait LoopEnd SubSub LogIn(UserId, Password) Ie.Navigate TopUrl WaitForBusy Ie.Navigate LogInUrl WaitForBusy Sh.SendKeys UserId Sh.SendKeys "{TAB}" Sh.SendKeys Password Sh.SendKeys "{ENTER}" WaitForBusyEnd SubSub LogOut Ie.Navigate TopUrl WaitForBusy Ie.Navigate LogOutUrl WaitForBusyEnd SubSub Execute(Key) Ie.Navigate TopUrl WaitForBusy Ie.document.parentwindow.clipboardData.SetData "text", Key Sh.SendKeys "^v" Sh.SendKeys "{ENTER}" WaitForBusyEnd SubSub PointCheck Result = "" Ie.Visible = True For UserIndex = 0 To UBound(Users) Step 1 PointLogIn Users(UserIndex, UserIdKey), Users(UserIndex, PasswordKey) Ie.Navigate PointHistoryUrl WaitForBusy Sh.SendKeys "^(ac)" CpData = Ie.document.parentwindow.clipboardData.GetData ("text") StartPoint = InStr(1, CpData, MarkRetainPoint, 1) + Len(MarkRetainPoint) EndPoint = InStr(StartPoint, CpData, MarkPoint, 1) RetainPoint = Mid(CpData, StartPoint, EndPoint - StartPoint) PointLogOut Result = Result & Users(UserIndex, UserIdKey) & chr(9) & RetainPoint & chr(13) & chr(10) Next Ie.Visible = FalseEnd SubSub PointLogIn(UserId, Password) Ie.Navigate PointHistoryUrl WaitForBusy Sh.SendKeys "{F5}" WaitForBusy Sh.SendKeys "^f" WaitForBusy Ie.document.parentwindow.clipboardData.SetData "text", MarkUserID WaitForBusy Sh.SendKeys "^v" Sh.SendKeys "{ENTER}" WaitForBusy Sh.SendKeys "{ESC}" WaitForBusy Sh.SendKeys "{TAB}" Sh.SendKeys UserId Sh.SendKeys "{TAB}" Sh.SendKeys Password Sh.SendKeys "{ENTER}" WaitForBusyEnd SubSub PointLogOut Ie.Navigate PointLogOutUrl WaitForBusyEnd Sub]]> </script> </job> </package>