오토핫키 라이센스 인증 함수입니다.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
license_check(license,URL){
    /*
    함수 설명:라이센스 만료를 체크해주는 함수입니다.
    필요 함수:parsing_Fun()
    LINK:http://plorence.kr/
    return 0 일때 : 라이센스 기간이 남음
    return 1 일때 : 라이센스 기간이 만료
    return 2 일때 : 라이센스가 없음
    */
HTML_sour := parsing_Fun(URL,0,0)
ifinstring,HTML_sour,%license%
{
URL := "http://timecker.com/"
p := ComObjCreate("WinHttp.WinHttpRequest.5.1")
p.Open("GET","http://timecker.com/")
p.Send()
p.WaitForResponse()
a:=p.ResponseText
RegExMatch(a,"<span id=\Cyear\C>(.*?)</span>",year) ;년도 추출
RegExMatch(a,"<span id=\Cmonth\C>(.*?)</span>",month) ;월 추출
RegExMatch(a,"<span id=\Cday\C>(.*?)</span>",day) ;일 추출
thistime = %year1%%month1%%day1%
    RegExMatch(HTML_sour, license "-(.*?)day", day)
    result := day1 - thistime
    if(result > 0){
    return 0    
    }
    else{
    return 1
}
}
else{
return 2
}
}
 
parsing_Fun(URL,left,right){
/*
개발자:Plorence
함수 설명:웹 파싱과 정규식사용이 가능한 함수입니다.
정규식 사용을 안할거면 두 번째 인자와 세 번째 인자로 0을 전달하면됩니다.
LINK:http://plorence.kr/
*/
winhttp := ComObjCreate("Winhttp.WinHttpRequest.5.1")
winhttp.Open("Get",URL)
winhttp.Send()
Html_sour := winhttp.ResponseText
if (left = 0 && right = 0){ ;left,right 둘다 0일시 
return Html_sour
}
else{
RegExMatch(Html_sour,left "(.*?)" right,txt_str)
return txt_str1    
}
}
 
cs

위에는 함수입니다. parsing_Fun함수가없으면 license_check함수 사용을 못합니다.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
F1::
license = 135513522
a := license_check(license,"텍스트파일이 있는 URL")
msgbox,%a%
ExitApp
return
 
license_check(license,URL){
    /*
    함수 설명:라이센스 만료를 체크해주는 함수입니다.
    필요 함수:parsing_Fun()
    LINK:http://plorence.kr/
    return 0 일때 : 라이센스 기간이 남음
    return 1 일때 : 라이센스 기간이 만료
    return 2 일때 : 라이센스가 없음
    */
HTML_sour := parsing_Fun(URL,0,0)
ifinstring,HTML_sour,%license%
{
URL := "http://timecker.com/"
p := ComObjCreate("WinHttp.WinHttpRequest.5.1")
p.Open("GET","http://timecker.com/")
p.Send()
p.WaitForResponse()
a:=p.ResponseText
RegExMatch(a,"<span id=\Cyear\C>(.*?)</span>",year) ;년도 추출
RegExMatch(a,"<span id=\Cmonth\C>(.*?)</span>",month) ;월 추출
RegExMatch(a,"<span id=\Cday\C>(.*?)</span>",day) ;일 추출
thistime = %year1%%month1%%day1%
    RegExMatch(HTML_sour, license "-(.*?)day", day)
    result := day1 - thistime
    if(result > 0){
    return 0    
    }
    else{
    return 1
}
}
else{
return 2
}
}
 
parsing_Fun(URL,left,right){
/*
개발자:Plorence
함수 설명:웹 파싱과 정규식사용이 가능한 함수입니다.
정규식 사용을 안할거면 두 번째 인자와 세 번째 인자로 0을 전달하면됩니다.
LINK:http://plorence.kr/
*/
winhttp := ComObjCreate("Winhttp.WinHttpRequest.5.1")
winhttp.Open("Get",URL)
winhttp.Send()
Html_sour := winhttp.ResponseText
if (left = 0 && right = 0){ ;left,right 둘다 0일시 
return Html_sour
}
else{
RegExMatch(Html_sour,left "(.*?)" right,txt_str)
return txt_str1    
}
}
 
cs

위에는 예제입니다

아래의 압축파일을 풀어서 메모장에 나와있는 양식에 맞춰서 작성하시고 웹에 업로드하시면 됩니다.

라이센스 체크 함수.zip


댓글을 달아 주세요

  1. winz

    오토핫키 인증부분을 코드 라이센스방식으로 사용하고싶습니다..
    현재 라이센스인증방식을 잘사용중이지만 더간단하게 만들고싶다보니 코드라이센스를 하고싶은데
    조언 부탁드립니다 플로렌스님 ㅠㅠ