|
| 저자 |
창크기 제어 자동화, 한컴사전 활용 |
Anonymous (0)
비회원
|  게시일: 2006-10-19 17:04| |
600 포스팅 기념 나만의 팁입니다. 팁이 좀 구질구질합니다만 매우 편리해서 포스팅합니다.
목표
ie퀵런치의 바로가기를 누르면 ie창의 가로 길이가 줄어들고 그 빈공간에 한컴사전이 뜹니다.
다시 ie퀵런치의 바로가기를 누르면 ie창의 가로 길이가 늘어나고 한컴사전이 종료됩니다.
준비물
autoit, 한컴사전2007
1. ie 퀵런치 (바로가기 D:\program\autoit_script\ie_dic.vbs)
2. 경로 d:\program\autoit_script\
ie_dic.vbs파일 내용
-------------------------------------------------------------------------------------------------------------
set wshshell = createobject("wscript.shell")
if checkprocess ("hwpdic.exe") = 1 Then
killprocess("hwpdic.exe")
wshshell.run "d:\program\autoit\autoit3.exe d:\program\autoit~1\ie_dic1.au3"
else
wshshell.run "d:\program\autoit~1\hwpdic.vbs"
wshshell.run "d:\program\autoit\autoit3.exe d:\program\autoit~1\ie_dic0.au3"
end if
function killprocess (image)
strcomputer = "."
set objwmiservice = getobject("winmgmts:" _
& "{impersonationlevel=impersonate}!\\" & strcomputer & "\root\cimv2")
set colprocesslist = objwmiservice.execquery _
("select * from win32_process where name = '"& image &"'")
for each objprocess in colprocesslist
objprocess.terminate()
next
end function
function checkprocess (image)
set checkprocess = getobject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
set runnigprocesslist = checkprocess.execquery _
("select * from win32_process where name = '" & image & "'")
checkprocess = runnigprocesslist.count
end function
-------------------------------------------------------------------------------------------------------------
아이콘이 클릭되면 처음 실행되는 파일입니다.
한컴사전이 실행중이면 종료하고 창제어합니다.
한컴사전이 실행중이지 않으면 한컴사전을 띄우고 창제어합니다.
ie_dic0.au3 내용
-------------------------------------------------------------------------------------------------------------
#NoTrayIcon
AutoItSetOption("WinTitleMatchMode", 4)
If @error Then
MsgBox(4096, "Error", "Could not find the correct window")
Else
WinMove("classname=IEFrame", "", 0, 0, 963, 995)
EndIf
-------------------------------------------------------------------------------------------------------------
창크기를 변경하는 오토잇파일입니다. 963, 995으로 창의 크기를 변경합니다.
ie_dic1.au3
-------------------------------------------------------------------------------------------------------------
#NoTrayIcon
AutoItSetOption("WinTitleMatchMode", 4)
If @error Then
MsgBox(4096, "Error", "Could not find the correct window")
Else
WinSetState("classname=IEFrame", "", @SW_RESTORE )
WinSetState("classname=IEFrame", "", @SW_MAXIMIZE )
EndIf
-------------------------------------------------------------------------------------------------------------
창크기를 변경하는 오토잇파일입니다. ie의 창을 최대화로 합니다.
hwpdic.vbs
-------------------------------------------------------------------------------------------------------------
set wshshell = createobject("wscript.shell")
wshshell.run "d:\program\hncdic\hwpdic.exe"
While WshShell.AppActivate("한글과컴퓨터 사전") = FALSE
WshShell.AppActivate "한글과컴퓨터 사전"
Wend
wshshell.run "d:\program\autoit\autoit3.exe d:\program\autoit~1\hwpdic.au3"
-------------------------------------------------------------------------------------------------------------
한컴사전을 띄우는 파일입니다. 한컴사전을 활성화하고 아래 오토잇파일을 실행합니다.
제 경우 한컴사전은 d:\program\hncdic\hwpdic.exe에 설치되어있습니다.
hwpdic0.au3
-------------------------------------------------------------------------------------------------------------
#NoTrayIcon
BlockInput(1)
Sleep(100)
Send("love")
Sleep(500)
MouseClick("left", 1253, 45, 1, 0)
MouseClick("left", 1105, 43, 2, 0)
MouseMove (208, 1011, 0)
BlockInput(0)
-------------------------------------------------------------------------------------------------------------
키보드 마우스 입력을 막고 한컴사전의 구질구질한 인터페이스를 정리하여 글자에 마우스 오버시 바로 검색될 수 있는 상태를 만듭니다.
1280, 1024해상도에서 ie는 최대화 한컴사전은 오른쪽 세로 100% 가로 (1280-963)의 크기의 환경입니다.
해상도가 다를 경우 위치를 조정해야 하는데 오토잇에 포함된 au3info.exe을 이용하시면 됩니다.
classname도 찾을 수 있습니다.
au3파일을 컴파일하여 exe로 쓰셔도 되지만 사용 중 수정시 귀찮습니다.
창 크기 제어하는 다른 유틸이 있겠지만 (찾아보진 않았습니다.) 활용도로 본다면 오토잇이 짱입니다.
그럼 성공하시길... | |
| |
| |
| |
| |
|
(