|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 NET SEND ANONYME VIA LES MAILSLOTS
 Information sur la source
 Description
Cette source est une adaptation VB de mon programme en Delphi (sur DelphiFr.com). Elle permet d'envoyer un message de type NetSend à une machine distante (sur le reseau), avec la possibilité de mettre un nom d'emetteur quelqconque... ce qui n'est pas possible avec la commande "Net Send" de chez Microsoft. Commentaires et notes sont les bienvenues.
 Source
- '----------------------------------------
- ' NSA : Envoi de net send anonyme
- ' --------------------------------
- ' Par LEVEUGLE Damien
- ' Elguevel (c) 2006
- '
- ' Pour : VBFrance.com
- '
- '----------------------------------------
-
-
- Option Explicit
-
- '--------------------
- ' Fonctions Windows
- '--------------------
- Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" ( _
- ByVal lpFileName As String, _
- ByVal dwDesiredAccess As Long, _
- ByVal dwShareMode As Long, _
- ByVal lpSecurityAttributes As Long, _
- ByVal dwCreationDisposition As Long, _
- ByVal dwFlagsAndAttributes As Long, _
- ByVal hTemplateFile As Long) As Long
-
- Private Declare Function WriteFile Lib "kernel32" ( _
- ByVal hFile As Long, _
- ByVal lpBuffer As String, _
- ByVal cToWrite As Long, _
- ByRef cWritten As Long, _
- Optional ByVal lpOverlapped As Long) As Long
-
- Private Declare Function CloseHandle Lib "kernel32" ( _
- ByVal hObject As Long) As Long
-
- '--------------------
- ' Constantes Windows
- '--------------------
- Public Const OPEN_EXISTING = 3
- Public Const FILE_SHARE_READ = &H1
- Public Const INVALID_HANDLE_VALUE = &HFFFFFFFF
- Public Const GENERIC_WRITE = &H40000000
- Public Const FILE_ATTRIBUTE_NORMAL = &H80
-
-
- '****************************************************
- '* ENVOI
- '****************************************************
- Public Function SendMessage(Emetteur, Destinataire, LeMessage As String) As Boolean
-
- ' Declaration
- Dim HWNDSlot As Integer
- Dim Buffer As String
- Dim NombreEcrit As Long
-
- ' Initialisation
- SendMessage = False
- NombreEcrit = 0 ' Non utilisé
-
- ' Création du MailSlot
- HWNDSlot = CreateFile("\\" & Destinataire & "\MAILSLOT\MESSNGR", _
- GENERIC_WRITE, _
- FILE_SHARE_READ, 0, _
- OPEN_EXISTING, _
- FILE_ATTRIBUTE_NORMAL, 0)
-
- ' Définition de la trame
- Buffer = Emetteur & Chr(0) & Destinataire & Chr(0) & LeMessage & Chr(0)
-
- ' Envoi
- If (HWNDSlot <> INVALID_HANDLE_VALUE) Then
- Call WriteFile(HWNDSlot, Buffer, Len(Buffer), NombreEcrit, 0)
- SendMessage = True
- Else
- SendMessage = False
- End If
-
- ' Fermeture du Slot
- Call CloseHandle(HWNDSlot)
-
- End Function
'----------------------------------------
' NSA : Envoi de net send anonyme
' --------------------------------
' Par LEVEUGLE Damien
' Elguevel (c) 2006
'
' Pour : VBFrance.com
'
'----------------------------------------
Option Explicit
'--------------------
' Fonctions Windows
'--------------------
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" ( _
ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As Long, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long
Private Declare Function WriteFile Lib "kernel32" ( _
ByVal hFile As Long, _
ByVal lpBuffer As String, _
ByVal cToWrite As Long, _
ByRef cWritten As Long, _
Optional ByVal lpOverlapped As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hObject As Long) As Long
'--------------------
' Constantes Windows
'--------------------
Public Const OPEN_EXISTING = 3
Public Const FILE_SHARE_READ = &H1
Public Const INVALID_HANDLE_VALUE = &HFFFFFFFF
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_ATTRIBUTE_NORMAL = &H80
'****************************************************
'* ENVOI
'****************************************************
Public Function SendMessage(Emetteur, Destinataire, LeMessage As String) As Boolean
' Declaration
Dim HWNDSlot As Integer
Dim Buffer As String
Dim NombreEcrit As Long
' Initialisation
SendMessage = False
NombreEcrit = 0 ' Non utilisé
' Création du MailSlot
HWNDSlot = CreateFile("\\" & Destinataire & "\MAILSLOT\MESSNGR", _
GENERIC_WRITE, _
FILE_SHARE_READ, 0, _
OPEN_EXISTING, _
FILE_ATTRIBUTE_NORMAL, 0)
' Définition de la trame
Buffer = Emetteur & Chr(0) & Destinataire & Chr(0) & LeMessage & Chr(0)
' Envoi
If (HWNDSlot <> INVALID_HANDLE_VALUE) Then
Call WriteFile(HWNDSlot, Buffer, Len(Buffer), NombreEcrit, 0)
SendMessage = True
Else
SendMessage = False
End If
' Fermeture du Slot
Call CloseHandle(HWNDSlot)
End Function
 Conclusion
