Koleksi Trik & Tips Komputer/Internet

*

Author Topic: Koleksi Trik & Tips Komputer/Internet  (Read 36063 times)

0 Halaqian and 1 Guest are viewing this topic.

Izzah0404

  • *
  • Posts: 653
  • o()xxxx[{::::::::::::::::::::::::::::::::::::::::>
    • View Profile
Reply #240 17 June, 2012, 02:42:08 PM
  • Publish
  • Monopoly [2 players game]


    Sorry saya takkan dedahkan link download di sini kerana kod game ini sangat bernilai. Sila PM saya untuk dapatkan kodnya senyum*
    [warning]I AM NOT WHO I THINK I AM. I AM NOT WHO YOU THINK I AM. I AM WHO I THINK YOU THINK I AM[/warning]

    Huzai0_0

    • *
    • Posts: 5
      • View Profile
    Reply #241 18 June, 2012, 10:42:33 AM
  • Publish
  • Download batch files trick here:
    http://www.batchlog.pytalhost.com/

    Izzah0404

    • *
    • Posts: 653
    • o()xxxx[{::::::::::::::::::::::::::::::::::::::::>
      • View Profile
    Reply #242 20 June, 2012, 02:14:02 PM
  • Publish
  • 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

    Izzah0404

    • *
    • Posts: 653
    • o()xxxx[{::::::::::::::::::::::::::::::::::::::::>
      • View Profile
    Reply #243 09 July, 2012, 06:37:42 PM
  • Publish
  • 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

    Izzah0404

    • *
    • Posts: 653
    • o()xxxx[{::::::::::::::::::::::::::::::::::::::::>
      • View Profile
    Reply #244 15 July, 2012, 07:28:19 PM
  • Publish
  • 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;
    Quote
    If left(date,5) = "[desc=tukarkan nombor ini kepada tarikh lahir anda]15/07[/desc]" 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.

    Izzah0404

    • *
    • Posts: 653
    • o()xxxx[{::::::::::::::::::::::::::::::::::::::::>
      • View Profile
    Reply #245 06 September, 2012, 07:01:11 PM
  • Publish
  •  :) Trick Facebook kembali lagi....hehehee  okaja*

    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 senyum*
    « Last Edit: 06 September, 2012, 11:06:24 PM by Izzah0404 »

    Izzah0404

    • *
    • Posts: 653
    • o()xxxx[{::::::::::::::::::::::::::::::::::::::::>
      • View Profile
    Reply #246 11 September, 2012, 11:43:51 AM
  • Publish

  • Sila google: zerg rush
    lihatlah apa yang berlaku

    ENJOY!!

    Izzah0404

    • *
    • Posts: 653
    • o()xxxx[{::::::::::::::::::::::::::::::::::::::::>
      • View Profile
    Reply #247 19 September, 2012, 11:18:34 AM
  • Publish


  • Sila google: how to kill rajinikanth

    klik pada link yang pertama

    See the fun senyum*


    p/s: link yang kedua pon ok gak

    Izzah0404

    • *
    • Posts: 653
    • o()xxxx[{::::::::::::::::::::::::::::::::::::::::>
      • View Profile
    Reply #248 10 December, 2012, 09:53:59 PM
  • Publish
  •  :) 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 senyum*

    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:




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

    NurZihan

    • *
    • Posts: 174
    • I am not a Microsoft people
      • View Profile
    Reply #249 12 December, 2012, 06:24:42 PM
  • Publish
  • Satu soalan mudah sebelum awak meneruskan trick awak.

    "Are you a programmer, to be honest?"
    Bill Gates and Paul Allen, childhood friends with a passion in computer programming. The January 1975 featured Micro Instrumentation and Telemetry Systems's (MITS) Altair 8800 microcomputer. *** Download Opera Browser Here: Cuba Guna Opera Web Browser (Tak perlu la uninstall Firefox / Chrome)

    NurZihan

    • *
    • Posts: 174
    • I am not a Microsoft people
      • View Profile
    Reply #250 12 December, 2012, 06:26:32 PM
  • Publish
  • Tapi tak dinafikan, kebanyakan trick awak nih memang cool gler.
    Because those are involving a programming.

    Izzah0404

    • *
    • Posts: 653
    • o()xxxx[{::::::::::::::::::::::::::::::::::::::::>
      • View Profile
    Reply #251 12 December, 2012, 10:19:28 PM
  • Publish
  • Satu soalan mudah sebelum awak meneruskan trick awak.

    "Are you a programmer, to be honest?"

    bukan

    Izzah0404

    • *
    • Posts: 653
    • o()xxxx[{::::::::::::::::::::::::::::::::::::::::>
      • View Profile
    Reply #252 14 December, 2012, 10:44:15 PM
  • Publish
  • 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.

    leha

    • *
    • Posts: 247
    • I love Allah and Rasulullah
      • View Profile
    Reply #253 15 December, 2012, 11:12:48 PM
  • Publish
  • :) Trick Facebook kembali lagi....hehehee  okaja*

    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 senyum*


    baru perasan....akak print screen conversation kita ye....pape pun...syukran kak atas perkongsian yang menarik...teruskan....:senyum:
    -MANUSIA MENILAI DARI PERBUATAN,TETAPI ALLAH S.W.T MENILAI  DARI HATI SEORANG HAMBANYA-

    keMuNcUpp

    • *
    • Posts: 881
      • View Profile
    Reply #254 16 December, 2012, 12:12:33 AM
  • Publish
  • :) Trick Facebook kembali lagi....hehehee  okaja*

    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 senyum*



    awesome!...tapi jenuhla kalau nak taip 1-1 huruf lagu tu...nak bagi salam pun amik masa...:senyum:... anyway...thx sharing here
    ♥♫•¸.•´¯`•.♥¸•´¯`•.♥•´¯`•.♥•♪♫​♥¸•´¯`•.♥•´¯`•.♥•♪♫ ♥♫•¸.•´¯`•.♥¸•´¯`•.♥•´¯`•.♥•♪♫​♥¸•´¯`•.♥•´¯`•.♥•♪♫
    CatcH Me If U CaN...LoVe Me If U WaNt...HaTe Me IF U DarE...Hidup ini indah jika Ukhwah Fillah Ila Jannah ++++++

    Izzah0404

    • *
    • Posts: 653
    • o()xxxx[{::::::::::::::::::::::::::::::::::::::::>
      • View Profile
    Reply #255 20 December, 2012, 09:52:48 PM
  • Publish
  • 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.

    divider3
    halaqahforum4

     

    Related Topics

      Subject / Started by Replies Last post
    0 Replies
    769 Views
    Last post 04 June, 2012, 08:09:41 AM
    by hairilazman89
    5 Replies
    1003 Views
    Last post 08 August, 2014, 04:16:22 PM
    by NurZihan
    5 Replies
    645 Views
    Last post 20 October, 2012, 09:34:32 AM
    by afiQoh