找会VB，或者按键的朋友，转换代码成AU3（已经解决）

5735988

找会VB，或者按键的朋友，转换代码成AU3


VB 调用参考实例
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim jsdt, answer
Shell "regsvr32 /s js_dt.dll"
Set js_dt = CreateObject("jsdt.mypluginname")
jsdt = js_dt.savejpg(0, 0, 187, 167) '截图图片路径保存在变量jsdt中
jsdt = js_dt.sendjpg("jisudati", "jisudati", "1000", jsdt) '返送图片到服务器返回题号
answer = ""
While Len(answer) < 1
answer = js_dt.getanswer(jsdt) '获取服务器返回的答案
Sleep 1500
Wend
MsgBox "服务器返回答案" & answer
End Sub

Private Sub Form_Load()
Set js_dt = Nothing
End Sub
===========================================









//按键精灵7 调用参考实例

Plugin jsdt=js_dt.savejpg(0,0,100,100)  //截图保存图片 图片路径保存在jsdt变量里

Plugin jsdt=js_dt.sendjpg("帐号","密码","项目",jsdt)  //发送图片到服务器 返回题号保存在变量jsdt中

answer=""

If len(answer) < 1 then

Plugin answer=js_dt.getanswer (jsdt)  //获取服务器返回答案 保存在变量answer中

end if



上面是2个示例，想转换成AU3 的代码

5735988

Dim $jsdt, $answer
RunWait("regsvr32 /s js_dt.dll")
$js_dt = ObjCreate("jsdt.mypluginname")
$jsdt = $js_dt.savejpg(0, 0, 187, 167) ;截图图片路径保存在变量jsdt中
$jsdt = $js_dt.sendjpg("jisudati", "jisudati", "1000", $jsdt) ;返送图片到服务器返回题号
$answer = ""
While StringLen($answer) < 1
$answer = $js_dt.getanswer($jsdt) ;获取服务器返回的答案
Sleep(1500)
Wend
MsgBox(0,'服务器返回答案',$answer)


感谢HOOK 大神