login multi user pada yahoo!messenger

Biasanya ketika kita menggunakan Yahoo! Messenger dan kita login ke dalam program tersebut.. saat kita menjalankan program tersebut lagi maka Yahoo! Messenger akan menggunakan user name yang sama dengan yang pertama kali kita gunakan. Kita bisa mengakali ini agar ketika kita menjalankan Yahoo! Messenger lagi maka kita bisa menggunakan user name yang berbeda..

Untuk itu ada beberapa perubahan didalam registry agar Yahoo! Messenger bisa menggukan beberapa user name yang berbeda secara bersamaan.

Ok... berikut langkahnya :
1. Bukalah registry editor windows dengan cara mengklik tombol Start kemudian anda pilih Run pada jendela yang tampil ketikan regedit kemudian tekan enter atau klik OK
2. Bukalah Key berikut di registry :
HKEY_CURRENT_USER/Software/Yahoo/pager/Test
3. Buatlah sebuah value baru dengan cara mengklik kanan pada layar yang ada disebelah kanan pilihlah New -> DWORD VALUE
4. Berilah namanya yaitu Plural kemudian klik dua kali pada value baru tersebut dan berikan nilainya yaitu 1 dengan basenya yaitu Hexadecimal.
5. Jalankan Yahoo! Messenger andadan login sepeti biasa kemudian bukalah kembali Yahoo! Messenger dan loginlah dengan account yang lain.

Nah nanti hasilnya akan terlihat seperti pada gambar dibawah ini :

menghilangkan boot manager windows 7/vista

Windows Vista / Windows 7 merupakan 2 sistem operasi milik Microsoft yang merupakan generasi penerus dari Windows XP. Dalam beberapa kasus banyak orang yang merasakan ketidakpuasan dengan sistem operasi tersebut terutama Windows Vista. Merekapun kemudian memformat partisinya untuk kemudian menggunakan kembali sistem operasi Windows XP.

Namun permasalahannya pada saat dinyalakan pertama kali bootloader yang digunakan masih tetap bootloader milik Vista / 7. Windows Vista maupun 7 tidak lagi menggunakan boot.ini untuk melakukan konfigurasi bootloader melainkan menggunakan BCDEDIT.exe namun bagi yang belum mengetahuinya mungkin akan sedikit bingung untuk menghilangkan bootloader milik Windows Vista maupun Windows 7 sehingga kembali menggunakan default milik Windows XP.

Dalam tutorial ini akan menjelaskan bagaimana caranya untuk menghilangkan boot manager milik Windows 7 maupun Vista sehingga kita bisa kembali menggunakan default boot manager milik Windows XP tanpa harus menginstal ulang Windows XP milik kita.

Penting : "jangan lakukan tips berikut ini kalau anda menggunakan dual boot Windows 7 dan Windows Vista tips ini hanya berlaku untuk yang menggunakan dual boot Windows XP dan Windows 7 atau Windows XP dan Windows Vista"


1. Dari desktop Windows XP masukanlah keping CD Windows 7 atau Windows Vista ke DVD/CD-Drive anda
2. Jalankan command prompt atau bisa juga melalui jendela run dengan cara mengklik tombol Start kemudian pilih Run.
3. Dari command prompt atau dari jendela run masukan perintah berikut ini :

[DVD/CD-Drive]:\boot\bootsect.exe /nt52 ALL /force

sebagai contoh jika DVD/CD-Drive merupakan drive D maka perintahnya adalah sebagai berikut :

D:\boot\bootsect.exe /nt52 ALL /force

4. Keluarkan keping CD Windows 7 atau Windows Vista dari DVD/CD-Drive
5. Restart komputer dan komputer akan diboot langsung ke sistem operasi Windows XP.
6. Hapuslah file boot.bak dan juga file bootsect.bak yang berada pada root system folder Windows XP biasanya berada di drive C:\ dan filenya bersifat hidden jadi anda harus merubah setting folder option dari Windows Explorer agar dapat menampilkan file tersebut untuk kemudian menghapusnya.

semoga membantu.

Menghilangkan windows genuine advantage notification

Apa itu windows genuine advantage...?
windows genuine advantage yang dibuat oleh microsoft adalah sebuah program yang berfungsi untuk mengecek keaslian sistem operasi microsoft anda..
apabila sistem perasi anda terdeteksi sebagai sistem operasi ilegal alias bajakan maka program ini akan memunulkan notifikasi/peringatan pada saat windows sedang digunakan ataupun pada saat login.

lalu bagaimana cara mengatasinya..??
berikut ini langkah-2 nya :
1. Bukalah windows explorer/mycomputer kemudian bukalah folder system32 (C:\Windows\system32)
kemudian cari file dengan nama WgaLogon.dll sebelumnya aturlah terlebih dahulu folder option anda dengan cara klik menu Tools --> Folder options dari windows explorer kemudian klik di tab View --> Uncek Hide extensions for known file types agar anda lebih mudah dalam mencari file tersebut.

