注册大漠免登陆

插入dll命令

.版本 2

.DLL命令 SetDllPathA, , "c:\test_game\dmreg.dll", "SetDllPathA"
    .参数 path, 文本型
    .参数 mode, 整数型

模块中导入大漠模块

创建注册

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 dm, 大漠英文版

.子程序 _按钮1_被单击

' 
' dm.SetWindowState (1378312, 1)
' dm.SetWindowState (1378312, 8)
调试输出 (dm.GetWindowState (262622, 5))
.判断循环首 (真)

    .如果真 (dm.GetWindowState (262622, 5) ≠ 1)
        dm.SetWindowState (262622, 1)
        dm.SetWindowState (262622, 8)

    .如果真结束
    延时 (1000)
.判断循环尾 ()
调试输出 ()


.子程序 __启动窗口_创建完毕

SetDllPathA (“D:\dm7.2213\7.2213\dm.dll”, 0)
dm.创建 ()
dm.Reg (“123123”, “123123”)