谁帮我看看这个功能这么写这么简化

sc2908

#include"ps.t"
空间 江湖综合功能
//默认空间
dm=com("dm.dmsoft")

功能 开始_点击()    //线程句柄=线程.开启("江湖综合功能.组合","")    线程句柄=线程.开启("ps.ps","dm")功能结束

功能 初始化()    dm.SetPath(辅助.获取资源路径("rc:"))    dm.SetDict(0,"jh.txt")    文件句柄=文件.打开("d:\\1.txt")功能结束空间结束空间 ps功能 叉1(dm)    intX,intY       江湖综合功能.dm.SetPath(辅助.获取资源路径("rc:"))   江湖综合功能.dm.SetDict(0,"jh.txt")    遍历(5)        江湖综合功能.dm.FindPic(553,208,879,344,"×.bmp","000000",0.9,0,intX,intY)        如果(intX>0)            超级鼠标.移动(intX,intY)            辅助.等待(50)            超级鼠标.左键单击()            辅助.等待(100)        否则            辅助.等待(100)        如果结束    遍历结束  功能结束功能 ps(dm)   江湖综合功能.dm.SetPath(辅助.获取资源路径("rc:"))   江湖综合功能.dm.SetDict(0,"jh.txt")    //文件句柄=文件.打开("d:\\1.txt")    ps.离开(dm)    ps.我要离开(dm)    ps.安全复活(dm)    ps.同意(dm)    ps.确定(dm)    ps.叉(dm)    ps.关闭(dm)    ps.领取奖励(dm)    ps.缩小(dm)    ps.否(dm)    ps.消息(dm)    ps.稍后前往(dm)功能结束功能 离开(dm)       江湖综合功能.dm.SetPath(辅助.获取资源路径("rc:"))   江湖综合功能.dm.SetDict(0,"jh.txt")    intX,intY    江湖综合功能.dm.FindStr(951,575,1200,746,"离开","ffffff-000000",1.0,intX,intY)    如果(intX>0)        超级鼠标.移动(intX,intY)        辅助.等待(50)        超级鼠标.左键单击()    如果结束功能结束空间结束


谁帮我 看看 !这么写对不 对  还有  我 主程序 每次 要调用 子程序的 每一个小功能    子程序  小功能里面  都必须要 有         江湖综合功能.dm.SetPath(辅助.获取资源路径("rc:"))   江湖综合功能.dm.SetDict(0,"jh.txt")  不然 就 找不到 有没有 法子 像  主程序 初始化那样 不用 每个小功能里面都 添加 这口令

sc2908

1. 
   
2. #include"ps.t"
   
3. 空间 江湖综合功能
   
4. //默认空间
   
5. dm=com("dm.dmsoft")
   
6. 
   
7. 功能 开始_点击()    //线程句柄=线程.开启("江湖综合功能.组合","")    线程句柄=线程.开启("ps.ps","dm")功能结束
   
8. 
   
9. 功能 初始化()    dm.SetPath(辅助.获取资源路径("rc:"))    dm.SetDict(0,"jh.txt")    文件句柄=文件.打开("d:\\1.txt")功能结束空间结束空间 ps功能 叉1(dm)    intX,intY       江湖综合功能.dm.SetPath(辅助.获取资源路径("rc:"))   江湖综合功能.dm.SetDict(0,"jh.txt")    遍历(5)        江湖综合功能.dm.FindPic(553,208,879,344,"×.bmp","000000",0.9,0,intX,intY)        如果(intX>0)            超级鼠标.移动(intX,intY)            辅助.等待(50)            超级鼠标.左键单击()            辅助.等待(100)        否则            辅助.等待(100)        如果结束    遍历结束  功能结束功能 ps(dm)   江湖综合功能.dm.SetPath(辅助.获取资源路径("rc:"))   江湖综合功能.dm.SetDict(0,"jh.txt")    //文件句柄=文件.打开("d:\\1.txt")    ps.离开(dm)    ps.我要离开(dm)    ps.安全复活(dm)    ps.同意(dm)    ps.确定(dm)    ps.叉(dm)    ps.关闭(dm)    ps.领取奖励(dm)    ps.缩小(dm)    ps.否(dm)    ps.消息(dm)    ps.稍后前往(dm)功能结束功能 离开(dm)       江湖综合功能.dm.SetPath(辅助.获取资源路径("rc:"))   江湖综合功能.dm.SetDict(0,"jh.txt")    intX,intY    江湖综合功能.dm.FindStr(951,575,1200,746,"离开","ffffff-000000",1.0,intX,intY)    如果(intX>0)        超级鼠标.移动(intX,intY)        辅助.等待(50)        超级鼠标.左键单击()    如果结束功能结束空间结束
   

复制代码

谁帮我 看看 !这么写对不 对  还有  我 主程序 每次 要调用 子程序的 每一个小功能    子程序  小功能里面  都必须要 有         江湖综合功能.dm.SetPath(辅助.获取资源路径("rc:"))   江湖综合功能.dm.SetDict(0,"jh.txt")  不然 就 找不到 有没有 法子 像  主程序 初始化那样 不用 每个小功能里面都 添加 这口令

ivaiyi

我想说 你上传得太乱了，  看着眼花。

君凌天下

哥，你有没有搞错，一开始就在全局那里搞个对象，难道你是用Com接口直接在本机注册大漠的吗？如果发脚本发给别人，别人是用不了的。。。而且你的代码乱成一团。需整理下。。。

小3牌

此乃眼花缭乱