Monopoly [2 players game]

Sorry saya takkan dedahkan link download di sini kerana kod game ini sangat bernilai. Sila PM saya untuk dapatkan kodnya

Download batch files trick here:
http://www.batchlog.pytalhost.com/

Speed Count

Copy code di bawah dalam Notepad. Save as: _____.bat

Code: [Select]

@echo off
REM (C) Copyright 2010 GrellesLicht28 / S1r1us13
REM This is a creation of Makroware.
title Speed Count - BatchGame
setlocal enabledelayedexpansion
pushd %temp%
if not exist "BatchGame-Highscore-Easy.tmp" call :Highscores-Create Easy
if not exist "BatchGame-Highscore-Medium.tmp" call :Highscores-Create Medium
if not exist "BatchGame-Highscore-Heavy.tmp" call :Highscores-Create Heavy
if "%1" == "StartGame25" goto :%1
if "%1" == "StartGame100" goto :%1
if "%1" == "StartGame400" goto :%1
if "%1" == "Guess" goto :%1
set Level=Medium

:Menu
cls
set Choice=
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º   Find the place of the block     º
echo ÌÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĹ
echo º 1: Instructions                   º
echo º 2: Start game                     º
echo º 3: Highscores                     º
echo º 4: Reset highscores               º
echo º                                   º
echo º (C) Copyright 2010 GrellesLicht28 º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
set /p Choice=Choice:
if "%Choice%" == "1" goto :Instructions
if "%Choice%" == "2" goto :StartGame
if "%Choice%" == "3" call :Highscores
if "%Choice%" == "4" call :Delete-Highscores
echo.
pause
goto :Menu




:Instructions
echo.
echo Depending on the difficulty there are 25, 100 or 400 places on game play.
echo One of them contains a block. The placed are counted from upper left to
echo lower right.
echo.
echo The aim of the game is to write the result within 3 seconds into the smaller
echo window. If you were fast enough, it is counted as one point.
echo.
echo To end the game, enter "End".
echo.
pause
set Call=
set Amount=1
echo.
FOR /L %%A IN (11,1,100) DO set Call=!Call!%%A
echo The places have the following positions:
echo îîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîî
echo { 1} { 2} { 3} { 4} { 5} { 6} { 7} { 8} { 9} {10}
echo.
call :Display100 %Call%
pause
goto :Menu

:StartGame
set Level=
set Levelchoice=
set Speed=
set Speedchoice=
echo.
echo Which difficulty would you like to play?
echo 1: Easy   ( 25 boxes)
echo 2: Medium (100 boxes)
echo 3: Heavy  (400 boxes)
echo.
set /p Levelchoice=Choice:
if "%Levelchoice%" == "1" set Level=Easy
if "%Levelchoice%" == "2" set Level=Medium
if "%Levelchoice%" == "3" set Level=Heavy
if /i "%Levelchoice%" == "Easy" set Level=Easy
if /i "%Levelchoice%" == "Medium" set Level=Medium
if /i "%Levelchoice%" == "Heavy" set Level=Heavy
if not defined Level (
echo Wrong prompt.
pause
goto :Menu
)
echo.
echo Which speed level would you like to play?
echo 1: Very slow (5 seconds to guess)
echo 2: Slow      (4 seconds to guess)
echo 3: Middle    (3 seconds to guess) [Default]
echo 4: Fast      (2 seconds to guess)
echo 5: Very fast (1 second to guess)
echo.
set /p Speedchoice=
if "%Speedchoice%" == "1" set Speed=6
if "%Speedchoice%" == "2" set Speed=5
if "%Speedchoice%" == "3" set Speed=4
if "%Speedchoice%" == "4" set Speed=3
if "%Speedchoice%" == "5" set Speed=2
if not defined Speed (
echo Wrong prompt.
pause
goto :Menu
)
if "%Level%" == "Easy" start %~s0 StartGame25 %Speed%
if "%Level%" == "Medium" start %~s0 StartGame100 %Speed%
if "%Level%" == "Heavy" start %~s0 StartGame400 %Speed%
pause
goto :Menu

:StartGame25
set KA=(
set KZ=)
if "%2" == "6" set Speed=[Very slow]
if "%2" == "5" set Speed=[Slow]
if "%2" == "4" set Speed=[Middle]
if "%2" == "3" set Speed=[Fast]
if "%2" == "2" set Speed=[Very fast]
set Level=Easy
set Points=0
start %~s0 Guess

