Sedang dok mengemas beg laptop terjumpa la pendrive lama aku terselit dalam inner poket, 512MB Kingston. Pendrive yang aku rasa dah boleh dihantar ke muzium. Try la cucuk kat laptop, Readable lagi rupanya, ingatkan dah ke laut. Barang lama, kualiti pun ok. Zaman tu mana ada pendrive made in China. Semua ori lagi. Zaman tu pendrive orang gantung di leher buat macam kalung ( ada lagi ke mcm tu skrg ). Antara kandungan pendrive tu yang menarik perhatian aku ialah beberapa notepad trik. Zaman mula - mula nak membijakkan diri dengan komputer. So, antara trik notepad yang aku teringin nak share tu :
1. Start Up Mesej.
Dim speaks, speech
speaks="Welcome back , Username"
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks
Kod ni, bila korang on pc dia akan greet korang. "Welcome back , Username" >> yang ni korang ganti la mengikut citarasa korang, Rojak syorkan pakai bahasa omputih, x der la berbelit lidah komputer korang. ( PC pun ada jantina oiii, hahaha). Save file type dia sebagai All Files tapi yang penting nama file dia mesti .vbs. Contohnya : start.vbs
Lepas tu korang copy ke dalam folder startup windows korang. Untuk win 7 & 8 ( C:\Users\ {User-Name}\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup ).
Lagi satu AppData ni hidden folder so korang kena show hidden folder dulu.
2. Kod Matrix
Korang pernah tengok citer Matrix, yang wording hijau dia keluar berjela - jela. Ni lah koding dia :
@echo off
:a
color 2
echo 1 1 1 0 1 0 0 0 1 1 1 1 0 0 0 1 1 0 0 1 0 0 0 1 1 0 1 0 1 0 0 0 1 1 1 1
ping localhost -n 1 > nul
echo 1 1 0 1 1 1 0 0 0 1 0 1 a f h 0 0 0 1 0 1 1 0 0 1 1 1 0 0 1 0 1 0 0 1 1 0
echo 1 0 0 1 1 0 9 8 1 2 0 1 9 9 2 1 1 1 0 0 1 0 1 1 1 0 1 1 0 1 0 0 0 1 0 1 1
ping localhost -n 1 > nul
echo 0 1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 0 0 1 0 1 0 1 1 0 1 0 0 0 01 0 1 0 0 1 0
ping localhost -n 1 > nul
echo 1 0 1 1 1 0 1 1 0 9 1 1 2 1 1 0 9 1 0 5 7 7 8 7 8 1 3 2 1 2 1 2 3 2 1 3 4
ping localhost -n 1 > nul
echo 1 1 1 0 1 0 0 1 0 0 0 1 1 1 0 0 1 1 1 4 1 2 1 1 2 0 1 0 1 2 2 1 0 1 1 0 1
goto a
Save file type dia All File, Nama file dia mesti .bat. Cth : matrix.bat
3. 9/11
Buka notepad korang, taip Q33N ( huruf besar ). Tukar font kepada jenis Wingdings size 72, pasti korang terkejut. hehehe.
4. Drive CD On Off.
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
Save nama fail *.vbs. Type All File. Cd drive korang x berenti buka dan tutup.
Kalau korang ada lagi notepad trick yang lain, jomm arr share TAPI jangan share yang merbahaya. Aku pun x share yang dirasakan bahaya.
Tag :
Tips & Trick
0 Komentar untuk "Bergurau Dengan Notepad"