윈 도 우 인터넷 ON/OFF
2020.03.18 15:18
인터넷 ON/OFF
파일을 실행 할때 마다 Const n = 0 <--> 1 반복되며
0 이면 A, 1 이면 B가 실행되는 무식한 방식입니다.
네트웍상태를 살피지않고 기계적으로 껐다 켰다 하는 것 이지요.
NetDisabler는 유,무선 모두 동시에 제어합니다.
아래 self modifying code는 단순 토글용으로 응용 할 곳이 많아 보입니다.
http://www.interclasse.com/scripts/selfmodify.php
net-ON_OFF.vbs
Const n = 0
Dim f, a, s, w
' **************************************************
' This is a sample of self modifying code
' **************************************************
' Check out http://www.activxperts.com
' for more samples And components
' **************************************************
w = WScript.ScriptFullName
Set o = CreateObject("WScript.Shell")
Set f = CreateObject("Scripting.FileSystemObject")
Set a = f.OpenTextFile(w, 1)
a.SkipLine
s = chr(13) & Chr(10) & a.ReadAll
a.Close
If n = 1 Then
Set a = f.CreateTextFile(w, True)
a.Write "Const n = " & n - 1 & s
a.Close
o.Run "NetDisabler_x64.exe /E"
ELSE
Set a = f.CreateTextFile(w, True)
a.Write "Const n = " & n + 1 & s
a.Close
o.Run "NetDisabler_x64.exe /D"
End If
댓글 [12]
-
레마클로 2020.03.18 15:21 -
cungice 2020.03.18 16:34
수고 많으셨습니다. 감사합니다.
-
서기다 2020.03.18 18:11
없어서 삭제했습니다
-
레마클로 2020.03.18 18:20 사랑인님 자료는 다운 안되네요.^^
세** 시절 사랑인님 도움 많이 받았었습니다.
제가 올린 자료는 하드웨어를 껐다 켠다고 보시면 됩니다.
self modifying.vbs와 배치파일을 혼합해도 좋을것 같네요.
-
서기다 2020.03.18 18:27
아 파일이 없어졌네요 맘에쏙 들어서 소개시켜드릴려고 했는데 죄송합니다 -
빨강모자 2020.03.18 19:01 도움이 되실런지요?
-
레마클로 2020.03.19 12:44 <== 첨부 해제 ( DN Count = "14" )
?
-
빨강모자 2020.03.19 14:45 금요일이네요..
-
따뜻한얼음 2020.03.24 21:46
저기.. 저도 혹시 공유해주실수있으실까요??
-
지후빠 2020.03.19 07:33
-
레마클로 2020.03.19 07:43 고맙습니다.^^
-
둥근호박 2020.03.22 10:58
감사합니다.
if문 깔끔하게 손 봐 주세요.