:Start25
cls
set Call=
set Amount=0
set Prompt=26
set Aim=
set Number=%random:~1,2%
if "%Number:~0,1%" == "0" set Number=%Number:~1,1%
if not "%Number:~1,1%" == "" if "%Number:~0,1%" GTR "2" (goto :Start25) ELSE (if "%Number:~0,1%" EQU "2" if "%Number:~1,1%" GTR "4" goto :Start25)
set /a Aim=!Number! + 1
FOR /L %%A IN (1,1,%Number%) DO set Call=!Call!-
set /a Number=25 - %Number%
set Call=!Call!Û
FOR /L %%A IN (1,1,%Number%) DO set Call=!Call!-

call :Display25 %Call%

ping localhost -n %2 >nul
if exist BatchGame.tmp set /p Prompt=<BatchGame.tmp >nul 2>&1
FOR /F "usebackq" %%A IN ('%Prompt%') DO set Prompt=%%A
if /i "!Prompt!" == "End" goto :Evaluation

set /a Prompt=!Prompt!
set /a Aim=!Aim!
echo %Aim% - !Prompt!
if "!Prompt!" == "!Aim!" (
echo.
echo Your answer was correct.
ping localhost -n 2 >nul
set /a Points=!Points! + 1
)

if exist BatchGame.tmp del /F BatchGame.tmp >nul 2>&1
goto :Start25


:Display25
shift /0
echo {%0} {%1} {%2} {%3} {%4}
shift /0
shift /0
shift /0
shift /0
echo.
set /a Amount=%Amount% + 1
if "%Amount%" == "5" exit /b
goto :Display25

:StartGame100
set KA=(
set KZ=)
if "%2" == "6" set Speed=[Very slow]
if "%2" == "5" set Speed=[Slow]
if "%2" == "4" set Speed=[Middle]
if "%2" == "3" set Speed=[Fast]
if "%2" == "2" set Speed=[Very fast]
set Level=Medium
set Points=0
start %~s0 Guess

:Start100
cls
set Call=
set Amount=0
set Prompt=101
set Aim=
set Number=%random:~1,2%
if "%Number:~0,1%" == "0" set Number=%Number:~1,1%
set /a Aim=!Number! + 1
FOR /L %%A IN (1,1,%Number%) DO set Call=!Call!-
set /a Number=100 - %Number%
set Call=!Call!Û
FOR /L %%A IN (1,1,%Number%) DO set Call=!Call!-

call :Display100 %Call%

ping localhost -n %2 >nul
if exist BatchGame.tmp set /p Prompt=<BatchGame.tmp >nul 2>&1
FOR /F "usebackq" %%A IN ('%Prompt%') DO set Prompt=%%A
if /i "!Prompt!" == "End" goto :Evaluation

set /a Prompt=!Prompt!
set /a Aim=!Aim!
echo %Aim% - !Prompt!
if "!Prompt!" == "!Aim!" (
echo.
echo Your answer was correct.
ping localhost -n 2 >nul
set /a Points=!Points! + 1
)

if exist BatchGame.tmp del /F BatchGame.tmp >nul 2>&1
goto :Start100


:Display100
shift /0
echo {%0} {%1} {%2} {%3} {%4} {%5} {%6} {%7} {%8} {%9}
shift /0
shift /0
shift /0
shift /0
shift /0
shift /0
shift /0
shift /0
shift /0
echo.
set /a Amount=%Amount% + 1
if "%Amount%" == "10" exit /b
goto :Display100

:StartGame400
set KA=(
set KZ=)
if "%2" == "6" set Speed=[Very slow]
if "%2" == "5" set Speed=[Slow]
if "%2" == "4" set Speed=[Middle]
if "%2" == "3" set Speed=[Fast]
if "%2" == "2" set Speed=[Very fast]
set Level=Heavy
set Points=0
mode con lines=46
start %~s0 Guess

:Start400
cls
set Call=
set Amount=0
set Prompt=401
set Aim=
set Number=%random:~1,3%
if "%Number:~0,1%" == "0" set Number=%Number:~1,2%
if "%Number:~0,1%" == "0" set Number=%Number:~1,1%
if not "%Number:~2,1%" == "" if "%Number:~0,1%" GEQ "4" goto :Start400
set /a Aim=!Number! + 1
FOR /L %%A IN (1,1,%Number%) DO set Call=!Call!-
set /a Number=400 - %Number%
set Call=!Call!Û
FOR /L %%A IN (1,1,%Number%) DO set Call=!Call!-

