en .NET
LPR : lpr -S AdresseIp -P nomQueue -o l fichier
Copy : copy fichier AdresseIp /b
le tout dans un shellexecute
en vb6
LPR : cmd /clpr -S AdresseIp -P nomQueue -o l fichier
Copy : cmd /ccopy fichier AdresseIp /b
le tout dans un shell
ca fonctionne nickel ;)
pour le vb6 plutot que d'utiliser le shell utilise ce module trouvé sur ce site. Plus pratique à utiliser ;)
Option Explicit
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Function ExecuterCommandeDOS(commandeDOS As String, Mode As Boolean) As Boolean
Dim codeRetour As Double 'Code retour de la commande Shell
Dim flFin As Long
Dim lngReturn As Long
ExecuterCommandeDOS = False
On Error GoTo Fin
If Mode = True Then
codeRetour = Shell(commandeDOS, vbNormalFocus)
Else
codeRetour = Shell(commandeDOS, vbHide)
End If
If codeRetour > 0 Then
'Boucle d'attente de la fin d'exécution
Do
flFin = OpenProcess(PROCESS_QUERY_INFORMATION, False, codeRetour)
' Attente 200 millisecondes afin de ne pas consommer tout le temps CPU
lngReturn = CloseHandle(flFin)
Sleep (200)
DoEvents
Loop While flFin <> 0
ExecuterCommandeDOS = True
End If
Fin:
End Function
|
*°*°*°*°*°*°*°*°*°*°*°*°*°*°*°*°*°*°*°*°*
Et croyez moi bientot, les flics auront du boulot, il n'y aura plus que la folie, la joie et l'Anarchie
http://www.salestymbanques.net