Skip to content
조회 수 22494 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

[ahk_l] 구글의 Gmail 자동로그인 소스

참고주소 : http://www.autohotkey.com/forum/topic34972.html


https://www.google.com/accounts/Login?continue=http://www.google.com/&hl=en

주소의 소스의 form의 input에 



<input  type="text" name="Email"  id="Email"  size="18" value="myName"  class='gaia le val'  />


<input  type="password" name="Passwd" id="Passwd" size="18"  class="gaia le val" />


gUser값과 gPass의 값을 email과 passwd에 대입시킨다.


자료 전송 후 완료되면 http://mail.google.com 로 리디렉션 한다.



gUser:="이메일"

gPass:="비밀번호"

COM_Init()

pwb := COM_CreateObject("InternetExplorer.Application")

COM_Invoke(pwb , "Visible=", "True") ;"False" ;"True" ;

url:="https://www.google.com/accounts/Login?continue=http://www.google.com/&hl=en"

COM_Invoke(pwb, "Navigate", url GETdata)

loop

      If (rdy:=COM_Invoke(pwb,"readyState") = 4)

         break

; but tank how did you get the form element names

; remember the query string?

; the part before the = sign is the feild name :)

;i only care about the ones the user will interact with not the hidden ones

COM_Invoke(Email:=COM_Invoke(all:=COM_Invoke(doc:=COM_Invoke(pwb,"Document"),"All"),"Item","Email"),"value",gUser)

; Now i already declared a document and an all collection no need to repeat that process now

COM_Invoke(Passwd:=COM_Invoke(all,"Item","Passwd"),"value",gPass)

COM_Invoke(signIn:=COM_Invoke(all,"Item","signIn"),"Click")

sleep 500

loop

      If (rdy:=COM_Invoke(pwb,"readyState") = 4)

         break

COM_Invoke(pwb, "Navigate", "http://mail.google.com/")

COM_Release(signIn),COM_Release(Passwd),COM_Release(Email),COM_Release(all),COM_Release(doc),COM_Release(pwb)

COM_Term()




참고주소 : http://www.autohotkey.com/forum/topic58841.html


html 소스 중  type과 class부분이 일치하는 곳을 클릭할 경우,


<input type="submit" index="3" value=" " class="loginButton" />



Loop %   COM_Invoke(pwb,"document.all.tags[input].length") {
   if   (COM_Invoke(pwb,"document.all.tags[input].item[" A_Index-1 "].type")="submit")
    &&   (COM_Invoke(pwb,"document.all.tags[input].item[" A_Index-1 "].className")="loginButton") {
      COM_Invoke(pwb,"document.all.tags[input].item[" A_Index-1 "].click")
      break
   }
}











로그인 후 댓글쓰기가 가능합니다.

?

List of Articles
번호 분류 제목 날짜 조회 수
22 AutoHotKey autohotkey) 화면보호기, 바탕화면 control 창 열기 3 2012.03.17 8364
21 AutoHotKey autohotkey) 스크린세이버 활성화 / 비활성화 시키기. 2012.03.17 8035
20 AutoHotKey AHK) AUTOKEY 웹페이지 열지않고 소스 가져오기 또는 로그인 하기 14 2012.05.12 52958
19 AutoHotKey autohotkey) 런처시스템 3 2012.05.30 14286
18 AutoHotKey Autohotkey) EditPlus에 구문 색깔 입히기 3 file 2012.08.23 10811
17 AutoHotKey AHK) 보안프로그램 등으로 화면복사(Printscreen) 안될때 사용방법 1 12 file 2012.11.21 47168
16 AutoHotKey autohotkey) 파일리스트 가져오기 3 2012.11.26 14986
15 AutoHotKey Ahk) 웹페이지 감시결과에 따라 마이피플로 글 전송하기 12 file 2013.01.06 44024
14 AutoHotKey autohotkey)매월 1일의 요일 구하기 1 2013.01.27 15265
13 AutoHotKey Autohotkey + mypeople(마이피플) 메시지 전송 1 2013.03.12 15432
12 AutoHotKey autohotkey) 30분마다 자동으로 디스크 정리하기 file 2013.07.31 33071
11 AutoHotKey ahk) 열려진 엑셀창의 값 불러오기 1 2013.10.30 32533
10 AutoHotKey ahk) autohotkey 글자 자르기 방법 2013.10.30 34676
9 AutoHotKey ahk) autohotkey 엑셀(Excel)에서 행값 증가시키기 2013.10.30 37421
8 AutoHotKey autohotkey) 오토핫키에서 자주쓰는 함수모음 2013.10.30 33700
7 AutoHotKey ahk) 오토핫키 콤보박스 제어하기 file 2013.10.30 38182
6 AutoHotKey 엑셀 셀 복사하기(복사제한된 엑셀등) 1 file 2014.04.01 7804
5 AutoHotKey ahk) autohotkey controlgettext 이름을 마우스커서에 졸졸 따라다니게 하기 file 2014.04.01 12207
4 AutoHotKey Autohotkey 브라우저 제어 테스트 file 2015.01.26 8205
3 AutoHotKey ahk) Send an email 메일발송하기 2018.01.17 9416
Board Pagination Prev 1 2 3 4 5 Next
/ 5

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소