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

5735988

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 的代码

风行者

有相应的dll文件就可以转

5735988

回复 2# 风行者


    有DLL 的，  这个就是DLL

5735988

回复 2# 风行者


    我自己写了个程序，就差这里了，麻烦你帮我转转

lanfengc

这个不难的。 如下

Global $js_dt  ;定义一个全局变量，用于创建OBJ
Run(@SystemDir&"\cmd.exe /c regsvr32 /s js_dt.dll")  ;注册插件  有人反映无法使用ShellExecute执行，我换成Run

Do 
        $js_dt= ObjCreate("jsdt.mypluginname")  ;反复创建OBJ对象，直到成功。
Until @error<>0
Func GetAnswer()
        Dim $mypic,$serreturn, $answer=''  ;定义图片变量， 服务器返回变量   答案变量
        $mypic = $js_dt.savejpg(0, 0, 187, 167) ;截图图片路径保存在变量$mypic中
        $serreturn = $js_dt.sendjpg("jisudati", "jisudati", "1000", $mypic) ;返送图片到服务器返回题号
        While StringLen($answer) < 1
                $answer = $js_dt.getanswer($serreturn) ;获取服务器返回的答案
                Sleep 1500
        Wend
        MsgBox(0,0,"服务器返回答案" & $answer)
EndFunc

Func OnQuit()
        $js_dt = 0
EndFunc


#cs
通过对这个脚本的修改，猜出来这个插件的基本工作原理。

如下。
1.发现游戏答题窗口
2.将答题窗口截图发送到服务器
3.服务器接收到发送来的图片后，创建一个流水ID号返回。
4.服务器通过处理或者人工答题来生成一个答案（类似 A B C D 或者其他的什么字符串。）
5.客户端每隔一段时间获取一次该流水号的答案，如果获取成功，则不再获取了。
6.客户端处理答案并做相应答题处理。

#ce

lanfengc

网络延迟了。 发送了两次回复， 这个编辑掉吧。 晕

9922250

回复 5# lanfengc


    错误了。

regsvr32 QMDispatch.dll  这个是批处理、可以运行。

放到AU3 里面，应该怎么写。、

ShellExecute("regsvr32 /s QMDispatch.dll")  ;注册插件

user3000

回复 7# 9922250
试试下面的, 注意看ShellExecute的使用帮助说明!
ShellExecute(@SystemDir & "\regsvr32.exe" , '/s QMDispatch.dll')

9922250

回复 8# user3000


    使用  run("regsvr32 /s QMDispatch.dll")   能运行了。

sgj584520

怎么像是在运行里运行的程序啊