AntiGuide: VbScriptPortComm



PagePrincipale :: DerniersChangements :: ParametresUtilisateur :: Vous êtes 216.73.216.28 :: Signaler un abus :: le: 20250825 05:57:20
20111105,
bilan provisoire:
un programme VbScript est capable d'écrire sur un port "physique"
quand au port virtuel (usb...) il est possible de savoir si il est connecté mais je ne sais pas y lire/écrire.
(plus honêtement, je n'ai pas trouvé comment y écrire gratuitement; pas même à titre d'essai)

la théorie: http://igm.univ-mlv.fr/~dr/XPOSE2006/duarte/methodesacces.html

GAFFE: il faut chercher les ports matériels et les ports virtuels (usb, bluetooth, ...)

http://www.codeproject.com/KB/dotnet/WMICodeCreator_Demo.aspx?msg=2880850
découvrir un port virtuel:
dim vu
vu=false

ListPorts "."
if not vu then wscript.echo "pas de comm"
' Subroutine to display info

Sub ListPorts( compName )

Dim objWMIService

Dim collection

Set objWmiService = GetObject("winmgmts:\\" & compName & "\root\wmi")

Set collection = objWMIService.ExecQuery("SELECT * FROM MSSerial_PortName",,48)

For Each objItem in collection

vu=true

Wscript.Echo  objItem.getObjecttext_


Next

End Sub


et un port physique
dim vu
vu=false

ListPorts "."
if not vu then wscript.echo "pas de comm"
' Subroutine to display info

Sub ListPorts( compName )

Dim objWMIService

Dim collection

Set objWmiService = GetObject("winmgmts:\\" & compName & "\root\cimv2")

Set collection = objWMIService.ExecQuery("SELECT * FROM Win32_SerialPort",,48)

For Each objItem in collection

vu=true
Wscript.Echo "DeviceID: " & objItem.portname


Next

End Sub



pour les riches:
200 $: http://www.virtualserialport.com/fr/products/serial-activex/

pas essayé: http://www.01net.com/telecharger/windows/Programmation/active_x/fiches/27073.html

80$, essai de 15 jours: http://www.advancedvirtualcomport.com/download.html

lu: http://groupes.codes-sources.com/article-differencier-port-serie-port-virtuel-modem-avec-vba-245503.aspx
(semble accéder aix ports virtuels depuis excel ?)

autre 200$ avc version esai: http://www.mks.zp.ua/fr/serial-port-activex.php


???: http://www.commentcamarche.net/download/telecharger-34056516-free-virtual-serial-ports-emulator

qourceforge:
http://com0com.sourceforge.net/doc/UsingCom0com.pdf
http://usb2com.sourceforge.net/index_en.html