<   2017年 04月 ( 3 )   > この月の画像一覧
[3DS] ファイアーエムブレム エコーズ
どーもボキです。

ファイアーエムブレム外伝のリメイクを購入。
中学生だった当時、はまりあげたシリーズなので楽しみだ。

金に物言わして特別版にしたよ。
サントラや追加コンテンツのダウンロードコードが同梱されてた。

a0021757_19340935.jpg

[FC] ファイアーエムブレム外伝
[PR]
by yozda | 2017-04-24 19:32 | ゲーム | Trackback(1) | Comments(0)
delphi graphic secretsを購入
a0021757_20090104.jpg
どーもボキです。

今更不要だけど、ヤフオクで数百円で出てたのでポチった。
CDすら出してない未使用品だった。

[PR]
by yozda | 2017-04-12 20:07 | プログラミング | Trackback | Comments(0)
[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)