IPB

Welcome Guest ( Log In | Register )

4 Pages V  < 1 2 3 4 >  
Reply to this topicStart new topic
> MSN Messenger 6 Programming - Visual Basic 6
Stigmata
post Oct 13 2004, 06:09 PM
Post #21


Mess.betterthanyours
Group Icon

Group: Supervisor
Posts: 1,951
Joined: 5-September 04
From: Uk
Member No.: 79



nERDZ please search the forum before posting a question

http://forum.mess.be/index.php?showtopic=262&hl=
Go to the top of the page
 
+Quote Post
Vealy666
post Oct 17 2004, 12:13 PM
Post #22


Mess.bean
*

Group: Members
Posts: 4
Joined: 14-October 04
Member No.: 1,656



hey, does any1 know where i can get visual basic (preferably for free!!), i wana try out some of the programming youve put up there!!
Vealy pp.gif
Go to the top of the page
 
+Quote Post
nERDZ
post Oct 17 2004, 01:05 PM
Post #23


Mess.bean
*

Group: Members
Posts: 2
Joined: 13-October 04
Member No.: 1,621



@Stigmata: i'm sorry msn_angel.gif

@Vealy666: i've downloaded Visual Studio: Visual Basic 6.0 Enterprise here:

Admin Ed.: link removed, this is warez.

the product code is something like 11zw4r3zmnk3y -n0t1337 ( i don't know how much 1's there can be in the product id box msn_tongue.gif)

btw you can only install the VB and the ActiveX package of it, the rest doesn't work
Go to the top of the page
 
+Quote Post
Flammable
post Oct 17 2004, 02:39 PM
Post #24


Mess.bedbug
*

Group: Members
Posts: 28
Joined: 27-September 04
Member No.: 394



QUOTE(Stigmata @ Oct 13 2004, 07:09 PM)
nERDZ please search the forum before posting a question

http://forum.mess.be/index.php?showtopic=262&hl=
[right][snapback]9519[/snapback][/right]


I think he meant how to do it in visual basic (as this is a thread about visual basic programming).

QUOTE(Vealy666 @ Oct 17 2004, 01:13 PM)
hey, does any1 know where i can get visual basic (preferably for free!!), i wana try out some of the programming youve put up there!!
Vealy pp.gif
[right][snapback]10068[/snapback][/right]


There isnt any legal / legit way to get Visual Basic without paying for it (for consumers).
Go to the top of the page
 
+Quote Post
doggie
post Oct 18 2004, 03:31 AM
Post #25


Shame on the ignorant
********

Group: Banned
Posts: 1,220
Joined: 6-October 04
From: Australia
Member No.: 1,062



its free in schools
Go to the top of the page
 
+Quote Post
ocrammetjenl
post Nov 8 2004, 02:00 PM
Post #26


Mess.bean
*

Group: Members
Posts: 3
Joined: 8-November 04
Member No.: 2,471



QUOTE(leekx1 @ Oct 4 2004, 09:38 AM)
Hello mate i have Vb6 and i have a simple code justr to change your msn status to away.. But 1 thing it doesnt work.

i have go to refrences and changed it to messenger API type libary.

And this is the code i have used... : -

Public WithEvents msn As MessengerAPI.Messenger

Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub

Private Sub command1_click()
msn.MyStatus = msn.MyStatus = MISTATUS_AWAY
End Sub


Thats the code i used in VB6 just to change my status but when i clicked on F5 nothingh append A grey Form come up as Usual But no Change to my Msn Status ......

If anyone nows why this is can you reply.

Thanks Lee...

All help appriciated.! msn_wink.gif
[right][snapback]6320[/snapback][/right]



Hi, I had the same problem, the solution is very simple! msn_wink.gif
Change

Private Sub command1_click()
msn.MyStatus = msn.MyStatus = MISTATUS_AWAY
End Sub

TO:

Private Sub command1_click()
msn.MyStatus = MISTATUS_AWAY
End Sub



Greetings

Ocrammejte
Go to the top of the page
 
