Association de vb et mirc

Commenter

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

S'inscrire maintenant

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.