버튼 엘 프 참조 코드

Call     ()

//       
Set dm = createobject("dm.dmsoft")
//              c    （       ）
dm_ret = dm.SetPath("c:\test_game")
// 
//Hwnd = Plugin.Window.Find("Windows.UI.Core.CoreWindow", "Microsoft Edge")
//Hwnd = Plugin.Window.Find("Notepad", 0)
Hwnd = Plugin.Window.Find("Chrome_WidgetWin_1", 0)
TracePrint Hwnd
//       
dm_ret = dm.BindWindow(Hwnd, "dx", "windows", "windows", 0)
//    
dm.KeyPress 65
dm_ret = dm.SetWindowSize(hwnd, 1300, 600)
Delay 500
dm.MoveWindow hwnd,0,0
//     
dm_ret = dm.FindPic(28,9,244,212,"  .bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
    dm.MoveTo intX, intY
    Delay 1500 
    dm.LeftDown 
    Delay 1500
    dm.LeftClick 
End If
//           
//HwndEx = Plugin.Window.SearchEx("Chrome_WidgetWin_1",0,0)
//TracePrint "           ："& HwndEx
//Hwnd = Split(HwndEx, "|")
//If UBound(Hwnd)>=0 Then
//    i=0
//    For UBound(Hwnd)
//        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
//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
//MsgBox "          ："& Hwnd  
//                  PrintScrieen  
//                   

dm.UnBindWindow

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
//       <<<<<<<<<<<<<<