bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés
données :
-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la fenêtre
et
la bordure noire du body, on voit sur quelques pixels, en transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre !!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite fenêtre?
-------------------------------------------------------------
Merci.
bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés
données :
-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la fenêtre
et
la bordure noire du body, on voit sur quelques pixels, en transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre !!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite fenêtre?
-------------------------------------------------------------
Merci.
bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés
données :
-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la fenêtre
et
la bordure noire du body, on voit sur quelques pixels, en transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre !!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite fenêtre?
-------------------------------------------------------------
Merci.
Bonjour,
Une solution simple est d'initialiser le Height et le Width avec des valeurs
plus petites, puis de remettre les bonnes valeurs. Il faut aussi mettre le
Visible tout à la fin. Ainsi ton code devient :
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Top = 100
oIE.Left = 100
oIE.Height = 10
oIE.Width = 10
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "enavant.dord.dord"
Do While (oIE.Busy)
WScript.Sleep 200
Loop
oIE.Height = 380
oIE.Width = 350
oIE.Visible = True
shell.AppActivate "Titre"
Cordialement
Georges
"Lionel" a écrit dans le message de
news:bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés
données :-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la fenêtre
etla bordure noire du body, on voit sur quelques pixels, en transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre !!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite fenêtre?
-------------------------------------------------------------
Merci.
Bonjour,
Une solution simple est d'initialiser le Height et le Width avec des valeurs
plus petites, puis de remettre les bonnes valeurs. Il faut aussi mettre le
Visible tout à la fin. Ainsi ton code devient :
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Top = 100
oIE.Left = 100
oIE.Height = 10
oIE.Width = 10
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "enavant.dord.dord"
Do While (oIE.Busy)
WScript.Sleep 200
Loop
oIE.Height = 380
oIE.Width = 350
oIE.Visible = True
shell.AppActivate "Titre"
Cordialement
Georges
"Lionel" <Lionel@discussions.microsoft.com> a écrit dans le message de
news:3DC0CC3F-47B3-4C87-9FA9-2AF0B93E5197@microsoft.com...
bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés
données :
-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la fenêtre
et
la bordure noire du body, on voit sur quelques pixels, en transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre !!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite fenêtre?
-------------------------------------------------------------
Merci.
Bonjour,
Une solution simple est d'initialiser le Height et le Width avec des valeurs
plus petites, puis de remettre les bonnes valeurs. Il faut aussi mettre le
Visible tout à la fin. Ainsi ton code devient :
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Top = 100
oIE.Left = 100
oIE.Height = 10
oIE.Width = 10
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "enavant.dord.dord"
Do While (oIE.Busy)
WScript.Sleep 200
Loop
oIE.Height = 380
oIE.Width = 350
oIE.Visible = True
shell.AppActivate "Titre"
Cordialement
Georges
"Lionel" a écrit dans le message de
news:bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés
données :-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la fenêtre
etla bordure noire du body, on voit sur quelques pixels, en transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre !!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite fenêtre?
-------------------------------------------------------------
Merci.
C'était une bonne idée !! it works!
Merci
Pour la 2ème question, je crée un nouveau sujet?
"Georges MAUREL" wrote:Bonjour,
Une solution simple est d'initialiser le Height et le Width avec des
valeurs
plus petites, puis de remettre les bonnes valeurs. Il faut aussi mettre
le
Visible tout à la fin. Ainsi ton code devient :
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Top = 100
oIE.Left = 100
oIE.Height = 10
oIE.Width = 10
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "enavant.dord.dord"
Do While (oIE.Busy)
WScript.Sleep 200
Loop
oIE.Height = 380
oIE.Width = 350
oIE.Visible = True
shell.AppActivate "Titre"
Cordialement
Georges
"Lionel" a écrit dans le message de
news:bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés
données :-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la
fenêtre
etla bordure noire du body, on voit sur quelques pixels, en
transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre
!!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite
fenêtre?
-------------------------------------------------------------
Merci.
C'était une bonne idée !! it works!
Merci
Pour la 2ème question, je crée un nouveau sujet?
"Georges MAUREL" wrote:
Bonjour,
Une solution simple est d'initialiser le Height et le Width avec des
valeurs
plus petites, puis de remettre les bonnes valeurs. Il faut aussi mettre
le
Visible tout à la fin. Ainsi ton code devient :
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Top = 100
oIE.Left = 100
oIE.Height = 10
oIE.Width = 10
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "enavant.dord.dord"
Do While (oIE.Busy)
WScript.Sleep 200
Loop
oIE.Height = 380
oIE.Width = 350
oIE.Visible = True
shell.AppActivate "Titre"
Cordialement
Georges
"Lionel" <Lionel@discussions.microsoft.com> a écrit dans le message de
news:3DC0CC3F-47B3-4C87-9FA9-2AF0B93E5197@microsoft.com...
bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés
données :
-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la
fenêtre
et
la bordure noire du body, on voit sur quelques pixels, en
transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre
!!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite
fenêtre?
-------------------------------------------------------------
Merci.
C'était une bonne idée !! it works!
Merci
Pour la 2ème question, je crée un nouveau sujet?
"Georges MAUREL" wrote:Bonjour,
Une solution simple est d'initialiser le Height et le Width avec des
valeurs
plus petites, puis de remettre les bonnes valeurs. Il faut aussi mettre
le
Visible tout à la fin. Ainsi ton code devient :
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Top = 100
oIE.Left = 100
oIE.Height = 10
oIE.Width = 10
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "enavant.dord.dord"
Do While (oIE.Busy)
WScript.Sleep 200
Loop
oIE.Height = 380
oIE.Width = 350
oIE.Visible = True
shell.AppActivate "Titre"
Cordialement
Georges
"Lionel" a écrit dans le message de
news:bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés
données :-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la
fenêtre
etla bordure noire du body, on voit sur quelques pixels, en
transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre
!!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite
fenêtre?
-------------------------------------------------------------
Merci.
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite fenêtre?
-------------------------------------------------------------
par ex. :
bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés données :
-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la fenêtre et
la bordure noire du body, on voit sur quelques pixels, en transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre !!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
Merci.
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite fenêtre?
-------------------------------------------------------------
par ex. :
bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés données :
-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la fenêtre et
la bordure noire du body, on voit sur quelques pixels, en transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre !!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
Merci.
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite fenêtre?
-------------------------------------------------------------
par ex. :
bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés données :
-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la fenêtre et
la bordure noire du body, on voit sur quelques pixels, en transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre !!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
Merci.
Bonjour Lionel,
Personnellement pour le second sujet, je n'ai rien trouvé permettant d'y
arriver. Car je pense qu'il faut utiliser les API windows (findwindow
notamment) mais je n'y suis pas arrivé.
Par contre, si un MVP pouvait nous donner un coup de main...
Sinon, oui recrée un fil.
Cordialement
Georges
"Lionel" a écrit dans le message de
news:C'était une bonne idée !! it works!
Merci
Pour la 2ème question, je crée un nouveau sujet?
"Georges MAUREL" wrote:Bonjour,
Une solution simple est d'initialiser le Height et le Width avec des
valeursplus petites, puis de remettre les bonnes valeurs. Il faut aussi mettre
leVisible tout à la fin. Ainsi ton code devient :
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Top = 100
oIE.Left = 100
oIE.Height = 10
oIE.Width = 10
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "enavant.dord.dord"
Do While (oIE.Busy)
WScript.Sleep 200
Loop
oIE.Height = 380
oIE.Width = 350
oIE.Visible = True
shell.AppActivate "Titre"
Cordialement
Georges
"Lionel" a écrit dans le message de
news:bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés
données :-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la
fenêtreetla bordure noire du body, on voit sur quelques pixels, en
transparence, lecontenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre
!!!Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite
fenêtre?-------------------------------------------------------------
Merci.
Bonjour Lionel,
Personnellement pour le second sujet, je n'ai rien trouvé permettant d'y
arriver. Car je pense qu'il faut utiliser les API windows (findwindow
notamment) mais je n'y suis pas arrivé.
Par contre, si un MVP pouvait nous donner un coup de main...
Sinon, oui recrée un fil.
Cordialement
Georges
"Lionel" <Lionel@discussions.microsoft.com> a écrit dans le message de
news:307FAEB4-06FA-4BA9-909F-8C39D04B8149@microsoft.com...
C'était une bonne idée !! it works!
Merci
Pour la 2ème question, je crée un nouveau sujet?
"Georges MAUREL" wrote:
Bonjour,
Une solution simple est d'initialiser le Height et le Width avec des
valeurs
plus petites, puis de remettre les bonnes valeurs. Il faut aussi mettre
le
Visible tout à la fin. Ainsi ton code devient :
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Top = 100
oIE.Left = 100
oIE.Height = 10
oIE.Width = 10
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "enavant.dord.dord"
Do While (oIE.Busy)
WScript.Sleep 200
Loop
oIE.Height = 380
oIE.Width = 350
oIE.Visible = True
shell.AppActivate "Titre"
Cordialement
Georges
"Lionel" <Lionel@discussions.microsoft.com> a écrit dans le message de
news:3DC0CC3F-47B3-4C87-9FA9-2AF0B93E5197@microsoft.com...
bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés
données :
-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la
fenêtre
et
la bordure noire du body, on voit sur quelques pixels, en
transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre
!!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite
fenêtre?
-------------------------------------------------------------
Merci.
Bonjour Lionel,
Personnellement pour le second sujet, je n'ai rien trouvé permettant d'y
arriver. Car je pense qu'il faut utiliser les API windows (findwindow
notamment) mais je n'y suis pas arrivé.
Par contre, si un MVP pouvait nous donner un coup de main...
Sinon, oui recrée un fil.
Cordialement
Georges
"Lionel" a écrit dans le message de
news:C'était une bonne idée !! it works!
Merci
Pour la 2ème question, je crée un nouveau sujet?
"Georges MAUREL" wrote:Bonjour,
Une solution simple est d'initialiser le Height et le Width avec des
valeursplus petites, puis de remettre les bonnes valeurs. Il faut aussi mettre
leVisible tout à la fin. Ainsi ton code devient :
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Top = 100
oIE.Left = 100
oIE.Height = 10
oIE.Width = 10
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "enavant.dord.dord"
Do While (oIE.Busy)
WScript.Sleep 200
Loop
oIE.Height = 380
oIE.Width = 350
oIE.Visible = True
shell.AppActivate "Titre"
Cordialement
Georges
"Lionel" a écrit dans le message de
news:bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés
données :-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la
fenêtreetla bordure noire du body, on voit sur quelques pixels, en
transparence, lecontenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre
!!!Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite
fenêtre?-------------------------------------------------------------
Merci.
Bonjour,2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite fenêtre?
-------------------------------------------------------------
par ex. :
If Not shell.AppActivate("titre") Then
'blabla
End If
Amicalement,
Jean - JMST
Belgium
"Lionel" a écrit dans le message de news:bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés données :
-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la fenêtre et
la bordure noire du body, on voit sur quelques pixels, en transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre !!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
Merci.
Bonjour,
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite fenêtre?
-------------------------------------------------------------
par ex. :
If Not shell.AppActivate("titre") Then
'blabla
End If
Amicalement,
Jean - JMST
Belgium
"Lionel" <Lionel@discussions.microsoft.com> a écrit dans le message de news: 3DC0CC3F-47B3-4C87-9FA9-2AF0B93E5197@microsoft.com...
bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés données :
-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la fenêtre et
la bordure noire du body, on voit sur quelques pixels, en transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre !!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
Merci.
Bonjour,2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite fenêtre?
-------------------------------------------------------------
par ex. :
If Not shell.AppActivate("titre") Then
'blabla
End If
Amicalement,
Jean - JMST
Belgium
"Lionel" a écrit dans le message de news:bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés données :
-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la fenêtre et
la bordure noire du body, on voit sur quelques pixels, en transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre !!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
Merci.
Tout simplement ... Merci!
------------------------------------------------------------
"Jean" wrote:Bonjour,2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite
fenêtre?
-------------------------------------------------------------
par ex. :
If Not shell.AppActivate("titre") Then
'blabla
End If
Amicalement,
Jean - JMST
Belgium
"Lionel" a écrit dans le message de
news:
bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés
données :
-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la
fenêtre et
la bordure noire du body, on voit sur quelques pixels, en
transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre
!!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
Merci.
Tout simplement ... Merci!
------------------------------------------------------------
"Jean" wrote:
Bonjour,
2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite
fenêtre?
-------------------------------------------------------------
par ex. :
If Not shell.AppActivate("titre") Then
'blabla
End If
Amicalement,
Jean - JMST
Belgium
"Lionel" <Lionel@discussions.microsoft.com> a écrit dans le message de
news: 3DC0CC3F-47B3-4C87-9FA9-2AF0B93E5197@microsoft.com...
bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés
données :
-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la
fenêtre et
la bordure noire du body, on voit sur quelques pixels, en
transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre
!!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
Merci.
Tout simplement ... Merci!
------------------------------------------------------------
"Jean" wrote:Bonjour,2) Comment tester dans ce script, que la fenêtre en question est déjà
ouverte, et donc ne pas relancer une nouvelle instance de la-dite
fenêtre?
-------------------------------------------------------------
par ex. :
If Not shell.AppActivate("titre") Then
'blabla
End If
Amicalement,
Jean - JMST
Belgium
"Lionel" a écrit dans le message de
news:
bonjour,
j'ai le script suivant, qui ouvre une fenêtre IE avec des propriétés
données :
-------------------------------------------------
Set shell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.Height = 380
oIE.Width = 350
oIE.MenuBar = False
oIE.ToolBar = False
oIE.StatusBar = False
oIE.Resizable = False
oIE.navigate "localhost/NomAppli/index.aspx"
oIE.Visible = True
Do While (oIE.Busy)
WScript.Sleep 200
Loop
shell.AppActivate "Titre"
--------------------------------
1) Ca marche, avec un petit défaut: entre la bordure bleue de la
fenêtre et
la bordure noire du body, on voit sur quelques pixels, en
transparence, le
contenu du bureau!!
Si on réduit la fenêtre, puis on la restaure, tout rentre dans l'ordre
!!!
Donc, comment fait-on en vbs pour d'abord ouvrir la fenêtre en mode
minimize, puis la restaurer?
Merci.