求呼叫ActiveX(COM)的方法--悬赏600RMB

tts

手上有个ActiveX(COM)的ocx档案
但不知该如何用AUTOIT呼叫

求高人代写，事成悬赏600RMB
附件就是该档案，里面包含了呼叫说明

求高手帮帮忙了

guland

你提供的信息不全啊,没法帮你.....  没有下面的信息没法测试,比如 交易主机的登入cgi,
交易主机的Address,交易主机的Port,至于账号和密码不知道随便输入可不可以

参数名称        参数说明
LoginType        登入的方式
1:以身份证字号登入。2:以帐号登入。3:以营业员登入
LoginUrl        交易主机的登入cgi
SeverAddress        交易主机的Address，可以是IP或是domain
ServerPort        交易主机的Port
ProxyAddress        代理伺服器主机的Address
Company        登入交易主机的Company，一般预设为ICE
Proudct        登入交易主机的Company，一般预设为iRealII
ProxyPort        代理伺服器主机的Port
Roc_id        使用这的身份证字号
branch_id        使用者的分公司帐号
Cust_id        使用者的交易帐号
Password        使用者的登入密码
EncodeType        密码编码的方式
0:不编码。1:MD5。2:MINECODE。3:KGI。4:MEENCODE

tts

抱歉，补上Excel_Sample
里面应该可以找出需要的资料

至于帐号密码，可能不方便给我自己用的..
不过如果登入时能回覆LOGIN_RESULT_FAILED  2 //登入失败  
就代表您的呼叫方法应该是正确的

或PM给我，私下聊聊~ :)

bighead66

那个组件分明有点跟au3不兼容，初步认为au3根本无法调用

tts

下面是用AIOWrapperGenerator导出
不过我还是不会运用，放上来让大家参考
若是对AIOWrapperGenerator这个工具有兴趣
可以到AutoItObject及TLI.au3 - type information on COM objects 看看 (附件也附上)

Global $tIID__DICEGLOBALTRADEAPI = _AutoItObject_CLSIDFromString("{5A9B9BEB-3AA8-4DE8-BCB2-C9C6D43556D5}")
Global $tag_DICEGLOBALTRADEAPI = _
    "GetConnectStatus int();" & _
    "Login int(int;wstr;wstr;int;wstr;int;wstr;wstr;wstr;wstr;wstr;wstr;int);" & _
    "Logout int();" & _
    "GetValueHigh int(int;int;int);" & _
    "GetValueLow int(int;int;int);" & _
    "GetDataCount int(int);" & _
    "GetString wstr(int;int;int);" & _
    "SubscribeByAccount none(int;wstr;wstr);" & _
    "GetReportString wstr(int;int;int);" & _
    "GetReportValue int(int;int;int);" & _
    "HttpQuery int(wstr;wstr);" & _
    "PlaceFutOrder int(URESOLVED_12);" & _
    "PlaceOptOrder int(URESOLVED_12);" & _
    "PlaceOpt2Order int(URESOLVED_12);" & _
    "PlaceStkOrder int(URESOLVED_12);" & _
    "ReduceFutOrder int(int;URESOLVED_12);" & _
    "ReduceOptOrder int(int;URESOLVED_12);" & _
    "ReduceOpt2Order int(int;URESOLVED_12);" & _
    "ReduceStkOrder int(int;URESOLVED_12);" & _
    "PlaceOBFutOrder int(URESOLVED_12);" & _
    "ReduceOBFutOrder int(int;URESOLVED_12);" & _
    "GetOBReportString wstr(int;int;int);" & _
    "GetOBReportValue double(int;int;int);" & _
    "PlaceFutOrder2 int(URESOLVED_12);" & _
    "PlaceOptOrder2 int(URESOLVED_12);" & _
    "PlaceOpt2Order2 int(URESOLVED_12);" & _
    "PlaceStkOrder2 int(URESOLVED_12);" & _
    "PlaceOBFutOrder2 int(URESOLVED_12);" & _
    "ReduceFutOrder2 int(int;URESOLVED_12);" & _
    "ReduceOptOrder2 int(int;URESOLVED_12);" & _
    "ReduceOpt2Order2 int(int;URESOLVED_12);" & _
    "ReduceStkOrder2 int(int;URESOLVED_12);" & _
    "ReduceOBFutOrder2 int(int;URESOLVED_12);" & _
    "PlaceFut2Order int(URESOLVED_12);" & _
    "PlaceFut2Order2 int(URESOLVED_12);" & _
    "ReduceFut2Order int(int;URESOLVED_12);" & _
    "ReduceFut2Order2 int(int;URESOLVED_12);" & _
    "ReturnCAPath wstr();" & _
    "ReturnCAPassword wstr();" & _
    "AboutBox none();"

; -------------------------------
Local $pDICEGLOBALTRADEAPI
; Initialize interface pointer $pDICEGLOBALTRADEAPI here, for example:
; _AutoItObject_CoCreateInstance(DllStructGetPtr($tCLSID_SomeClass), 0, 1, DllStructGetPtr($tIID__DICEGLOBALTRADEAPI), $pDICEGLOBALTRADEAPI)
Local $objDICEGLOBALTRADEAPI = _AutoItObject_WrapperCreate($pDICEGLOBALTRADEAPI, $tag_DICEGLOBALTRADEAPI)

zch11230

楼主忒有钱了

nxbigdaddy

帮你顶起啊！

tts

为了这问题苦恼了很久，希望高人帮帮忙
事成，个人另外再加码200RMB 赞助论坛

PS.
由于不能编辑本文 (不知道是不是故意的?)
只好用回的...

tts

顶起..再加码200RMB !!
就是800RMB + 200RMB赞助论坛

bighead66

建议tts兄还是把vb源码编译成dll 然后供au3调用好了

tts

建议tts兄还是把vb源码编译成dll 然后供au3调用好了
bighead66 发表于 2010-10-16 14:57

感谢您提出这个思路，不过这部分我不会(把vb源码编译成dll )
还得再摸索

另，这样效率上会不会比直接调用差很多呢??

bighead66

感谢您提出这个思路，不过这部分我不会(把vb源码编译成dll )
还得再摸索

另，这样效率上会不会比 ...
tts 发表于 2010-10-16 22:42

    效率上差不多的 应该感觉不出