call :Display400 %Call%

ping localhost -n %2 >nul
if exist BatchGame.tmp set /p Prompt=<BatchGame.tmp >nul 2>&1
FOR /F "usebackq" %%A IN ('%Prompt%') DO set Prompt=%%A
if /i "!Prompt!" == "End" goto :Evaluation

set /a Prompt=!Prompt!
set /a Aim=!Aim!
echo %Aim% - !Prompt!
if "!Prompt!" == "!Aim!" (
echo.
echo Your answer was correct.
ping localhost -n 2 >nul
set /a Points=!Points! + 1
)

if exist BatchGame.tmp del /F BatchGame.tmp >nul 2>&1
goto :Start400


:Display400
set Display=
shift /0
set Display={%0} {%1} {%2} {%3} {%4} {%5} {%6} {%7} {%8} {%9}
shift /0
shift /0
shift /0
shift /0
shift /0
shift /0
shift /0
shift /0
shift /0
shift /0
set Display=%Display% {%0} {%1} {%2} {%3} {%4} {%5} {%6} {%7} {%8} {%9}
shift /0
shift /0
shift /0
shift /0
shift /0
shift /0
shift /0
shift /0
shift /0
echo %Display%
echo.
set /a Amount=%Amount% + 1
if "%Amount%" == "20" exit /b
goto :Display400

:: %%A = Entire line of a file
:: %%D = Difference between the current amount of points and the one from the last highscore
:: %%S = Set rank
:: %%M = Move ranking
:: ---> Moves rank 1 to rank 2 and rank 2 to rank 3 etc.
:: %%O = Deductive from alphabet (...L, M, N, O, P...)
:: ---> %%O is all from %%A behind the colon (First place:  %%O)

::     ---> First place:  Username (20 points) on 26.12.2010 at 20:00:00,00 [Fast]
::   = First place:  %username% !KA!%Points% points!KZ! on %time% at %date% %Speed%
::   = %%A
::   = %%M %%N:  %%O


:Evaluation
cls
FOR /F "delims=" %%A IN (BatchGame-Highscore-%Level%.tmp) DO (
FOR /F "tokens=4 delims=( " %%D IN ("%%A") DO set /a Difference=%Points% - %%D >nul 2>nul || set Difference=
if not "!Difference:~0,1!" == "-" if "!Rank!" == "" FOR /F %%S IN ("%%A") DO set Rank=%%S
)
if "!Rank!" == "" FOR /F "tokens=1,2,* delims=: " %%M IN (BatchGame-Highscore-%Level%.tmp) DO (
set Highscore=%%O
if "!Highscore!" == "" (
if "%%M" == "First" set Rank=First
if "!Rank!" == "" if "%%M" == "Second" set Rank=Second
if "!Rank!" == "" if "%%M" == "Third" set Rank=Third
)
)
if "!Rank!" == "First" FOR /F "tokens=1,2,* delims=: " %%M IN (BatchGame-Highscore-%Level%.tmp) DO (
set First=First place:  %username% !KA!%Points% points!KZ! on %date% at %time% %Speed%
if "%%M" == "First" set Second=Second place: %%O
if "%%M" == "Second" set Third=Third place:  %%O
)
if "!Rank!" == "Second" FOR /F "tokens=1,2,* delims=: " %%M IN (BatchGame-Highscore-%Level%.tmp) DO (
if "%%M" == "First" set First=First place:  %%O
set Second=Second place: %username% !KA!%Points% points!KZ! on %date% at %time% %Speed%
if "%%M" == "Second" set Third=Third place:  %%O
)
if "!Rank!" == "Third" FOR /F "tokens=1,2,* delims=: " %%M IN (BatchGame-Highscore-%Level%.tmp) DO (
if "%%M" == "First" set First=First place:  %%O
if "%%M" == "Second" set Second=Second place: %%O
set Third=Third place:  %username% !KA!%Points% points!KZ! on %date% at %time% %Speed%
)
if "!Rank!" == "" FOR /F "tokens=1,*" %%M IN (BatchGame-Highscore-%Level%.tmp) DO (
if "%%M" == "First" set First=First %%N
if "%%M" == "Second" set Second=Second %%N
if "%%M" == "Third" set Third=Third %%N
)
echo !First!>BatchGame-Highscore-%Level%.tmp
echo !Second!>>BatchGame-Highscore-%Level%.tmp
echo !Third!>>BatchGame-Highscore-%Level%.tmp
if exist BatchGame.tmp del /F BatchGame.tmp >nul 2>&1
exit

