묻고답하기
이건 무엇으로 만든걸까요? (소스공개)
2009.04.17 10:29
플라님 공개하신 소스
#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
이건 비주얼베이직일까요? 울트라일까요? 너무너무 궁금합니다.
뭔가 접속기인듯한데..
짧은 댓글이라도 기다립니다.
글쓴이 | 제목 | 최종 글 |
---|---|---|
XE | 공지 글 쓰기,삭제 운영방식 변경 공지 [16] | 2019.03.05 by 남기남 |
CHOBOS | 첨부파일을 다운로드못하게 하려면 어찌해야하나요? [1] | 2009.04.18 by So_BLuE |
쎄바스찬 | 제로보드와 내 도메인 연결 [1] | 2009.04.18 by So_BLuE |
아이고참 | 위젯스타일에서 제목에 관해 [1] | 2009.04.18 by 아이고참 |
수 | 최신문서 위젯 리스트 색상 오류.. [3] | 2009.04.18 by 수 |
COSMO | 첨부파일 안보이게 하는법 알려주세요 ! [5] | 2009.04.18 by CHOBOS |
Frot |
기존 게시판에서 카페(가상사이트)로 게시물 이동시 에러
[2]
![]() | 2009.04.18 by Frot |
바리바리봉 | 제로보드xe DB백업한후 다른 서버에 DB복구기... ㅠ.ㅠ [1] | 2009.04.18 by 애니맥스 |
박철수555 | 메인에 갤러리 썸네일... | |
k0su |
[급] 집나간 ''파일'' 을 찾습니다
[5]
![]() | 2009.04.17 by k0su |
KRB | XE 초기화 질문 [1] | 2009.04.17 by narawiz |
아담하와 | 이건 무엇으로 만든걸까요? (소스공개) [2] | 2009.04.17 by 아담하와 |
RainSky |
SCM 로그관리 페이지만 접속이 안 되고 있습니다.
[13]
![]() | 2009.04.17 by RainSky |
세르 |
회원 아이디 클릭시 나오는 부속 메뉴를 없애고 싶습니다.
![]() | |
세르 | 간단 덧글 오른쪽 아래 세부 메뉴를 없애고 싶습니다. [2] | 2009.04.17 by 세르 |
기다림 |
로그인 인포에서요...
[4]
![]() | 2009.04.17 by 기다림 |
루냐 | 게시판 질문 드립니다. | |
wheezing | 가입시 포인트적용 및 가입인증메일이 이상해요;;; [2] | 2009.04.17 by 파라805 |
지우개님 |
로그인시 에러.. 홈페이지 접속시 잘 접속이 안됨.. 이런 화면 나옴
![]() | |
궁금혀~유~ |
에러 메시지의 의미를 모르겠습니다.
![]() | |
김일남811 | 질문입니다 [2] | 2009.04.17 by 비나무 |
autoit 으로 검색해보세요.