◆ [VBScript] Leeyesを自動ページめくりに対応させる。
どーもボキです。

Leeyes(見開き画像ビューア)は自動ページめくりに対応していない。
ページめくり操作は、矢印キーで指示できるので、VBScriptでボタン押下を再現してやればいい。

対応しているアプリもあるかもしれないが、調べてはいない。
SetScriptHost("CScript")    ' CScriptで実行

sec=3 ' sec

Set objWS = WScript.CreateObject("WScript.Shell")
cnt=0
While True
cnt = cnt +1
WScript.Sleep sec*1000 ' msec指定
objWS.SendKeys "{DOWN}" ' 保存するボタンを押下
WScript.StdOut.WriteLine cnt*sec
Wend
' -------------------------------------------------------------------------------
' 実行ホストを切り替える
Sub SetScriptHost(HostName)
If InStr(LCase(WSCript.FullName),LCase(HostName)) <> 0 Then Exit Sub

s = HostName & " """ & WScript.ScriptFullName & """"
If WScript.Arguments.Count > 0 Then
For i = 0 To WScript.Arguments.Count -1
s = s &" """ & WScript.Arguments.Item(i) & """"
Next
End If
CreateObject("WScript.Shell").Run s
WScript.Quit
End Sub

[VBScript] ブラウザでのダウンロードダイアログ操作を自動化する。
[PR]
by yozda | 2017-04-09 11:53 | プログラミング | Trackback | Comments(0)
トラックバックURL : http://yozda.exblog.jp/tb/23791074
トラックバックする(会員専用) [ヘルプ]
<< delphi graphic ... [3DS] マリオ&ルイージRPG4 >>