윈 도 우 인터넷 ON/OFF

인터넷 ON/OFF

파일을 실행 할때 마다 Const n = 0  <--> 1 반복되며 

0 이면 A, 1 이면 B가 실행되는 무식한 방식입니다.

네트웍상태를 살피지않고 기계적으로 껐다 켰다 하는 것 이지요.

NetDisabler는 유,무선 모두 동시에 제어합니다.

아래 self modifying code는 단순 토글용으로 응용 할 곳이 많아 보입니다.

원본  self modifying.vbs

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