none
Lancer une objet internetexplorer.application dans une nouveau processus RRS feed

  • Discussion générale

  • Bonjour, j'exécute plusieurs vbs en parallèle, chacun instancie un objet internetExplorer.application, le problème c'est que ces objet travail sur le même processus windows et il ya des conflits dans le traitement des donnée de la page ouverte. Y a t-il possibilité de que pour chaque objet instancié on ai un processus windows différent ?

    voici le code qui est le même pour chaque script qui tourne en parallèle:

    <package>
    <job id="genAuto">
    <script language="VBScript">
    Set objExplorer = CreateObject("InternetExplorer.Application")
    objExplorer.Navigate "about:blank"
    objExplorer.Visible = 0
    Do While (objExplorer.Busy)
    Loop
    Set objDocument = objExplorer.Document
    objDocument.Open
    objDocument.Writeln "<html>"
    objDocument.Writeln "<head>"
    objDocument.Writeln "<script language=""javascript"">"
    
    ......
    ......
    ......
    objDocument.Writeln "</html>"
    objDocument.Write()
    objExplorer.Quit()
    </script>
    </job>
    </package>
    

    J'ai utiliser cette méthode mais sans succès, elle m'ouvre un nouvel internet explorer mais les paramètre que je lui applique (navigate, visible, document ne marche pas), elle m'ouvre simplement la page d'acceuil de mon ie :

    Set oShell = WScript.CreateObject("WScript.Shell")
    Set IE=CreateObject("InternetExplorer.Application")
    IE.Navigate "about:blank"
    IE.Visible = 0
    Set oIE = oShell.Exec(IE.Path & "iExplore.exe")
    oShell.AppActivate oIE.ProcessID
    Merci

    • Type modifié Ciprian Duduiala vendredi 10 juin 2011 05:40 attente de feedback
    vendredi 3 juin 2011 14:19

Toutes les réponses

  • Bonjour,

     

    J’ai trouvé une seule discussion similaire sur le forum MSDN des Etats-Unis. Il est un vieux thread, mais ils disent qu’il faut décocher le « Mode protégé » dans l’onglet Sécurité dans Outils>Options Internet pour pouvoir obtenir le résultat de votre VBScripts. Essayez le faire pour voir s’il va améliorer les résultats.

    Sinon, pouvez-vous nous préciser plus des détails sur le mode utilisé pour lancer les vbs en parallèle ? On a besoin de cette information pour essayer reproduire votre contexte (dans lequel votre problème est apparu).

    Bonne journée,

    Cipri


    Suivez MSDN sur Twitter   Suivez MSDN sur Facebook


    Ciprian DUDUIALA, MSFT  
    •Nous vous prions de considérer que dans le cadre de ce forum on n’offre pas de support technique et aucune garantie de la part de Microsoft ne peut être offerte.

    mercredi 8 juin 2011 10:31
  • Set objExplorer = WScript.CreateObject("InternetExplorer.Application") objExplorer.Navigate "about:blank" objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Width=400 objExplorer.Height = 200 objExplorer.Left = 0 objExplorer.Top = 0 Do While (objExplorer.Busy) ' Wscript.Sleep 200 Loop objExplorer.Visible = 1 objExplorer.Document.Body.InnerHTML = "Retrieving service information. " _ & "This might take several minutes to complete." strComputer = "." Set colServices = GetObject("winmgmts:\\" & strComputer & "\root\cimv2"). _ ExecQuery("Select * from Win32_Service") For Each objService in colServices Wscript.Sleep 200 Next 'Debut indication objExplorer.Document.Body.InnerHTML = "Service information retrieved." 'Fin indication Wscript.Sleep 3000 objExplorer.Quit Juillet 2014 Aujourd'hui et oui l'aide est tardive en esperant que tu as reussi à dormir.
    • Modifié malre mardi 15 juillet 2014 19:23 date
    mardi 15 juillet 2014 19:19