Accueil > > > NET SEND ANONYME VIA LES MAILSLOTS
 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.
 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
 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
|
Derniers Blogs
 [HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Très bonne après-midi passée lors cette conférence avec le W3C, organisée par L' Inria sur les nouveaux standards, ce Mardi 14 Février, on sent vraiment que çà bosse au W3C, et l'avenir est très très prometteur pour le HTML5, notamment ...
Cliquez pour lire la suite de l'article par Gio GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko
Forum
 RE : VITESSERE : VITESSE par ossama261988
Cliquez pour lire la suite par ossama261988 RE : VITESSERE : VITESSE par ucfoutu
Cliquez pour lire la suite par ucfoutu
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|