VBScript, Text in die Zwischenablage zum Einfügen in einem Beliebigen Feld

Ich haben zusammen ein Skript, das kopieren der von mir gewünschten text in meine Zwischenablage kopiert, so kann ich einfügen von Inhalt in ein beliebiges Textfeld.

Dim string 
String = "This Is A script that allows me to copy text contained withing these quotes directly into my clipboard. Which yes is plenty fast as it is when compared to finding file, opening file, selecting desired content, copy content, and select location to paste content."
Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.Run "cmd.exe /c echo " & String & " | clip", 0, TRUE

Aktuellen Schritte erforderlich ist

  1. Skript ausführen
  2. navigieren Sie zum gewünschten Speicherort
  3. einfügen von Inhalten.

Ich versuche es so zu machen, dass ich einen hotkey dann an der gewünschten Position
1. Strg + Alt + F1 (Oder jede combo), um Text in die Zwischenablage zum Einfügen

Antwort zur vorherigen Frage, in der Art von Sache, die Sie suchen?

InformationsquelleAutor Lowell | 2015-02-24

  1. 2

    Hier ein script zum Auslesen der Zwischenablage, ändern Sie Einfach es zu kopieren.

    Sub Clip
    Set ie = CreateObject("InternetExplorer.Application") 
    ie.Visible = 0
    ie.Navigate2 FilterPath & "Filter.html"
    Do 
        wscript.sleep 100
    Loop until ie.document.readystate = "complete"  
    txt=ie.document.parentwindow.clipboardData.GetData("TEXT")
    ie.quit
    If IsNull(txt) = true then 
        outp.writeline "No text on clipboard"
    else
        outp.writeline txt
    End If
End Sub

    Bei der Verwendung von IE als Objekt navigieren Sie zu einer lokalen Datei auf Sicherheit deaktivieren.

    Einer Verknüpfung auf dem Desktop oder über das Start-Menü kann ein hotkey zugewiesen, in der Sie dessen Eigenschaften. Dies wird starten Sie die Verknüpfung, oder falls bereits gestartet ist, wechseln Sie zu diesem Fenster.

    Danke sehr, Problem gelöst alle meine Probleme

    InformationsquelleAutor Serenity

  2. 0

    Um den Wert der Zwischenablage, können Sie damit Sub:

    Sub SetClipboard(val) 
    Set oExcel = CreateObject("Excel.Application")
    Set book = oExcel.Workbooks.Add()
    Set sheet = book.Sheets("Sheet1")
    sheet.Cells(1.1).Value = val
    sheet.Cells(1,1).Copy
    book.Close False
    Set oExcel = Nothing
End Sub

    Wert zu erhalten der Zwischenablage, können Sie damit Sub:

    Sub GetClipboard() 
    Set oExcel = CreateObject("Excel.Application")
    Set book = oExcel.Workbooks.Add()
    Set sheet = book.Sheets("Sheet1")
    sheet.Paste
    ValueInClipboard = sheet.Cells(1.1).Value
    book.Close False
    Set oExcel = Nothing
    WScript.StdOut.Write ValueInClipboard
End Sub

    InformationsquelleAutor Srinath Jackie

Schreibe einen Kommentar