|
楼主 |
发表于 2013-1-5 21:13:51
|
显示全部楼层
刚改成4.0的全码如下,提示"配置文件写入成功"但是实际没有保存
空间 自动发帖
//定义默认空间
变量 窗宽,窗高,hwnd
变量 保存文件
变量 dm
功能 初始化()
辅助.注册插件("rc:dm.dll",真)
dm=com("dm.dmsoft")
保存文件="rc:param.ini"
编辑框.设置文本("编辑框0",自动发帖.读文件("标题"))
编辑框.设置文本("编辑框1",自动发帖.读文件("内容"))
返回 真
功能结束
//读配置文件
功能 读文件(字段名)
字符型 内容=辅助.读配置("配置",字段名,保存文件)
如果(字符串.长度(内容)<=0)
辅助.消息框("读取配置文件出错,请重新设置")
如果结束
返回 内容
功能结束
功能 写文件(标题,标题内容, 内容,具体内容)
逻辑型 写成功1=辅助.写配置("配置",标题,标题内容,保存文件)
逻辑型 写成功2=辅助.写配置("配置",内容,具体内容,保存文件)
如果 (写成功1&&写成功2)
辅助.消息框("配置文件写入成功!")
否则
辅助.消息框("配置文件写入失败!")
如果结束
返回 真
功能结束
功能 热键0_热键()
线程.开启("自动发帖.开始","")
返回 真
功能结束
功能 开始()
dm.SetPath(辅助.获取资源路径("rc:"))
dm.SetDict(0,"dm_soft.txt")
自动发帖.市民啦啦呱()
返回 真
功能结束
功能 市民啦啦呱()
整型 图片X坐标,图片Y坐标,图像序号,intX,intY
dm.FindPic(0,0,2000,2000,"市民拉拉呱.bmp","000000",0.9,0,图片X坐标,图片Y坐标)
如果(图片X坐标>0)
鼠标.移动(图片X坐标+5,图片Y坐标+5)
辅助.等待(200)
鼠标.左键单击(1)
辅助.等待(1000)
网页.输入元素文本("浏览器0",编辑框.获得文本("编辑框0"),"id:subject")
网页.输入元素文本("浏览器0",编辑框.获得文本("编辑框1"),"id:fastpostmessage")
网页.点击元素("浏览器0","id:fastpostsubmit")
辅助.等待(500)
dm.FindStr(0,0,2000,2000,"市民拉拉呱2","333333-000000",1.0,intX,intY)
如果(intX >= 0 && intY >= 0)
dm.MoveTo(intX,intY)
辅助.等待(200)
//鼠标.左键单击(1)
如果结束
如果结束
返回 真
功能结束
功能 按钮0_点击()
//这里添加你要执行的代码
线程.开启("自动发帖.开始","")
返回 真
功能结束
功能 按钮1_点击()
//这里添加你要执行的代码
自动发帖.写文件("标题",编辑框.获得文本("编辑框0"),"内容",编辑框.获得文本("编辑框1"))
返回 真
功能结束
空间结束
//空间结束语句 |
|