Skip to content
AutoHotKey
2011.12.31 08:32

autohotkey) 핑테스트 프로그램

조회 수 18035 추천 수 0 댓글 1
?

단축키

Prev이전 문서

Next다음 문서

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

단축키

Prev이전 문서

Next다음 문서

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



핑테스트-text입력금지3.exe

핑테스트 및 c:\pingtest.txt 에 파일을 기록합니다.

핑로스는 c:\pingloss.txt에 파일을 기록합니다.


핑테스트-text입력금지-창안나오게하는거2.exe

핑로스만 c:\pingloss.txt에 파일을 기록합니다.

핑로스 발생시 ip 갱신여부를 확인하여 원인에 대한 메시지를 출력합니다.


#noTrayicon


;#IfWinActive, 핑테스트 ahk_class AutoHotkeyGUI

;{

;BlockInput, On

;}


;MsgBox % GetOSVersion() 

ver= % GetOSVersion() 

GetOSVersion() 

VarSetCapacity(v,148), NumPut(148,v) 

DllCall("GetVersionEx", "uint", &v) 

OSVer:=NumGet(v,4)NumGet(v,8) 

OSName:= OSVer=61 ? "Windows 7" 

:(OSVer=60 ? "Windows Vista" 

:(OSVer=52 ? "Windows XP 64-Bit Edition" 

:(OSVer=51 ? "Windows XP" 

:(OSVer=50 ? "Windows 2000" 

:"Unknown")))) 

return OSName 

}

;msgbox, 바보


; ******************* 추가적인 내용이 필요한 부분

; * IP / 

; 1. 키보드 후킹 기능을 이용하여 Edit 입력란에 키보드 입력을 막는다.

; 2. 적절한 컬러를 넣는다.

; 3. 시작시 IP할당과 오류만 수집, 정상만 수집, 모두 수집의 옵션 설정을 추가한다.

; ******************* 이정도 기능적인 부분이 추가된다면 괜찮겠죠?



ip=%1%

StringLen, OutputVar, ip

;msgbox, %ip%

if ip<1

{

ip=164.124.101.2

; msgbox, 없다? %ip%

}

if ip>1

{

; msgbox, 있다? %ip%

}

;msgbox, %ip%



Gui, Add, Edit, x6 y40 w510 h350 readonly, 

;Gui, Add, Text, x6 y10 cBlue IP1, 로컬IP : %A_IPAddress1%

;Gui, Add, Text, x160 y10 cBlue IP2, 대상Ping : %ip%

;Gui, Add, Text, x320 y10 cBlue IP3, 저장위치 : C:\pingTest.txt

;Gui, Add, Text, x320 y25 cBlue IP3, 오류위치 : C:\pingloss.txt

Gui, Add, Text, x6 y10 cBlue, 로컬IP : %A_IPAddress1%

Gui, Add, Text, x160 y10 cBlue, 대상Ping : %ip%

Gui, Add, Text, x320 y10 cBlue, 저장위치 : C:\pingTest.txt

Gui, Add, Text, x320 y25 cBlue, 오류위치 : C:\pingloss.txt

Gui, Show, x398 y110 h400 w520, 핑테스트



loop

