按键精灵脚本

PutAttachment ".\plugin", "RegDll.dll"
PutAttachment ".\plugin\dm", "dm.dll"
Plugin.RegDll.Reg (Plugin.sys.GetDir(0) + "\plugin\dm\dm.dll")
Call 大漠注册()
// 实例大漠插件
Set dm = createobject("dm.dmsoft")
// 以下代码把全局路径设置到了c盘根目录（设置附件的录制）
dm_ret = dm.SetPath("c:\test_game")
// 关闭当前所有的chrome
Call 关闭所有chrome()
// 启动浏览器
RunApp "C:\chrome.exe.lnk"
Delay 2500
//获得窗口句柄
hwnd = dm.FindWindow("Chrome_WidgetWin_1", 0) 
TracePrint Hwnd
// 绑定大漠插件
dm_ret = dm.BindWindow(Hwnd, "dx", "windows", "windows", 0)
Call 调整窗口大小()
Call 读取文章内容()
Call 发布csdn文章()
Sub OnScriptExit()
    dm_ret = dm.UnBindWindow()
    set dm = nothing
End Sub
Function 大漠注册()
    // 首先打包dm.dll和RegDll.dll到附件,当然如果你还有其它资源(字库，图片等)也可以一并打包
    // 这个need_ver作为本脚本需要使用的插件版本. 如果要换插件时，记得更改这个值.
    need_ver = "3.1233"
    // 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败，这里手动注册一下atl.dll
    set ws=createobject("Wscript.Shell")
    ws.run "regsvr32 atl.dll /s"
    set ws=nothing
    // 释放附件>>>>>>>>>>>>>>>>>>>
    // 这里选择c盘的test-_game作为插件的基本目录 也就是SetPath对应的目录。所以所有资源都释放在此目录.
    PutAttachment "c:\test_game","*.*"
    // 这里要用到RegDll来注册插件，所以必须释放到Plugin. 但是切记不能把dm.dll释放到Plugin.那会导致插件失效.
    PutAttachment ".\Plugin" ,"RegDll.dll"
    // 插件注册开始>>>>>>>>>>>>>>>>>>>
    // 下面开始注册插件,先尝试用RegDll来注册.这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
    Call Plugin.RegDll.Reg("c:\test_game\dm.dll") 
    // 这里判断是否注册成功
    set dm = createobject("dm.dmsoft")
    ver = dm.Ver()
    if ver <> need_ver then
        // 先释放先前创建的dm
        set dm = nothing
        // 再尝试用regsvr32 来注册. 这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
        set ws=createobject("Wscript.Shell")
        ws.run "regsvr32 c:\test_game\dm.dll /s"
        set ws=nothing
        Delay 1500  
        // 再判断插件是否注册成功
        set dm = createobject("dm.dmsoft")
        ver = dm.Ver()
        if ver <> need_ver then
            // 这时，已经确认插件注册失败了。 弹出一些调试信息，以供分析.
            messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()
            messagebox "请关闭程序,重新打开本程序再尝试"
            endscript
        end if
    end if
    // 插件注册结束<<<<<<<<<<<<<<=0 Then
        i=0
        For UBound(Hwnd)	
            Call Plugin.Window.CloseEx(Hwnd(i))
            //            sText = Plugin.Window.GetText(Hwnd(i))
            //            TracePrint stext
            //            If stext > "" Then
            //                Call Plugin.Window.Size(Hwnd(i), 900, 100)
            //                Delay 500
            //                Call Plugin.Window.Move(Hwnd(i), 0, 0)
            //                Delay 1000
            //            End If
            i=i+1
        Next
    End If
    Delay 2500
End Sub
Sub 调整窗口大小()
    Call Plugin.Window.Restore(Hwnd)
    Delay 500
    dm_ret = dm.SetWindowSize(hwnd, 1300, 700)
    Delay 500
    dm.MoveWindow hwnd, 0, 0
    Delay 2500
    //Call Plugin.Window.Top(Hwnd, 0)