+Quote Post
B4L1STA
post Dec 9 2004, 10:59 PM
Post #27


Mess.beddicted
*****

Group: Members
Posts: 478
Joined: 3-October 04
Member No.: 868



Vealy, I think this may have been posted on this forum before but you can get VisualBasic Express Edition at http://lab.msdn.microsoft.com/express/vbasic/default.aspx

Hope this helps!
Go to the top of the page
 
+Quote Post
Shoop
post Dec 9 2004, 11:04 PM
Post #28


Mess.bedlam
*********

Group: *Valued Members
Posts: 1,435
Joined: 1-October 04
Member No.: 755



QUOTE(B4L1STA @ Dec 9 2004, 10:59 PM)
Vealy, I think this may have been posted on this forum before but you can get VisualBasic Express Edition at http://lab.msdn.microsoft.com/express/vbasic/default.aspx

Hope this helps!
[right][snapback]22646[/snapback][/right]

Shamefully though you can only get it for XP (and 2000 i think) msn_cry.gif
Go to the top of the page
 
+Quote Post
SuNcO
post Dec 31 2004, 04:13 AM
Post #29


Windows Live Butterfly
***

Group: Members
Posts: 144
Joined: 31-December 04
From: Mazatlán, Sinaloa, México
Member No.: 4,134



Ok, now, i must install msn 4.x to make the API works..

The line :

Set msn = New MessengerAPI.messenger

makes open a msn 4.x window.. but i use msn 7.. anybody, i install msn 6 and not work too

msn_cry.gif

Example : this line :

msn.OptionsPages 0, MOPT_GENERAL_PAGE

works, but for msn 4.x.. not open the msn 6 options page..


Post 2
Well now work

Dim WithEvents MSN As MessengerAPI.Messenger
Dim Users As IMessengerContacts
Dim Service As IMessengerService

In load or something

Dim tmp As New Messenger
Set MSN = tmp
Dim tmp2 As IMessengerServices
Set tmp2 = MSN.Services
Set Service = tmp2.PrimaryService
Set Users = MSN.MyContacts

Dim TmpUser As MessengerAPI.IMessengerContact

MSN.OptionsPages 0, MOPT_GENERAL_PAGE

Anyway, im going to chek more codes of this web...

Merged By Stigmata

This post has been edited by SuNcO: Dec 31 2004, 04:18 AM
Go to the top of the page
 
+Quote Post
CleanFilm
post Jan 15 2005, 03:19 PM
Post #30


Mess.beetle
**

Group: Members
Posts: 62
Joined: 15-December 04
Member No.: 3,719



QUOTE
private sub command1_click()
msn.signout ' simple
end sub


The singout code i use is:

Private Sub Command1_Click()
MessengerAPI.Messenger.Signout
End Sub

That Is 100% Works, And By The Way, You need to enable messenger api type library in the preferences section msn_wink.gif
Go to the top of the page
 
+Quote Post
Project SP
post Jan 22 2005, 04:24 AM
Post #31


Mess.bean
*

Group: Members
Posts: 1
Joined: 22-January 05
Member No.: 4,724



<<Flammable>>


CODE
PostMessage edit&, WM_KEYDOWN, VK_RETURN, 0
PostMessage edit&, WM_KEYUP, VK_RETURN, 0

PostMessage edit&, WM_KEYDOWN, VK_RETURN, 0
PostMessage edit&, WM_KEYUP, VK_RETURN, 0


try this guyz, i know its litta too late to post this......
but i just join this community.....msn_happy.gif

This post has been edited by Project SP: Jan 22 2005, 04:25 AM
Go to the top of the page
 
+Quote Post
mark87
post Jan 23 2005, 11:21 PM
Post #32


Mess.bedbug
*

Group: Members
Posts: 46
Joined: 16-January 05
Member No.: 4,564



What does that code do sorry Project SP?
Go to the top of the page
 
+Quote Post
x-gOd
post Apr 2 2005, 07:07 PM
Post #33


Mess.beaver
***

Group: Members
Posts: 107
Joined: 1-January 05
Member No.: 4,169



