Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft envoyer page

envoyer page

6 réponses
Avatar
sgroulx
bonjour,
puis-je, a l'aide d'un vbscript, envoyer un message numérique a un
téléavertisseur.
J'utilise 2000 serveur j'ai un modem sur le com3

Merci
Sébas.
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
sgroulx
"sgroulx" a écrit dans le message de
news:
bonjour,
puis-je, a l'aide d'un vbscript, envoyer un message numérique a un
téléavertisseur.
J'utilise 2000 serveur j'ai un modem sur le com3

Merci
Sébas.

Voila la solution que jai Créé. Sa fonction #1

2 textbox plus un bouton et voila :)

Private Sub Command1_Click()
Dim PauseTime, Start, Finish, TotalTime

MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"

MSComm1.PortOpen = True 'ouvre le port

MSComm1.Output = "ATDT" & txtPhoneNumber.Text & ",,,,,,,,,," &
pagertxt.Text & "," & vbCrLf 'les , cé pour attendre avance entre le code du
page

PauseTime = 30 ' attente de 30 sec pour envoyer le page

Start = Timer ' Set start time.

Do While Timer < Start + PauseTime

DoEvents

Loop

MSComm1.PortOpen = False 'close modem port

MsgBox "FIN"

End Sub

Sébastien Groulx

Avatar
Fred
Dans son message %
sgroulx nous dit :

"sgroulx" a écrit dans le message de
news:
bonjour,
puis-je, a l'aide d'un vbscript, envoyer un message numérique a un
téléavertisseur.
J'utilise 2000 serveur j'ai un modem sur le com3

Merci
Sébas.

Voila la solution que jai Créé. Sa fonction #1

2 textbox plus un bouton et voila :)

Private Sub Command1_Click()
Dim PauseTime, Start, Finish, TotalTime

MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"

MSComm1.PortOpen = True 'ouvre le port

MSComm1.Output = "ATDT" & txtPhoneNumber.Text & ",,,,,,,,,," &
pagertxt.Text & "," & vbCrLf 'les , cé pour attendre avance entre le
code du page

PauseTime = 30 ' attente de 30 sec pour envoyer le page

Start = Timer ' Set start time.

Do While Timer < Start + PauseTime

DoEvents

Loop

MSComm1.PortOpen = False 'close modem port

MsgBox "FIN"

End Sub

Sébastien Groulx


Bonsoir,
cé pas du vbscript ca ?
Je plaisante.
Cela dit, plutôt qu'un timer, tu as une propriété OutBufferCount qui te dit
combien de caractères restent à émettre.
Voir mieux, un événement qui se déclenche lors du départ du dernier
caractère, en plaçant Tthreshold à 1.

Sinon, tu peux expliquer ces mots ? [les , cé pour attendre avance entre le
code du page]
Je ne saisis pas bien.
Ce sont des commandes Hayes ?



PS : mes noms de propriétés sont peut être un peu erronés, je n'ai plus de
vb6 sous la main.

--
Fred


Avatar
sgroulx
"Fred" a écrit dans le message de
news:
Dans son message %
sgroulx nous dit :

"sgroulx" a écrit dans le message de
news:
bonjour,
puis-je, a l'aide d'un vbscript, envoyer un message numérique a un
téléavertisseur.
J'utilise 2000 serveur j'ai un modem sur le com3

Merci
Sébas.

Voila la solution que jai Créé. Sa fonction #1

2 textbox plus un bouton et voila :)

Private Sub Command1_Click()
Dim PauseTime, Start, Finish, TotalTime

MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"

MSComm1.PortOpen = True 'ouvre le port

MSComm1.Output = "ATDT" & txtPhoneNumber.Text & ",,,,,,,,,," &
pagertxt.Text & "," & vbCrLf 'les , cé pour attendre avance entre le
code du page

PauseTime = 30 ' attente de 30 sec pour envoyer le page

Start = Timer ' Set start time.

Do While Timer < Start + PauseTime

DoEvents

Loop

