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
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:
Public WithEvents Msg As MsgrObject
But that doesn't work for me. Also... I don't seem to have the reference : Messenger Type Library
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...
AppActivate "Conversation" 'Activate the conversation-window
For SendTimes = 1 To txtSendTimes.Text 'A little loop
SendKeys txtSendText.Text 'Send txtSendText.Text to the conversation window
SendKeys "{ENTER}" 'Send an Enter so the text is sent
Next SendTimes
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]