HomeSearchFiles
User Control Panel
Advertisements

HELP US, HELP YOU!

Help with commands

 
Post new topic   Reply to topic    Bot Depot Forum Index -> Visual Basic
View unanswered posts
Author Message
Lewis
Newbie
Newbie


Joined: 30 Dec 2003
Posts: 7

Reputation: 28.8Reputation: 28.8Reputation: 28.8
PostPosted: Tue Dec 30, 2003 2:43 am    Post subject: Reply with quote
Hey can anyone help:? i have tried lots but cannot figure out how do make users do a popup like #pop text here and a popup would come up like somone signed in and said the users message if you can help that be great thanks btw my bot is codded in Visual Basics and is for msn.

Lewis
Thanks
Back to top
pinco
Newbie
Newbie


Joined: 30 Dec 2003
Posts: 21

Reputation: 29.1Reputation: 29.1Reputation: 29.1
PostPosted: Tue Dec 30, 2003 8:03 am    Post subject: Reply with quote
Ok i have one, i hope its usefull for *lazy*:
Code:
<br />if ($msg =~ /^\#nickmsg (.*)/i) {<br />open (FILE, "oldname.txt");<br />$oldname = <FILE>;<br />close(FILE);<br />$msn->set_name("$1");<br />$msn->set_status("HDN");<br />$msn->set_status("NLN");<br />$msn->set_name("$oldname");<br />#send a confirmination messages<br />return;<br />}<br />

but for this ull need to create a file named oldname.txt and put in yours bot usuall nickname.
IT WILL WORK LIKE THIS:
Admin says:
#nickmsg hello all, bot is online!..
and youll c the pop up saying that text Wink try it

PS: this message is shown to all users. i hope it works
Back to top
Lewis
Newbie
Newbie


Joined: 30 Dec 2003
Posts: 7

Reputation: 28.8Reputation: 28.8Reputation: 28.8
PostPosted: Tue Dec 30, 2003 6:22 pm    Post subject: Reply with quote
Kool man it worked thanks!
Back to top
Micky G
Member
Member


Joined: 30 Dec 2003
Posts: 144

Reputation: 31.5Reputation: 31.5Reputation: 31.5
PostPosted: Tue Dec 30, 2003 7:13 pm    Post subject: Reply with quote
But does anyone know how to do this in VB? :unsure:
Back to top
Sypher_old
Newbie
Newbie


Joined: 30 Dec 2003
Posts: 14

Reputation: 28.9Reputation: 28.9Reputation: 28.9
PostPosted: Tue Dec 30, 2003 7:58 pm    Post subject: Reply with quote
well you asked it in the Perl forum Smile
Back to top
Nate
God Like
God Like


Joined: 12 Nov 2003
Posts: 553

Reputation: 41.3Reputation: 41.3Reputation: 41.3Reputation: 41.3
PostPosted: Tue Dec 30, 2003 8:11 pm    Post subject: Reply with quote
QUOTE(Lewis @ Dec 29 2003, 06:43 PM)
Hey can anyone help:? i have tried lots but cannot figure out how do make users do a popup like #pop text here and a popup would come up like somone signed in and said the users message if you can help that be great thanks btw my bot is codded in Visual Basics and is for msn.

Lewis
Thanks

That code was in Perl. Razz
Back to top
Micky G
Member
Member


Joined: 30 Dec 2003
Posts: 144

Reputation: 31.5Reputation: 31.5Reputation: 31.5
PostPosted: Tue Dec 30, 2003 8:23 pm    Post subject: Reply with quote
Razz Smile Razz Smile B) Razz So does anyone no it in VB?
Back to top
Chris
Young One
Young One


Joined: 28 Nov 2003
Posts: 65

Reputation: 31Reputation: 31Reputation: 31
PostPosted: Tue Dec 30, 2003 10:40 pm    Post subject: Reply with quote
Ok
Yes I DO And Here Is The Code
Code:
<br />If Left(bstrMsgText, 9) = "!modalert" Then<br />MSN.LocalState = MSTATE_INVISIBLE<br />bstrMsgText = Replace(bstrMsgText, "!modalert ", "")<br />MSN.Services.PrimaryService.FriendlyName = "Mod Alert: " & bstrMsgText & vbCrLf & vbCrLf & vbCrLf & " "<br />MSN.LocalState = MSTATE_ONLINE<br />MSN.Services.PrimaryService.FriendlyName = "NameHere"<br />End If<br />
Back to top
Keenie
Almost An Agent
Almost An Agent


