Skip to content
조회 수 16880 추천 수 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
번호 분류 제목 날짜 조회 수
86 회로도전자부품 Joule thief 회로(저전압 승압회로) file 2013.10.02 60863
85 AutoHotKey AHK) AUTOKEY 웹페이지 열지않고 소스 가져오기 또는 로그인 하기 14 2012.05.12 46271
84 AutoHotKey AHK) 보안프로그램 등으로 화면복사(Printscreen) 안될때 사용방법 1 12 file 2012.11.21 41106
83 AutoHotKey Ahk) 웹페이지 감시결과에 따라 마이피플로 글 전송하기 12 file 2013.01.06 37459
82 AutoHotKey Autohotkey) 화면보호기(ScreenSaver) On/Off 방법 17 2012.03.16 36007
81 Excel GET.CELL 매크로함수 응용 11 2012.07.16 33795
80 AutoHotKey Autohotkey) Find WM_COMMAND parameter with Winspector 17 2012.02.22 33143
79 AutoHotKey ahk) 오토핫키 콤보박스 제어하기 file 2013.10.30 31610
78 AutoHotKey autohotkey) Virus? 6 2011.12.31 31208
77 AutoHotKey ahk) autohotkey 엑셀(Excel)에서 행값 증가시키기 2013.10.30 28230
76 AutoHotKey ahk) autohotkey 글자 자르기 방법 2013.10.30 27386
75 AutoHotKey autohotkey) 30분마다 자동으로 디스크 정리하기 file 2013.07.31 26903
74 AutoHotKey autohotkey) 윈도우 ahk_id 추출하기 2 2012.03.06 26513
73 AutoHotKey autohotkey) 편입 변수 4 2012.03.13 25919
72 AutoHotKey autohotkey) postmessage mouse control 13 2012.02.22 25507
71 AutoHotKey autohotkey) 오토핫키에서 자주쓰는 함수모음 2013.10.30 25429
70 AutoHotKey ahk) 열려진 엑셀창의 값 불러오기 2013.10.30 24622
69 컴퓨터잡담 인터넷 익스플러러 속도 향샹을 위한 팁 1 file 2012.02.25 22815
68 AutoHotKey [COM] 자바스크립트 / DOM / HTML 웹페이지 컨트롤 3 2011.02.12 21797
67 컴퓨터잡담 Autohotkey DllCall() 호출하기 5 2010.12.19 21791
Board Pagination Prev 1 2 3 4 5 Next
/ 5

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


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

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

설치 취소