Option Explicit 'Déclaration des deux objets msn qu'on va utiliser. Dim MSN As Messenger Dim ResMsn As MessengerContentInstaller Private Sub CmbStatus_Click() Dim Status As String Status = CmbStatus.Text 'On récupère le status pour le changer (Y surement un meilleur moyen mais les combobox ça me fait *** Select Case Status Case "Absent(e)" MSN.MyStatus = MISTATUS_AWAY Case "De retour dans une minute" MSN.MyStatus = MISTATUS_BE_RIGHT_BACK Case "Occupé(e)" MSN.MyStatus = MISTATUS_BUSY Case "Hors ligne" MSN.MyStatus = MISTATUS_INVISIBLE Case "Au téléphone" MSN.MyStatus = MISTATUS_ON_THE_PHONE Case "Parti(e) manger" MSN.MyStatus = MISTATUS_OUT_TO_LUNCH Case "En Ligne" MSN.MyStatus = MISTATUS_ONLINE Case Else MSN.MyStatus = MISTATUS_ONLINE End Select End Sub Private Sub cmdLogOff_Click() MSN.Signout End Sub Private Sub CmdNick_Click() MSN.MyFriendlyName = TxtNick.Text End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() On Error GoTo dead Set MSN = New MessengerAPI.Messenger Set ResMsn = New MessengerContentInstallerLibrary.MessengerContentInstaller 'on charge notre nick TxtNick.Text = MSN.MyFriendlyName 'on reprend notre status CmbStatus.Text = GetState 'On ajoute tout les status existant CmbStatus.AddItem "En Ligne" CmbStatus.AddItem "Occupé(e)" CmbStatus.AddItem "De retour dans une minute" CmbStatus.AddItem "Absent(e)" CmbStatus.AddItem "Au téléphone" CmbStatus.AddItem "Parti(e) manger" CmbStatus.AddItem "Hors ligne" Exit Sub dead: MsgBox "Erreure lors du chargement ou de l'utilisation de Msn Messenger", vbCritical, "Erreure" End Sub Private Function GetState() As String Dim Status As String 'On transforme le status encodé vers une string. Select Case MSN.MyStatus Case MISTATUS_AWAY Status = "Absent(e)" Case MISTATUS_BE_RIGHT_BACK Status = "De retour dans une minute" Case MISTATUS_BUSY Status = "Occupé(e)" Case MISTATUS_INVISIBLE Status = "Hors ligne" Case MISTATUS_OFFLINE Status = "Hors ligne" Case MISTATUS_ON_THE_PHONE Status = "Au téléphone" Case MISTATUS_OUT_TO_LUNCH Status = "Parti(e) manger" Case MISTATUS_ONLINE Status = "En Ligne" Case Else Status = "Status inconnu" End Select GetState = Status End Function
Télécharger le zip
Ja,i une question en passant, ca roulerai pas en VB6 ca ? juste en .net ... ???
ca marche directement en vb6 si tu rajoute les références pour msn
il est où ce composant msn ?? c koi son nom je le trouve po, sinon comment je l'ajoute merci
J'ai un pb, j'utilisais cet objet et lorsque je suis passé à la version 5.0 de messenger, alors VB n'a plus reconnu l'objet :( !!!Je suis en XP donc je reste avec la version 4.7 mais pour les Stations en 2000 ca va vite devenir génant.Qqu'un a-t-il une solution ?
on le trouve ou le composant messenger ????merci de votre aide@++ obelix
Héhé, salut a tous, je debute aussi dans tout ce qui est script... donc je ne comprend pas tjs tout.Le script qui est en haut, il faut faire un copier /coller dans le bloc note (ca je sais) mais on le nomme avec une extension presice?Ensuite je le place ou exactement? Je suis en detresse...
salut j aimerai bien savoir comment et ou entrer ce code .MERci
fo avoir visual studio le programme pour programmer en basic !il te compilera le cose source et fabriquera l'EXE !!!;-)Ciao
putain mais vous etes con pour avoir la doc sur les api de messenger par ya qua aller sous la section developpeur du site messenger.micosoft.com/FR etc toutah la la yen a qui ont rien comrpsia+
ba j'ai aussi un pti problème: je ne trouve pas le composant messenger ... j'suis débutant (je suppose que ça se voit lol), donc faut m'excuser si ma question est une question bête.merci d'avanceJP
sltje suis nouveau sur le site et j'ai decouvert cette source mais j'aimerai bien savoir comment l'utiliserps : j'ai visual studio.netmerci
moi aussi g Visual Studio .NET mais j'aimerais bien savoir ou est passée la fonction projet/référencesinon dans la section pour les developpers de messenger.microsoft.com/FR ya que le d/l des API de la 4.7 en english :(si kelkun c comment on utilise ca dans VS.NET avec la 5.0 (ou la 4.7 a la limite ca m'est égal puisque je veux refaire tou messenger)merci d'avance
bonjour, heu, j'aimerai savoir comment utiliser le code source de dessus, et, donc, bon, je suis debutant (ds la programation), j'ai visual basic, mé ya un prob lors de la compilation , ptetre pke j'ai pas trouvé la ou il fallais le mettre, donc, je demande de l'aide, heu, si vs voulez, vs pouvez me repondre a cette adresse :hyxe@club-internet.frmé, vs pouvez aussi repondre la !! , donc, voila, merci d'avance a tout le monde @++++
Question a l'auteur:Meme problème von VB ne propose pas le composant.c'est sensé etre un .ocx ?ou je peux le télécharger ?merci d'avance !
on a pas l'air d'etre trés sympa avec les débutants ici.Avant de savoir les pontes vous saviez pas non plus non???
arrêtez !un mec vous montre un objet qui pourrait être utile, alors le reste c'est àvous de le faire ! Lisez, essayez mais faites pas chier le gars en lui demandant, comment ? comment ?sinon pour les questions du genre "le code on doit le mettre sur bloc-note ?" Je ne suis pas contre le newbeesm mais allez aumoins savoir ce que c'est que Vb. Hint : Ce n'est pas html ( MDR )bah moi juste avec ce qu'à donné krust au début, je suis entrain de me faire un sniffer de paquets MSN depuis n'importe quelle ip ( pour les lents, c'est un logiciel qui te montre toute les conversasions engagée par un membre donné ). non c'est pour du hack :-D !!
dsl si ça te dérange, mais oui je n'ai aucune connaissance en VB, et si tu ve savoir, oui j'ai aisayé de me documenter...Mais c difficile de se documenter quand on ne sais pas ce qu'on doit chercher ! Oui je veux aisayer de le faire tt seul, mais là, francement, j'ai du mal :o(Je m'imagine que je doit mettre ça dans un fichier et le loger, mais si qqun aurai la gentillesse de l'expliquer une bonne fois pour toute, ça éviterai nombre de question "chiante"...enfin, voilà coi, en + ça me motiverai un pe plus pour progresser, et qui sais un jour vous offrir de superbes sources, qui vous ravirons !
merci de préciser ce qu'est le composant msn messengerles debutants n'en peuvent rien s'ils le sont et je trouve que les pro devrait les former pour qu'à leur tour ils le deviennent et pas les envoyer bouler comme des mal-propres !!!!
je vou ai juste dire a princefido que dacord ya des noobs , dacor c chiant sur les forums ! mai c pa une raison pour que tu te la pette style je fai ce que je veu ...(ce que je sui pa sûr) pour finir si tu était un hacker je sui pas persuadé que tuten vanterai sur un forum !!!!voila c tou sinonbonne chance et bonne année
c vrai que ça serai simpa que qqun dans son infini bonté daigne nous expliquer, comme ça on vous fera plus chier !
hé bien, ya du people sur ma vieille source ;)Donc pour information, ce code ne marche que pour msn 4.7, pour les nouvelles versions je ne sais pas, je n'ai pas encore regardé.Si vous voulez vous amuser, prenez une ancienne version et ajoutez y l'exe comme référence de votre projet et ça marchera, et pour mon prog hé bien, comme je le disait il ne marche plus sur les nouveaux clients msn messenger et je ne sais plus ou il est depuis le temps.Voilà ceci devrait cloturer le débat.PS: Non il n'est pas possible de hacker qui que ce soit grâce à cette source (du flood tout au plus).Du moins expilitement,... D'ailleur je serias assez interssé par le sniffer de princefido, bien que je n'y crois pas vraiment.Bye, Krust
bonjour, je suis un debutant. Comment faire pour complier ce source avec visual .NET?fin comment faire pour obtenir en .exe et après qu'est ce qu'il faut faire pour utiliser.Merci d'avanceWeb
Bonjour.Est ce ke l'on pourrai me dire kelles sont les variables ke l'on peut associer à : MSN.localstat = msstate_busy'status a busy ( OQP)Dans ce code aucune constante n'est définie donc msstate... est une valeur vide...et ke signifie OPQ ?Merci.
avant toute chose, bravo a tous et toutes : Le fighting spirit de la P.A. est toujours vivant. Pour ce qui concerne les infos du prog, MSDN vous connaissez?? Dsl mais trop tentant. Pour ce qui de l'histoire du bloc-note, si ya pas de visual studio ca va etre tres dur. Pour les options, voir la doc sur MSDN.microsoft.com.Alight, Voyeur!
ça m'a toujours fait rire les gens qui se disent hackers et qui programment en basic. Je sais pas pourquoi mais ça pue la présomption. Et puis j'imagine toujours un petit boutonneux de 16ans derrière son PC en train de programmer je ne sais quel prog de hacking, en demandant à sa victime de bien avoir l'obligence d'installer la dll VBrun pour le bon fonctionnement de son trojan ou autres maléfices...Que l'on soit bien clair cette source ne vaut rien, en tout cas pour un hacking digne de ce nom.Et avant d'affirmer, comme leneuf que "MSN messenger est une faille de sécurité ambulante", qu'on essaye de s'y frotter, et de se rendre compte que ça n'est pas si simple...
damienp tu me fais rire cette source n'avait à la base aucun lien avec le hacking, elle avait juste comme but de montré comment on fait pour controler msn avec un prog vb alors évite de poster des commentaires de noobies ;)allé bonne après midi.
dis moi mon petit krust, jusqu'à preuve du contraire, je n'ai pas l'impression que tes messages soient beaucoup plus interessant que les miens. En tout cas il ne sont certainement pas plus averti... Ce ki me fait rire chez toi, c'est le doute que tu laisse planer sur ta capacité de hacker. Pourtant, après une rapide lecture de ce que tu écris (vantardises et autres prétentions...) et ce que tu programmes (en basic...), on s'aperçoit vite que tu ne dois pas être aussi doué en hacking que tu ne laisse le croire.
Pour tous les newbies qui savent pas trop comment se déroule le VB: www.vb6team.fr.stKrust C'est vachement bien :)Bien que je ne trouve pas l'ocx de MSN Messenger...
je ne comprend pas comme faire pour faire marché les source msn je doit les metre ou aidé moi svp
mdr çà fais presque 2 ans que ce post a des reply en pagaille lolyen a qui aime msn ! :p
C'est vrai mdr! le temps passe vite.Si tu savais combien de message j'ai reçu à ce sujet, j'en entend tellement parler que j'ia l'impression de l'avoir posté hier.2ans j'était encore jeune à l'époque :)
salut, j'aimerai savoir quel est le nom de la reference MSN ?? car je c pas du tout c laquel !!
c kler krust, le temps passe vite...........
bah, ptetre que si vou repondié clairement o kestion posé ( la plu frequente ), le tps passerai ptetre moin vite.....et il y auré moin de réponse.....
pour ce qui est de la reference de msn, dans la source, il ya ecritSet MSN = New Messenger.MsgrObjectFaut-il vraiment vous rappeller que l'objet instancié est MsgrObject??Donc, si je suis logique, la reference devrait etre MESSENGER!!!!!!!!!!meme pas blond, ni brun, ni roux mais translucide (LOL: ca defoule)!@++
ou je pourrais telecharger les composenrs? svp
Alor voila en fai je sui un best nb ! Donc ne vous moké pas de moi svp ! :D Mais j'aimeré savoir ou c quon mais ce code ?? ??
Y a pas de zip ?En tous cas chez moi ca ne marche pas ... Si qq a reussit a le faire fonctionner j'aimerai bien qu'il m'explique ...
DoZi>> Tu le met dans une form avec 3 commandButton
Bonjour/Bonsoir,Source qui doit être très intéressante mais pourriez-vous la mettre en zip et si possible avec un .exe ?Merci d'avance et bonne continuation.
Ce serait cool de preciser quelques trucs de bases pour l'utiliser...car les debutants comme moi c'est pas trop evident a comprendre...Il marche encore avec la version actuelle de MSN soit la 6.2 ?Peut-on reelement changer le pseudo d'un autre personne ?Et puis il me semble qu'il faut modifier des trucs dans la source donc une petite aide serait la bienvenue..Merci
slt le code source ne marche il me dit que le Msgrobjecta un problème il me marque type définit de l'utilisateur sias a cause de quoi merçi de me répondre au plus vite
slt tt ll monde mais je ne c pas ou mettre la source ya quelqu un qui peut m'aider
serieu je suis sur que ton explication pour hacker msn et super mais seulemen tu explique comment faire mais tu pensse pas o debutant ki ne savent pas ou metre les source... sa serai cool que tu pensse a vraiment tou expliquer !! merci
salut,si tu ne savais pas ce qu'etait un troll maintenant tu le sais.@+P.S. : la definition d'un troll (en informatique) se trouve a l'adresse suivante http://www.copinedegeek.com/lexique_mot.php3?id_rubrique=51
ou il faut ajouté le composer msn messenger ?
mias comment avoir ton log moi j'ai hate que tu kle publi pfff lol
Chère amis, je souhaite un bon 3ème aniversaire à cette source qui sucite autant de polémique.Krust
Je vois que t'as pas pris la peine de lire les 95 commentaires :DCette source a été créée pour msn 4 puis fonctionnait toujours avec le 5 mais depuis ça a changé.Je n'ai pas encore regardé ce qui avait changé mais ça doit pas être très copmpliqué.En gros : Tu rajoutes les références msn messenger, puis si tu connais un peu de vb ça part tout seul.Voilà.(ps : dans 2 semaine ma source a 3 ans :D)
J'ai regardé les commentaires mais pas les 95:DAlors mon problème est que je connais pas mal de langages mais pas VB:dPourrais tu m'expliquer la marche à suivre stp? (et tant qu'à faire, mettre à jour le code quand tu auras le temps:d (je ne peux me risquer à développer un tel code je n'en connais pas assez sur msn)).Merci bien. KaRy
Ha les ptits voyoux ! :pVous vous sentirez ptete puissant, en imagniant que ça marche, mais vous le serez pas !Ca va vous apporter quoi ?Je ne vois ici que des commentaires avide, afin faire croire au monde que l'on est "fort" alors que c que du pompage (jusqu'a la mainiere d'integrer le code). ha... les jeunes !
quels Etres avides :p
peu importe la manière, seul compte le résultat:)
Jolie phrase pour conclure KaRyBouH, Oui c'est vrai cette source date de 3 ans étonnant :) Bon bref je voulais résumer... une source que j'ai lu vaguement et qu'il me semble d'une utilité infime a moins que vous ne sachiez pas changer votre statut tout seul. En plus ce logiciel marchait ( enfin je pense je n'ai pas testé ) sur msn 4.7 et c'est étonnant comment a chaque fois les sujets sur le hacking part en vrille.. sache qu'on est tous des apprentis... personne connait le language perfectement a pars peut être le créateur et encore ;) voilà donc s'il vous plait aidez tout ceux qu'ils le demandent si vous voyez qu'ils en vaux la peine... peux être vous aideront-ils vous aussi a chercher du bon côter et a devenir encore meilleur.Voila... Bonne fin de soirée a tous !
Perso j'avai fait une appli qui tournait en tache de fond et qui changait mon nick en fonction de ce que je faisais.Aujourd'hui on retrouve cette fonction avec WMP qui rajoute le titre écouté sous le nick par ex.Reste que d'autre fonction, comme indiquer le jeux auxquel on joue et même la partie sur laquel on est, sont quand même assez utile pour moi. :DMais le code mis à jour ne fonctionnait pas chez moi.Voici ce que j'ai fait :---------------------------------------------------------------Private WithEvents msn As MessengerAPI.MessengerPrivate Sub Form_Load()Set msn = New MessengerAPI.MessengerEnd Sub---------------------------------------------------------------En rajoutant la référence Messenger API Type Library.Taper ensuite msn. dans votre fenêtre de code VB et vous aurez les différentes fonction et propriété accessible à l'écran.Fonctionne chez moi sous Windows 2000 avec MSN Messenger 7.
Code source se fout de moi,...Trois fois que je fais une mise à jour et y a toujours rien qui a changé,...Krust.
Ha bah voilà, ça fonctionne mtn,...Par contre ils ont du viré qq commentaire , c'est retombé à 60 et quelques :( Mauvais pour mes statistiques ça :p lolKrust.
Bonjour,J'ai visual studio.net. J'ai mis a jour le fichiers (telechargé) pour qu'il marche avec visual studio.net 2003.Tout va bien mais quand j'essas de faire un exe. Il me ditProperty MSN.MyFriendlyName is read only.voici la ligne concerné apres avoir mis a jour. Private Sub CmdNick_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CmdNick.Click MSN.MyFriendlyName = TxtNick.Text End SubMSN.MyFriendlyName = TxtNick.Text est souligné en bleuQu'est ce que je dois mettre pour qu'il marche.Merci d'avanceWeb
Bein oui G le meme bleme la propriété est en lecture seule ...Moi jvoudrais savoir si il y avait moyen dajouter la liste des contacts dans un combobox Merci d'avance ++++Super ta source !Stan
Oui j'ai remarqué ça (j'avais pas testé et ça fonctionnait avec cette méthode sur msn 5).Je ne suis pas chez moi en ce moment mais je me pencherait sur le problème quand j'aurais le temps.Read only (ou lecture seule en fr) signifie que cette string n'est pas modifiable mais seulement lisible, et donc quand on essaie de changé le nick avec cette technique ça provoque une erreure.Krust.
Merci Krustweb
salut, moi j'ai vb6 et msn messenger 7.0 et il bloque pour changer le nick :Private Sub CmdNick_Click() MSN.MyFriendlyName = TxtNick.Text End Sub il bloque a MyFriendlyNamealors que les autres truc marche a +
salut,j'ai un probleme pour modifier mon pseudo d'Msnil bloque a ce bouton :Private Sub CmdNick_Click() MSN.MyFriendlyName = TxtNick.Text End Sub Sur le MyFriendlyName par contre pour les statut c'est nikelJ'ai vb6 et Msn messenger 7.0a +
Lisez 4 messagtes plus haut vous aurez la réponse,...Krust.
l'auteur de cette source peut etre fiere, elle fait parler :-) J'ai meme pas eut le courage de tout lire... mais bcp de post me font rire :)@+DAMien
krust tu peux me dire pour ma question den haut je ne trouve pas les '4 messages plus haut'merci
C'est pas très compliqué, c'est juste que cette propriétée est en read-only, c-à-d qu'on ne peut pas la modifier juste la lire,...Avant on faisait comme ça pour changer le nick (msn 4->5) mais maintenant ça a changé et j'ai pas encore trouver comment faire (pas beaucoup chercher non plus).Voilà,Krust.
ok merci krust
erreur d'execution 7 (memoire unsuffisanteVoila mon erreur des l'appel de Set MSN = New Messengerapi.Messengerqq a un solution?c pas un probleme de memoire g 1.5omerci
Vous connaissez le film Anti-Krust ???sympa ta source mais date un peu... LoL (pas mal, les coms)
C'est toujours les même questions qui reviennent, regardez un peu plus haut pour la solution.Moi j'en ai marre de cette source, et puis msn messenger je l'utilise plus depuis que j'ai changé d'os (je vous laisse deviner lequel).Un conseil : ajoutez la référence puis laissez-vous guider par les menus de vb6 qui vous donneront les functions.A+,Krust.
bien sur que je l'ai installer la reference!!
Perso jvoulé pa laisser de coms mais aprés la réponse de Moms2kz, bah sé trop dur...Perso jé aussi apris sur le tas mais je fais mes études la dedans...Ce que j'ai pu constater c'est que ceux qui n'aprennent l'informatique que grâce à leurs études, c'est des pauvres blaireaux qui auront besoin qu'on leur dise ce qu'il faut faire jusqu'a ce qu'ils aient un diplôme... m'enfin tout le monde peut évoluer...Quand aprés de dire qu'on a un niveau exellent en qqchose, jtrouve sa un peu ventar, jpense que c'est aux autres à te le dire si jms tu l'as... bon vu té sources Yoman64 je trouve en effet que tu as un bon niveau VB et j'avais aussi regardé ton début de system d'exploitation, c'est sympa sa...car encore un détail : le VB c'est ou pour s'initier à la programmation, ou pour faire des softs quand on a pas envie d'apprendre à programmer (style dé profs ou quoi pr dé démo de physique) c'est interressant seulement côté algorithmique je trouve...Et sinon ué pk pas attaquer VB comme sa sans PITCH, il n'y a qu'en s'y mettant que tu peux apprendre, puis ta l'aide dans VB à ce que je m'en souviens... suffit de prendre le temps de la lire. Après si tu la comprend pas c'est autre chose...Perso je trouve que la meilleur façon d'apprendre c'est de s'ammuser avec des sources... (lé titiller, modifier, ect...)aprés sa rentre tout seul...Dans le pire des cas, tu vas dans une librairie et hop tu t'achéte un boukin sur le VB... sinon tu peux rechercher sur google des tutoriels ou quoi, faut que tu te démerde un minimum tout seul, avant de demander... sinon on a plus l'impression que t'es un gars qui veux que tout lui tombe tout cuit... et les branleurs comme tu le dis si bien, ben sa le fait pas... ou t'es intéressé ou tu l'es pas...bref... peace mon gars t'exite pas tu fais du vent...et bonne prog. ++
'on charge notre nick TxtNick.Text = MSN.MyFriendlyName C'est le truc le plus utilisé et c'est le seul qui marche pas avec les version récentes... mdr
Très bonne approche de l'utilisation de MSN par VB6. J'ai beaucoup appris sur MSN (Explorateur d'objet VB6).Encore Merci