vbscript - vbs通过在每个链接中添加1个数字来打开网站

Question

有人可以像这样帮助我完成我的代码：

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个数字谢谢

Answer 1

您将使用此代码生成 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

这段代码为我打开了一大堆页面