MSComm1.PortOpen = False 'close modem port

MsgBox "FIN"

End Sub

Sébastien Groulx


Bonsoir,
cé pas du vbscript ca ?


ouin je sais mais j'ai rien trouver en vbscript


Je plaisante.
Cela dit, plutôt qu'un timer, tu as une propriété OutBufferCount qui te
dit

combien de caractères restent à émettre.
Voir mieux, un événement qui se déclenche lors du départ du dernier
caractère, en plaçant Tthreshold à 1.



Jai rajouter le timer car il raccrochait le modem avant d'avoir fini de
composer.


Sinon, tu peux expliquer ces mots ? [les , cé pour attendre avance entre
le

code du page]


Désolé

"les , c'est pour faire un pause avant d'entré le code du message
numérique."


Je ne saisis pas bien.
Ce sont des commandes Hayes ?



oui exactement.



PS : mes noms de propriétés sont peut être un peu erronés, je n'ai plus de
vb6 sous la main.

--
Fred




Sébas



Avatar
Fred
"sgroulx" a écrit dans le message de
news:

"Fred" a écrit dans le message de
news:
Dans son message %
sgroulx nous dit :

"sgroulx" a écrit dans le message de
news:
bonjour,
puis-je, a l'aide d'un vbscript, envoyer un message numérique a un
téléavertisseur.
J'utilise 2000 serveur j'ai un modem sur le com3

Merci
Sébas.

Voila la solution que jai Créé. Sa fonction #1

2 textbox plus un bouton et voila :)

Private Sub Command1_Click()
Dim PauseTime, Start, Finish, TotalTime

MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"

MSComm1.PortOpen = True 'ouvre le port

MSComm1.Output = "ATDT" & txtPhoneNumber.Text & ",,,,,,,,,," &
pagertxt.Text & "," & vbCrLf 'les , cé pour attendre avance entre le
code du page

PauseTime = 30 ' attente de 30 sec pour envoyer le page

Start = Timer ' Set start time.

Do While Timer < Start + PauseTime

DoEvents

Loop

MSComm1.PortOpen = False 'close modem port

MsgBox "FIN"

End Sub

Sébastien Groulx


Bonsoir,
cé pas du vbscript ca ?


ouin je sais mais j'ai rien trouver en vbscript


Je plaisante.
Cela dit, plutôt qu'un timer, tu as une propriété OutBufferCount qui te
dit

combien de caractères restent à émettre.
Voir mieux, un événement qui se déclenche lors du départ du dernier
caractère, en plaçant Tthreshold à 1.



Jai rajouter le timer car il raccrochait le modem avant d'avoir fini de
composer.


Oui car la mise en attente des caractères dans le buffer d'émission est
instantané. Par contre l'émission réelle des caractères à partir de ce
buffer se fait au rythme de la RS (infiniement plus lentement donc).
Et je suppose que le modem raccroche quand tu ferme la RS ?
D'où ma suggestion de scruter le OutBufferCount et de fermer la com quand il
arrive à zéro.



Sinon, tu peux expliquer ces mots ? [les , cé pour attendre avance entre
le

code du page]


Désolé

"les , c'est pour faire un pause avant d'entré le code du message
numérique."


Je ne saisis pas bien.
Ce sont des commandes Hayes ?



oui exactement.



PS : mes noms de propriétés sont peut être un peu erronés, je n'ai plus
de


vb6 sous la main.



Merci pour les précisions. Je garde cela sous le coude. Cela peut toujours
servir.
As-tu essayé en écrivant directement sur le port COM ?
Avec le FileSystemObject en ouvrant COM3 par exemple ?
Cela te permettrait de le faire en script.
Je ne peut pas essayer je n'ai plus de modem RTC :-(
J'ai souvenir qu'en DOS on pouvait émettre des caratères sur le port série
de de la sorte, cela ne fonctionnait pas en réception par contre.




Avatar
sgroulx
"Fred" a écrit dans le message de
news:%
"sgroulx" a écrit dans le message de
news:

