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
번호 분류 제목 날짜 조회 수
437 Server 특정범위 안의 모든 문자 수 찾기 3 2012.06.19 7587
436 Excel 한 셀에 있는 특정 문자의 갯수 구하기 3 2012.06.19 11221
435 컴퓨터잡담 dc모터 속도(speed)제어 드라이버 만들기 1 2 file 2012.06.19 15723
434 컴퓨터잡담 MCU(Micro Controller Unit) 모터제어 등 2 2012.06.19 6351
433 컴퓨터잡담 무선제어 각종제어 모터 기어 체인 등 3 2012.06.12 4006
432 컴퓨터잡담 IP 충돌 및 시간만료에 따른 방화벽 기능 활성화 방법 2 2012.06.04 4661
431 AutoHotKey autohotkey) 런처시스템 3 2012.05.30 14285
430 컴퓨터잡담 TCP/IP Winsock 복원방법(초기화) 2 file 2012.05.23 9717
429 WindowsTip 윈도우 문제 많을때 (레지스트리 초기화???) 2012.05.23 9633
428 WindowsTip 윈도우 Xp에서 사용자 로그온 제거 방법 1 2012.05.18 6292
427 컴퓨터잡담 부팅이 되지 않을 경우 조치방법 2012.05.14 4006
426 프로세스 불필요한 프로그램을 한번에 삭제하자 - PC Decrapifier 12 2012.05.14 14441
425 컴퓨터잡담 경량 태양광 충전기 2012.05.13 4185
424 AutoHotKey AHK) AUTOKEY 웹페이지 열지않고 소스 가져오기 또는 로그인 하기 14 2012.05.12 52944
423 Server XE Xpress Engine 사이트맵에서 메뉴추가시 저장 안되는 현상 2012.05.12 8255
422 컴퓨터잡담 윈도우 초기화하기 file 2012.05.09 4929
421 컴퓨터잡담 레지스트리파일을 배치파일로 변환하기 - WindowexeRegToBat 2 2012.05.09 4543
420 컴퓨터잡담 윈도우7 로그인 암호 및 비밀번호 초기화 방법 2012.05.03 23415
419 Excel 엑셀 주소참조 - Get.Cell(type_num, reference) 3 2012.04.23 14167
418 컴퓨터잡담 모바일 어플만들기 (안드로이드 전용) 2 2012.04.19 4749
Board Pagination Prev 1 ... 23 24 25 26 27 ... 46 Next
/ 46

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


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

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

설치 취소