AH Util_External PC

20200924 1757 

 

▶ modified for NY

App2Pwb(URL)
{
	For pwb in ComObjCreate("Shell.Application" ).Windows
	{
		If InStr(pwb.FullName,"iexplore.exe" ) && InStr(pwb.LocationURL, URL)
			Return pwb
	}
}
;Menu, Tray, icon, Shell32.dll
Menu, Tray, icon, accessibilitycpl.dll ; netshell.dll ;imageres.dll
zPath:="C:\Users\kcchang\Downloads\"

!m:: ;shift v

/*
Gui,Add,text,,Please select the type of file name
Gui,Add,Radio,vx1 checked, YYYYMMDD
Gui,add,radio,vx2,YYYYMMDD HHMM
Gui,add,button,gBtn,OK
gui,show,,Select option
return

Btn:
Gui,submit,nohide
zOpt:=x1*1+x2*2
gui,hide

WinActivate, "Select option"
gui,destroy
*/
zOpt:=2

ToolTip,★process`nstart,0,0
zUrl:="https://mail.kdb.co.kr/mail/mainframe"
web:=app2pwb(zUrl)
web.visible:=True

/*
btn:=web.document.getElementById("ext-gen286") ;this differs depending on who's pc
MsgBox,% btn.innerText
ToolTip,★process`next-gen286
if (btn="") {
	btn:=web.document.getElementById("ext-gen263")
	ToolTip,★process`next-gen263
}
*/
cls:=web.document.getElementsByClassName("x-btn-text")
loop,% cls.length
{
	;if(cls[A_Index-1].innerText="PC에 저장") {
	if(cls[A_Index-1].innerText="Save to PC") {	
		zID:=cls[A_Index-1].id
		break
	}
}
ToolTip,★process`nDI is %zID%,0,0
btn:=web.document.getElementById(zID) ;this differs depending on who's pc


/*
;zTmp:=web.document.getElementsByClassName("x-btn-text")
;zTmp:=web.document.getElementsByTagName("button")
;zTmp:=web.document.getElementsByTagName("table")
;zTmp:=web.document.getElementsByTagName("td")
;MsgBox,% zTmp.length
;zFlag:=FALSE
loop,% zTmp.length
{
	zStr:=xTmp[A_Index-1].rows	
	MsgBox,% zTmp.length ", " a_index ", " zStr
	if InStr(xTmp[A_Index-1].innerText,"PC에 저장") {
		btn:=xTmp[A_Index-1]
		;zFlag:=TRUE
		break
	}	
}
;MsgBox,% zFlag
if (btn="") {
	Msgbox, cannot find button will exit app
	exitApp
}
*/

btn.click()
sleep,1000
;send,{Alt}n
;send,+n
send,{Alt down}n{Alt up}
sleep,500
send,{tab}
sleep,500
send,{down}
sleep,500
send,a
sleep,500

;WinWait, 다른 이름으로 저장
WinWait, Save As
sleep,500
Clipboard:=	""
send,^a
sleep,500
send,^c
send,^x
sleep,500
ClipWait,1
zY:=SubStr(clipboard,2,4)
zM:=SubStr(clipboard,7,2)
zD:=SubStr(clipboard,10,2)
zH:=SubStr(clipboard,13,2)
zMin:=SubStr(clipboard,16,2)
zTitle:=SubStr(clipboard,19,100)
Clipboard:=zY zM zD "_" zTitle
if(zOpt=2)
	Clipboard:=zY zM zD " " zH zMin "_외메," zTitle
ClipWait,1


send,^v	
sleep,500
send,{Enter}


ToolTip
return



::\semo::△
::\nemo::□
::\one::○
::\star::★
::\heart::♥
::\finger::☞
::\chamgo::※
::\>::▶
::\=>::⇒
::\->::→
::\up::↑
::\down::↓
::\<-::←
::\since::∵
::\thus::∴
::\inf::∞
::\1::①
::\2::②
::\3::③
::\4::④
::\5::⑤
::\6::⑥
::\7::⑦
::\8::⑧
::\9::⑨
::\alpha::α
::\beta::β
::\gamma::γ
::\theta::θ
::\delta::δ
::\epsilon::ε
::\lambda::λ
::\mu::μ
::\times::×


::\\\\::
zTmp:=Clipboard
Clipboard = ""
Clipboard = %zPath%
send, ^v
sleep,500
;send,% zPath
Clipboard = ""
Clipboard = %zTmp%

return

::0000::
zTimestamp :=  A_year A_Mon A_DD " " A_Hour A_Min ; A_Sec
zSpace:=Chr(32) ;space
send, %zTimestamp%%zSpace%
return

ExitApp
^ESC::ExitApp