找会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 的代码 有相应的dll文件就可以转 回复 2# 风行者
有DLL 的，这个就是DLL 回复 2# 风行者
我自己写了个程序，就差这里了，麻烦你帮我转转 本帖最后由 lanfengc 于 2012-4-19 21:03 编辑
这个不难的。 如下
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 于 2012-4-12 16:41 编辑
网络延迟了。 发送了两次回复， 这个编辑掉吧。 晕 本帖最后由 9922250 于 2012-4-19 16:53 编辑
回复 5# lanfengc
错误了。
regsvr32 QMDispatch.dll这个是批处理、可以运行。
放到AU3 里面，应该怎么写。、
ShellExecute("regsvr32 /s QMDispatch.dll");注册插件
回复 7# 9922250
试试下面的, 注意看ShellExecute的使用帮助说明!
ShellExecute(@SystemDir & "\regsvr32.exe" , '/s QMDispatch.dll') 回复 8# user3000
使用run("regsvr32 /s QMDispatch.dll") 能运行了。 怎么像是在运行里运行的程序啊
页:
[1]