Red de conocimiento informático - Aprendizaje de código fuente - ¡Mapa de búsqueda en segundo plano del asistente de botones!

¡Mapa de búsqueda en segundo plano del asistente de botones!

Callout Desert () Rem Bind HWND = dm.GetMousePointWindow () retraso 200 dm_ret = dm.BindWindow (HWND, "DX2", "DX2 ", "DX", 0) retraso 200 si dm_ret = 1 luego llame a Plugin.Msg.Tips ("Bind Successful") retrasa 100 else; va al final del enlace si rem A dm_ret = dm.FindPic(380,60,700,200, "Picture. BMP", "000000", 0.9,0, X, Y) Retraso 50 // ↑ Notas "Rango" en "buscar número" si "Buscar número" a un sub OnScriptExit () dm.UnBindWindow BR /> retraso 100 END SUB sub registro desierto () need_ver = "3.1233" set WS = CREATEOBJECT("WSCRIPT.SHELL ") WS. ejecute "REGSVR32 ATL.DLL / seg" set WS = What PutAttachment "C:\ test_game", "... **"PutAttachment "\ Plugin", "RegDll.DLL" llame a plugin.RegDll.Reg ( "C:\ test_game \ dm.dll") set DM = CREATEOBJECT ("dm.dmsoft") ; versión = dm.Ver () si versión > ; entonces establece DM = what set WS = CREATEOBJECT ("Wscript según Shell; ") ws.run "REGSVR32:\test_game \ dm.dll /sec "; Un conjunto de WS = qué retraso 1500 Un conjunto de DM = CREATEOBJECT ("dm.dmsoft") versión = dm.Ver () si versión > need_ver luego; cuadro de mensaje "Versión incorrecta del complemento, actualmente utilizada. La versión es: "&Versión&", el directorio del complemento es: "; &dm.GetBasePath() Cuadro de mensaje: "¡Cierre el programa, vuelva a abrirlo e intente nuevamente! "

;Finalmente, si finalmente dm.SetPath "C:\ test_game" dm_ret = dm.SetDict(0, "dm_soft.txt ") termina pequeño