:Highscores
cls
echo Highscores
echo îîîîîîîîîî
echo  -^> Easy
echo     îîîî
FOR /F "delims=" %%A IN (BatchGame-Highscore-Easy.tmp) DO echo     ú%%A
echo.
echo  -^> Medium
echo     îîîîîî
FOR /F "delims=" %%A IN (BatchGame-Highscore-Medium.tmp) DO echo     ú%%A
echo.
echo  -^> Heavy
echo     îîîîî
FOR /F "delims=" %%A IN (BatchGame-Highscore-Heavy.tmp) DO echo     ú%%A
exit /b

:Delete-Highscores
set Delete=
cls
echo Which highscore list would you like to reset?
echo 1: Grade easy
echo 2: Grade medium
echo 3: Grade heavy
echo.
set /p Delete=Choice:
if "%Delete%" == "1" set Grade=Easy
if "%Delete%" == "2" set Grade=Medium
if "%Delete%" == "3" set Grade=Heavy
if defined Grade call :Highscores-Create %Grade%
exit /b

:Guess
title Game
mode con cols=14 lines=6
:Guess_2
cls
echo **********
set /p Place=Place:
echo **********
echo %Place% 1>BatchGame.tmp
if /i "%Place%" == "End" exit
goto :Guess_2

:Highscores-Create
echo First place:  >BatchGame-Highscore-%1.tmp
echo Second place: >>BatchGame-Highscore-%1.tmp
echo Third place:  >>BatchGame-Highscore-%1.tmp
exit /b

FB Trick: Colourful Chat

  untuk buat colourful chat seperti gambar di atas, perlu masukkan kod2 untuk setiap huruf dan gabungkanya sehingga menjadi ayat. Berikut ialah kod2nya;

[[107015582669715]] = A
[[116067591741123]] = B
[[115602405121532]] = C
[[112542438763744]] = D
[[115430438474268]] = E
[[109225112442557]] = F
[[111532845537326]] = G
[[111356865552629]] = H
[[109294689102123]] = I
[[126362660720793]] = J
[[116651741681944]] = K
[[115807951764667]] = L
[[106596672714242]] = M
[[108634132504932]] = N
[[116564658357124]] = O
[[111669128857397]] = P
[[107061805996548]] = Q
[[106699962703083]] = R
[[115927268419031]] = S
[[112669162092780]] = T
[[108983579135532]] = U
[[107023745999320]] = V
[[106678406038354]] = W
[[116740548336581]] = X
[[112416755444217]] = Y
[[165724910215]] = Z

Birthday Popup

 
Agak menyedihkan apabila tibanya tarikh ulangtahun kelahiran kita, tiada siapa yang mengucapkan "Happy Birthday" pada kita. Mungkin mereka terlupa...tak mengapa.., usah bersedih. PC/laptop anda akan ucapkan "Happy Birthday" pada anda. Tapi kena buat perkara berikut dulu;

1. Buka Notepad
2. Salin kod ni dalam Notepad;

If left(date,5) = "15/07" Then       
 MsgBox "Happy Birthday! ^_^"
End If

*Sila tukarkan tulisan bewarna merah kepada tarikh lahir anda. Contohnya anda lahir 28 Februari jadi kena letakkan "28/02"

3. Save as:  MyBirthday.vbs

4. Lepas tu kita kena letakkan file yang kita dah save ni dalam Startup folder agar ia akan popup sendiri apabila kita login komputer pada tarikh tersebut. Sila cari path berikut:

For current user:
C:\Users\username\AppData\Roaming\Microsoft\Window s\Start Menu\Programs\Startup

ATAU

For all users:
C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup

5. Letakkan file MyBirthday.vbs tadi dalam Startup folder.
6. Tunggulah sehingga tarikh birthday anda tiba. Mesej "Happy Birthday" akan popup sebaik sahaja anda on komputer pada tarikh tersebut.

