프로그래밍으로 친구 컴퓨터에 장난치기

프로그램을 하다가 보면 심심할때가 있습니다.

같이 있는 친구나 친구집에 놀러 갔을때 장난기가 발동을 한번씩 할때가 있습니다.

​

프로그램으로 장난을 잠깐 치는 방법을 알아 보도록 하겠습니다.

​

우선 사용 할 프로그램 언어는 Visual Basic Script(vbs) 입니다.

간단한 프로그램 이지만 놀래키기는 충분합니다.

(임산부나 노약자 어린이 컴퓨터에 장난은 금합니다.)

​

아래의 소스코드를 vbs 파일로 만든 뒤

@start [파일명].vbs 파일을 호출 하는 배치파일을 만들어 줍니다.

그다음 해당 배치 파일을 바탕화면으로 바로가기를 만들어 준 후

아이콘을 변경 해 주면 완성입니다.

코드와 함께 주석으로 설명을 첨부 합니다.

귀찮으신 분들은 그냥 다운 받으셔서 사용 하셔도 됩니다.

​

상세한 사용 방법은 유튜브 영상을 참조 하시길 바랍니다.

글로 다 설명하자나 너무 길어 질 듯 ^^;

 

 

 

소스파일

https://drive.google.com/open?id=1qMP_VAU_wb_0v8TYJCYhMZV8OjAleCh6

서프라이즈.zip

x=msgbox("바이러스 먹었다~! 조심해라~!" , vbInformation , "축하!") '메세지박스를 띄우는 코드

'객체 선업
Set WshShell = WScript.CreateObject("WScript.Shell")

'인터넷 익스플로워를 사용하기 위한 객체선언
Set IE = CreateObject("InternetExplorer.Application")

'곧 너의 컴퓨터가 터질 것이다 라는 컴퓨터 음성 호출
CreateObject("SAPI.SpVoice").Speak "곧 너의 컴퓨터가 터질 것이다"

With IE
	.Navigate2 "about:blank" '처음 초기 페이지 셋팅

    '준비가 완료 될때까지 대기
	Do While .Busy = True Or .ReadyState <> 4 
		DoEvents
	Loop

    '익스플로워 페이지에 이미지 호출
	.Document.Body.innerHTML = "<img src='https://img1.daumcdn.net/thumb/R1280x0/?scode=mtistory2&fname=https%3A%2F%2Fk.kakaocdn.net%2Fdn%2FnF8cZ%2FbtqwyO8YRRr%2FbJYaUdI4nvOCsVJ2n7T1B1%2Fimg.jpg' width='100%' height='100%'/>"
    '전체화면 설정
	.FullScreen=True	
    '익스플로워 Visible = True
	.Visible = True
End With

Play "비명.wav" '비명.wav 플레이

'Wav 파일 재생 함수
Sub Play(SoundFile)
		Dim Sound
		Set Sound = CreateObject("WMPlayer.OCX")
		Sound.URL = SoundFile
		Sound.settings.volume = 100
		Sound.Controls.play
		do while Sound.currentmedia.duration = 0
			wscript.sleep 100
		loop
		wscript.sleep(int(Sound.currentmedia.duration)+1)*1000
End Sub

주의사항) 인터넷 익스플로워를 처음 실행 시킨 분들은 처음에 동작하지 않으니 인터넷 익스플로워 실행을 하고 초기 셋팅을 완료 하고 실행해 주시길 바랍니다. 그리고, 전체화면의 창을 종료를 못하시는 분들이 있던데 창을 클릭한 후 ALT+F4 (종료) 를 누르시면 창이 닫힙니다.