易语言Goto跳转模块源码

系统结构:Goto,GetGotoAddr,FillMemory,CopyMemory,GetModuleFileNameEx,IsBadReadPtr,Goto测试_1,Goto测试_2,测试子程序,循环子程序,SHCreateDirectory,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ Goto
           |  |
           |  |------ GetGotoAddr
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   FillMemory
           |  |
           |  |---[dll]------   CopyMemory
           |  |
           |  |---[dll]------   GetModuleFileNameEx
           |  |
           |  |---[dll]------   IsBadReadPtr
  ======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ Goto测试_1
           |  |
           |  |------ Goto测试_2
  ======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ 测试子程序
  ======窗口程序集1
           |  |
           |  |------ _开始循环_被单击
           |  |
           |  |------ 循环子程序
           |  |
           |  |------ _暂停循环_被单击
           |  |
           |  |------ _恢复循环_被单击
           |  |
           |  |------ __启动窗口_将被销毁
  ======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SHCreateDirectory

调用的DLL命令:

.DLL命令 FillMemory, , , "RtlFillMemory"
    .参数 Destination, 字节集, 传址
    .参数 Length, 整数型
    .参数 Fill, 字节型

.DLL命令 CopyMemory, , , "RtlMoveMemory"
    .参数 lpvDest, 字节集, 传址
    .参数 lpvSource, 整数型
    .参数 cbCopy, 整数型

.DLL命令 GetModuleFileNameEx, 整数型, "psapi.dll", "GetModuleFileNameExA"
    .参数 hProcess, 整数型
    .参数 hModule, 整数型
    .参数 lpFilename, 文本型
    .参数 nSize, 整数型

.DLL命令 IsBadReadPtr, 逻辑型, "kernel32", "IsBadReadPtr"
    .参数 lp, 整数型
    .参数 ucb, 整数型

调用的DLL命令:

.DLL命令 SHCreateDirectory, 整数型, "shell32.dll", "SHCreateDirectoryExA"
    .参数 SHCreateDirectory, 整数型
    .参数 pszPath, 文本型
    .参数 psa, 整数型