Ahk) 웹페이지 감시결과에 따라 마이피플로 글 전송하기
응용분야 : 웹페이지의 특정내용이 있으면 마이피플로 알려줄 수 있다.
쇼핑몰에서 맘에 두고 있던 상품이 급세일을 진행한다거나 증권정보를 알려줄수도 있음. ㅋㅋ;;
#Persistent
#SingleInstance, Force
CoordMode, Screen
CoordMode, Tooltip
W:=A_ScreenWidth-200, H:=A_ScreenHeight-200
Gui, Add, ActiveX, w%W% h%H% vNav, Shell.Explorer
;Gui, Show, , "urin79.com" Ahk_L Test
Gui, hide
i=0
loop
{
sleep, 100000 ;10분마다 작동하게 설정(
Nav.Navigate("urin79.com") ; 우린친구블로그 열기
Sleep, 3000
test1 := Nav.document.documentElement.InnerHTML ;html 문서를 test1변수에 저장
test2 := Nav.document.documentElement.InnerText ;text 문서를 test1변수에 저장
Sleep, 2000
; 홈페이
IfNotInString, test2, 우린친구블로그 ; text 문서에 우린친구블로그라는 text가 없다면 변수 i의 값을 증가시킨다.
{
i:=i+1
}
if (i==3) ; i의 값이 3이 되면 서버가 다운됬다는 글을 마이피플로 전송시키고 i의 값은 다시 초기화 시킨다.
{
sendmessage_1()
i:=1
}s
}
;//////////////************ 글전송 문구 *************
sendmessage_1()
{
name1=김병화
msg1=서버가 다운되었습니다.
run, "C:\Program Files\Daum\MyPeople\MyPeople\MyPeople.exe"
WinActivate, Daum 마이피플 ahk_class ApolloRuntimeContentWindow
WinWaitActive, Daum 마이피플 ahk_class ApolloRuntimeContentWindow
sleep, 500
controlclick, x47 y128, Daum 마이피플 ahk_class ApolloRuntimeContentWindow
SendMessage, 0xC, 0, "New Notepad Title", , 마이피플 ahk_class ApolloRuntimeContentWindow
;controlsend, , 김벼, 마이피플 ahk_class ApolloRuntimeContentWindow
;controlsettext, ,
send, %name1%
sleep, 500
send, {enter}
sleep, 500
WinActivate, %name1% ahk_class ApolloRuntimeContentWindow
WinWaitActive, %name1% ahk_class ApolloRuntimeContentWindow
sleep, 500
send, ^v
sleep, 500
send, {enter}
}