VBS

CDO.Message でメールを送信する

Dim m: Set m = CreateObject("CDO.Message") m.From = "from@example.com" m.To = "to@example.com" m.Subject = "Subject" m.TextBody = "Body" m.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 m.Configur…

RegAsm したはずの dll が CreateObject できない場合(x64)

x64 環境で RegAsm して vbs から CreateObject しようとして、以下のようなエラーが出ることがある。 C:\tmp\test.vbs(2, 1) Microsoft VBScript 実行時エラー: ActiveX コンポーネントは オブジェクトを作成できません。: 'COMSample.Class1' これは RegAs…

.NET を COM で C から呼び出す

Imports System.Runtime.InteropServices <ClassInterface(ClassInterfaceType.AutoDual)> <ComVisible(True)> Public Class Class1 ' Debug interface Public Function Test(ByVal str As String) As String Console.WriteLine("[{0}]", str) Return String.Format("Hello, {0}!!", str) End Function End Class を pIClass…</comvisible(true)></classinterface(classinterfacetype.autodual)>

Tポイントツールバー

OLE/COM Object Viewer で確認 <script type="text/javascript" charset="utf-8"> var tb = 0; </script> <script language="VBScript" carset="utf-8" > On Error Resume Next tb = 0 tb = (IsObject(CreateObject("ToolBar.Settings"))) </script> <script type="text/javascript" charset="utf-8"> //