Joined: 31 Oct 2003
Posts: 1071

Reputation: 52.4
PostPosted: Tue Dec 30, 2003 10:49 pm    Post subject: Reply with quote
chris that code uses the messenger api, on top of that it uses the msn 4.x messenger api which no longer exists (with the exception of windows messenger 4.7) i think hes actually using the protocol which you have to send the commands to the server, the commands i posted in the other topic this guy made about the exact thing (i posted a link to it, but eric deleted my post :rolleyes: )
Back to top
Porto
Senior Member
Senior Member


Joined: 07 Jan 2004
Posts: 152

Reputation: 31.4Reputation: 31.4Reputation: 31.4
PostPosted: Fri Jan 09, 2004 5:42 pm    Post subject: Reply with quote
the code donst work on my bot i press !modalert test does nothing :blink:
Back to top
Kankionojoku
Newbie
Newbie


Joined: 13 Dec 2003
Posts: 14

Reputation: 29.5Reputation: 29.5Reputation: 29.5
PostPosted: Wed Jan 14, 2004 3:30 pm    Post subject: Reply with quote
Chris, are you totally dumb... ?

Here is the VB Code for a status changer:

Code:
Private Sub lstStatus_Click()<br />     If lstStatus.Text = "ONLINE" Then<br />     Call SendNS("CHG %id% NLN")<br />     End If<br />          If lstStatus.Text = "BUSY" Then<br />          Call SendNS("CHG %id% BSY")<br />          End If<br />               If lstStatus.Text = "BE RIGHT BACK" Then<br />               Call SendNS("CHG %id% BRB")<br />               End If<br />          If lstStatus.Text = "AWAY" Then<br />          Call SendNS("CHG %id% AWY")<br />          End If<br />     If lstStatus.Text = "OUT TO LUNCH" Then<br />     Call SendNS("CHG %id% LUN")<br />     End If<br />If lstStatus.Text = "ON THE PHONE" Then<br />Call SendNS("CHG %id% PHN")<br />End If<br />     If lstStatus.Text = "APPEAR OFFLINE" Then<br />     Call SendNS("CHG %id% HDN")<br />     End If<br />End Sub<br />
Back to top
Keenie
Almost An Agent
Almost An Agent


Joined: 31 Oct 2003
Posts: 1071

Reputation: 52.4
PostPosted: Wed Jan 14, 2004 5:47 pm    Post subject: Reply with quote
even nicer Smile

Code:
Private Sub lstStatus_Click()<br />     Select Case lstStatus.text<br />         Case "ONLINE"<br />              Call SendNS("CHG %id% NLN")<br />         Case "BUSY"<br />              Call SendNS("CHG %id% BSY")<br />         Case "BE RIGHT BACK"<br />              Call SendNS("CHG %id% BRB")<br />         Case "AWAY"<br />              Call SendNS("CHG %id% AWY")<br />         Case "OUT TO LUNCH"<br />              Call SendNS("CHG %id% LUN")<br />         Case "ON THE PHONE"<br />              Call SendNS("CHG %id% PHN")<br />         Case "APPEAR OFFLINE" <br />              Call SendNS("CHG %id% HDN")<br />     End Select    <br />End Sub
Back to top
mat007
Almost An Agent
Almost An Agent


Joined: 12 Jan 2004
Posts: 1375

Reputation: 15.8Reputation: 15.8
votes: 2
PostPosted: Thu Jan 15, 2004 9:57 pm    Post subject: Reply with quote
Its ok Now Smile He quit coding our bot so im coding on my own a msnp9 now Smile
Dang Lewy
He V rarely comes on now either ^0)
Back to top
Display posts from previous:   
Post new topic   Reply to topic    Bot Depot Forum Index -> Visual Basic All times are GMT
Page 1 of 1

 



Protected by phpBB Security phpBB-TweakS
phpBB Security Has Blocked 9 Exploit Attempts.
Antispam Captcha Mod by phpbb-security.com
Powered by phpBB © 2001, 2005 phpBB Group