Results 1 to 10 of 10

Thread: MSN messenger bot making help pleaze read here!!!!!!

  1. #1

    Thread Starter
    Junior Member
    Join Date
    Sep 2001
    Posts
    16

    MSN messenger bot making help pleaze read here!!!!!!

    hello i am new to programming i started because i wanted to make a bot for msn messenger u may of heard of, hellstorm, project energiser, and so on,

    the thing is i dont have a clue on how to even start making it i ask people who make bots and they wont even give me tutorials or they codes for their bots for me to learn from so will someone on here plz help me by posting there bot codes or tutorials or any piece or info/help


    thnx cyas

    micky
    .:*M*:._.:*E*:._.:*L*:._.:*O*:._.:*D*:._.:*I*:._.:*Z*:._.:*E*:._.:*R*:.

  2. #2
    Fanatic Member Kings's Avatar
    Join Date
    Aug 2001
    Posts
    673
    Originally posted by Kings
    I made a MSN Messenger Add-On and I used the MSN Messenger Library.


    Goto project/references and search for MSN Messenger Library or something similiar. Tick it and click on Ok.

    Then press F2 to view it's objects

    Good Luck
    K i n g s

  3. #3
    TheSarlacc
    Guest
    hey here u go technoyouth. it may not be what u want exactly, but you can just edit the code to make it the way u want. any questions, just ask...
    Attached Files Attached Files

  4. #4
    Hyperactive Member
    Join Date
    Jan 2003
    Location
    The Netherlands
    Posts
    386
    In your code I see...

    VB Code:
    1. Private Sub Msg_OnTextRecieved(ByVal pIMSession As Messenger.IMsgrIMSession, ByVal pSourceUser As Messenger.IMsgrUser, ByVal bstrMsgHeader As String, ByVal bstrMsgText As String, pfEnableDefault As Boolean)

    I was wondering how you got that 'MSG'

    At the beginning of the code I see you declaring it :

    VB Code:
    1. Public WithEvents Msg As MsgrObject

    But that doesn't work for me. Also... I don't seem to have the reference :
    Messenger Type Library

  5. #5
    Fanatic Member Kings's Avatar
    Join Date
    Aug 2001
    Posts
    673
    This thread is over a year old, and MSN Messenger has since changed a lot. That code probably won't work anymore.

    I suggest you visit Mess with Messenger for help on programming with MSN Messenger. They've got plenty of examples and other stuff.
    K i n g s

  6. #6
    Hyperactive Member
    Join Date
    Jan 2003
    Location
    The Netherlands
    Posts
    386
    The site that you are talking about doesn't have any Visual Basic code on it. The code in this thread works very well, I just needed some explanation.

  7. #7
    Fanatic Member Kings's Avatar
    Join Date
    Aug 2001
    Posts
    673
    Originally posted by Venom555
    The site that you are talking about doesn't have any Visual Basic code on it. The code in this thread works very well, I just needed some explanation.
    MSNFanatic has a seperate section for developers, with code examples and other nifty stuff.

    And you said the code didn't work for you (which is quite logical, because that code is for Messenger 4.7 and below, and doesn't work with Messenger 5.0)
    Originally posted by Venom555
    But that doesn't work for me. Also...
    K i n g s

  8. #8
    Hyperactive Member
    Join Date
    Jan 2003
    Location
    The Netherlands
    Posts
    386
    Well, when I run the appication it works fine, but if I were to type a bit of the code over, it doesn't work even with the same references.

    MSNFanatic has a seperate section for developers, with code examples and other nifty stuff
    Thanks!

  9. #9
    Junior Member
    Join Date
    May 2003
    Posts
    17
    Hi,

    I don't exactly know what you want to make, but I'll help you a little with a flooder-code (sending the same message time after time):
    VB Code:
    1. On Error Resume Next
    2. Dim SendTimes As Integer
    3. ----------------------------------------------------------------------------------
    4.  Private Sub CmdFlood_Click()
    5.   AppActivate "Conversation" 'Activate the conversation-window
    6.   For SendTimes = 1 To txtSendTimes.Text 'A little loop
    7.    SendKeys txtSendText.Text 'Send txtSendText.Text to the conversation window
    8.    SendKeys "{ENTER}" 'Send an Enter so the text is sent
    9.   Next SendTimes
    10.  End Sub
    [vbcode]
    Private Sub AskAQuestion(Me As Question, Others As Answer)
    MsgBox "Answer: " & Others
    End Sub

    Private Sub HelpOthers()
    If Answer = Known Then
    Give Answer
    Else
    MakeUpAnswerAndLookSmart
    End If
    End Sub
    [/vbcode]
    [vbcode]
    Private Sub Teddo_WakeUp()
    If HelpOther = Possible Then
    HelpOthers
    Else
    AskAQuestion
    End If
    End Sub
    [/vbcode]

  10. #10
    Hyperactive Member
    Join Date
    Jan 2003
    Location
    The Netherlands
    Posts
    386
    Thanks!!! That helped alot!!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width