End Sub
Sub 读取文章内容()	
    // 输入csdn网址
    dm.SendString hwnd,"https://yuanjian.tech/uncategorized/quicklook"
    Delay 3000
    // 回车
    dm.MoveTo 1174,61
    Delay 1000
    dm.LeftClick 
    Delay 500
    KeyPress "Enter", 1
    // 选中内容区域
    dm.MoveTo 58, 480
    Delay 2917
    dm.LeftDown
    dm.MoveTo 868, 526
    Delay 4064
    Do
        // 找图命令
        dm_ret = dm.FindPic(14,157,289,690, "作者选中.bmp|作者未选中.bmp", "000000", 0.9, 0, intX, intY)
        TracePrint dm_ret
        If intX >= 0 and intY >= 0 Then 
            TracePrint "找到复制结束"
            Exit Do
        End If
        MouseWheel -1
        Delay 20
    Loop
    dm.LeftUp 
    
    Delay 2000
    // 复制
    KeyDown 17, 1
	KeyPress 67, 1
	KeyUp 17, 1

End Sub
Sub 发布csdn文章()
    //Call 读取word("D:\Helloworld.doc")
    // 打开新标签页
    dm.MoveTo 269,24
    Delay 1000
    dm.LeftClick 
    Delay 500
    
    // 输入csdn网址
    dm.SendString hwnd,"https://mp.csdn.net/postedit"
    Delay 3000
    // 回车
    dm.MoveTo 1174,61
    Delay 1000
    dm.LeftClick 
    Delay 500
    KeyPress "Enter", 1
    // 输入文章标题
    Delay 1500
    dm.MoveTo 411,211
    Delay 500
    dm.LeftClick 
    Delay 500
    dm.SendString hwnd,"测试"
    Delay 3000
    // 输入文章内容
    Delay 1500
    dm.MoveTo 337,355
    Delay 500
    dm.LeftClick 
    Delay 500
    KeyDown 17, 1
    KeyPress 86, 1
    KeyUp 17, 1
    // 发布文章
    Delay 1500
    dm.MoveTo 18,290
    Delay 500
    dm.LeftClick 
    Delay 500
    // 按下ctrl+End
    KeyDown 17, 1
    KeyPress 35, 1
    KeyUp 17, 1
    // 点击文章类型
    Delay 1500
    dm.MoveTo 355,389
    Delay 500
    dm.LeftClick 
    Delay 500
    // 点击原创
    Delay 1500
    dm.MoveTo 362,433
    Delay 500
    dm.LeftClick 
    Delay 15500
    // 点击发布博客
    Delay 1500
    dm.MoveTo 355,559
    Delay 500
    dm.LeftClick 
    Delay 500
End Sub
Sub 查找图片()
    // 找图命令
    dm_ret = dm.FindPic(28, 9, 244, 212, "刷新.bmp", "000000", 0.9, 0, intX, intY)
    TracePrint dm_ret
    If intX >= 0 and intY >= 0 Then 
        Delay 500
        dm.MoveTo intX, intY
        Delay 500
        dm.LeftClick 
    End If
End Sub
Sub 读取word(lsFileName)
    index = Plugin.LazyOffice.WordOpen(lsFileName, 1)
    Delay 3000
    Plugin.LazyOffice.WordKeyPress "CTRL+A", index
    Delay 1000
    Plugin.LazyOffice.WordKeyPress "CTRL+C", index
    Delay 1000
    Plugin.LazyOffice.WordClose (index)
    Delay 5000
End Sub
Sub 读取文本()
    //下面这句是向目标文件("F:\cs.txt")读出文本内容到变量(Text) 
    text = Plugin.File.ReadFileEx("F:\cs.txt")
    hArray = Split(Text, "|")
    For i = 0 to UBound(hArray)
        //下面这句是得到文本内容   
        Msgbox "第" & i + 1 & "行文字：" & Cstr(hArray(i)) 
    Next
End Sub
//RunApp "C:\Program Files\Sigma-RT\Total Control\total_control.exe"
//sRect = Plugin.Window.GetClientRect(Hwnd)
//Dim MyArray
//MyArray = Split(sRect, "|")
//L = Clng(MyArray(0))
//T = Clng(MyArray(1))
//R = Clng(MyArray(2))
//B = Clng(MyArray(3))
//MoveTo L + 904, T + 624
//Delay 200
//LeftClick 1
//
//Do
//	Hwndmima = Plugin.Window.Find(Notepad, "无标题 - 记事本")
//	If Hwndmima <> 0 Then 
//		Exit Do
//		TracePrint "找到密码窗口"
//	End If
//	Delay 2000
//Loop
//dm.KeyPress 65
//MsgBox "查找到的父窗口句柄为："& Hwnd  
// 抓抓工具延时截图行可以点击键盘商的PrintScrieen按键
// 找图可以一次找多张图片 先找到先返回