Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme d'inputbox,
mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Merci d'avance.
KL
Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme d'inputbox,
mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Merci d'avance.
KL
Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme d'inputbox,
mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Merci d'avance.
KL
Dans le message news: ,
Kevin Lomax s'est ainsi exprimé:Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *
Dans le message news:D2E6F0D9-D981-40FA-A424-E84D7029D8C3@microsoft.com ,
Kevin Lomax <KevinLomax@discussions.microsoft.com> s'est ainsi exprimé:
Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr
Dans le message news: ,
Kevin Lomax s'est ainsi exprimé:Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *
Merci beaucoup Mathius & JCB, je vais choisir IE ;) et c parti !!!
"Jean-Claude BELLAMY" wrote:Dans le message news: ,
Kevin Lomax s'est ainsi exprimé:Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *
Merci beaucoup Mathius & JCB, je vais choisir IE ;) et c parti !!!
"Jean-Claude BELLAMY" wrote:
Dans le message news:D2E6F0D9-D981-40FA-A424-E84D7029D8C3@microsoft.com ,
Kevin Lomax <KevinLomax@discussions.microsoft.com> s'est ainsi exprimé:
Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr
Merci beaucoup Mathius & JCB, je vais choisir IE ;) et c parti !!!
"Jean-Claude BELLAMY" wrote:Dans le message news: ,
Kevin Lomax s'est ainsi exprimé:Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *
est quand on poura piloter firefox via VB ??
nan je plaisante, je sais bien que ms ne feras pas le necessaire pour ca
c'est un produit concurant
pis de toute maniere IE reste installer sur les poste de tout facon
"Kevin Lomax" wrote:Merci beaucoup Mathius & JCB, je vais choisir IE ;) et c parti !!!
"Jean-Claude BELLAMY" wrote:Dans le message news: ,
Kevin Lomax s'est ainsi exprimé:Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *
est quand on poura piloter firefox via VB ??
nan je plaisante, je sais bien que ms ne feras pas le necessaire pour ca
c'est un produit concurant
pis de toute maniere IE reste installer sur les poste de tout facon
"Kevin Lomax" wrote:
Merci beaucoup Mathius & JCB, je vais choisir IE ;) et c parti !!!
"Jean-Claude BELLAMY" wrote:
Dans le message news:D2E6F0D9-D981-40FA-A424-E84D7029D8C3@microsoft.com ,
Kevin Lomax <KevinLomax@discussions.microsoft.com> s'est ainsi exprimé:
Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr
est quand on poura piloter firefox via VB ??
nan je plaisante, je sais bien que ms ne feras pas le necessaire pour ca
c'est un produit concurant
pis de toute maniere IE reste installer sur les poste de tout facon
"Kevin Lomax" wrote:Merci beaucoup Mathius & JCB, je vais choisir IE ;) et c parti !!!
"Jean-Claude BELLAMY" wrote:Dans le message news: ,
Kevin Lomax s'est ainsi exprimé:Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *
Alors, je bloque sur un nouveau truc.
J'ai fais comme indiqué sur le site de JCB, un vbs et un html pour avoir
mon
pti formulaire... c nickel, sauf qu'avec le SP2 , ca me fait la petite
barre
:
"Pour vous aider a protéger votre ordinateur, IE a restreint l'affichage
du
contenu actif de ce fichier, qui pourrait acceder a votre ordinateur....."
Je n'ai pas trouver la solution pour qu'il ne me dise plus cela.
Si je fais "autoriser le contenu objet", il me le redemande a chaque
fois...
La page ne se trouve pas sur un serveur www, elle est executé en local...
Et pas grand chose dans l'aide.... ;(
Quelqu'un a une idée ?
Code html:
<html>
<head>
<title>Type de station</title>
</head>
<body scroll="no">
<script language="VBScript">
<!--
Dim ready
Sub button_OnClick
ready=1
End Sub
Sub Window_OnLoad()
ready=0
End Sub
Public Function CheckVal()
CheckVal=ready
End function
'-->
</script>
<form name="form1">
<p>Quelle est le type de station ?<br>
<input type="radio" name="radiobutton" value="server"> Serveur Pick<br>
<input type="radio" name="radiobutton" value="backup"> Station de
sauvegarde<br>
<input type="radio" name="radiobutton" value="wrk"> Station normale<br>
<input name="button" type="button" value="Valider">
</form>
</body>
</html>
code vbs :
Dim shell, oIE
Set shell = WScript.CreateObject("WScript.Shell")
Do While true
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
oIE.Left = 50
oIE.Top = 100
oIE.Height = 250
oIE.Width = 250
oIE.MenuBar = 0
oIE.ToolBar = 0
oIE.StatusBar = 0
oIE.navigate GetPath() & "form.html"
oIE.Visible = 2
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Type de station"
On Error Resume Next
Do
WScript.Sleep 100
Loop While (oIE.Document.Script.CheckVal() = 0)
If Err <> 0 Then
Wscript.echo Err
Wscript.Echo "On a fermé IE directement"
Wscript.quit
end if
test=oIE.Document.Script.CheckVal()
If test=-1 Then
CloseIE
Wscript.Echo "On a appuyé sur Annuler"
Wscript.quit
end if
for index=0 to oIE.document.form1.radiobutton.length-1
if oIE.document.form1.radiobutton(index).checked then
exit for
end if
next
Wscript.echo oIE.document.Form1.radiobutton(index).value
CloseIE
loop
Function GetPath()
Dim path
path = WScript.ScriptFullName
GetPath = Left(path, InStrRev(path, ""))
End Function
Sub CloseIE
oIE.Quit
Set oIE = Nothing
End Sub
"Lord Mathius" wrote:est quand on poura piloter firefox via VB ??
nan je plaisante, je sais bien que ms ne feras pas le necessaire pour ca
c'est un produit concurant
pis de toute maniere IE reste installer sur les poste de tout facon
"Kevin Lomax" wrote:Merci beaucoup Mathius & JCB, je vais choisir IE ;) et c parti !!!
"Jean-Claude BELLAMY" wrote:Dans le message
news: ,
Kevin Lomax s'est ainsi
exprimé:Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *
Alors, je bloque sur un nouveau truc.
J'ai fais comme indiqué sur le site de JCB, un vbs et un html pour avoir
mon
pti formulaire... c nickel, sauf qu'avec le SP2 , ca me fait la petite
barre
:
"Pour vous aider a protéger votre ordinateur, IE a restreint l'affichage
du
contenu actif de ce fichier, qui pourrait acceder a votre ordinateur....."
Je n'ai pas trouver la solution pour qu'il ne me dise plus cela.
Si je fais "autoriser le contenu objet", il me le redemande a chaque
fois...
La page ne se trouve pas sur un serveur www, elle est executé en local...
Et pas grand chose dans l'aide.... ;(
Quelqu'un a une idée ?
Code html:
<html>
<head>
<title>Type de station</title>
</head>
<body scroll="no">
<script language="VBScript">
<!--
Dim ready
Sub button_OnClick
ready=1
End Sub
Sub Window_OnLoad()
ready=0
End Sub
Public Function CheckVal()
CheckVal=ready
End function
'-->
</script>
<form name="form1">
<p>Quelle est le type de station ?<br>
<input type="radio" name="radiobutton" value="server"> Serveur Pick<br>
<input type="radio" name="radiobutton" value="backup"> Station de
sauvegarde<br>
<input type="radio" name="radiobutton" value="wrk"> Station normale<br>
<input name="button" type="button" value="Valider">
</form>
</body>
</html>
code vbs :
Dim shell, oIE
Set shell = WScript.CreateObject("WScript.Shell")
Do While true
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
oIE.Left = 50
oIE.Top = 100
oIE.Height = 250
oIE.Width = 250
oIE.MenuBar = 0
oIE.ToolBar = 0
oIE.StatusBar = 0
oIE.navigate GetPath() & "form.html"
oIE.Visible = 2
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Type de station"
On Error Resume Next
Do
WScript.Sleep 100
Loop While (oIE.Document.Script.CheckVal() = 0)
If Err <> 0 Then
Wscript.echo Err
Wscript.Echo "On a fermé IE directement"
Wscript.quit
end if
test=oIE.Document.Script.CheckVal()
If test=-1 Then
CloseIE
Wscript.Echo "On a appuyé sur Annuler"
Wscript.quit
end if
for index=0 to oIE.document.form1.radiobutton.length-1
if oIE.document.form1.radiobutton(index).checked then
exit for
end if
next
Wscript.echo oIE.document.Form1.radiobutton(index).value
CloseIE
loop
Function GetPath()
Dim path
path = WScript.ScriptFullName
GetPath = Left(path, InStrRev(path, ""))
End Function
Sub CloseIE
oIE.Quit
Set oIE = Nothing
End Sub
"Lord Mathius" wrote:
est quand on poura piloter firefox via VB ??
nan je plaisante, je sais bien que ms ne feras pas le necessaire pour ca
c'est un produit concurant
pis de toute maniere IE reste installer sur les poste de tout facon
"Kevin Lomax" wrote:
Merci beaucoup Mathius & JCB, je vais choisir IE ;) et c parti !!!
"Jean-Claude BELLAMY" wrote:
Dans le message
news:D2E6F0D9-D981-40FA-A424-E84D7029D8C3@microsoft.com ,
Kevin Lomax <KevinLomax@discussions.microsoft.com> s'est ainsi
exprimé:
Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr
Alors, je bloque sur un nouveau truc.
J'ai fais comme indiqué sur le site de JCB, un vbs et un html pour avoir
mon
pti formulaire... c nickel, sauf qu'avec le SP2 , ca me fait la petite
barre
:
"Pour vous aider a protéger votre ordinateur, IE a restreint l'affichage
du
contenu actif de ce fichier, qui pourrait acceder a votre ordinateur....."
Je n'ai pas trouver la solution pour qu'il ne me dise plus cela.
Si je fais "autoriser le contenu objet", il me le redemande a chaque
fois...
La page ne se trouve pas sur un serveur www, elle est executé en local...
Et pas grand chose dans l'aide.... ;(
Quelqu'un a une idée ?
Code html:
<html>
<head>
<title>Type de station</title>
</head>
<body scroll="no">
<script language="VBScript">
<!--
Dim ready
Sub button_OnClick
ready=1
End Sub
Sub Window_OnLoad()
ready=0
End Sub
Public Function CheckVal()
CheckVal=ready
End function
'-->
</script>
<form name="form1">
<p>Quelle est le type de station ?<br>
<input type="radio" name="radiobutton" value="server"> Serveur Pick<br>
<input type="radio" name="radiobutton" value="backup"> Station de
sauvegarde<br>
<input type="radio" name="radiobutton" value="wrk"> Station normale<br>
<input name="button" type="button" value="Valider">
</form>
</body>
</html>
code vbs :
Dim shell, oIE
Set shell = WScript.CreateObject("WScript.Shell")
Do While true
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
oIE.Left = 50
oIE.Top = 100
oIE.Height = 250
oIE.Width = 250
oIE.MenuBar = 0
oIE.ToolBar = 0
oIE.StatusBar = 0
oIE.navigate GetPath() & "form.html"
oIE.Visible = 2
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Type de station"
On Error Resume Next
Do
WScript.Sleep 100
Loop While (oIE.Document.Script.CheckVal() = 0)
If Err <> 0 Then
Wscript.echo Err
Wscript.Echo "On a fermé IE directement"
Wscript.quit
end if
test=oIE.Document.Script.CheckVal()
If test=-1 Then
CloseIE
Wscript.Echo "On a appuyé sur Annuler"
Wscript.quit
end if
for index=0 to oIE.document.form1.radiobutton.length-1
if oIE.document.form1.radiobutton(index).checked then
exit for
end if
next
Wscript.echo oIE.document.Form1.radiobutton(index).value
CloseIE
loop
Function GetPath()
Dim path
path = WScript.ScriptFullName
GetPath = Left(path, InStrRev(path, ""))
End Function
Sub CloseIE
oIE.Quit
Set oIE = Nothing
End Sub
"Lord Mathius" wrote:est quand on poura piloter firefox via VB ??
nan je plaisante, je sais bien que ms ne feras pas le necessaire pour ca
c'est un produit concurant
pis de toute maniere IE reste installer sur les poste de tout facon
"Kevin Lomax" wrote:Merci beaucoup Mathius & JCB, je vais choisir IE ;) et c parti !!!
"Jean-Claude BELLAMY" wrote:Dans le message
news: ,
Kevin Lomax s'est ainsi
exprimé:Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *
Alors, je bloque sur un nouveau truc.
J'ai fais comme indiqué sur le site de JCB, un vbs et un html pour avoir mon
pti formulaire... c nickel, sauf qu'avec le SP2 , ca me fait la petite barre
:
"Pour vous aider a protéger votre ordinateur, IE a restreint l'affichage du
contenu actif de ce fichier, qui pourrait acceder a votre ordinateur....."
Je n'ai pas trouver la solution pour qu'il ne me dise plus cela.
Si je fais "autoriser le contenu objet", il me le redemande a chaque fois...
La page ne se trouve pas sur un serveur www, elle est executé en local...
Et pas grand chose dans l'aide.... ;(
Quelqu'un a une idée ?
Code html:
<html>
<head>
<title>Type de station</title>
</head>
<body scroll="no">
<script language="VBScript">
<!--
Dim ready
Sub button_OnClick
ready=1
End Sub
Sub Window_OnLoad()
ready=0
End Sub
Public Function CheckVal()
CheckVal=ready
End function
'-->
</script>
<form name="form1">
<p>Quelle est le type de station ?<br>
<input type="radio" name="radiobutton" value="server"> Serveur Pick<br>
<input type="radio" name="radiobutton" value="backup"> Station de
sauvegarde<br>
<input type="radio" name="radiobutton" value="wrk"> Station normale<br>
<input name="button" type="button" value="Valider">
</form>
</body>
</html>
code vbs :
Dim shell, oIE
Set shell = WScript.CreateObject("WScript.Shell")
Do While true
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
oIE.Left = 50
oIE.Top = 100
oIE.Height = 250
oIE.Width = 250
oIE.MenuBar = 0
oIE.ToolBar = 0
oIE.StatusBar = 0
oIE.navigate GetPath() & "form.html"
oIE.Visible = 2
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Type de station"
On Error Resume Next
Do
WScript.Sleep 100
Loop While (oIE.Document.Script.CheckVal() = 0)
If Err <> 0 Then
Wscript.echo Err
Wscript.Echo "On a fermé IE directement"
Wscript.quit
end if
test=oIE.Document.Script.CheckVal()
If test=-1 Then
CloseIE
Wscript.Echo "On a appuyé sur Annuler"
Wscript.quit
end if
for index=0 to oIE.document.form1.radiobutton.length-1
if oIE.document.form1.radiobutton(index).checked then
exit for
end if
next
Wscript.echo oIE.document.Form1.radiobutton(index).value
CloseIE
loop
Function GetPath()
Dim path
path = WScript.ScriptFullName
GetPath = Left(path, InStrRev(path, ""))
End Function
Sub CloseIE
oIE.Quit
Set oIE = Nothing
End Sub
"Lord Mathius" wrote:est quand on poura piloter firefox via VB ??
nan je plaisante, je sais bien que ms ne feras pas le necessaire pour ca
c'est un produit concurant
pis de toute maniere IE reste installer sur les poste de tout facon
"Kevin Lomax" wrote:Merci beaucoup Mathius & JCB, je vais choisir IE ;) et c parti !!!
"Jean-Claude BELLAMY" wrote:Dans le message news: ,
Kevin Lomax s'est ainsi exprimé:Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *
Alors, je bloque sur un nouveau truc.
J'ai fais comme indiqué sur le site de JCB, un vbs et un html pour avoir mon
pti formulaire... c nickel, sauf qu'avec le SP2 , ca me fait la petite barre
:
"Pour vous aider a protéger votre ordinateur, IE a restreint l'affichage du
contenu actif de ce fichier, qui pourrait acceder a votre ordinateur....."
Je n'ai pas trouver la solution pour qu'il ne me dise plus cela.
Si je fais "autoriser le contenu objet", il me le redemande a chaque fois...
La page ne se trouve pas sur un serveur www, elle est executé en local...
Et pas grand chose dans l'aide.... ;(
Quelqu'un a une idée ?
Code html:
<html>
<head>
<title>Type de station</title>
</head>
<body scroll="no">
<script language="VBScript">
<!--
Dim ready
Sub button_OnClick
ready=1
End Sub
Sub Window_OnLoad()
ready=0
End Sub
Public Function CheckVal()
CheckVal=ready
End function
'-->
</script>
<form name="form1">
<p>Quelle est le type de station ?<br>
<input type="radio" name="radiobutton" value="server"> Serveur Pick<br>
<input type="radio" name="radiobutton" value="backup"> Station de
sauvegarde<br>
<input type="radio" name="radiobutton" value="wrk"> Station normale<br>
<input name="button" type="button" value="Valider">
</form>
</body>
</html>
code vbs :
Dim shell, oIE
Set shell = WScript.CreateObject("WScript.Shell")
Do While true
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
oIE.Left = 50
oIE.Top = 100
oIE.Height = 250
oIE.Width = 250
oIE.MenuBar = 0
oIE.ToolBar = 0
oIE.StatusBar = 0
oIE.navigate GetPath() & "form.html"
oIE.Visible = 2
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Type de station"
On Error Resume Next
Do
WScript.Sleep 100
Loop While (oIE.Document.Script.CheckVal() = 0)
If Err <> 0 Then
Wscript.echo Err
Wscript.Echo "On a fermé IE directement"
Wscript.quit
end if
test=oIE.Document.Script.CheckVal()
If test=-1 Then
CloseIE
Wscript.Echo "On a appuyé sur Annuler"
Wscript.quit
end if
for index=0 to oIE.document.form1.radiobutton.length-1
if oIE.document.form1.radiobutton(index).checked then
exit for
end if
next
Wscript.echo oIE.document.Form1.radiobutton(index).value
CloseIE
loop
Function GetPath()
Dim path
path = WScript.ScriptFullName
GetPath = Left(path, InStrRev(path, ""))
End Function
Sub CloseIE
oIE.Quit
Set oIE = Nothing
End Sub
"Lord Mathius" wrote:
est quand on poura piloter firefox via VB ??
nan je plaisante, je sais bien que ms ne feras pas le necessaire pour ca
c'est un produit concurant
pis de toute maniere IE reste installer sur les poste de tout facon
"Kevin Lomax" wrote:
Merci beaucoup Mathius & JCB, je vais choisir IE ;) et c parti !!!
"Jean-Claude BELLAMY" wrote:
Dans le message news:D2E6F0D9-D981-40FA-A424-E84D7029D8C3@microsoft.com ,
Kevin Lomax <KevinLomax@discussions.microsoft.com> s'est ainsi exprimé:
Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr
Alors, je bloque sur un nouveau truc.
J'ai fais comme indiqué sur le site de JCB, un vbs et un html pour avoir mon
pti formulaire... c nickel, sauf qu'avec le SP2 , ca me fait la petite barre
:
"Pour vous aider a protéger votre ordinateur, IE a restreint l'affichage du
contenu actif de ce fichier, qui pourrait acceder a votre ordinateur....."
Je n'ai pas trouver la solution pour qu'il ne me dise plus cela.
Si je fais "autoriser le contenu objet", il me le redemande a chaque fois...
La page ne se trouve pas sur un serveur www, elle est executé en local...
Et pas grand chose dans l'aide.... ;(
Quelqu'un a une idée ?
Code html:
<html>
<head>
<title>Type de station</title>
</head>
<body scroll="no">
<script language="VBScript">
<!--
Dim ready
Sub button_OnClick
ready=1
End Sub
Sub Window_OnLoad()
ready=0
End Sub
Public Function CheckVal()
CheckVal=ready
End function
'-->
</script>
<form name="form1">
<p>Quelle est le type de station ?<br>
<input type="radio" name="radiobutton" value="server"> Serveur Pick<br>
<input type="radio" name="radiobutton" value="backup"> Station de
sauvegarde<br>
<input type="radio" name="radiobutton" value="wrk"> Station normale<br>
<input name="button" type="button" value="Valider">
</form>
</body>
</html>
code vbs :
Dim shell, oIE
Set shell = WScript.CreateObject("WScript.Shell")
Do While true
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
oIE.Left = 50
oIE.Top = 100
oIE.Height = 250
oIE.Width = 250
oIE.MenuBar = 0
oIE.ToolBar = 0
oIE.StatusBar = 0
oIE.navigate GetPath() & "form.html"
oIE.Visible = 2
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Type de station"
On Error Resume Next
Do
WScript.Sleep 100
Loop While (oIE.Document.Script.CheckVal() = 0)
If Err <> 0 Then
Wscript.echo Err
Wscript.Echo "On a fermé IE directement"
Wscript.quit
end if
test=oIE.Document.Script.CheckVal()
If test=-1 Then
CloseIE
Wscript.Echo "On a appuyé sur Annuler"
Wscript.quit
end if
for index=0 to oIE.document.form1.radiobutton.length-1
if oIE.document.form1.radiobutton(index).checked then
exit for
end if
next
Wscript.echo oIE.document.Form1.radiobutton(index).value
CloseIE
loop
Function GetPath()
Dim path
path = WScript.ScriptFullName
GetPath = Left(path, InStrRev(path, ""))
End Function
Sub CloseIE
oIE.Quit
Set oIE = Nothing
End Sub
"Lord Mathius" wrote:est quand on poura piloter firefox via VB ??
nan je plaisante, je sais bien que ms ne feras pas le necessaire pour ca
c'est un produit concurant
pis de toute maniere IE reste installer sur les poste de tout facon
"Kevin Lomax" wrote:Merci beaucoup Mathius & JCB, je vais choisir IE ;) et c parti !!!
"Jean-Claude BELLAMY" wrote:Dans le message news: ,
Kevin Lomax s'est ainsi exprimé:Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *
est-ce que tu as vérifier la sécuriter de la zone intranet local dans IE tu
bloque peux être l'éxécution de script pour cette zone.
"Kevin Lomax" a écrit dans le message
de news:Alors, je bloque sur un nouveau truc.
J'ai fais comme indiqué sur le site de JCB, un vbs et un html pour avoir
mon
pti formulaire... c nickel, sauf qu'avec le SP2 , ca me fait la petite
barre
:
"Pour vous aider a protéger votre ordinateur, IE a restreint l'affichage
du
contenu actif de ce fichier, qui pourrait acceder a votre ordinateur....."
Je n'ai pas trouver la solution pour qu'il ne me dise plus cela.
Si je fais "autoriser le contenu objet", il me le redemande a chaque
fois...
La page ne se trouve pas sur un serveur www, elle est executé en local...
Et pas grand chose dans l'aide.... ;(
Quelqu'un a une idée ?
Code html:
<html>
<head>
<title>Type de station</title>
</head>
<body scroll="no">
<script language="VBScript">
<!--
Dim ready
Sub button_OnClick
ready=1
End Sub
Sub Window_OnLoad()
ready=0
End Sub
Public Function CheckVal()
CheckVal=ready
End function
'-->
</script>
<form name="form1">
<p>Quelle est le type de station ?<br>
<input type="radio" name="radiobutton" value="server"> Serveur Pick<br>
<input type="radio" name="radiobutton" value="backup"> Station de
sauvegarde<br>
<input type="radio" name="radiobutton" value="wrk"> Station normale<br>
<input name="button" type="button" value="Valider">
</form>
</body>
</html>
code vbs :
Dim shell, oIE
Set shell = WScript.CreateObject("WScript.Shell")
Do While true
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
oIE.Left = 50
oIE.Top = 100
oIE.Height = 250
oIE.Width = 250
oIE.MenuBar = 0
oIE.ToolBar = 0
oIE.StatusBar = 0
oIE.navigate GetPath() & "form.html"
oIE.Visible = 2
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Type de station"
On Error Resume Next
Do
WScript.Sleep 100
Loop While (oIE.Document.Script.CheckVal() = 0)
If Err <> 0 Then
Wscript.echo Err
Wscript.Echo "On a fermé IE directement"
Wscript.quit
end if
test=oIE.Document.Script.CheckVal()
If test=-1 Then
CloseIE
Wscript.Echo "On a appuyé sur Annuler"
Wscript.quit
end if
for index=0 to oIE.document.form1.radiobutton.length-1
if oIE.document.form1.radiobutton(index).checked then
exit for
end if
next
Wscript.echo oIE.document.Form1.radiobutton(index).value
CloseIE
loop
Function GetPath()
Dim path
path = WScript.ScriptFullName
GetPath = Left(path, InStrRev(path, ""))
End Function
Sub CloseIE
oIE.Quit
Set oIE = Nothing
End Sub
"Lord Mathius" wrote:est quand on poura piloter firefox via VB ??
nan je plaisante, je sais bien que ms ne feras pas le necessaire pour ca
c'est un produit concurant
pis de toute maniere IE reste installer sur les poste de tout facon
"Kevin Lomax" wrote:Merci beaucoup Mathius & JCB, je vais choisir IE ;) et c parti !!!
"Jean-Claude BELLAMY" wrote:Dans le message
news: ,
Kevin Lomax s'est ainsi
exprimé:Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *
est-ce que tu as vérifier la sécuriter de la zone intranet local dans IE tu
bloque peux être l'éxécution de script pour cette zone.
"Kevin Lomax" <KevinLomax@discussions.microsoft.com> a écrit dans le message
de news: FD203013-C4A4-4667-8647-E23448BC1862@microsoft.com...
Alors, je bloque sur un nouveau truc.
J'ai fais comme indiqué sur le site de JCB, un vbs et un html pour avoir
mon
pti formulaire... c nickel, sauf qu'avec le SP2 , ca me fait la petite
barre
:
"Pour vous aider a protéger votre ordinateur, IE a restreint l'affichage
du
contenu actif de ce fichier, qui pourrait acceder a votre ordinateur....."
Je n'ai pas trouver la solution pour qu'il ne me dise plus cela.
Si je fais "autoriser le contenu objet", il me le redemande a chaque
fois...
La page ne se trouve pas sur un serveur www, elle est executé en local...
Et pas grand chose dans l'aide.... ;(
Quelqu'un a une idée ?
Code html:
<html>
<head>
<title>Type de station</title>
</head>
<body scroll="no">
<script language="VBScript">
<!--
Dim ready
Sub button_OnClick
ready=1
End Sub
Sub Window_OnLoad()
ready=0
End Sub
Public Function CheckVal()
CheckVal=ready
End function
'-->
</script>
<form name="form1">
<p>Quelle est le type de station ?<br>
<input type="radio" name="radiobutton" value="server"> Serveur Pick<br>
<input type="radio" name="radiobutton" value="backup"> Station de
sauvegarde<br>
<input type="radio" name="radiobutton" value="wrk"> Station normale<br>
<input name="button" type="button" value="Valider">
</form>
</body>
</html>
code vbs :
Dim shell, oIE
Set shell = WScript.CreateObject("WScript.Shell")
Do While true
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
oIE.Left = 50
oIE.Top = 100
oIE.Height = 250
oIE.Width = 250
oIE.MenuBar = 0
oIE.ToolBar = 0
oIE.StatusBar = 0
oIE.navigate GetPath() & "form.html"
oIE.Visible = 2
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Type de station"
On Error Resume Next
Do
WScript.Sleep 100
Loop While (oIE.Document.Script.CheckVal() = 0)
If Err <> 0 Then
Wscript.echo Err
Wscript.Echo "On a fermé IE directement"
Wscript.quit
end if
test=oIE.Document.Script.CheckVal()
If test=-1 Then
CloseIE
Wscript.Echo "On a appuyé sur Annuler"
Wscript.quit
end if
for index=0 to oIE.document.form1.radiobutton.length-1
if oIE.document.form1.radiobutton(index).checked then
exit for
end if
next
Wscript.echo oIE.document.Form1.radiobutton(index).value
CloseIE
loop
Function GetPath()
Dim path
path = WScript.ScriptFullName
GetPath = Left(path, InStrRev(path, ""))
End Function
Sub CloseIE
oIE.Quit
Set oIE = Nothing
End Sub
"Lord Mathius" wrote:
est quand on poura piloter firefox via VB ??
nan je plaisante, je sais bien que ms ne feras pas le necessaire pour ca
c'est un produit concurant
pis de toute maniere IE reste installer sur les poste de tout facon
"Kevin Lomax" wrote:
Merci beaucoup Mathius & JCB, je vais choisir IE ;) et c parti !!!
"Jean-Claude BELLAMY" wrote:
Dans le message
news:D2E6F0D9-D981-40FA-A424-E84D7029D8C3@microsoft.com ,
Kevin Lomax <KevinLomax@discussions.microsoft.com> s'est ainsi
exprimé:
Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org Jean-Claude.Bellamy@wanadoo.fr *
JC.Bellamy@free.fr
est-ce que tu as vérifier la sécuriter de la zone intranet local dans IE tu
bloque peux être l'éxécution de script pour cette zone.
"Kevin Lomax" a écrit dans le message
de news:Alors, je bloque sur un nouveau truc.
J'ai fais comme indiqué sur le site de JCB, un vbs et un html pour avoir
mon
pti formulaire... c nickel, sauf qu'avec le SP2 , ca me fait la petite
barre
:
"Pour vous aider a protéger votre ordinateur, IE a restreint l'affichage
du
contenu actif de ce fichier, qui pourrait acceder a votre ordinateur....."
Je n'ai pas trouver la solution pour qu'il ne me dise plus cela.
Si je fais "autoriser le contenu objet", il me le redemande a chaque
fois...
La page ne se trouve pas sur un serveur www, elle est executé en local...
Et pas grand chose dans l'aide.... ;(
Quelqu'un a une idée ?
Code html:
<html>
<head>
<title>Type de station</title>
</head>
<body scroll="no">
<script language="VBScript">
<!--
Dim ready
Sub button_OnClick
ready=1
End Sub
Sub Window_OnLoad()
ready=0
End Sub
Public Function CheckVal()
CheckVal=ready
End function
'-->
</script>
<form name="form1">
<p>Quelle est le type de station ?<br>
<input type="radio" name="radiobutton" value="server"> Serveur Pick<br>
<input type="radio" name="radiobutton" value="backup"> Station de
sauvegarde<br>
<input type="radio" name="radiobutton" value="wrk"> Station normale<br>
<input name="button" type="button" value="Valider">
</form>
</body>
</html>
code vbs :
Dim shell, oIE
Set shell = WScript.CreateObject("WScript.Shell")
Do While true
Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
oIE.Left = 50
oIE.Top = 100
oIE.Height = 250
oIE.Width = 250
oIE.MenuBar = 0
oIE.ToolBar = 0
oIE.StatusBar = 0
oIE.navigate GetPath() & "form.html"
oIE.Visible = 2
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Type de station"
On Error Resume Next
Do
WScript.Sleep 100
Loop While (oIE.Document.Script.CheckVal() = 0)
If Err <> 0 Then
Wscript.echo Err
Wscript.Echo "On a fermé IE directement"
Wscript.quit
end if
test=oIE.Document.Script.CheckVal()
If test=-1 Then
CloseIE
Wscript.Echo "On a appuyé sur Annuler"
Wscript.quit
end if
for index=0 to oIE.document.form1.radiobutton.length-1
if oIE.document.form1.radiobutton(index).checked then
exit for
end if
next
Wscript.echo oIE.document.Form1.radiobutton(index).value
CloseIE
loop
Function GetPath()
Dim path
path = WScript.ScriptFullName
GetPath = Left(path, InStrRev(path, ""))
End Function
Sub CloseIE
oIE.Quit
Set oIE = Nothing
End Sub
"Lord Mathius" wrote:est quand on poura piloter firefox via VB ??
nan je plaisante, je sais bien que ms ne feras pas le necessaire pour ca
c'est un produit concurant
pis de toute maniere IE reste installer sur les poste de tout facon
"Kevin Lomax" wrote:Merci beaucoup Mathius & JCB, je vais choisir IE ;) et c parti !!!
"Jean-Claude BELLAMY" wrote:Dans le message
news: ,
Kevin Lomax s'est ainsi
exprimé:Bonjour tout le monde..
Je cherche une solution pour proposer a l'utilisateur une forme
d'inputbox, mais avec une liste de choix...
Est ce possible en vbs, je ne trouve rien a ce sujet :(
Uniquement avec VBS, c'est IMPOSSIBLE.
Les seules interfaces offertes par VBS sont :
- la boite de message (msgbox)
- la boite de saisie d'une chaine (inputbox)
et on peut y ajouter la fenêtre popup de l'objet shell (popup)
Si on désire plus, il faut :
- soit faire appel à un contrôle ActiveX (écrit en ce que l'on veut)
dans lequel on aura prévu ces interfaces avec les méthodes et
propriétés "qui vont bien".
- soit utiliser des formulaires HTML gérés par l'objet
"InternetExplorer.Application", tout çà en VBS ou HTA
http://www.bellamyjc.org/fr/vbsavance.html#formulaires
Des tas d'exemples ici :
http://cwashington.netreach.net/depo/default.asp?topic=repository&ScriptType=vbscript&SubType=Html
http://www.interclasse.com/scripts/DOM_Explorer.php
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
http://www.bellamyjc.org *
pour contourné ce pb en fait le seul moyen que j'ai trouver pour le
moment c'est d'afficher about:blank pis de renplir la page avec le
contenue html que je souhaite -> browser.writeln " code html "
pour contourné ce pb en fait le seul moyen que j'ai trouver pour le
moment c'est d'afficher about:blank pis de renplir la page avec le
contenue html que je souhaite -> browser.writeln " code html "
pour contourné ce pb en fait le seul moyen que j'ai trouver pour le
moment c'est d'afficher about:blank pis de renplir la page avec le
contenue html que je souhaite -> browser.writeln " code html "
est quand on poura piloter firefox via VB ??
nan je plaisante, je sais bien que ms ne feras pas le necessaire pour
ca c'est un produit concurant
est quand on poura piloter firefox via VB ??
nan je plaisante, je sais bien que ms ne feras pas le necessaire pour
ca c'est un produit concurant
est quand on poura piloter firefox via VB ??
nan je plaisante, je sais bien que ms ne feras pas le necessaire pour
ca c'est un produit concurant