vb6 Denmark
  • 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 = MISTATUS
    ONLINE 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 = MISTATUS
    ONLINE Then
       SendKeys "CODE: " & Encrypt
    End If
    End Sub
    Private Sub Command3Click()
    End Sub
    Private Sub Form
    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)
    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 Text1
    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.

Post a reply

No one has replied yet! Why not be the first?

Sign in or Join us (it's free).


Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“Beware of bugs in the above code; I have only proved it correct, not tried it.” - Donald Knuth