易语言墙纸操作源码

系统结构:取变量地址,到可变字符,运行子程序,到宽字符,读数,设置墙纸,CoCreateInstance,IIDFromString,CoInitialize,StringFromIID,MultiByteToWideChar,取文本地址,取字节集地址,取整数地址,CallWindowProcA,取长整数地址,IIDFromString1,CoUninitialize,WideCharToMultiByte,OleCreatePropertyFrame,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 取变量地址
  ======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 到可变字符
           |  |
           |  |------ 运行子程序
           |  |
           |  |------ 到宽字符
           |  |
           |  |------ 读数
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 设置墙纸
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CoCreateInstance
           |  |
           |  |---[dll]------   IIDFromString
           |  |
           |  |---[dll]------   CoInitialize
           |  |
           |  |---[dll]------   StringFromIID
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   取文本地址
           |  |
           |  |---[dll]------   取字节集地址
           |  |
           |  |---[dll]------   取整数地址
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   取长整数地址
           |  |
           |  |---[dll]------   IIDFromString1
           |  |
           |  |---[dll]------   CoUninitialize
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   OleCreatePropertyFrame

调用的DLL命令:

.DLL命令 CoCreateInstance, 整数型, "ole32.dll"
    .参数 CLSID, GUID
    .参数 pUnkOuter
    .参数 服务器类型
    .参数 接口的IID, GUID
    .参数 接口指针的地址, , 传址

.DLL命令 IIDFromString, 整数型, "ole32.dll"
    .参数 lpszIID, 字节集
    .参数 iid, GUID

.DLL命令 CoInitialize, 整数型, "ole32.dll"
    .参数 k

.DLL命令 StringFromIID, , "ole32.dll"
    .参数 lpszIID, GUID
    .参数 iid, , 传址

.DLL命令 MultiByteToWideChar, 整数型
    .参数 CodePage
    .参数 dwFlags
    .参数 lpWideCharStr, 文本型
    .参数 cchWideChar
    .参数 lpMultiByteStr, 字节集
    .参数 cchMultiByte

.DLL命令 取文本地址, 整数型, "aaa.dll", "取变量地址"
    .参数 aa, 文本型

.DLL命令 取字节集地址, 整数型, "aaa.dll", "取变量地址"
    .参数 aa, 字节集

.DLL命令 取整数地址, 整数型, "aaa.dll", "取变量地址"
    .参数 aa, , 传址

.DLL命令 CallWindowProcA, 整数型
    .参数 lpPrevWndFunc
    .参数 hwnd
    .参数 msg
    .参数 wParam
    .参数 iparam

.DLL命令 取长整数地址, 整数型, "aaa.dll", "取变量地址"
    .参数 aa, 长整数型, 传址

.DLL命令 IIDFromString1, 整数型, "ole32.dll", "IIDFromString"
    .参数 lpszIID, 字节集
    .参数 iid, 字节集

.DLL命令 CoUninitialize, , "ole32.dll"

.DLL命令 WideCharToMultiByte, 整数型
    .参数 CodePage
    .参数 dwFlags
    .参数 lpWideCharStr
    .参数 cchWideChar
    .参数 lpMultiByteStr, 字节集
    .参数 cchMultiByte
    .参数 lpDefaultChar
    .参数 lpUsedDefaultChar

.DLL命令 OleCreatePropertyFrame, 整数型, "olepro32.dll", "OleCreatePropertyFrame"
    .参数 a
    .参数 b
    .参数 c
    .参数 d
    .参数 e
    .参数 f
    .参数 g
    .参数 h
    .参数 i
    .参数 j
    .参数 k