• Home
 · 
• Internet/HTML
 · 
• To auto respond to an MSN Instant Message

To auto respond to an MSN Instant Message

To auto respond to an MSN Instant Message

Rate To auto respond to an MSN Instant Message

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'-------------------------USE-----------------------
'-----------------------FREELY----------------------
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "user32" ()
Dim WithEvents respond As MsgrObject
Dim MsnApp As IMessengerApp


Private Sub Command1_Click()
Unload frmRespond
End Sub

Private Sub Form_Load()
Set respond = New MsgrObject 'declaring the messenger object
 Set MsnApp = CreateObject("messenger.messengerapp") 'declaring the messenger object
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim lngReturnValue As Long 'for the form to move by dragging
   If Button = 1 Then
      Call ReleaseCapture
      lngReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
  End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set respond = Nothing ' after use it will delete the declared method
End Sub

Private Sub lblInfo_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim lngReturnValue As Long
   If Button = 1 Then
      Call ReleaseCapture
      lngReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
  End If
End Sub

Private Sub lblTitleBar_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim lngReturnValue As Long
   If Button = 1 Then
      Call ReleaseCapture
      lngReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
  End If
End Sub

Private Sub respond_OnLogoff()
frmstop.Show ' detects if u log off and will shutdown the program
End Sub

Private Sub respond_OnTextReceived(ByVal pIMSession As Messenger.IMsgrIMSession, ByVal pSourceUser As Messenger.IMsgrUser, ByVal bstrMsgHeader As String, ByVal bstrMsgText As String, pfEnableDefault As Boolean)
If Check1.Value = 1 Then
MsnApp.LaunchIMUI pSourceUser ' launches a im window to the person that trying to contact u
MsnApp.IMWindows.Item(0).SendText (Text1.Text) 'away message details
End If
End Sub