Problem..

• • Reply

  15 years ago

  by Mathy

  Mathias Lorenzen

  Denmark, Denmark

  Joined 15 years ago

  Here's my whole code:
  

  
  Public WithEvents MSN As MessengerAPI.Messenger
  Public WithEvents MSNSENDER As MessengerPrivNative
  Private Sub Command1Click()
  MSN.InstantMessage (Text1.Text)
  If MSN.MyStatus = MISTATUSONLINE Then
     SendKeys "Mathy's Encryption System Loaded!+{ENTER}Author: Mathy Productions+{ENTER}For more information see this readme file:"
  End If
  Command2.Enabled = True
  End Sub
  Private Sub Command2Click()
  Dim Encrypt
  Encrypt = Encode(Text4.Text)
  Text4.Text = ""
  MSN.InstantMessage (Text1.Text)
  If MSN.MyStatus = MISTATUSONLINE Then
     SendKeys "CODE: " & Encrypt
  End If
  End Sub
  Private Sub Command3Click()
  End
  End Sub
  Private Sub FormLoad()
  Set MSN = New MessengerAPI.Messenger
  Set MSNSENDER = New MessengerPrivNative
  Dim MSNContact As IMessengerContact
  Dim MSNContacts As IMessengerContacts
  Set MSNContacts = MSN.MyContacts
  For Each MSNContact In MSNContacts
  List1.AddItem (MSNContact.SigninName)
  Next
  End Sub
  Private Sub List1Click()
  On Error Resume Next
  For C = 0 To 200
     If List1.Selected(C) Then
         Text1.Text = List1.Text
     End If
  Next C
  End Sub
  Private Sub Text1Change()
  Command2.Enabled = False
  End Sub
  

  
  But how can i make my application actually receive data that's sended from the other guy?
  I need help on this! Also i need to know how to send a file in MSN via Visual Basic.

  Report abuse