Association de vb et mirc

0/5 (7 avis)

Snippet vu 4 570 fois - Téléchargée 44 fois

Contenu du snippet

Pour lancer ou recevoir des commandes du mIRC sur un Visual Basic....

Source / Exemple :


''Desolé pas pu envoyer le ZIP
''Source de Kllmm
'Pour configurer le mirc , qu'il accepte le DDE lancer le ,
'et aller ds OPTION - GENERAL - SERVER et ds cette fenetre
'Cocher 'Enable DDE SErver' et a Service Name ca doit etre d'origine ecrit: mIRC
' le nom doit etre le meme que la Link Topic (ne pas rajouter |evaluate...)
'Pour ceux qui savent un peu le script IRC , un rapide coup d'oeil sur la source
'et vous comprendrez le systeme....

Private Sub Command1_Click()
''' Le nick perso $me
    Textnick.LinkTopic = "mirc|evaluate"
    Textnick.LinkItem = "$me"
    Textnick.LinkMode = 2
    Textnick.LinkRequest
    
   'l'ip perso $ip
    textIP.LinkTopic = "mirc|evaluate"
    textIP.LinkItem = "$ip"
    textIP.LinkMode = 2
    textIP.LinkRequest
    
    'Le server ou on est connecté $server
    Textserver.LinkTopic = "mirc|evaluate"
    Textserver.LinkItem = "$server"
    Textserver.LinkMode = 2
    Textserver.LinkRequest
    
    'la date et le jour $date $day ou meme l'heure = $time
    Textdate.LinkTopic = "mirc|evaluate"
    Textdate.LinkItem = "$date  $day"
    Textdate.LinkMode = 2
    Textdate.LinkRequest
        
    'le mode perso $usermode
    Textmode.LinkTopic = "mirc|evaluate"
    Textmode.LinkItem = "$usermode"
    Textmode.LinkMode = 2
    Textmode.LinkRequest
        
    'Le idle
    Textidle.LinkTopic = "mirc|evaluate"
    Textidle.LinkItem = "$duration($idle)"
    Textidle.LinkMode = 2
    Textidle.LinkRequest
    
    'le port ou on est connecté
    Textport.LinkTopic = "mirc|evaluate"
    Textport.LinkItem = "$port"
    Textport.LinkMode = 2
    Textport.LinkRequest
   
   'Le temps depuis qu'on est connecté
   Textconndepui.LinkTopic = "mirc|evaluate"
   Textconndepui.LinkItem = "$duration($online)"
   Textconndepui.LinkMode = 2
   Textconndepui.LinkRequest
   
   'Le temps depuis que le PC est allumé
   Textpcallume.LinkTopic = "mirc|evaluate"
   Textpcallume.LinkItem = "$duration($CALC($TICKS / 1000))"
   Textpcallume.LinkMode = 2
   Textpcallume.LinkRequest
   
   'Le full names
   Textfullname.LinkTopic = "mirc|evaluate"
   Textfullname.LinkItem = "$fullname"
   Textfullname.LinkMode = 2
   Textfullname.LinkRequest
   
   'Le nick Alternatif
   TextAlternNick.LinkTopic = "mirc|evaluate"
   TextAlternNick.LinkItem = "$anick"
   TextAlternNick.LinkMode = 2
   TextAlternNick.LinkRequest

   'Le host ou nom du pc
   TextHost.LinkTopic = "mirc|evaluate"
   TextHost.LinkItem = "$host"
   TextHost.LinkMode = 2
   TextHost.LinkRequest

' l'email adresse
   Textmailaddr.LinkTopic = "mirc|evaluate"
   Textmailaddr.LinkItem = "$emailaddr"
   Textmailaddr.LinkMode = 2
   Textmailaddr.LinkRequest

End Sub

''''''
''''''''''''''' Partie qui ENVOIS les commandes
''''''
'' ceci vas envoyer la commande IRC (ecrire en mirc /nick Babar ou /list ou /kick #salon mechant .......)
Private Sub Command2_Click()
If txtOut <> "" Then
txtOut.LinkTopic = "mirc|command"
txtOut.LinkMode = vbLinkNone
Form1.txtOut.LinkItem = txtOut.Text
txtOut.LinkMode = vbLinkManual
txtOut.LinkPoke
txtOut.Text = ""
Else
MsgBox "Faut ecrire une commande dans la case", vbCritical + vbOKOnly, "Error - Input Required!"
End If
End Sub

'ceci est un exemple , si on veut faire un Button pour une commande specifique
Private Sub exemple_Click()
'c'est ici que la commande  se mettra (tt les commandes passent...on peut aussi utiliser les | comme sur un mirc)
txtOut.Text = "/nick Tartanpion"
If txtOut <> "" Then
txtOut.LinkTopic = "mirc|command"
txtOut.LinkMode = vbLinkNone
Form1.txtOut.LinkItem = txtOut.Text
txtOut.LinkMode = vbLinkManual
txtOut.LinkPoke
txtOut.Text = ""
End If
End Sub

Conclusion :


Pour lancer ou recevoir des commandes du mIRC sur un exe VB .... a mon avis ca doit etre utile aux Scripteurs .. Si je mets cette source , c'est parsque par curiosité je voulais savoir si c'etait possible de faire ca , et je n'avais pas trouvé de sources comme ca .... ai galeré pour trouver , alors que c'etait si simple :-))) (bon c'est ma premiere source)

A voir également

Ajouter un commentaire Commentaires
Proutie66 Messages postés 141 Date d'inscription samedi 19 octobre 2002 Statut Membre Dernière intervention 14 avril 2008
18 janv. 2004 à 13:57
tu dois être aveugle ^^
MouLeT Messages postés 90 Date d'inscription samedi 11 octobre 2003 Statut Membre Dernière intervention 27 juillet 2009
13 déc. 2003 à 13:25
ok c'est cool mais ou est de mIRC a vb ? Car je vois que de Vb a MIRC
dommage...
bussonnais Messages postés 24 Date d'inscription vendredi 21 février 2003 Statut Membre Dernière intervention 23 avril 2004
14 avril 2003 à 16:04
ok je te remerçi de m'avoir repondu est pas de mal pour le retard c'est deja cool de m'avoir repondu
kllmm Messages postés 35 Date d'inscription jeudi 7 février 2002 Statut Membre Dernière intervention 5 octobre 2003
14 avril 2003 à 09:49
Hello Bussonnais !!
Desolé pour le retard , je ne suis plus trop le mirc scriptin'
jje ne chatte deja meme plus ...Alors si mes souvenirs sont bons
(ca fais quand meme + d'un an que cette source est la :-)
Suffit de lancer apres le mIRC cet executable et t'aura
dans les fenetres ton nick, la date, ton uptime et une dizaines d'autres infos.
Ces exemples ne sont pas indispensable, mais c'est juste pour montrer qu'on peut
combinre et le mIRC et un exec VB.
bussonnais Messages postés 24 Date d'inscription vendredi 21 février 2003 Statut Membre Dernière intervention 23 avril 2004
4 avril 2003 à 20:09
j'ai suivie ce que tu ma dit de faire donc une fois avoir placer cette source dans les remote de mon script mirc que doit-je faire pour s'avoir comment sa fonctionne ( existe il une command pour le lancer ou puis-je avoir plus d'info pour s'avoir a quoi sert cette sources
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.