2. kalau sudah ketemu rename/rubah nama file tersebut menjadi WgaLogon.dll.bak
3. bukalah notepad dan buat sebuah file kosong kemudian disimpan dengan nama WgaLogon.dll simpan di folder system32 (C:\Windows\system32)
4. cari file WgaTray.exe di system32, segera buka Task Manager. Anda dapat melakukannya dengan menekan Ctrl, Shift, dan tombol ESC atau Ctrl, Alt, Del sekaligus. Klik pada tab proses kemudian pilih file "WgaTray.exe" lalu click End Process. kemudian hapuslah file WgaTray.exe yang terletak di system32 tersebut, mungkin dalam tahap ini akan sedikit sulit karena dibutuhkan sedikit kecepatan dalam menghentikan proses lalu menghapus file WgaTray.exe
5. restart PC...

mudah-2an WGA tidak lagi muncul dikomputer anda...

animasi form dengan VB

Dengan menggunakan visual basic 6.0 kita bisa membuat sebuah program memiliki animasi pada saat program tersebut diakhiri atau ditutup. Animasi tersebut diantaranya animasi form bergerak keatas, kebawah, kekanan serta kekiri.


Kita mulai dengan animasi form yang bergerak ke atas ketika ditutup.
Agar form bergerak ke atas pada saat ditutup maka kode akan ditulis pada sub QueryUnload ataupun Unload. Siapkanlah sebuah form dan buatlah listing kode berikut :

Private Sub Form_Unload(Cancel As Integer)
Do
DoEvents
Form1.Top = Trim(Str(Int(Form1.Top) - 5))
Loop Until Form1.Top < -Form1.Width
End Sub

Angka 5 bisa anda rubah sesuai kebutuhan anda contoh bila anda ingin agar form bergerak ke atas lebih cepat maka tambahkan nilainya pada Trim(Str(Int(Form1.Top) - 5)) menjadi 50 dan seterusnya.

Animasi yang berikutnya adalah animasi form bergerak ke bawah.
Sama seperti animasi sebelumnya siapkanlah sebuah form terlebih dahulu lalu buatlah listing kode berikut :

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Top = Me.Top + 5
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 500
End Sub

Kalau kedua aniasi diatas adalah animasi form bergerak ke atas dan ke bawah, berikutnya adalah animasi agar form bergerak ke kiri atau ke kanan.
Dimulai dengan animasi form bergerak ke kanan, siapkanlah sebuah form kemudian buatlah listing kode berikut :

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 5
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
End Sub

Nah yang terakhir animasi form bergerak ke kiri, siapkan sebuah form kemudian buatlah listing kode berikut :

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left - 5
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left < -Screen.Width
End Sub

yupz... selesai sudah semuanya... selamat mencoba..

menambahkan animasi gerak pada vb

http://sik3ren.blogspot.com/2007/06/menambah-animasi-pada-vb-60.html

Program untuk mencari weton hari berdasarkan tanggal.

 copykan listing program di bawah ini:Dim a, b As Date
Dim c, d, e, f, g As Integer
Dim tk, pt, tt, kt, s As Integer
Dim tek, t As String

Private Sub kosong()
Text4.Text = "31-12-2099"
Text5.Text = ""
Text7.Text = ""
Text6.Text = ""
a = Format(Date, "DD-MM-YYYY")
b = Format(Date, "DD-MM-YYYY")
Text5.SetFocus
Text7.Enabled = False
Text6.Enabled = False
End Sub


Private Sub Command1_Click()
Dim hari As Variant

e = Right(Text2.Text, 1)
If e > 5 Then
e = e - 5
If e = 0 Then
Text6.Text = "Kliwon"
ElseIf e = 3 Then
Text6.Text = "Pahing"
ElseIf e = 2 Then
Text6.Text = "Pon"
ElseIf e = 1 Then
Text6.Text = "Wage"
ElseIf e = 5 Then
Text6.Text = "Kliwon"
ElseIf e = 4 Then
Text6.Text = "Manis"
End If

Else
If e = 0 Then
Text6.Text = "Kliwon"
ElseIf e = 3 Then
Text6.Text = "Pahing"
ElseIf e = 2 Then
Text6.Text = "Pon"
ElseIf e = 1 Then
Text6.Text = "Wage"
ElseIf e = 5 Then
Text6.Text = "Kliwon"
ElseIf e = 4 Then
Text6.Text = "Manis"
End If
End If

hari = Text5.Text
Text7.Text = Format(hari, "dddd")
Text3.Text = e

End Sub

Private Sub Command1_GotFocus()
On Error Resume Next
Dim a As Date
a = Text4.Text
b = Text5.Text
c = a - b
Text2.Text = c

If Text5.Text = "" Then
x = MsgBox("Maaf Tanggal Lahir Tidak Boleh Kosong...!", vbOKOnly + vbExclamation, "Warning")
Text5.SetFocus
Else
Command1.Enabled = True
Command1.SetFocus
End If

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Activate()
kosong
End Sub

Private Sub Form_Load()
t = "Copyright By : Mahfudh S"
tt = Len(t)
kt = 0

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If

End Sub

Private Sub Text4_LostFocus()
'Dim b As Date
a = Text4.Text
'b = Text5.Text
'Text6.Text = b - a

End Sub

Private Sub Text5_GotFocus()
kosong
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub

Private Sub Timer2_Timer()
kt = kt + 1
If kt = tt + 5 Then
kt = 0
End If
Form1.Caption = Left(t, kt)

End Sub


 

 Buatlah form seperti gambar di bawah ini (nama textbox harus seperti di gambar, command1 untuk tombol Ok, command2 untuk tombol Cancel)