presented by 225ラボ
※簡単設定ボタンから設定したウインドウタイトル・保存場所が正しくない場合は手動で・入力・参照してください。
他のアプリケーションからAMSを操作するサンプルコードを紹介します。
Sub AMSSTART() 'VBA VBS 起動
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
WshShell.Exec ("C:\●●●\●●●\●●●\AMS.exe")’保存場所をフルパスで記載
Set WshShell = Nothing
End Sub
Private Declare Function FindWindow Lib "User32.dll" Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE As Long = &H10
Sub AMSClose() 'VBA終了
Dim AMSwindow As Long
AMSwindow = FindWindow(vbNullString, "AutoMsStarter")
If AMSwindow > 0 Then
Call SendMessage(AMSwindow, WM_CLOSE, 0, 0)
End If
End Sub
//AMS起動
Exec("C:\●●●\●●●\●●●\AMS.exe")//保存場所をフルパスで記載
//AMSの終了処理
CTRLWIN(GETID("AutoMsStarter"), CLOSE)
2010/12/14 Ver1.02 表記名をAutoMsStarterに統一しました。
2013/03/15 Ver1.08 MarketSpeedの仕様変更に伴いアップデートを行いました。
株式会社ゲイターズ(以下、甲と呼ぶ)が提供するソフトウェア並びにそれに付随する著作物の全てまたは一部(以下、本システムと呼ぶ)を使用する場合は、下記の使用許諾同意書に記載された全ての条項に同意したものとみなします。
また、本使用許諾合意書は本システムに関連する下記の製品・サービスにも適用されるものとします。
1.更新プログラム
2.追加ソフトウェア
3.サポートサービス
4.無償で提供するソフトウェア及びそれに付随する著作物とサービス
■著作権について
本ソフトウェアならびにそれに付随する著作物の全て(以下、本システムと呼ぶ)の著作権は株式会社ゲイターズ(以下甲と呼ぶ)に独占的に帰属します。
本システムは、甲とお客様(以下乙と呼ぶ)との合意の上で甲の認めた期間(以下使用期間と呼ぶ)、乙は本システムを使用することが出来ます。
甲は乙に対し使用期間の間、本システムの非独占的使用権を認めるものでありこれ以外のいかな権利も許諾するものではありません。
■禁止事項
乙が本システムをリバースエンジニアリング、逆コンパイル、または逆アセンブルすること
乙が本システムの技術的制限を回避して使用すること
乙が本システムの修正、流用、転載、転売、再販を行うこと
■免責
甲はいかなる場合にも乙が本システムを使用した結果、直接または間接的に生じる損害に関して一切責任を負いません。
甲は、本システムの瑕疵を完全に修復する義務を負いません。
■合意管轄
本合意に関する紛争が生じた場合は、甲の所在地を管轄する裁判所を第一審の管轄裁判所とします。