Yippee! another outdated ish post from myself, more stuff at bust3d.net..

 

anyway:

 

 

**************************

Visual Basic 6.0 Msn Tutorial.

**************************

By Ph

 

 

:unsure: Ok, lets get started, First of all: what this does;

This Tutorial Is gonna show you how you can make a basic MSN Exploit, Like the one on my site. :)

 

***********************

What you will be able to do:

***********************

for this tutorial im gonna keep it BASIC , so everyone gets the hang of it, then ill post more.

- You will Be able to change your status;

- You will be able to make a status Flasher;

- You will be able to Veiw your current nickname in a textbox

 

**********************

Requirements.

**********************

 

Visual Basic 6.0 Or later.

Msn Messenger Installed.

 

***************************

The Beggining :ph43r:

***************************

Ok First of all , and MOST IMPORTANTLY, open visual basic, File>new>exe

then; Project>References.

Select Messenger API type library, and Messenger API type Library!!!

(these tell vb what your current project will be refering to when you write some code.)

 

Then up the very top ABOVE Form_load Type this:

 

Option Explicit

Private WithEvents MSN As MessengerAPI.Messenger

 

This means to trigger VB knowing you're refering to something in MSN's API's in references. by typing "with msn"

 

[sETTING STATUS]

 

Step One: Add A combo Box onto your Projects interface.

Step two: Name it cstatus (in the propertys box on the far right)

Step Three: Double click on it and insert this code ;

 

 

Private Sub cstatus_Change()
  If cstatus.Text$ = Empty Then Exit Sub

 

 With MSN

	 Select Case cstatus.Text$

		 Case "Online"

			 .MyStatus = MISTATUS_ONLINE

		 Case "Busy"

			 .MyStatus = MISTATUS_BUSY

		 Case "Be Right Back"

			 .MyStatus = MISTATUS_BE_RIGHT_BACK

		 Case "On The Phone"

			 .MyStatus = MISTATUS_ON_THE_PHONE

		 Case "Out To Lunch"

			 .MyStatus = MISTATUS_OUT_TO_LUNCH

		 Case "Appear Offline"

			 .MyStatus = MISTATUS_INVISIBLE

	 End Select

 End With

 

 

 

This adds Options in the dropdown menu (eg Case "Online") and then tells it what they mean (eg. .MyStatus = MISTATUS_ONLINE )

 

Step Four: in sub "Form_load" add this code

 

Set MSN = New MessengerAPI.Messenger



 With cstatus

	 Call .AddItem("Online")

	 Call .AddItem("Busy")

	 Call .AddItem("Be Right Back")

	 Call .AddItem("On The Phone")

	 Call .AddItem("Out To Lunch")

	 Call .AddItem("Appear Offline")

 End With

 

(this adds the drop down options)

 

Step Five: Add A new Button onto your projects interface.

Step Six: Name the button "cmdsetstatus" (without quotes) the same way you did with combo box in step two.

 

Step Seven: Double Click on it and insert this code!!

 

Private Sub cmdsetstatus_Click()
  If cstatus.Text$ = Empty Then Exit Sub

 

 With MSN

	 Select Case cstatus.Text$

		 Case "Online"

			 .MyStatus = MISTATUS_ONLINE

		 Case "Busy"

			 .MyStatus = MISTATUS_BUSY

		 Case "Be Right Back"

			 .MyStatus = MISTATUS_BE_RIGHT_BACK

		 Case "On The Phone"

			 .MyStatus = MISTATUS_ON_THE_PHONE

		 Case "Out To Lunch"

			 .MyStatus = MISTATUS_OUT_TO_LUNCH

		 Case "Appear Offline"

			 .MyStatus = MISTATUS_INVISIBLE

	 End Select

 End With

 

Step Eight: test your project (with msn open) , if it works right you should be able to open a drop down box and set your status by clicking the button.

 

Step nine: [The status Flasher] :ph43r:

(you may stop now and not add this , but its fun to add)

 

On your project add two timers.

Call the first one : "statusfo"

Call the second one: "statusfonl"

 

Disable Both The Timers.

 

Somewhere in your code Not in a sub add this Code

 

'*****************************
'beggining of status calls
'*****************************


Public Sub online()
With MSN
.MyStatus = MISTATUS_ONLINE
End With
End Sub

Public Sub BrB()
With MSN
.MyStatus = MISTATUS_BE_RIGHT_BACK
End With
End Sub


Public Sub away()
With MSN
.MyStatus = MISTATUS_AWAY
End With
End Sub

Public Sub busy()
With MSN
.MyStatus = MISTATUS_BUSY
End With
End Sub

Public Sub onthephone()
With MSN
.MyStatus = MISTATUS_ON_THE_PHONE
End With
End Sub

Public Sub offline()
With MSN
.MyStatus = MISTATUS_OFFLINE
End With
End Sub

Public Sub AppearOffline()
With MSN
.MyStatus = MISTATUS_INVISIBLE
End With
End Sub

Public Sub out2lunch()
With MSN
.MyStatus = MISTATUS_OUT_TO_LUNCH
End With
End Sub
'********************
'End of status calls
'********************

 

Then double click insside the first timer.

Type "Call Appearoffline"

 

Then double click inside the Second timer.

type "call online"

 

MAKE SURE BOTH TIMERS ARE DISABLED.

Disable them via propertys page where you cahnge name.

or insert this code in the timers

timer 1: statusfo.enabled = false

timer 2: status fonl.enabled = false

 

Then in timer1 add this : statusfo.interval = 500

in timer2 add this : statusfonl.interval = 800

:)

 

 

 

**************

adding buttons

***************

 

Create Two New Buttons.

 

Call the first "on"

and the second "off"

 

Double Click inside the

First button and add this

 

Private Sub on_Click()
statusfo.Enabled = True
statusfonl.Enabled = True
End Sub

 

and put this in the second one:

 

Private Sub off_Click()
statusfo.Enabled = False
statusfonl.Enabled = False
End Sub

 

You've Now added a status flasher START button and a status flasher STOP button.

 

Test your Program and it should work.

 

NOTE: a status flasher is a program that signs on and off over and over again to get ppls attention B) :lol:

 

Thats it, any problems/suggestions PM me or Post!! B) :ph43r: :smooth:

 

If you're ever in doubt of being bothered to read this whole thing just remember

 

include the msn api

 

and do something like this

http://www.ckyklan.com/ph/miscpics/blankcanvas.jpg

put a dot then itll have various msn api options ;)

Sorry it doesn't work with 8.0 fgt make a new one.

banned from tgs fpr ripping... so you come here... lawl

:dunno:

Banned from tgs?

i'm not banned ..?

 

ripping? ripping what?

 

also, the topic clearly says 7.5 :p

 

for 8.0, install plus and use sendkeys.

rofl x3 was banned from tgs :facesj: not ph :rolleyes:

i reckon :\, i coded this entire tut myself thankyou very much.

 

banned from tgs fpr ripping... so you come here... lawl

http://fukung.net/images/2121/bunny-with-pancake.jpg

i reckon :\, i coded this entire tut myself thankyou very much.

 

 

http://fukung.net/images/2121/bunny-with-pancake.jpg

 

qft

that bunny gets me every time.. but i prefer the ego waffle bunney betrar. :dunno: