大漠命令

/////////--大漠创建一个对象--------
set ws=createobject("Wscript.Shell")
/////-------------------------------------------------------------------------------------------------------------///////////////////------------------------------------------------------------------------------------------------------------------------

//获取鼠标指向的窗口句柄,可以获取到按键自带的插件无法获取到的句柄

hwnd = dm.GetMousePointWindow()
/////-------------------------------------------------------------------------------------------------------------///////////////////------------------------------------------------------------------------------------------------------------------------

////获取窗口客户区域的宽度和高度
示例:
dm_ret = dm.GetClientSize(hwnd,w,h)
TracePrint "宽度:"& w &",高度:"& h
/////-------------------------------------------------------------------------------------------------------------///////////////////------------------------------------------------------------------------------------------------------------------------

ee = dm.GetWindowClass(hwnd) /////////------>>获取窗口的类名<<-------------------------


/////-------------------------------------------------------------------------------------------------------------///////////////////------------------------------------------------------------------------------------------------------------------------

tt = dm.GetWindowTitle(hwnd) /////////------>>获取窗口的标题<<-------------------------
TracePrint "窗口的标题=" & tt



/////-------------------------------------------------------------------------------------------------------------///////////////////------------------------------------------------------------------------------------------------------------------------


hwnd = dm.FindWindow("","记事本") /////////----查找符合类名或者标题名的顶层可见窗口-->>可以获取窗口的类名<<-------------------------






