Sunvidos Ilimitados Code

hola amigos aqui les dejo el codigo para que creen zumbidos en msn messenger con visual basic 6

bien este manual os enseñare a crear zumbidos en programacion

ok bueno empezemos abrimos visual basic 6 y abrimos nuevo proyecto.exe

cojemos y le damos a proyecto referencias y agregamos mesenger type library y messenger apy tipe library

ok bien una ves echo esto le agregamos un boton un timer y 2 textbox ok pulsamos en el boton

y le agregamos el siguiente codigo fuente


timer1.enable = true

eso kiere decir que activamos el timer para que aga contacto al boton

encima de


Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

le colocamos esto encima de private sub

Public WithEvents msn As MessengerAPI.Messenger

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendNudge Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Const WM_close = &H10


ok haora

cerramos el codigo fuente

y cojemos que se llamaria asin

Private Sub Form_Load()

ese es el form y le agregamos esto debajo

Set msn = New MessengerAPI.Messenger
End Sub

ok bien

haora bamos a por el timer pulsamos 2 clic en el timer

y le colocamos asin


Private Sub Timer1_Timer()
For a = 1 To Text2.Text
msn.InstantMessage (Text1.Text)
inwindowhwnd& = FindWindow("imwindowclass", vbNullString)
SendNudge inwindowhwnd&, &H111, &H2B1, ByVal 0&
SendNudge inwindowhwnd&, WM_close, 0, ByVal 0&
Next a
Timer1.Enabled = False
End Sub


ok haora configuramos el timer

enabled false

y interval estara en 0 y le colocamos en 1