6

特定のWebページでブラウザを開くためにVBScriptを少し書き込もうとしています。最終的に、このWebページはスクリプトごとに一意になります。現在、私は機能する次のコードを持っています:

Dim objShell

objShell = CreateObject("Shell.Application")
objShell.ShellExecute("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "www.google.ie", "", "", 1)

しかし、私は以下を機能させたいと思います:

Dim iURL As String
Dim objShell

iURL = "www.google.ie"

objShell = CreateObject("Shell.Application")
objShell.ShellExecute("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", iURL, "", "", 1)

私が間違っているのは何か考えはありますか?どんな助けでも大歓迎です。

4

4 に答える 4

15

いいえAs String、VBScriptは強く型付けされていないsetため、COMオブジェクトのインスタンスを作成するときに必要であり、メソッド呼び出しの周りに親はありません。

Dim iURL 
Dim objShell

iURL = "www.google.ie"

set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "chrome.exe", iURL, "", "", 1

または、クロムがデフォルトの場合

set objShell = CreateObject("WScript.Shell")
objShell.run(iURL)
于 2012-11-15T16:26:31.543 に答える
2

私はこれを行うのが最も簡単な方法だと思いました:

set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.run "chrome.exe"
WScript.sleep 400
WshShell.sendkeys "URL HERE"
WshShell.sendkeys "{ENTER}"

また、クロムを閉じるためにこれを行うことができる単なるfyi:

WshShell.sendkeys "%{F4}"
于 2016-01-27T15:16:06.560 に答える
1

「objShell.ShellExecute」に「Call」プレフィックスを挿入できますか

Dim objShell
Set objShell = CreateObject("Shell.Application")

iURL = "www.google.com"

Call objShell.ShellExecute("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", iURL, "", "", 1)

IEの場合:

'Call objShell.ShellExecute("iexplore.exe", iURL, "", "", 1)


For more info below code also works,

Dim objShell
Set objShell = CreateObject("Shell.Application")

クロム:

iURL = "www.google.com"
'objShell.ShellExecute "chrome.exe", iURL, "", "", 1

すなわち:

'objShell.ShellExecute "iexplore.exe", iURL, "", "", 1
于 2014-08-23T06:53:41.170 に答える
1
  Sub RickRoller()
   Dim counter, myNum, objShell, iURL
   counter = 0
   myNum = 100
   Do Until myNum = 1
     myNum = myNum - 1
     counter = counter + 1
     Set WshShell = CreateObject("WScript.Shell")
     WshShell.SendKeys(chr(&hAF))
   Loop
   set objShell = CreateObject("WScript.Shell")
   iURL = "https://youtu.be/oHg5SJYRHA0?autoplay=1&t=44"
   objShell.run(iURL)
 End Sub


 RickRoller()
于 2020-04-09T15:30:47.427 に答える