Showing posts with label Lain-Lain. Show all posts
Showing posts with label Lain-Lain. Show all posts

[Trik Notepad] Buat kuis dengan notepad

 Membuat kuis dengan notepad
 copy yang berwarna biru

@echo off
title quiz hari ini
:menu
cls
echo jika kamu kena virus apa yang kamu lakukan
pause
echo pilih yang mana:
echo 1. matiin computer
echo 2. format aja
echo 3. bingung ahh
set input=nothing
set /p input=Choice:
if %input%==1 shutdown -s -t 30

[Trik notepad] buka tutup CD/DVD

trik notepad buka tutup CD/DVD

1.buka notepad (ya mesti lah namanya juga trik notepad ...)

2.salin kode berwarna biru dibawah ini
CODE:

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject

Next
End If
wscript.sleep 5000
loop


3.simpan dengan format .vbs


4.bila ingin mengakhiri  lewat task manager/ ctrl + alt + delete
   dengan nama program wscript.exe tinggal di end process

[Trik notepad] Komputer Bisa Bicara

apakah komputer bisa bicara ??
jawabanya:ya

bagaimana caranya??
jawabanya: ada deh... hehe

caranya gampang seperti bikin teh..

1.buka notepad dulu jangan buka windows media player..hehehe

2.salin kode dibawah ini

NONTON TV




 

Site Info

Followers

Recent Comment