大漠插件

Call 注册()
//<>------------------------------
Do

dm_ret = dm.FindPic(560,95,1161,574,"倩女幽魂.bmp|星辰变.bmp|仙途.bmp","000000",0.9,0,intX,intY)
Delay 20
TracePrint intX&","&intY
If intX > 0 And intY > 0 Then
MessageBox "图片，出现了"
Exit Do
End If

Loop While 7=7
//
MessageBox "脚本，停止"



//<>--------------------------------------------------------------------<>
//<>------------------------------子程序------------------------------<>
//<>--------------------------------------------------------------------<>
Sub 注册()
PutAttachment ".\plugin","*.dll"
PutAttachment ".\plugin\大漠梦想","*.bmp"
PutAttachment ".\plugin\大漠梦想","*.txt"
PutAttachment ".\plugin\大漠梦想","dm.dll"
//↑PutAttachment释放附件
Call Plugin.RegDll.Reg(".\plugin\大漠梦想\dm.dll")
set dm = createobject("dm.dmsoft")
dm.SetPath ".\plugin\大漠梦想"
//↑大漠·注册
Delay 40
End Sub
//
Sub OnScriptExit()
dm_ret = dm.UnBindWindow()
End Sub