VBS在每一個環節中加入1號打開網站

有人可以幫助我完成我的代碼這樣的：VBS在每一個環節中加入1號打開網站

set w = WScript.CreateObject ("wscript.shell") 
w.run "chrome.exe" 
WScript.Sleep (3000) 
w.SendKeys "www.websitename.com/profile/1" 
w.SendKeys "{ENTER}" 
WScript.Sleep (6000) 
w.SendKeys "{F6}" 
w.SendKeys "www.websitename.com/profile/2" 
w.SendKeys "{ENTER}"

打開網站，並一直持續到100以上

，但我必須使用這個腳本很多代碼，這是非常困難的你能幫我簡化它嗎？像「www.websitename.com/profile/2」加1號的每一個環節謝謝

來源

2013-07-13 adsfasf fsdfsf

你能澄清你爲什麼要這麼做？ –

您想要使用計數器和下一個循環將計數器添加到網址並運行它。但是你的邏輯還有其他問題，如果chrome是你的默認瀏覽器，那麼你可以運行url而不是chrome，這樣你就不需要混淆sendkeys。即使您想運行chrome.exe，您也應該將其作爲一個進程來執行，並且您可以將url設置爲進程中可執行文件的參數。 –

你可以使用此代碼來生成的網址，然後通過你的默認瀏覽器中打開他們！

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Dim web As String 
    For value As Integer = 1 To 100 

     web = "www.websitename.com/profile/" & value 
     System.Diagnostics.Process.Start(web) 

    Next 

End Sub

此代碼打開頁面的整個負載對我來說

來源

2013-07-14 09:43:26 Gabe

希望你喜歡它:) – Gabe

VBS在每一個環節中加入1號打開網站

回答

相關問題