Ahk) 웹페이지 감시결과에 따라 마이피플로 글 전송하기

 

응용분야 : 웹페이지의 특정내용이 있으면 마이피플로 알려줄 수 있다.

                    쇼핑몰에서 맘에 두고 있던 상품이 급세일을 진행한다거나 증권정보를 알려줄수도 있음. ㅋㅋ;;

 

 

마이피플 글전송.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}
 }