///-----------------------------------------------------///////////////------------------------//////---------------
//////-----下面是，多点找色代码--------------------------------------------------
////-------根据指定的多点查找颜色坐标--------------
dm_ret = dm.FindMultiColor(0,0,2000,2000,"cc805b-020202","9|2|-00ff00,15|2|2dff1c-010101,6|11|a0d962,11|14|-ffffff",1.0,1,intX,intY)
dm.MoveTo intX,intY
/////-------------------------------------------------------------------------------------------------------------///////////////////------------------------------------------------------------------------------------------------------------------------
////---查找指定区域内的图片
dm_ret = dm.FindPic(0,0,2000,2000,"1.bmp|2.bmp|3.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
MessageBox "找到"
End If



/////---------------------------------------------------------------

----------------------------------------------///////////////////------------------------------------------------------------------------------------------------------------------------
///按下指定的虚拟键码

dm.KeyPress 13

/////----------------------------------------------------------------------------------------------------------------------/////////////////////////////////////////////-------------------------------------------------------------------------------------
//---按住指定的虚拟键码
////--注意这是按住，不放的，千万别用错----------
dm.KeyDown 13--注意这是按住，不放的，千万别用错----------
/////-------------------------------------------------------------------------------------------------------------///////////////////------------------------------------------------------------------------------------------------------------------------
///弹起来虚拟键vk_code

dm.KeyUp 13

/////////////////-----------------------------------------------------------------------------------------//////////////////////////------------------------------------------------------------------------------------------------------------------------


///////把鼠标移动到目的点(x,y)
dm.MoveTo x,y
/////----------------------------------------------------------------------------------------------------------------------/////////////////////////////////////////////---------------------------------------------------------------
////按下鼠标左键

dm.LeftClick

/////--------------------------------------------/////////////////------------------------------------------------------//////////---------------------------------------------------------------------------------------------------------------------
////双击鼠标左键

dm.LeftDoubleClick

////-----------------------------------------------------------------------------------------------------------------//////////-----------------------------------------------------------------------------------------------------------------
/////按住鼠标左键

dm.LeftDown

////-----------------------------------------------------------------------------------------------------------------//////////-----------------------------------------------------------------------------------------------------------------
////弹起鼠标左键

dm.LeftUp

////-----------------------------------------------------------------------------------------------------------------//////////-----------------------------------------------------------------------------------------------------------------
///按下鼠标右键

dm.RightClick

////-----------------------------------------------------------------------------------------------------------------//////////-----------------------------------------------------------------------------------------------------------------
///按住鼠标右键

dm.RightDown

////-------

----------------------------------------------------------------------------------------------------------//////////-----------------------------------------------------------------------------------------------------------------
///弹起鼠标右键

dm.RightUp

////-----------------------------------------------------------------------------------------------------------------//////////-----------------------------------------------------------------------------------------------------------------
///设置按键时,键盘按下和弹起的时间间隔。高级用户使用。某些窗口可能需要调整这个参数才可以正常按键。
type 字符串: 键盘类型,取值有以下

"normal" : 对应normal键盘 默认内部延时为30ms

"windows": 对应windows 键盘 默认内部延时为10ms

"dx" : 对应dx 键盘 默认内部延时为50ms

delay 整形数: 延时,单位是毫秒

示例:
dm.SetKeypadDelay "dx",10
注 : 此函数影响的接口有KeyPress

////-----------------------------------------------------------------------------------------------------------------//////////-----------------------------------------------------------------------------------------------------------------
////设置鼠标单击或者双击时,鼠标按下和弹起的时间间隔。高级用户使用。某些窗口可能需要调整这个参数才可以正常点击。
参数定义:

type 字符串: 鼠标类型,取值有以下

"normal" : 对应normal鼠标 默认内部延时为 30ms

"windows": 对应windows 鼠标 默认内部延时为 10ms

"dx" : 对应dx鼠标 默认内部延时为40ms

delay 整形数: 延时,单位是毫秒

示例:

dm.SetMouseDelay "dx",10

////-----------------------------------------------------------------------------------------------------------------//////////-----------------------------------------------------------------------------------------------------------------
//////

//设置窗口的状态
dm_ret = dm.SetWindowState(hwnd,12)//激活窗口的，代码
////---------------------------------------------------------------------------------------------------------
///设置剪贴板的内容
dm.SetClipboard "abcd"

////----------------------------------///////////-------------------------------------------
///--------------------------------------------------------------------------------------------
///获取剪贴板的内容

TracePrint dm.GetClipboard()

///--------------------------------------------------------------------------------
///---------------------------------------------------
///向指定窗口发送粘贴命令. 把剪贴板的内容发送到目标窗口.

dm.SetClipboard "abcd"
dm.SendPaste hwnd



///-/----------------------------------------------------------------------------------
////----------------------------------------------------------------


//播放指定的MP3或者wav文

件.
// test.mp3放于d:\test目录下
dm.SetPath "d:\test"
id = dm.Play("test.mp3")



// 绝对路径
id = dm.Play("d:\test\test.mp3")
Delay 1000
dm.Stop id

///-----------/////////-----------------------------------------------------------
///--------------------------------------------------------------------------------------------------------------
///向指定窗口发送文本数据

dm.SendString hwnd,"我是来测试的"


dm.SendString2 hwnd,"我是来测试的"

////----------------------///////----------------------//////////-----------------------------------------------------------------------------------------------------------------------------------------///////////////---------------------------------------------
////设置窗口的状态-------------------------------

12 : 恢复并激活指定窗口
13 : 强制结束窗口所在进程.
dm_ret = dm.SetWindowState(hwnd,0)
//////
////----------------------///////----------------------//////////-----------------------------------------------------------------------------------------------------------------------------------------///////////////---------------------------------------------
///// test.mp3放于d:\test目录下
dm.SetPath "c:\test_game"
id = dm.Play("cf1.wav")'播放音乐代码-------------------------------------
/////绝对路径
id = dm.Play("c:\test_game\cf1.wav")'读取音乐路径--并且播放乐--------------
Delay 1000
dm.Stop id'音乐结束------------------------------------------------





////----------------------///////----------------------//////////-----------------------------------------------------------------------------------------------------------------------------------------///////////////---------------------------------------------
设置字库文件
dm_ret = dm.SetDict(0,"test.txt")





////----------------------///////----------------------//////////-----------------------------------------------------------------------------------------------------------------------------------------///////////////---------------------------------------------






////----------------------///////----------------------//////////-----------------------------------------------------------------------------------------------------------------------------------------///////////////---------------------------------------------