"Fred" a écrit dans le message de
news:
Dans son message %
sgroulx nous dit :

"sgroulx" a écrit dans le message de
news:
bonjour,
puis-je, a l'aide d'un vbscript, envoyer un message numérique a un
téléavertisseur.
J'utilise 2000 serveur j'ai un modem sur le com3

Merci
Sébas.

Voila la solution que jai Créé. Sa fonction #1

2 textbox plus un bouton et voila :)

Private Sub Command1_Click()
Dim PauseTime, Start, Finish, TotalTime

MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"

MSComm1.PortOpen = True 'ouvre le port

MSComm1.Output = "ATDT" & txtPhoneNumber.Text & ",,,,,,,,,,"
&




pagertxt.Text & "," & vbCrLf 'les , cé pour attendre avance entre le
code du page

PauseTime = 30 ' attente de 30 sec pour envoyer le page

Start = Timer ' Set start time.

Do While Timer < Start + PauseTime

DoEvents

Loop

MSComm1.PortOpen = False 'close modem port

MsgBox "FIN"

End Sub

Sébastien Groulx


Bonsoir,
cé pas du vbscript ca ?


ouin je sais mais j'ai rien trouver en vbscript


Je plaisante.
Cela dit, plutôt qu'un timer, tu as une propriété OutBufferCount qui
te



dit
combien de caractères restent à émettre.
Voir mieux, un événement qui se déclenche lors du départ du dernier
caractère, en plaçant Tthreshold à 1.



Jai rajouter le timer car il raccrochait le modem avant d'avoir fini de
composer.


Oui car la mise en attente des caractères dans le buffer d'émission est
instantané. Par contre l'émission réelle des caractères à partir de ce
buffer se fait au rythme de la RS (infiniement plus lentement donc).
Et je suppose que le modem raccroche quand tu ferme la RS ?
D'où ma suggestion de scruter le OutBufferCount et de fermer la com quand
il

arrive à zéro.



Sinon, tu peux expliquer ces mots ? [les , cé pour attendre avance
entre



le
code du page]


Désolé

"les , c'est pour faire un pause avant d'entré le code du message
numérique."


Je ne saisis pas bien.
Ce sont des commandes Hayes ?



oui exactement.



PS : mes noms de propriétés sont peut être un peu erronés, je n'ai
plus



de
vb6 sous la main.



Merci pour les précisions. Je garde cela sous le coude. Cela peut toujours
servir.
As-tu essayé en écrivant directement sur le port COM ?
Avec le FileSystemObject en ouvrant COM3 par exemple ?
Cela te permettrait de le faire en script.
Je ne peut pas essayer je n'ai plus de modem RTC :-(
J'ai souvenir qu'en DOS on pouvait émettre des caratères sur le port série
de de la sorte, cela ne fonctionnait pas en réception par contre.


C'est exactemet cela que j'ai voulu faire
mais je n'est rien trouver pour m'aidé.
pour ce qui est de la reception cé pas grave. moi je doit seulement envoyer.
j'avais pencé ouvrir le com pour ensuite envoyer de commande Hayes.

Sébas





Avatar
Fred
Dans son message
sgroulx nous dit :

"Fred" a écrit dans le message de
news:%
"sgroulx" a écrit dans le message de
news:

"Fred" a écrit dans le message de
news:
Dans son message %
sgroulx nous dit :

"sgroulx" a écrit dans le message de
news:
bonjour,
puis-je, a l'aide d'un vbscript, envoyer un message numérique a
un téléavertisseur.
J'utilise 2000 serveur j'ai un modem sur le com3

Merci
Sébas.

Voila la solution que jai Créé. Sa fonction #1

2 textbox plus un bouton et voila :)

Private Sub Command1_Click()
Dim PauseTime, Start, Finish, TotalTime

MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"

MSComm1.PortOpen = True 'ouvre le port

MSComm1.Output = "ATDT" & txtPhoneNumber.Text &
",,,,,,,,,," & pagertxt.Text & "," & vbCrLf 'les , cé pour
attendre avance entre le code du page

