본문 바로가기
Programming/AutoHotKey

[ahk] packtpub.com 에서 제공하는 무료 ebook을 받기 위한 프로그램

by NAMP 2016. 5. 22.

packtpub.com 에서 제공하는 무료 ebook을 받기 위한 프로그램
스케쥴러로 매일 동작하도록 설정 필요.

id.txt, pw.txt 에 각각 아이디와 비밀번호를 입력하여, 같은 폴더에 위치하도록 함. 실행파일 을 실행하면, Internet Explorer가 실행되어, 지정한 주소로 접속함.

전체 소스

#NoEnv
#SingleInstance force
SendMode Input
SetWorkingDir %A_ScriptDir% 

FileRead, Loginname, id.txt
FileRead, Password, pw.txt
Loginname := Trim(Loginname)
Password := Trim(Password)

URL = https://www.packtpub.com/packt/offers/free-learning#

WB := ComObjCreate("InternetExplorer.Application")
WB.Visible := True
WB.Navigate(URL)
While wb.readyState != 4 || wb.document.readyState != "complete" || wb.busy ; wait for the page to load
   Sleep, 10
wb.document.getElementById("email").value := Loginname
wb.document.getElementById("password").value := Password
wb.document.getElementById("edit-submit-1").click()
While wb.readyState != 4 || wb.document.readyState != "complete" || wb.busy ; wait for the page to load
   Sleep, 10

wb.document.querySelector("input[value^=""Claim Your Free eBook""]").click()

출처


댓글