고클린 스폰서 광고 제거 프로그램 :: GCADE

 예전엔 성능 낮은 컴퓨터를 사용하다보니 고클린을 자주 사용했지만, 요새는 굳이 사용해야한다는 생각이 들지않는 고사양의 컴퓨터를 이용하기 때문에 잊혀져 있었는데, 생각나서 만들어봤습니다.

---

1. GCADE

 고클린을 실행해 작업을 진행한 후 프로그램을 종료하면 아래와 같은 스폰서 팝업 광고 창이 뜹니다.

 프로그램을 만들어주니 고맙긴 한데, 이용자 입장에서는 불편하기 짝이 없습니다. 그래서 얘 좀 없애자 하는 마음에서 탐색해보니 레지스트리를 통해 체크를 하더군요. 그래서 레지스트리를 수정해 팝업 광고를 제거하는 프로그램을 만들어봤습니다.

---

2. 다운로드

GCADE.zip

---

3. 사용법

 프로그램을 실행한 후, "Y^[각주:1]"를 입력합니다.

 프로그램이 종료되면 정상적으로 완료되었습니다. 갑자기 꺼지더래도 걱정하지마세요. 간단한 작업이라서 굳이 보여주려고 느리게 만들기가 귀찮아서 바로 닫히게 만들었을 뿐입니다.

---

4. 소스코드

 혹시라도 프로그램을 못믿으시겠다면, 소스코드를 이용해 직접 만들어 사용하셔도 됩니다. 다만, 배포는 안됩니다!

    Const Loc As String = "HKEY_CURRENT_USER\Software\GoClean\GoClean\GoClean"

    Sub printf(ByVal str As String, Optional ByVal newLine As Boolean = True)
        If newLine Then
            Console.WriteLine(str)
        Else
            Console.Write(str)
        End If
    End Sub

    Sub Main()
        Console.Title = $"{My.Application.Info.Title} - 고클린 팝업 제거 | http://pang2h.tistory.com/"

        printf($"GoClean의 팝업 광고가 나오지 않게 하는 프로그램입니다.")
        printf($"고클린의 팝업 광고를 제거하려면 Y를, 그냥 종료하려면 N을 입력하세요.")
        printf($"")
        printf($"팝업 광고 해제( Y / N ) : ", False)
        Dim sign As String = Console.In.ReadLine()
        Select Case (sign.ElementAt(0))
            Case "Y", "y"
                My.Computer.Registry.SetValue(Loc, "RecentPopupTime", $"{Now.Year + 100} {Format(Now.Month, "00").ToString} {Now.Day} 00")
                '위 코드가 가장 중요한 코드입니다!
                printf($"팝업 광고를 해제했습니다.")
            Case Else
                printf("취소했습니다.")

        End Select

        printf($"프로그램을 종료합니다.")
    End Sub

 근래 들어서는 C 언어를 자주 하다보니 VB.Net의 콘솔 입력하는게 귀찮아서(길잖아요..ㅎㅎ) C언어 표준 출력 함수와 이름을 같이 했네요!

 간단한 코드라서 따로 주석을 달진 않습니다. 레지스트리를 수정하는 코드 저 위 한줄만 있어요!

1. 대소문자 구분 없음 [본문으로]