PauseTime = 30 ' attente de 30 sec pour envoyer le page

Start = Timer ' Set start time.

Do While Timer < Start + PauseTime

DoEvents

Loop

MSComm1.PortOpen = False 'close modem port

MsgBox "FIN"

End Sub

Sébastien Groulx


Bonsoir,
cé pas du vbscript ca ?


ouin je sais mais j'ai rien trouver en vbscript


Je plaisante.
Cela dit, plutôt qu'un timer, tu as une propriété OutBufferCount
qui te dit combien de caractères restent à émettre.
Voir mieux, un événement qui se déclenche lors du départ du dernier
caractère, en plaçant Tthreshold à 1.



Jai rajouter le timer car il raccrochait le modem avant d'avoir
fini de composer.


Oui car la mise en attente des caractères dans le buffer d'émission
est instantané. Par contre l'émission réelle des caractères à partir
de ce buffer se fait au rythme de la RS (infiniement plus lentement
donc).
Et je suppose que le modem raccroche quand tu ferme la RS ?
D'où ma suggestion de scruter le OutBufferCount et de fermer la com
quand il arrive à zéro.



Sinon, tu peux expliquer ces mots ? [les , cé pour attendre avance
entre le code du page]


Désolé

"les , c'est pour faire un pause avant d'entré le code du message
numérique."


Je ne saisis pas bien.
Ce sont des commandes Hayes ?



oui exactement.



PS : mes noms de propriétés sont peut être un peu erronés, je n'ai
plus de vb6 sous la main.



Merci pour les précisions. Je garde cela sous le coude. Cela peut
toujours servir.
As-tu essayé en écrivant directement sur le port COM ?
Avec le FileSystemObject en ouvrant COM3 par exemple ?
Cela te permettrait de le faire en script.
Je ne peut pas essayer je n'ai plus de modem RTC :-(
J'ai souvenir qu'en DOS on pouvait émettre des caratères sur le port
série de de la sorte, cela ne fonctionnait pas en réception par
contre.


C'est exactemet cela que j'ai voulu faire
mais je n'est rien trouver pour m'aidé.
pour ce qui est de la reception cé pas grave. moi je doit seulement
envoyer. j'avais pencé ouvrir le com pour ensuite envoyer de commande
Hayes.

Sébas


Bonsoir,
Effectivement, je viens de jeter un oeil à la référence du script runtime et
à aucun endroit il n'y est fait allusion aux noms de fichiers système tels
que COM, LPT, etc ...
J'ai essayé à tout hasard d'ouvrir une com et j'obtiens une erreur.
Par contre, le CopyFile vers "COM1" passe à l'exécution. Mais là, je ne peux
pas tester plus loin sans modem, et tu devrais retrouver les problèmes de
temporisation.
Si tu peux rester VB, le contrôle MSCOMM.OCX est encore ce qui te permet le
contrôle le plus fin. Je n'ai pas essayé de l'utiliser à partir d'un script
mais c'est certainement faisable. Comme tu as besoin de la licence VB6 pour
l'utiliser, cela ne présente pas un grand intérêt.
Je pense que tu peux améliorer ton programme. Ce contrôle est vraiment dédié
à la communication avec un modem mais je ne l'ai jamais utilisé de cette
façon (toujours en câble modem null). Regarde du côté de l'événement OnComm
et des constantes evCommEvent. A priori tu dois avoir un événement quand la
connexion avec le pager est activée (changement d'état du Career Detect).
Comme je le mentionnais, tu peux envoyer une trame et lorsqu'elle est
entièrement partie, finaliser le traitement avec l'événement evSend.
Tu peux coupler cela avec un timer en cas de non réponse peut-être ? Je ne
sais pas quels sont tes contraintes mais pour l'instant, tu ne sais pas trop
si le message a été correctement expédié.
Sans parler des événements liés à la détection du modem lui-même (DSR je
crois me souvenir Data Set Ready).
De quoi t'amuser en perspective :-)



--
Fred