過去ログ

                                Page     112
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼外部変形で画面をBMP化後ペイントに貼付  kojima 15/11/01(日) 11:59

 ───────────────────────────────────────
 ■題名 : 外部変形で画面をBMP化後ペイントに貼付
 ■名前 : kojima
 ■日付 : 15/11/01(日) 11:59
 -------------------------------------------------------------------------
   「印刷プレビュー」→プリントスクリーン→ペイントを起動→貼付
を外部変形で自動化してみました。(ruby と AutoITのインストールが必要)
必要な範囲は、ペイント上での手作業になります。


@REM 画面のBMP化
@echo off
REM #jww
REM #cd
REM #hf
REM #c線色の表示  モノクロ:0 カラー:1/_/a
REM #h0
REM #e
copy jwc_temp.txt temp.txt > nul
start ruby -x %~f0 temp.txt %1
exit
#!ruby -Ks
require 'win32ole'

lc=0
while ARGV.size>1
    case argument=ARGV.pop
    when /\/a/
        lc=argument[2..-1].to_i
    end
end
while ARGF.gets
    if $_ =~ /^file=/
        file_name=$'.chomp
    end
end
dir,file=File.split(file_name)
itx=WIN32OLE.new("AutoITX3.Control")
itx.WinActivate file+" - jw_win"
itx.WinWaitActive file+" - jw_win"
itx.WinMenuSelectItem(file+" - jw_win","","ファイル","印刷")
itx.WinWaitActive "印刷"
itx.ControlFocus("印刷","","Button10")
itx.ControlClick("印刷","","Button10")
itx.WinWaitActive file+" - jw_win"
itx.ControlFocus(file+" - jw_win","","Button5")
if lc==0
    itx.ControlCommand(file+" - jw_win","","Button5","UnCheck","")
else
    itx.ControlCommand(file+" - jw_win","","Button5","Check","")
end
itx.Send("{CTRLDOWN}")
itx.ControlFocus(file+" - jw_win","","AfxFrameOrView90s1")
itx.ControlClick(file+" - jw_win","","AfxFrameOrView90s1")
itx.Send("{CTRLUP}")
itx.Send("{PRINTSCREEN}")


open("itx.au3","w"){|f|
    f.puts "Run(\"mspaint.exe\")",
    "WinWaitActive(\"無題 - ペイント\")",
    "Send(\"^v\")"
}
open("itx.bat","w"){|f|f.puts "itx.au3"}
system("itx.bat")
File.delete("itx.au3","itx.bat")

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 112