플라님 공개하신 소스

#RequireAdmin
#NoTrayIcon
#include <IE.au3>
Dim $var
Dim $info

$GUI = GUICreate("프리서버", 300, 200, @DesktopWidth * (1 / 3), @DesktopHeight * (1 / 3))
GUISetBkColor(0x000000, $gui)
GUISetFont(11, 400, 0, "dotum")

GUICtrlSetColor(-1,0xff0000)
GUISetState(@SW_SHOW, $GUI)

HotKeySet ( '^!x', "ExitScript" )

$Button1 = GUICtrlCreateButton("본섭으로 접속", 5, 70, 145, 30)
$Button2 = GUICtrlCreateButton("프리서버 접속", 150, 70, 145, 30)
$Button3 = GUICtrlCreateButton("Cache(캐쉬) 삭제하기", 5, 101, 290, 30)
$Button4 = GUICtrlCreateButton("프리서버 카페", 5, 39, 290, 30)
$Button5 = GUICtrlCreateButton("종료하기", 5, 150, 290, 30)
$info = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\", "ProductName")
If $info = "Microsoft Windows XP" Then
 $var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft\", "InstallPath")
 ;MsgBox(0, $info, $var)
ElseIf $info = "Windows Vista (TM) Ultimate" Then
    $var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Blizzard Entertainment\World of Warcraft\", "InstallPath")
 ;MsgBox(0, $info, $var)
Else
 $var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft\", "InstallPath")
EndIf
;MsgBox(0, $var & "realmlist.wtf", $var & "realmlist.wtf")
;$file = FileOpen($var & "realmlist.wtf", 0)
;MsgBox(0, $var & "realmlist.wtf", $var & "realmlist.wtf")
 If Not FileExists($var & "\wow.exe") Then
  MsgBox(0, "에러", "미안합니다, 본 PC에서 와우의 정확한 경로를" & @CRLF & "못찾았습니다. 수동으로 렐름을 수정하여" & @CRLF & "이용하시길 바랍니다.-_-;")
  Exit
 EndIf
 FileClose($var & "realmlist.wtf")
 FileDelete($var & "realmlist.wtf")
While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $Button1
   FileOpen($var & "realmlist.wtf", 1)
   FileWrite($var & "realmlist.wtf", "set realmlist kr.logon.worldofwarcraft.com"  & @CRLF)
   FileWrite($var & "realmlist.wtf", "set patchlist kr.version.worldofwarcraft.com" & @CRLF)
   FileClose($var & "realmlist.wtf")
   Run($var & "\Wow.exe", "")
   Exit
  Case $Button2
  
   FileOpen($var & "realmlist.wtf", 1)  
   FileWrite($var & "realmlist.wtf", "프리서버 렐름주소 입력해주세요" & @CRLF)
   FileClose($var & "realmlist.wtf") 
   Run($var & "Wow.exe", "")
   Exit
  Case $Button3
   Filedelete($var & "Cache\WDB\koKR\*.*")
   MsgBox(0, "Cache(캐쉬) 폴더", "Cache(캐쉬) 폴더가 깨끗이 삭제되었습니다.^^")
  Case $Button4
   $oIE = _IECreate ("about:blank")
   _IENavigate ($oIE, "카페 주소입력해주세요.")
  Case $Button5
   ExitScript()
 EndSwitch
WEnd

Func _MinTray()
GuiSetState(@SW_HIDE)
TraySetState(1)
EndFunc

Func RestoreTray()
GuiSetState(@SW_SHOW)
GuiSetState(@SW_RESTORE)
TraySetState(2)
EndFunc

Func ExitScript()
    Exit
EndFunc

이건 비주얼베이직일까요? 울트라일까요? 너무너무 궁금합니다.

뭔가 접속기인듯한데..

짧은 댓글이라도 기다립니다.