Memulihkan registry setting akibat serangan virus pada windos xp

Munculkan folder option pada windows xp Klik disini untuk download perbaikannya. (Restore Folder Option. click here)

Mengembalikan registry yang di-disable Klik disini untuk download perbaikannya.(Re enable Disabled Registry. click here)

Daptar printer tidak muncul Klik disini untuk download perbaikannya.(Restore Printer list. Click here)

File ini berguna untuk mencegah virus yang berjalan menggunakan windows scripting host plus mamatikan autorun

- File 1 (klik disini) (click here to Disable windows scripting host)

- File 2 (klik disini)

Ada virus yang mengelabui pengguna dengan menghilangkan panah pada shortcut/link ke folder sehingga link-nya sendiri kelihatan seperti folder. Klik disini untuk download perbaikannya

Menu Run dan Find/Search di Start Menu Hilang. Klik disini untuk download perbaikannya (Click here to restore Run and Find/search menu)

Daftar beberapa penyedia Widget Polls atau Voting untuk Blog atau website

http://www.toluna.com

• harus daftar dulu
• satu poll berlaku untuk 6 bulan maksimum
• ada program untuk dapat hadiah tapi saat ini untuk indonesia belum termasuk
• disainnya tidak bisa dikostumisasi
• widget bebas iklan
• bisa beberapa poll

http://www.bravenet.com

• harus daftar dulu
• satu poll akan aktif terus sebelum kita menonaktifkannya
• disain ada empat pilihan
• bebas iklan, hanya ada logo Bravenet saja
• versi free hanya dapat mengaktifkan satu poll saja
• dibawah adalah contoh poll dari bravenet.com

yang ini adalah vote dari bravenet

Cast Your Vote

Free Vote Casters by Bravenet.com

Convert week number to month (VB 6)

Private Sub WeektoMonth_01() 'Start with week in which January 1 occurs

Dim FirstDate As Date ' Declare variables.

Dim IntervalType As String

Dim WeekNumber As Integer

Dim Msg

IntervalType = "ww" ' "ww" specifies weeks as interval.

FirstDate = DateSerial(Year(Now), 1, 1)

WeekNumber = InputBox("Enter number of weeks to add")

Msg = "Month of week " & WeekNumber & " is " & Month(DateAdd(IntervalType, WeekNumber - 1, FirstDate))

MsgBox Msg

End Sub