私はJavaに比較的慣れておらず、JACOBを使用したことはありません。この VBScript コードを Java に変換しようとしています。COM オートメーションの操作には VBScript の方が適していることは理解していますが、次のことを行う必要があります。
この VBScript コードを動作する Java に変換します。
Set LPS = CreateObject("atlDirectorObject.atlDirector")
if LPS.CreateTool("3270", 1, True, True, 0, atl3270Tool, ErrMsg) <> 0 Then
Msgbox "Unable to connect to current 3270 Explorer session."
wscript.quit
end if
また、使用しようとしている CreateTool 関数の説明を次に示します。
Function CreateTool(ToolName As String, CreateOptions As Long, Visible As Boolean, FocusTool As Boolean, TabHandle As Long, ToolDisp, ErrMsg) As Long
Member of atlDirectorObject.atlDirector
これは、私が現在日食でコーディングしたものです。お察しのとおり、私は自分が何をしているのかわかりません。助けてください :'(
import com.jacob.com.*;
import com.jacob.activeX.*;
public class atlDirectorObject {
public ActiveXComponent portal;
public Object portalObj;
public Object atl3270Tool;
public int ErrMsg;
atlDirectorObject() {
portal = new ActiveXComponent(atlDirectorObject.atlDirector);
portalObj = portal.getObject();
}
public void CreateTool() {
boolean True;
if (portalObj.CreateTool("3270",1,True,True,0,atl3270Tool,ErrMsg) != 0)
{
System.out.println("Unable to connect to current 3270 Explorer session.");
}
}
public static void main(String[] args) {
atlDirectorObject LPS = new atlDirectorObject();
LPS.CreateTool();
}
}