{

sleep, 2000

runwait, %comspec% /c "%systemroot%\system32\ping %ip% -n 1 > C:\Ping.txt",, hide

;FileRead, ping, C:\ping.txt

if (ver="Windows 7") or (ver="Windows Vista")

{

FileReadLine, ping, C:\ping.txt, 3

}

if (ver="Windows XP") or (ver="Windows XP 64-Bit Edition") or (ver="Windows 2000") or (ver="Unknown")

{

FileReadLine, ping, C:\ping.txt, 7

}


filedelete, C:\ping.txt

Ifinstring, Ping, Request

{


; pingline3=%pingline2%

; pingline2=%pingline1%

pingline1=%pingline%



if pingline3

{

pinglines=%pingline3%`n

}


if pingline2

{

pinglines=%pingline2%`n

}


if pingline1

{

pinglines=%pingline1%`n

}


pingline=%pinglines%%A_Mon%월 %A_MDay%일 %A_Hour%시 %A_Min%분 %A_Sec%초 Request TimeOut. 점검요망.

GuiControl, Text, Edit1, % pingline

FileAppend, %pingline%`n, C:\pingTest.txt

FileAppend, %pingline%`n, C:\pingloss.txt

; return

}


else

{

stringgetpos, pos1, ping, time

stringtrimleft, TTL, ping, %pos1%

stringgetpos, pos2, TTL, TTL

StringLeft, Time, TTL, %pos2%

Stringtrimleft, TTL, TTL, %pos2%

Stringtrimright, time, time, 1


timenum:=RegExReplace(time,"[^0-9]") 

if timenum=1

{


; pingline3=%pingline2%

; pingline2=%pingline1%

pingline1=%pingline%



if pingline3

{

pinglines=%pingline3%`n

}


if pingline2

{

pinglines=%pingline2%`n

}


if pingline1

{

pinglines=%pingline1%`n

}


pingline=%pinglines%%A_Mon%월 %A_MDay%일 %A_Hour%시 %A_Min%분 %A_Sec%초 자신의 컴퓨터 입니다.

GuiControl, Text, Edit1, % pingline

FileAppend, %pingline%`n, C:\pingTest.txt

}


else

{

; pingline3=%pingline2%

; pingline2=%pingline1%

pingline1=%pingline%



if pingline3

{

pinglines=%pingline3%`n

}


if pingline2

{

pinglines=%pingline2%`n

}


if pingline1

{

pinglines=%pingline1%`n

}



pingline=%pinglines%%A_Mon%월 %A_MDay%일 %A_Hour%시 %A_Min%분 %A_Sec%초 [ %ping% ]

SendMessage, 0x0C, 0, &pingline, Edit1, %A%

GuiControl, Text, Edit1, % pingline

FileAppend, %pingline%`n, C:\pingTest.txt

}

}


}


IP:

return


^R::

reload

return


GuiClose:

ExitApp

return


^X::

ExitApp

return


^#!`::

Winhide, 핑테스트 ahk_class AutoHotkeyGUI

return


^#!1::

Winshow, 핑테스트 ahk_class AutoHotkeyGUI

return



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

?
  • ?
    ㅎㅎ 2012.01.18 04:05

    164.124.101.2 파워콤껀데 KT껄로 IP전환할수잇거나 바꿔주실수있나요?????

     


List of Articles
번호 분류 제목 날짜 조회 수
144 Server [php.ini]XE 신디케이션 OpenSSL 오류문구 해결방법 file 2016.08.25 2529
143 WindowsTip Visual Studio 2015용 Visual C++ 재배포 설치 오류 해결방법 3 file 2016.09.06 13615
142 WindowsTip vcruntime140.dll / vcomp140.dll / vcamp140.dll 오류해결법 2016.09.06 5824
141 Server Apache에 대한 mod_proxy 지원 구성 2016.09.06 1413
140 Server XE Request 줄이기 file 2016.09.07 1668
139 Server XE PC에서 모바일화면 출력방법 file 2016.09.08 2551
138 Server jQuery CDN 2016.09.11 3492
137 Excel 엑셀 암호변경 제거 방법 file 2016.09.12 5392
136 Server 윈도우용 MEMcached 설치방법 1 file 2016.09.17 4051
135 Server XpressEngine 최적화 기진곰님의 슈퍼캐시 테스트 file 2016.09.19 4141
134 Server HP XW6600 E5430 SPEC file 2016.11.06 3873
133 Server 슈퍼캐시에서 .htaccess 이부분 제거해야 하나? 2016.11.23 3614
132 Server [mysql] Created tmp disk tables 디스크 쓰기방지 대안 1 2016.11.26 3944
131 Server 램드라이브를 이용한 mysql 번개속도로 개선방법 file 2016.11.27 4187
130 Server Minify로 CSS, JS파일, gzip으로 한꺼번에 압축해서 전송하기 file 2016.11.27 3402
129 컴퓨터잡담 크롬 캐시파일 삭제방법(Chrome cache file delete) file 2016.11.27 2425
128 Server 웹서버에서의 램디스크 엄청난 효과 비교하기 file 2016.11.27 3995
127 Server Server 성능 테스트 secret 2016.11.30 51
126 Server XE 스케치북 게시판 웹진형에서 사진과 요약글 출력방법 file 2016.12.05 4207
125 Server V2824 User Manual 1 file 2016.12.06 8806
Board Pagination Prev 1 ... 35 36 37 38 39 ... 44 Next
/ 44

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


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

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

설치 취소