I'm Blogger Nusantara
Read More
Home
All posts
Tuesday, May 15, 2012
Monday, May 14, 2012
[Trik Notepad] Otomatis buka notepad
ada lagi nih pastinya seru
otomatis buka notepad lalu ngetik apa yg lo mau
Code:
WScript.Sleep 1800
WScript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 10
WshShell.AppActivate "Notepad"
WScript.Sleep 50
WshShell.SendKeys "ka"
WScript.Sleep 50
WshShell.SendKeys "mu "
Read More
otomatis buka notepad lalu ngetik apa yg lo mau
Code:
WScript.Sleep 1800
WScript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 10
WshShell.AppActivate "Notepad"
WScript.Sleep 50
WshShell.SendKeys "ka"
WScript.Sleep 50
WshShell.SendKeys "mu "
Friday, May 11, 2012
[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
Read More
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
Monday, May 7, 2012
[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
Read More
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
Saturday, May 5, 2012
[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
Read More
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
Subscribe to:
Posts (Atom)