Ce programme est hyper court et simple, et ne necessite que la connaissance des MAILSLOTS. Il à été rapidement traduit, et donc peut etre impcomplet ou manquant de fonctionalités, mais il fonctionne.
 Fichier Zip
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
 Télécharger le zip
 Historique
- 18 mai 2006 08:06:00 :
- Oubli du paramètre de retour : Corrigé
- 18 mai 2006 09:49:51 :
- Caractères incorrects : Corrigé (merci à Renfield)
- 18 mai 2006 10:06:58 :
- Re Re Re correction ...
 Sources du même auteur
 Sources de la même categorie
Sources en rapport avec celle ci
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
API CreateFile & ReadFile [ par VBSpirit ]
Bonjour, je suis persuadé que les API CreateFile et ReadFile sont plus rapide que les instructions Open, Get, Put...Quelqu'un sait comment s'en servir
source shutdown et netsend anonyme en .net [ par eviljojo22 ]
je voudrai avoir les source shutdown et netsend anonyme en .netmerci
NetSend Anonyme [ par sam469 ]
Bonsoir a toutes et tous,joyeuse annee 2007 et bonne santer avant tous,je voulais savoir comment rajouter dans mon "bout" de code La commande netsend
Catia V5 VBScript [ par zavier666 ]
Beaucoup de messages concernant l'utilisation de VBScript en Catia V5 sur VBFrance, mais peu de réponses sur le site (public assez restreint)Vous pour
Testez API @ la Loupe Viewer v2.0 [ par zavier666 ]
bonjour, je viens de terminer la V2.0 du soft "API @ la Loupe Viewer" qui doit permettre d'augmenter la compatibilité avec les divers OS. je cherche d
surveillance d'un spool [ par jocou ]
Bonjour à tousJ'écris actuellement un outil de surveillance d'un spool d'imprimantes. J'utilise à cet effet les APIs FindFirstPrinterChangeNotificatio
Besoin d'aide avec l'API Scrollbar pour une picturebox [ par Mew27 ]
Bonjour, je travailles présentement sur un projet personnel et j'aimerais faire mes propres controles, par exemple une listbox, dabord pour avoir mes
api [ par aminevb ]
salut,c'est quoi une API
Svp : une aide sur les API de produits CFAO [ par wangotango ]
Bonjourje suis archi débutant, mais volontaire et courageuxje ne sais meme pas si Vb peut m'aider dans ma démarcheje suis utilisateur Cao sur topsoli/
Via API réaliser un control TreeView avec Images ET Checkbox à 3 états [ par drakkard ]
Bonjour Bonjour...voici mon problème, n'étant pas un habitué des API, je galère un peu pour réaliser un contrôle TreeView avecune image sur chaque noe
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|