Skip to content
조회 수 19132 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄 첨부
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄 첨부


autohotkey) IPv6 모두 사용안함 설정하기

복구유틸.exe

IPv6사용안함.exe



#NoTrayIcon ;트레이 아이콘 숨기기

;http://urin79.com/index.php?mid=blog&search_keyword=%EB%A0%88%EC%A7%80%EC%8A%A4&search_target=title_content&page=2&document_srl=541864



;레지스터리에 tcpip6 IPv6 사용여부에 [사용안함]이 이미 설정되어 있으면 설정패스하고 없으면 검사

RegRead, OutputVar, HKEY_LOCAL_MACHINE, SYSTEM\CurrentControlSet\Services\tcpip6\Parameters, DisabledComponents

if(OutputVar)

{


;레지스터리에 tcpip6이 있으면 레지스터리에 값을 기록하고 아니면 종료.

Loop,HKLM,SYSTEM\CurrentControlSet\Services\tcpip6,1,0 

RegRead,Val 

if(Val)

{

;msgbox,%A_LoopRegName%`n%Val% 

RegWrite, REG_DWORD, HKEY_LOCAL_MACHINE, SYSTEM\CurrentControlSet\Services\tcpip6\Parameters, DisabledComponents, 1

msgbox, tcpip6의 IPv6 기능을 모두 사용안함으로 설정 완료하였습니다.`n만약 6to4 등의 어뎁터를 제거하시려면 장치관리자에서 삭제하시기 바랍니다.

run, devmgmt.msc

break

}

}





 main:

{

   Gosub,init

   url:="http://naver.com"

   WB.Navigate(url)

   loop

      If !WB.busy

         break


sleep, 2000

   url:="http://search.naver.com/search.naver?sm=tab_hty.top&where=nexearch&ie=utf8&query=%EC%9C%A0%EB%A8%B8&x=0&y=0"

   WB.Navigate(url)

   loop

      If !WB.busy

         break


sleep, 2000

   url:="http://search.naver.com/search.naver?sm=tab_hty.top&where=nexearch&ie=utf8&query=%EA%B0%9C%EA%B7%B8%EC%9D%B4%EC%95%BC%EA%B8%B0&x=0&y=0"

   WB.Navigate(url)

   loop

      If !WB.busy

         break


;종료

   exitapp

   return

}


init:

{

;; housekeeping routines

;; set the tear down procedure

OnExit,terminate


;; Create a gui

Gui, +LastFound +Resize +OwnDialogs


;; create an instance of Internet Explorer_Server

;; store the iwebbrowser2 interface pointer as *WB* & the hwnd as *ATLWinHWND*

Gui, Add, ActiveX, w510 h600 x0 y0 vWB hwndATLWinHWND, Shell.Explorer


;; disable annoying script errors from the page

WB.silent := true


;; necesary to accept enter and accelorator keys

;http://msdn.microsoft.com/en-us/library/microsoft.visualstudio.ole.interop.ioleinplaceactiveobject(VS.80).aspx

IOleInPlaceActiveObject_Interface:="{00000117-0000-0000-C000-000000000046}"


;; necesary to accept enter and accelorator keys

;; get the in place interface pointer

pipa := ComObjQuery(WB, IOleInPlaceActiveObject_Interface)


;; necesary to accept enter and accelorator keys

;; capture key messages

OnMessage(WM_KEYDOWN:=0x0100, "WM_KEYDOWN")

OnMessage(WM_KEYUP:=0x0101, "WM_KEYDOWN")


;;Display the GUI - 화면 크기에 맞춰 출력

;;이부분을 ";" 주석처리 해버리면 화면 상으로는 출력 안되고 조용히 혼자 실행됨.

;   gui,show, w110 h60 ,인터넷 속도증가 프로그램

  

;; return and allow the program

return

}


;; capture the gui resize event

GuiSize:

{

;; if there is a resize event lets resize the browser

WinMove, % "ahk_id " . ATLWinHWND, , 0,0, A_GuiWidth, A_GuiHeight

return

}


GuiClose:

terminate:

{

;; housekeeping

;; destroy the gui

Gui, Destroy

;; release the in place interface pointer

ObjRelease(pipa)

ExitApp

}




WM_KEYDOWN(wParam, lParam, nMsg, hWnd)

{

  global pipa

  static keys:={9:"tab", 13:"enter", 46:"delete", 38:"up", 40:"down"}

  if keys.HasKey(wParam)

  {

     WinGetClass, ClassName, ahk_id %hWnd%

     if  (ClassName = "Internet Explorer_Server")

     {

; Build MSG Structure

VarSetCapacity(Msg, 7*A_PtrSize)

for i,val in [hWnd, nMsg, wParam, lParam, A_EventInfo, A_GuiX, A_GuiY]

   NumPut(val, Msg, (i-1)*A_PtrSize)

; Call Translate Accelerator Method

TranslateAccelerator := NumGet(NumGet(1*pipa)+5*A_PtrSize)

DllCall(TranslateAccelerator, "Ptr",pipa, "Ptr",&Msg)

return, 0

     }

  }

}

로그인 후 댓글쓰기가 가능합니다.

?

List of Articles
번호 분류 제목 날짜 조회 수
66 Excel GET.CELL 매크로함수 응용 11 2012.07.16 40172
65 AutoHotKey AHK) AUTOKEY 웹페이지 열지않고 소스 가져오기 또는 로그인 하기 14 2012.05.12 52944
64 AutoHotKey Autohotkey) 화면보호기(ScreenSaver) On/Off 방법 17 2012.03.16 40671
63 AutoHotKey autohotkey) 편입 변수 4 2012.03.13 28886
62 AutoHotKey autohotkey) 윈도우 ahk_id 추출하기 2 2012.03.06 30088
61 컴퓨터잡담 인터넷 익스플러러 속도 향샹을 위한 팁 1 file 2012.02.25 24571
60 AutoHotKey autohotkey) postmessage mouse control 13 2012.02.22 28627
59 AutoHotKey Autohotkey) Find WM_COMMAND parameter with Winspector 17 2012.02.22 35863
58 AutoHotKey autohotkey) 네 코드를 보여, 내가 당신에게서 배우고 싶어요 1 2012.01.08 15113
57 AutoHotKey autohotkey) Virus? 6 2011.12.31 34677
56 AutoHotKey autohotkey) 핑테스트 프로그램 1 file 2011.12.31 18950
55 AutoHotKey autohotkey) Mutex에 대해서 1 4 2011.12.31 24065
» AutoHotKey autohotkey) IPv6 모두 사용안함 설정하기 1 file 2011.12.30 19132
53 AutoHotKey Ahk) ip할당 진단프로그램 file 2011.12.26 12118
52 AutoHotKey autohotkey) 맥어드레스 추출 2 2011.12.21 15056
51 컴퓨터잡담 IE 훅킹 혹은 가로채기. 강좌 2 2011.12.17 14604
50 AutoHotKey 부팅완료 메시지 프로그램 file 2011.12.17 12719
49 AutoHotKey autohotkey) 웹페이지의 프레임 내용보기 & 클릭하기 2011.11.29 15123
48 컴퓨터잡담 AHK & my Address of Pointer and my Offset 2011.10.11 13160
47 컴퓨터잡담 Ahk Standard Library Collection, 2010 Sep (+Gui) ~ Libs: 100 3 2011.10.11 14189
Board Pagination Prev 1 2 3 4 5 Next
/ 5

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소