Trick Facebook kembali lagi....hehehee 

Anda tentunya sudah boring dengan ruangan chatting di facebook yang tulisannya sentiasa bewarna hitam kan? rase hambar je bila berchatting dengan kawan anda. Kali ini apakata anda mencipta kelainan dengan menjadikan tulisan chat itu serba colourful...barulah tak rasa mengantuk.



Ini kodnya;

[[f9.cha]] untuk "A"
[[f9.chb]] untuk "B"
[[f9.chc]] untuk "C"
alaaa...penatlah nak taip kod untuk semua huruf
korang tukar jelah huruf terakhir dalam bracket, iaitu selepas f9.ch_

contohnya kalau nak letak huruf "D", taip kod macam ni: [[f9.chd]]
kalau huruf "E" pulak taip macam ni; [[f9.che]]
and so on lah...
korang boleh buat sendiri
senang je kan..

selamat mencuba

Sila google: zerg rush
lihatlah apa yang berlaku

ENJOY!!

Sila google: how to kill rajinikanth

klik pada link yang pertama

See the fun

p/s: link yang kedua pon ok gak

Rasanya sudah terlalu lama saya meninggalkan topik kesayangan saya ini tanpa diupdate dek kerana kesibukan bekerja. Hari ini saya akan cuba luangkan masa untuk update topik ini. Trik yang akan saya bawakan pada kali ini ialah suatu trik vbs yang saya berikan tajuk:

Auto Read Text Writen in Notepad

Trik ini menggunakan suara dari Windows SAPI yang akan membaca textfiles yang dibuka melalui VBScript yang mana ia akan buka file yang telah kita pilih dan membaca segala tulisannya.

Mari kita mulakan

First, buka Notepad dan salin kod di bawah ke dalam Notepad;

Code: [Select]

'Script written by Izzah0404
'This script allows your PC to read contents of any text file you choose!
Const ForReading = 1
strText = InputBox("Please type in the name of the file you want to read the file, the file has an extension .txt","Auto-Read-Text")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objText = objFSO.OpenTextFile(strText + ".txt", ForReading)

strText = objText.ReadAll

objText.Close

Set Sapi = Wscript.CreateObject("SAPI.SpVoice")

Sapi.speak strText
Save as:    AutoReadText.vbs

Okey, step pertama dah selesai. Sekarang ayuh kita beralih pula ke step kedua.

Buka Notepad baru.

Sila copy@taip apa2 text pada Notepad.

Savekannya dengan default extensian iaitu berakhir dengan   .txt  Contohnya  MyFile.txt

Sekarang, kita boleh run AutoReadText.vbs tadi dan ia akan membaca isi kandungan file tersebut walaupun kita telah close file tadi.

Di bawah ini adalah contoh gambaran hasilnya:

*P/S: Trik ini hanya berkesan untuk windows XP. Harap maklum

Satu soalan mudah sebelum awak meneruskan trick awak.

"Are you a programmer, to be honest?"

Tapi tak dinafikan, kebanyakan trick awak nih memang cool gler.
Because those are involving a programming.

Satu soalan mudah sebelum awak meneruskan trick awak.

"Are you a programmer, to be honest?"

bukan

Make Computer Read the Current Date & Time

Buka Notepad

Copy & paste kod nih dalam Notepad;

Code: [Select]

Sapi.speak weekdayname(weekday(date))
Sapi.speak monthname(month(date))
Sapi.speak day(date)
Sapi.speak year(date)
Sapi.speak "Is the current date."
Sapi.speak "The current time is"


if hour(time) > 12 then
Sapi.speak hour(time)-12
else
if hour(time) = 0 then
Sapi.speak "12"
else
Sapi.speak hour(time)
end if
end if


if minute(time) < 10 then
Sapi.speak "o"
if minute(time) < 1 then
Sapi.speak "clock"
else
Sapi.speak minute(time)
end if
else
Sapi.speak minute(time)
end if

if hour(time) > 12 then
Sapi.speak "P.M."
else
if hour(time) = 0 then
if minute(time) = 0 then
Sapi.speak "Midnight"
else
Sapi.speak "A.M."
end if
else
if hour(time) = 12 then
if minute(time) = 0 then
Sapi.speak "Noon"
else
Sapi.speak "P.M."
end if
else
Sapi.speak "A.M."
end if
end if
end if
Save as: ReadDate&Time.vbs

