카카오톡 런처 프로그램 (자동로그인 및 광고제거 원스톱 실행) (스크립트 파일은 다운받거나 메모장으로 옮겨 KakaoTalk.vbs 식으로 저장 후, 카톡 폴더로 옮기고 필요한 프로그램은 주석 참조하여 다운받은 뒤 실행)

KakaoTalk.vbs

Option Explicit
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
Dim objShell, scriptdir, rv
'이 자동화 프로그램은 카카오톡 경로 내에서 실행하는 게 기본값이므로, 카톡 폴더로 이동.
scriptdir = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
Set objShell = CreateObject("WScript.Shell")
rv = objShell.Run(DblQuote(scriptdir & "\KakaoTalk.exe"),1,False)
Set objShell = Nothing
'10초 기다린 후 프로그램 실행. 컴퓨터 사양에 맞춰 조절할 것 (1000 = 1초)
WScript.Sleep 10000
'http://honsal.tistory.com/m/98 접속 후 Release.zip 파일 다운로드 후 카톡 경로에 복사
Set objShell = CreateObject("WScript.Shell")
rv = objShell.Run(DblQuote(scriptdir & "\KakaoLoginCS.exe"),1,False)
Set objShell = Nothing
WScript.Sleep 5000
'http://blog.horyu.me/35 접속 후 링크주소 다운로드 후 카톡 경로에 복사
Set objShell = CreateObject("WScript.Shell")
rv = objShell.Run(DblQuote(scriptdir & "\KakaoTalkNoAdv.v1.0.0.exe"),1,False)
Set objShell = Nothing