從瀏覽器複製所有文本並將其粘貼到txt文件並保存。 VBscript

Question

我有30個不同的網頁，我正在試圖製作一個腳本來複制所有文本，並將其粘貼到30個不同的txt文件並保存 - 全部在後臺。

到目前爲止，我成功地爲一個網頁創建了一個腳本，但是我有問題要創建一個.vbs文件，它將爲所有30個頁面創建。我以爲我可以將我的代碼30x複製/粘貼到頁面底部，只需修改網站的源/目的地即可。但它沒有。

With CreateObject("internetexplorer.application") 
    .Navigate "http://example.com" 
    Do Until .ReadyState = 4 
    Wscript.Sleep 100 
    Loop 

    .Document.execcommand "SelectAll" 
    .Document.execCommand "copy" 

End With 

'paste 
    Const ForAppending = 8 

    Dim sFSpec 
    sFSpec = ".\file1.txt" 

    Dim oIE 
    Dim sText 

    Set oIE = CreateObject("InternetExplorer.Application") 
    oIE.Navigate("about:blank") 
    sText = oIE.document.parentwindow.clipboardData.GetData("text") 
    CreateObject("Scripting.FileSystemObject")_ 
    .OpenTextFile(sFSpec, ForAppending, True)_ 
    .WriteLine sText 

    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
    'Below, I just copy and paste it, but the code here doesn't work 

    With CreateObject("internetexplorer.application") 
    .Navigate "http://example1.com" 

    Do Until .ReadyState = 4 
    Wscript.Sleep 100 
    Loop 
    .Document.execcommand "SelectAll" 
    .Document.execCommand "copy" 

End With 

'paste 
    Const ForAppending = 8 
    Dim sFSpec1 

    sFSpec1 = ".\dev01-envVar.txt" 

    Dim oIE1 
    Dim sText1 

    Set oIE1 = CreateObject("InternetExplorer.Application") 
    oIE1.Navigate("about:blank") 
    sText1 = oIE1.document.parentwindow.clipboardData.GetData("text") 
    CreateObject("Scripting.FileSystemObject")_ 
    .OpenTextFile(sFSpec, ForAppending, True)_ 
    .WriteLine sText 

或者比使用vbscripting更簡單的方法嗎？

此外，IE總是給我這個彈出消息 - 「你想讓這個網頁訪問你的剪貼板嗎？」我怎樣才能刪除彈出？ Remove this popup!

Answer 1

你打上標籤的PowerShell你的問題所以在這裏，它是：

"http://example.com", "http://gmail.com" | % { 
    $ie = New-Object -ComObject internetexplorer.application 
    $ie.Navigate($_) 
    while ($ie.ReadyState -ne 4){ 
     Start-Sleep -Milliseconds 100 
    } 
    $ie.Document.execCommand("SelectAll") | Out-Null 
    Out-File -InputObject $ie.Document.selection.createRange().text ` 
      -FilePath "D:\Temp\$($ie.Document.title).txt" 
    $ie.Quit() 
} 

1. 我略有改變這個例子。它不需要剪貼板訪問並且不會污染這個區域（你可能在剪貼板中有一些有價值的東西），不需要改變剪貼板訪問權限，安全性得到改善。
2. 文件以頁面標題命名，您可以更改它。
3. 不要忘記處理IE組件。如果它沒有被釋放，你最終會將它們當中的許多作爲後臺進程。

Answer 2

Sinse你提到的PowerShell標籤：

編輯在PowerShell中V2.0

Add-Type -AssemblyName system.windows.forms 
[System.Windows.Forms.Clipboard]::Clear() # just to be sure 

$sitesList = @(
    'http://example.com', 
    <# 
     More sites here 
    #> 
    'http://www.example.com' 
) 

foreach ($site in $sitesList) { 
    $ie = New-Object -ComObject "internetexplorer.application" 
    $ie.Navigate($site) 

    while ($ie.ReadyState -ne 4) { 
     Start-Sleep -Milliseconds 100 
    } 

    $ie.Document.execCommand("SelectAll") 
    $ie.Document.execCommand("copy") 

    $filename = ($site -replace "^http://") + '.txt' 


    [System.Windows.Forms.Clipboard]::GetText() | Out-File "D:\$filename" -Force 
    [System.Windows.Forms.Clipboard]::Clear() 

    $ie.Quit() 
} 

Answer 3

Set objShell = CreateObject("Shell.Application") 
Set AllWindows = objShell.Windows 
For Each window in AllWindows 
    msgbox window.locationname 
    If window.locationname="Scripts" then window.quit 
Next 

這將列出所有打開的shell窗口從資源管理器和Internet Explorer的工作。