*Saya sarankan letak file ni kat desktop supaya senang nak klik untuk tahu masa.

Trick Facebook kembali lagi....hehehee 

Anda tentunya sudah boring dengan ruangan chatting di facebook yang tulisannya sentiasa bewarna hitam kan? rase hambar je bila berchatting dengan kawan anda. Kali ini apakata anda mencipta kelainan dengan menjadikan tulisan chat itu serba colourful...barulah tak rasa mengantuk.



Ini kodnya;

[[f9.cha]] untuk "A"
[[f9.chb]] untuk "B"
[[f9.chc]] untuk "C"
alaaa...penatlah nak taip kod untuk semua huruf
korang tukar jelah huruf terakhir dalam bracket, iaitu selepas f9.ch_

contohnya kalau nak letak huruf "D", taip kod macam ni: [[f9.chd]]
kalau huruf "E" pulak taip macam ni; [[f9.che]]
and so on lah...
korang boleh buat sendiri
senang je kan..

selamat mencuba

baru perasan....akak print screen conversation kita ye....pape pun...syukran kak atas perkongsian yang menarik...teruskan....:senyum:

Trick Facebook kembali lagi....hehehee 

Anda tentunya sudah boring dengan ruangan chatting di facebook yang tulisannya sentiasa bewarna hitam kan? rase hambar je bila berchatting dengan kawan anda. Kali ini apakata anda mencipta kelainan dengan menjadikan tulisan chat itu serba colourful...barulah tak rasa mengantuk.



Ini kodnya;

[[f9.cha]] untuk "A"
[[f9.chb]] untuk "B"
[[f9.chc]] untuk "C"
alaaa...penatlah nak taip kod untuk semua huruf
korang tukar jelah huruf terakhir dalam bracket, iaitu selepas f9.ch_

contohnya kalau nak letak huruf "D", taip kod macam ni: [[f9.chd]]
kalau huruf "E" pulak taip macam ni; [[f9.che]]
and so on lah...
korang boleh buat sendiri
senang je kan..

selamat mencuba

awesome!...tapi jenuhla kalau nak taip 1-1 huruf lagu tu...nak bagi salam pun amik masa...:senyum:... anyway...thx sharing here

Make your Computer Greet you when you use it

Sudah bosan mendengar bunyi yang sama tiapkali buka komputer? dan rasa unwelcome tiapkali menggunakannya? Apakata cuba trik ini;

1. Buka Notepad
     - lokasi Notepad: klik Start>All Programs>Notepad

2. Copy code ini ke dalam Notepad;

Code: [Select]

a=msgbox ("Hi",0+64,"Computer")

Set Sapi = Wscript.CreateObject("SAPI.SpVoice")

dim str

if hour(time) < 12 then
Sapi.speak "Good morning user"
else
if hour(time) > 12 then
if hour(time) > 16 then
Sapi.speak "Good evening user"
else
Sapi.speak "Good afternoon user"
end if
end if
end if

Sapi.speak "The current time is "

if hour(time) > 12 then
Sapi.speak hour(time)-12
else
if hour(time) = 0 then
Sapi.speak "12"
else
Sapi.speak hour(time)
end if
end if


if minute(time) < 10 then
Sapi.speak "o"
if minute(time) < 1 then
Sapi.speak "clock"
else
Sapi.speak minute(time)
end if
else
Sapi.speak minute(time)
end if

if hour(time) > 12 then
Sapi.speak "P.M."
else
if hour(time) = 0 then
if minute(time) = 0 then
Sapi.speak "Midnight"
else
Sapi.speak "A.M."
end if
else
if hour(time) = 12 then
if minute(time) = 0 then
Sapi.speak "Noon"
else
Sapi.speak "P.M."
end if
else
Sapi.speak "A.M."
end if
end if
end if
3. Tukarkan perkataan 'user' dalam code di atas kepada nama anda

4. Save as:   greet.vbs

5. Letakkan file greet.vbs ni dalam folder Startup
     - Lokasi:  klik Start>All Programs>Startup

6. Untuk test jadi ke tak, cuba restart komputer. Komputer sepatutnya akan sebut good morning/evening/afternoon kepada anda, kemudian memberitahu waktu semasa.