過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     112
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼外部変形で画面を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")


				  
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     112