無敵の VB.net

Set obj = Wscript.CreateObject("lboxTool.lbox", "my_")

Call obj.URLDownloadToFile( _
	"http://lightbox.on.coocan.jp/image/zero_night_logo.png", _
	"logo.png" _
)

Sub my_EndDownload() 

	Wscript.Echo "終了イベント"

End Sub

Sub my_EndDownload2( str ) 

	Wscript.Echo "終了イベント:"&str

End Sub

<SCRIPT type="text/vbscript" language="vbscript">

Function TestAction()

	Call document.GetElementById("test") _
		.URLDownloadToFile("http://lightbox.on.coocan.jp/image/zero_night_logo.png", "logo.png")

End Function

Function test_EndDownload()

	alert("ダウンロード終了")

End Function

Function test_EndDownload2( str )

	alert("ダウンロード終了:"&str)

End Function

</SCRIPT>
<INPUT type="button" value="OK" onClick="Call TestAction()">

<OBJECT id="test" classid="clsid:8F064F33-ED02-39E7-ACB4-D4800EB217AB"></OBJECT>

' GUID は、guidgen.exe で取得しました
' 以下のどれでも同じです
' C:\Program Files\Microsoft Visual Studio 8\Common7\Tools
' C:\Program Files\Microsoft Visual Studio 8\Common7\Tools\Bin
' C:\Program Files\Microsoft Visual Studio 9.0\Common7\Tools
' C:\Program Files\Microsoft SDKs\Windows\v6.0A\bin
' ※ VB.net のイベントを COM へ公開する為のインターフェイス定義
<Guid("5FB047A1-0662-4fe6-B79E-552D08FCC7BA"), _
InterfaceType(ComInterfaceType.InterfaceIsIDispatch)> _
Public Interface ILboxToolEvents
    <DispId(1)> _
    Sub EndDownload()
    <DispId(2)> _
    Sub EndDownload2( str As String )
End Interface

Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices	' DllImport

' Framework2.0 用の記述
'<Assembly: AssemblyKeyFile("lightbox.snk")>
' Framework3.5 では、vbc.exe のコマンドラインに /keyfile:lightbox.snk を追加します
Namespace lboxTool

	' GUID は、guidgen.exe で取得しました
	' 以下のどれでも同じです
	' C:\Program Files\Microsoft Visual Studio 8\Common7\Tools
	' C:\Program Files\Microsoft Visual Studio 8\Common7\Tools\Bin
	' C:\Program Files\Microsoft Visual Studio 9.0\Common7\Tools
	' C:\Program Files\Microsoft SDKs\Windows\v6.0A\bin
	' ※ VB.net のイベントを COM へ公開する為のインターフェイス定義
	<Guid("5FB047A1-0662-4fe6-B79E-552D08FCC7BA"), _
	InterfaceType(ComInterfaceType.InterfaceIsIDispatch)> _
	Public Interface ILboxToolEvents
	    <DispId(1)> _
	    Sub EndDownload()
	    <DispId(2)> _
	    Sub EndDownload2( str As String )
	End Interface

	' VB.net のイベントを COM へ公開する
	<ComSourceInterfaces(GetType(ILboxToolEvents))> _
	Public Class lbox

		' Win32 API を使う為の定義
		<DllImport("urlmon.dll", CharSet:=CharSet.Unicode)> _
		Private Shared Function URLDownloadToFile( _
		  ByVal pCaller As Integer, _
		  ByVal szURL As String, _
		  ByVal szFileName As String, _
		  ByVal dwReserved As Integer, _
		  ByVal lpfnCB As Integer _
		) As Integer
		End Function

		' ******************************************************
		' COM へ公開するメソッド
		' ******************************************************
		Public Function URLDownloadToFile( target As String, _
			Optional local As String = Nothing ) As Boolean

			Dim ret As Integer
			Dim data As String()
			Dim result As Boolean = True

			if local is Nothing then
				data = target.Split("/")
				local = data(data.Length-1)
			end if

			ret = URLDownloadToFile( 0, target, local, 0, 0 )
			if ret = 0 then
				' ***********************
				' イベントを発生させる
				' ***********************
				RaiseEvent EndDownload()
				RaiseEvent EndDownload2( target )
			else
				result = False
			end if

		End Function

		' ******************************************************
		' COM へ公開するイベント
		' ******************************************************
		Public Event EndDownload()
		Public Event EndDownload2( URL As String )

	End Class

End Namespace

%windir%\Microsoft.NET\Framework\v2.0.50727
%windir%\Microsoft.NET\Framework\v3.5

' Imports System.Windows.Forms
' Imports System.IO

Module MyModule

' ********************************************************
' エントリポイント
' ********************************************************
Sub Main()

	' バイト配列( バイナリ )
	Dim ByteCrLf As Byte() = New Byte() { 13,10 } 
	' 文字列としての CrLf 
	Dim CrLf As String = System.Text.Encoding.ASCII.GetString(ByteCrLf) 

	Console.WriteLine( "---------------------------------" )

	' 文字列の配列
	Dim argv As String()

	' コマンドラインの取得
	argv = System.Environment.GetCommandLineArgs()

	' コマンドライン上のトークンの数
	Console.WriteLine( "■ コマンドライン上のトークンの数" )
	Console.WriteLine( argv.Length )

	Dim i As Integer

	Console.WriteLine( CrLf + "■ コマンドライン上のトークン" )
	' 引数のトークンを全て表示します
	For i = 0 TO argv.Length - 1

		Console.WriteLine( argv(i) )

	Next

	Dim FullPath As String

	' このプログラムのフルパス
	' GetFullPath に渡すファイルは存在する必要はありません
	' カレントディレクトリを使用してパスを作成します
	FullPath = System.IO.Path.GetFullPath( argv(0) )

	Console.WriteLine()
	Console.WriteLine( "■ このプログラムのフルパス" + CrLf + FullPath )

	' このプログラムが存在するディレクトリ
	' 単純な文字列処理である事に注意
	Console.WriteLine()
	Console.WriteLine( "■ このプログラムのディレクトリ" )
	Console.WriteLine( System.IO.Path.GetDirectoryName( FullPath ) )

	' Imports System.Windows.Forms を記述すると、
	' System.Windows.Forms. を省略できます
	System.Windows.Forms.MessageBox.Show( "処理が終了しました" )

End Sub

End Module