哪位大佬帮忙看一下这个代码如何修改，

Dora01

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)

Dora01

这是通过chat-gpt写的脚本，大漠插件测试软件，可以成功绑定窗口，但是在按键精灵中无法成功绑定，并且总是提示第一个while循环里面if错误码，并且dm.Moveto和其他模块好像没有成功调用，本人小白一个，望大佬可以详细说明，非常感谢

zzdd2215415

Dora01 发表于 2024-6-11 20:29
这是通过chat-gpt写的脚本，大漠插件测试软件，可以成功绑定窗口，但是在按键精灵中无法成功绑定，并且总是 ...

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

Dora01

zzdd2215415 发表于 2024-6-11 21:49
没有绑定成功你检查下，导入大漠方法和绑定的地方，先把绑定解决

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

Dora01

zzdd2215415 发表于 2024-6-11 21:49
没有绑定成功你检查下，导入大漠方法和绑定的地方，先把绑定解决

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