求呼叫ActiveX(COM)的方法--悬赏600RMB
手上有个ActiveX(COM)的ocx档案但不知该如何用AUTOIT呼叫
求高人代写，事成悬赏600RMB
附件就是该档案，里面包含了呼叫说明
求高手帮帮忙了
你提供的信息不全啊,没法帮你.....没有下面的信息没法测试,比如 交易主机的登入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 于 2010-9-22 11:13 编辑
抱歉，补上Excel_Sample
里面应该可以找出需要的资料
至于帐号密码，可能不方便给我自己用的..
不过如果登入时能回覆LOGIN_RESULT_FAILED2 //登入失败
就代表您的呼叫方法应该是正确的
或PM给我，私下聊聊~ :)
那个组件分明有点跟au3不兼容，初步认为au3根本无法调用 本帖最后由 tts 于 2010-9-22 13:44 编辑
下面是用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)
楼主忒有钱了 帮你顶起啊！ 为了这问题苦恼了很久，希望高人帮帮忙
事成，个人另外再加码200RMB 赞助论坛
PS.
由于不能编辑本文 (不知道是不是故意的?)
只好用回的... 顶起..再加码200RMB !!
就是800RMB + 200RMB赞助论坛 建议tts兄还是把vb源码编译成dll 然后供au3调用好了 建议tts兄还是把vb源码编译成dll 然后供au3调用好了
bighead66 发表于 2010-10-16 14:57 http://www.autoitx.com/images/common/back.gif
感谢您提出这个思路，不过这部分我不会(把vb源码编译成dll )
还得再摸索
另，这样效率上会不会比直接调用差很多呢?? 感谢您提出这个思路，不过这部分我不会(把vb源码编译成dll )
还得再摸索
另，这样效率上会不会比 ...
tts 发表于 2010-10-16 22:42 http://www.autoitx.com/images/common/back.gif
效率上差不多的 应该感觉不出
页:
[1]