+ Auf Thema antworten
Seite 2 von 2
ErsteErste 1 2
Zeige Ergebnis 11 bis 14 von 14

Thema: Sendkey {Argumente}

  1. #11

    Klappt leider nicht

    Vielen Dank zunächst !

    Mich beruhigt, dass Du auch keine schnelle Lösung hast,
    immerhin habe ich 1 1/2 h alles Erdenkliche systematisch
    ausprobiert und dabei laufend Schiffbruch erlitten.


    Genaueres:

    Set Wss=WScript.CreateObject("WScript.Shell")

    Datei="Uhr.wmf"
    Wss.Run "MsPaint """&Datei&""" "
    WScript.Sleep 333
    Wss.Sendkeys "{F5}" 'Neues Fenster in Vordergrund nehmen
    WScript.Sleep 333

    'Dies Fenster erscheint im Gesamtbildformat mit "Strg+G"
    'Wie bloß mit "Sendkeys" ???
    'Versuch:
    Wss.Sendkeys "^g"

    Mit besten Grüßen,
    W. Schmelz

  2. #12

    Klappt leider nicht

    Der 2. Versuch, beim 1. Mal wurde der Beitrag registriert,
    aber nicht angezeigt !?


    Vielen Dank zunächst !

    Mich beruhigt, dass Du auch keine schnelle Lösung hast,
    immerhin habe ich 1 1/2 h alles Erdenkliche systematisch
    ausprobiert und dabei laufend Schiffbruch erlitten.


    Genaueres:

    Set Wss=WScript.CreateObject("WScript.Shell")

    Datei="Uhr.wmf"
    Wss.Run "MsPaint """&Datei&""" "
    WScript.Sleep 333
    Wss.Sendkeys "{F5}" 'Neues Fenster in Vordergrund nehmen
    WScript.Sleep 333

    'Dies Fenster erscheint im Gesamtbildformat mit "Strg+G"
    'Wie bloß mit "Sendkeys" ???
    'Versuch:
    Wss.Sendkeys "^g"

    Mit vielen Grüßen,
    W. Schmelz

  3. #13

    Ich wieder:
    Code:
    Set Wss=WScript.CreateObject("WScript.Shell")
    
    Datei="C:\PA271294.JPG"
    MsgBox Mid( Datei, InStrRev( Datei, "\" ) + 1, 5 )
    Wss.Run "MsPaint """&Datei&""" "
    WScript.Sleep 333*5
    Wss.AppActivate "Window" ' holt die "Windows Script-Technologien" - Hilfe in den Vordergrund
    WScript.Sleep 333*5
    Wss.AppActivate Mid( Datei, InStrRev( Datei, "\" ) + 1, 5 ) ' holt den MSPAINT mit "PA271" in den Vordergrund
    WScript.Sleep 333*1
    Wss.Sendkeys "^g"
    So funktionierts bei mir. Entscheidend war die Erhöhung der "Schlafzeiten".
    Bis dann - dieseyer

    Und zwischendurch: http://dieseyer.de
    Leichter zu merken: http://wsh-vbs.de

  4. #14

    Klappt nur unvollständig

    Vielen Dank für Deine Antwort !

    Sieht bei mir so aus:

    Set Wss=WScript.CreateObject("WScript.Shell")

    Datei="C:\Uhr.wmf"
    Wss.Run "MsPaint """&Datei&""" "
    WScript.Sleep 333

    'Holt "MsPaint" mit "Uhr.wmf" in den Vordergrund:
    Wss.AppActivate ("Uhr.wmf")
    WScript.Sleep 333
    Wss.Sendkeys "^g"

    Das Vollbild blitzt nur einen Wimpernschlag lang auf!
    Wie kann man es auf Dauer bringen?

    Mit vielen Grüßen,
    W. Schmelz
    Geändert von W. Schmelz (05.03.2008 um 18:08 / @755 Uhr)

+ Auf Thema antworten

Forumregeln

  • Es ist dir nicht erlaubt, neue Themen zu verfassen.
  • Es ist dir nicht erlaubt, auf Beiträge zu antworten.
  • Es ist dir nicht erlaubt, Anhänge hochzuladen.
  • Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.