大漠API+com对象三种方式实现模拟登录

希望能帮到将来学习大漠API还有com对象类型的朋友。
.如果真 (文件是否存在 (取运行目录 () ＋ “\dm_13.dll”) ＝ 假) ' 检查大漠dll 是否存在
.如果 (写到文件 (取运行目录 () ＋ “\dm_13.dll”, #大漠) ＝ 假) ' 如果不存在就写出大漠dll
信息框 (“初始化失败！请联系作者！”, 16, , )
结束 ()
.否则
置文件属性 (取运行目录 () ＋ “\dm_13.dll”, #隐藏文件) ' 把大漠dll属性设置成隐藏文件，以免误删
.如果结束

.如果真结束
运行 (“regsvr32 dm_13.dll -s”, 真, ) ' 注册大漠dll 不注册无法调用，这个是后台注册的看不到 去掉-s 就能看到
.如果真 (大漠.创建 (“dm.dmsoft”, ) ＝ 假) ' 如果大漠对象创建失败结束程序
信息框 (“创建对象失败！检查是否注册成功！”, 0, , )