2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« Windows 2000 Support Toolsのtlist.exeとkill.exeのダウンロード元 | トップページ | IEの既存のプロセスの新規ウィンドウで開く。 »

2008年1月 4日 (金)

IEの既存のウィンドウで開く。

WWW_OpenURL.VBS {ファイル|URL}

URL=WScript.Arguments.Item(0)
Set Application=CreateObject("Excel.Application")
Application.DisplayAlerts=False
channelNumber=Application.DDEInitiate("IExplore","WWW_OpenURL")
Application.DisplayAlerts=True
If TypeName(channelNumber)="Error" Then
  CreateObject("WScript.Shell").Run "IExplore.exe " & """" & URL & """"
Else
  Application.DDEExecute channelNumber,"""" & URL & """,,-1,,,,,"
  Application.DDETerminate channelNumber
End If

« Windows 2000 Support Toolsのtlist.exeとkill.exeのダウンロード元 | トップページ | IEの既存のプロセスの新規ウィンドウで開く。 »