Cara memberi kata sambutan dipc kamu

Halo sobat clayer -pasti kepingin kan waktu menghidupkan Laptop/PC lalu si PC/Laptop tadi ngomong "Good morning sir ...... " (jika pagi)? Atau kalian udah bosan dengan bunyi startup windows yang gitu-gitu aja? Nah kali ini admin akan membagikan cara untuk membuat bunyi startup lebih menarik. Check this out,

1. Buka notepad, lalu copas (copy & paste) text di bawah ini :

Dim speaks, speech, salam , username

username = CreateObject("WScript.Network").Username

If Hour(Time) < 12 Then

salam = "Good morning Sir."

ElseIf Hour(Time) < 18 Then

salam = "Good afternoon Sir."

Else

salam = "Good evening Sir."

End If

speaks = salam + " " + " Welcome back to your computer. Have a nice work."

Set speech = CreateObject("sapi.spvoice")

speech.Speak speaks

Kalimat dengan warna hitam bisa diganti, tidak diganti juga tidak apa-apa.

Keterangan warna:

Oranye	kata yang akan diucapkan komputermu waktu dihidupkan sebelum jam 12 siang (mulai jam 12 malam sampai 12 siang)
Hijau	kata yang akan diucapkan komputermu sebelum jam 6 sore (terhitung dari jam 12 siang)
Merah	kata yang akan diucapkan komputermu selain ketentuan di atas( jadi setelah jam 6 sore sampai 12 malam)
Biru	kalimat yang di ucapkan komputermu setelah mengucapkan kalimat diatas

2. Lalu simpan dengan nama wellcome.vbs (atau terserah yang penting berakhiran .vbs). Ganti type file menjadi all file. Dan save.

3. Lalu tambahkan file vbs yang telah kalian buat tadi ke startup (lebih jelasnya lihat di postingan sebelumnya )
4. Sekarang coba restart PC/Laptop anda, dan lihat apa yang terjadi.

Nb.

Jika kalian ingin lebih "nyleneh", atau kalian ingin menambahkan ketentuan lagi, misalnya setelah jam 10 malam damembuka komputer lalu menyambut "hello sir, ...........".

Tinggal mengubahnya seperti ini

If Hour(Time) < 12 Then

salam = "Good morning Sir."

ElseIf Hour(Time) < 18 Then

salam = "Good afternoon Sir."

ElseIf Hour(Time) < 22 Then

salam = "Good evening Sir."

Else

salam = "hello sir."

End If

Intinya jika ingin menambah ketentuan (if) tinggal tambah

ElseIf Hour(Time) < (jam) Then

salam = "(kata/kalimat yang akan diucapkan)"

Sebelum

Else

Salam = "(kata/kalimat yang akan diucapkan)"

End If

Atau para pembaca sekalian punya ide yang lebih "nyleneh" lagi? Bisa sekalian share ke sini ya.