开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 209|回复: 4
收起左侧

[精币悬赏] 哪位大佬帮忙看一下这个代码如何修改,

[复制链接]
结帖率:0% (0/1)
发表于 2024-6-11 20:26:01 | 显示全部楼层 |阅读模式   河南省许昌市
10精币
Dim dm
Set dm = CreateObject("dm.dmsoft")
dm_ret = dm.SetPath("C:\dmo\7.2422\dm.dll")'设置目录

If dm.Reg("你的大漠注册码", "你的大漠附加码") = 1 Then
    TracePrint "大漠插件注册成功"
Else
    TracePrint "大漠插件注册失败"
    WScript.Quit
End If

Dim 文件夹数组
文件夹数组 = lib.文件.遍历指定目录下所有文件夹名("D:\fb贴")
Dim i, intX, intY, x, Text, Text2, Text3, Text4, Text5, Text6, Text7, 返回值, 文件名数组, n

For i = 0 To UBound(文件夹数组) - 1
    TracePrint 文件夹数组(i)

    Text = "D:\fb贴\"
    Text2 = 文件夹数组(i)
    Text3 = Text & Text2
    Call Plugin.Sys.SetCLB(Text3)

    ' 绑定窗口
    hwnd = dm.FindWindow("", "窗口标题") ' 根据窗口标题找到窗口句柄
    If dm.BindWindow(hwnd, "gdi", "windows", "windows", 0) <> 1 Then
        TracePrint "绑定窗口失败"
        Exit For
    End If

    x = 0
    While x = 0
        ' 查找图片
        If dm.FindPic(0, 0, 1080, 1920, "fx.bmp", "000000", 0.9, 0, intX, intY) > 0 Then
            dm.MoveTo(intX, intY)
            dm.LeftClick()
            dm.MoveTo(intX - 80, intY - 80)

            ' 内嵌循环处理更多图片
            While x = 0
                If dm.FindPic(0, 0, 1080, 1920, "t.bmp", "000000", 0.9, 0, intX, intY) > 0 Then
                    dm.MoveTo(intX, intY)
                    dm.LeftClick()
                    dm.MoveTo(intX - 30, intY - 30)

                    ' 内嵌循环处理更多图片
                    While x = 0
                        If dm.FindPic(0, 0, 1080, 1920, "tj.bmp", "000000", 0.9, 0, intX, intY) > 0 Then
                            dm.MoveTo(intX, intY)
                            dm.LeftClick()

                            ' 内嵌循环处理更多图片
                            While x = 0
                                If dm.FindPic(0, 0, 1080, 1920, "cdn.bmp", "000000", 0.9, 0, intX, intY) > 0 Then
                                    dm.MoveTo(intX + 400, intY)
                                    dm.LeftClick()
                                    dm.KeyDown(17)
                                    dm.KeyPress(86)
                                    dm.KeyUp(17)
                                    dm.KeyPress(13) ' 按下回车键

                                    ' 内嵌循环处理更多图片
                                    While x = 0
                                        If dm.FindPic(0, 0, 1080, 1920, "wjm.bmp", "000000", 0.9, 0, intX, intY) > 0 Then
                                            Text6 = "D:\fb贴\" & Text2
                                            文件名数组 = lib.文件.遍历指定目录下所有文件名(Text6)

                                            Dim j
                                            For n = 0 To UBound(文件名数组) - 2
                                                TracePrint 文件名数组(n)
                                                Text7 = Text7 & """" & 文件名数组(n) & """ "
                                            Next

                                            TracePrint Text7
                                            Call Plugin.Sys.SetCLB(Text7)
                                            dm.MoveTo(intX + 200, intY)
                                            dm.LeftClick()
                                            dm.KeyDown(17)
                                            dm.KeyPress(86)
                                            dm.KeyUp(17)
                                            dm.KeyPress(13)
                                            Text7 = ""
                                            dm.Delay(2000)

                                            ' 内嵌循环处理更多图片
                                            While x = 0
                                                If dm.FindPic(0, 0, 1024, 768, "xxs.bmp", "000000", 0.9, 0, intX, intY) > 0 Then
                                                    Text4 = "\新建文本文档.txt"
                                                    Text5 = Text3 & Text4
                                                    返回值 = Lib.文件.读取指定行文本内容(Text5, 1)
                                                    Call Plugin.Sys.SetCLB(返回值)

                                                    dm.MoveTo(intX, intY)
                                                    dm.LeftClick()
                                                    dm.KeyDown(17)
                                                    dm.KeyPress(86)
                                                    dm.KeyUp(17)
                                                    返回值 = ""

                                                    ' 内嵌循环处理更多图片
                                                    While x = 0
                                                        If dm.FindPic(0, 0, 1080, 1920, "ft.bmp", "000000", 0.9, 0, intX, intY) > 0 Then
                                                            dm.MoveTo(intX, intY)
                                                            dm.LeftClick()
                                                            dm.Delay(2500)

                                                            ' 内嵌循环处理更多图片
                                                            While x = 0
                                                                If dm.FindPic(1279, 889, 1568, 1033, "d.bmp", "000000", 0.9, 0, intX, intY) > 0 Then
                                                                    dm.MoveTo(intX, intY)
                                                                    dm.LeftClick()

                                                                    ' 内嵌循环处理更多图片
                                                                    While x = 0
                                                                        If dm.FindPic(1188, 425, 1442, 1014, "bj.bmp", "000000", 0.9, 0, intX, intY) > 0 Then
                                                                            dm.MoveTo(intX, intY)
                                                                            dm.LeftClick()

                                                                            ' 内嵌循环处理更多图片
                                                                            While x = 0
                                                                                If dm.FindPic(0, 0, 1080, 1920, "rq.bmp", "000000", 0.9, 0, intX, intY) > 0 Then
                                                                                    dm.MoveTo(intX, intY + 25)
                                                                                    dm.LeftClick()
                                                                                    Call Plugin.Sys.SetCLB(Text2)
                                                                                    dm.KeyDown(17)
                                                                                    dm.KeyPress(86)
                                                                                    dm.KeyUp(17)
                                                                                    dm.MoveTo(intX + 400, intY + 150)
                                                                                    dm.LeftClick()
                                                                                    dm.Delay(3000)

                                                                                    ' 内嵌循环处理更多图片
                                                                                    While x = 0
                                                                                        If dm.FindPic(1309, 845, 1551, 961, "d.bmp", "000000", 0.9, 0, intX, intY) > 0 Then
                                                                                            dm.MoveTo(905, 1024)
                                                                                            dm.LeftClick()

                                                                                            For j = 1 To n
                                                                                                dm.Delay(100)

                                                                                                ' 内嵌循环处理更多图片
                                                                                                While x = 0
                                                                                                    If dm.FindPic(1728, 195, 1896, 251, "d.bmp", "000000", 0.9, 0, intX, intY) > 0 Then
                                                                                                        dm.MoveTo(intX, intY)
                                                                                                        dm.LeftClick()

                                                                                                        ' 内嵌循环处理更多图片
                                                                                                        While x = 0
                                                                                                            If dm.FindPic(0, 0, 1920, 1080, "bj.bmp", "000000", 0.9, 0, intX, intY) > 0 Then
                                                                                                                dm.MoveTo(intX, intY)
                                                                                                                dm.LeftClick()

                                                                                                                ' 内嵌循环处理更多图片
                                                                                                                While x = 0
                                                                                                                    If dm.FindPic(0, 0, 1920, 1080, "rq.bmp", "000000", 0.8, 0, intX, intY) > 0 Then
                                                                                                                        dm.MoveTo(intX, intY + 25)
                                                                                                                        dm.LeftClick()
                                                                                                                        Call Plugin.Sys.SetCLB(Text2)
                                                                                                                        dm.KeyDown(17)
                                                                                                                        dm.KeyPress(86)
                                                                                                                        dm.KeyUp(17)
                                                                                                                        dm.MoveTo(intX + 400, intY + 150)
                                                                                                                        dm.LeftClick()

                                                                                                                        ' 内嵌循环处理更多图片
                                                                                                                        While x = 0
                                                                                                                            If dm.FindPic(0, 0, 1024, 768, "f.bmp", "000000", 0.9, 0, intX, intY) > 0 Then
                                                                                                                                dm.MoveTo(836, 833)
                                                                                                                                dm.LeftClick()
                                                                                                                                dm.KeyPress("Right")
                                                                                                                                x = 1
                                                                                                                            End If
                                                                                                                            dm.Delay(100)
                                                                                                                        Wend
                                                                                                                    End If
                                                                                                                    dm.Delay(100)
                                                                                                                Wend
                                                                                                            End If
                                                                                                            dm.Delay(100)


