User talk:Adibilmukhtar

.:: Welcome To Adibil Muktar ::.

Panduan Untuk membuat YM Multi
klik [start] - [run] - ketik [regedit] Key : HKEY_CURRENT_USER >> Software >> yahoo >> pager >> test Lalu : klik kanan >> New >> DWORD value Beri nama Plural tekan enter 2 kali dan berikan nilai 1.

jalankan Yahoo Messenger seperti biasa, Untuk login dengan id yang berbeda anda tinggal klik shorcut Yahoo Messenger yang ada di Start Menu/Desktop/Quick Launch. akan muncul window Yahoo messenger baru, dan silahkan login dengan id yang berbeda.

NB: Untuk melihat perubahannya restart komputer. Sangat dianjurkan menggunakan Yahoo Messenger Versi 8.0.xxx,

MERUBAH TULISAN PADA TOMBOL STAR DENGAN VB
Buat Form Baru 1 Buah text box 1 buah scrol bar 3 buah comon baton 1 buah timer Copykan koding berikut paga komponen yang bertautan timer,opsenbaten3,scrulbar,texbok Private Declare Function RedrawWindow Lib _ "user32" (ByVal hwnd As Long, lprcUpdate _   As Any, ByVal hrgnUpdate As Long, _    ByVal fuRedraw As Long) As Long

Private Declare Function SetWindowText Lib _ "user32" Alias "SetWindowTextA" _ (ByVal hwnd As Long, ByVal lpString _   As String) As Long

Private Declare Function FindWindowEx Lib _ "user32" Alias "FindWindowExA" _ (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _   ByVal lpsz1 As String, _    ByVal lpsz2 As String) As Long

Private Declare Function FindWindow Lib _ "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, _   ByVal lpWindowName As String) As Long

Private Sub Command1_Click Hide End Sub

Private Sub Form_Load Timer1.Interval = 1000 Text1.Text = " ADIB" Hide End Sub

Private Sub Form_Unload(Cancel As Integer) Timer1.Interval = 0 Text1.Text = "RUSAK" End Sub

Function Maxi_Shell_TrayWnd As Long Dim Animasi(1 To 2) As Long Animasi(1) = FindWindow _ ("Shell_TrayWnd", vbNullString) Animasi(2) = FindWindowEx _ (Animasi(1), ByVal 0&, _   "Button", vbNullString) Maxi_Shell_TrayWnd = Animasi(2) End Function

Private Sub Option1_Click Timer1.Interval = 500 End Sub

Private Sub Option2_Click Timer1.Interval = 200 End Sub

Private Sub Option3_Click Timer1.Interval = 100 End Sub

Private Sub HScroll1_Change Timer1.Interval = HScroll1.Value End Sub

Private Sub Timer1_Timer Dim hText As String, btnHwnd As Long Static pos As Integer hText = Text1.Text btnHwnd = Maxi_Shell_TrayWnd If btnHwnd > 0 Then If pos < Len(hText) Then pos = pos + 1 Else pos = 1 End If  SetWindowText Maxi_Shell_TrayWnd, _ Mid(hText, pos, 4) RedrawWindow Maxi_Shell_TrayWnd, _ ByVal 0&, ByVal 0&, &H1 End If End Sub