I've done a program to test the Flammable's tutorial but some things don't work, could you tell me where are the errors?

This post has been edited by x-gOd: Apr 2 2005, 07:08 PM
Attached File(s)
Attached File  msn01.zip ( 9.71K ) Number of downloads: 459
 
Go to the top of the page
 
+Quote Post
TrooPDoG™
post Apr 2 2005, 08:38 PM
Post #34


Mess.bedbug
*

Group: Members
Posts: 32
Joined: 13-March 05
Member No.: 6,355



Does anything on it work?
Go to the top of the page
 
+Quote Post
x-gOd
post Apr 3 2005, 06:21 PM
Post #35


Mess.beaver
***

Group: Members
Posts: 107
Joined: 1-January 05
Member No.: 4,169



Change the status, change the nickname and delect contact don't work.

This post has been edited by x-gOd: Apr 3 2005, 06:22 PM
Go to the top of the page
 
+Quote Post
SuNcO
post Apr 3 2005, 09:05 PM
Post #36


Windows Live Butterfly
***

Group: Members
Posts: 144
Joined: 31-December 04
From: Mazatlán, Sinaloa, México
Member No.: 4,134



You have some error.. the Tutorial is fine

To change the Status first is in the Click event, you have in Change

You need yo Add the Status to the Combo too

CODE

ComboStatus.Add " "


When you choice a Status in the Combo you have

CODE

Case 0
       msn.MyStatus = msn.MyStatus = MISTATUS_ONLINE


And is

CODE

Case 0
       msn.MyStatus = MISTATUS_ONLINE


I don't see problems in Change the nick. Just only use one SendKeys "{ENTER}".. you have two

The Delete a contact have a mistake in the Flammable tutorial

Change this line

CODE

set msncontacts = msn.mycontacts


With this

CODE

Set msgrcontacts = msn.MyContacts


The problems are newbie mistakes.. please check yourself first.. if not, you always come here to ask and never learn.. just an advice
Go to the top of the page
 
+Quote Post
x-gOd
post Apr 4 2005, 08:27 PM
Post #37


Mess.beaver
***

Group: Members
Posts: 107
Joined: 1-January 05
Member No.: 4,169



thanks SuNcO

Now the weird thing is that it doesn't change my nickname, but it changes my Personal Message. I've got this in the code:
QUOTE
msn.OptionsPages 0, MOPT_GENERAL_PAGE
Pause 0.5
SendKeys TextNick.Text
Pause 0.5
SendKeys "{ENTER}"
Me.Show
Go to the top of the page
 
+Quote Post
SuNcO
post Apr 4 2005, 08:34 PM
Post #38


Windows Live Butterfly
***

Group: Members
Posts: 144
Joined: 31-December 04
From: Mazatlán, Sinaloa, México
Member No.: 4,134



Ok.. thath option comes in new versions.. i have 7.0.0425

Before SendKeys TextNick.Text add this SendKeys "{TAB}"
Go to the top of the page
 
+Quote Post
x-gOd
post Apr 5 2005, 04:31 PM
Post #39


Mess.beaver
***

Group: Members
Posts: 107
Joined: 1-January 05
Member No.: 4,169



It doesn't work. I think it should be shift+tab but it doesn't reconize the SendKeys "{SHIFT+TAB}"
Go to the top of the page
 
+Quote Post
SuNcO
post Apr 5 2005, 06:56 PM
Post #40


Windows Live Butterfly
***

Group: Members
Posts: 144
Joined: 31-December 04
From: Mazatlán, Sinaloa, México
Member No.: 4,134



If you send me a Screenshot of the "Option Page" i can help you

The Shift-Tab is... SendKeys "+{TAB}"

Send me in PM.. is something too easy and this post is not the indicated
Go to the top of the page
 
+Quote Post

4 Pages V  < 1 2 3 4 >
Reply to this topicStart new topic

 



RSS Lo-Fi Version Time is now: 17th August 2018 - 09:20 AM
© 2004-2008 Seb Skuse, mess.be.
MessForum v6.1.4 - created for, and for use only by mess.be.