结帖率:0% (0/1)

签到天数: 5 天

 楼主| 发表于 2024-6-11 20:29:29 | 显示全部楼层   河南省许昌市
这是通过chat-gpt写的脚本,大漠插件测试软件,可以成功绑定窗口,但是在按键精灵中无法成功绑定,并且总是提示第一个while循环里面if错误码,并且dm.Moveto和其他模块好像没有成功调用,本人小白一个,望大佬可以详细说明,非常感谢
回复

使用道具 举报

结帖率:100% (9/9)

签到天数: 21 天

发表于 2024-6-11 21:49:41 | 显示全部楼层   安徽省宿州市
Dora01 发表于 2024-6-11 20:29
这是通过chat-gpt写的脚本,大漠插件测试软件,可以成功绑定窗口,但是在按键精灵中无法成功绑定,并且总是 ...

没有绑定成功你检查下,导入大漠方法和绑定的地方,先把绑定解决
回复

使用道具 举报

结帖率:0% (0/1)

签到天数: 5 天

 楼主| 发表于 2024-6-11 22:00:24 | 显示全部楼层   河南省许昌市
zzdd2215415 发表于 2024-6-11 21:49
没有绑定成功你检查下,导入大漠方法和绑定的地方,先把绑定解决

C:\Users\a8468\Desktop\photo_2024-06-11_21-34-23.jpg
回复

使用道具 举报

结帖率:0% (0/1)

签到天数: 5 天

 楼主| 发表于 2024-6-11 22:04:17 | 显示全部楼层   河南省许昌市
zzdd2215415 发表于 2024-6-11 21:49
没有绑定成功你检查下,导入大漠方法和绑定的地方,先把绑定解决

现在已经注册成功并成功的绑定窗口了,但是到While 循环那里又提示错误,
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表