易语言将窗口内文件拖到外面并写出源码

系统结构:子程序1,GetHandle,setHOOK,GetModuleHand,Unhook,MoveMemory,取窗口标题_,取指定点窗口句柄_,取父窗口_,取实例句柄_,载入图象_,创建指针_,清除指针_,设置窗口类,

======窗口程序集1
           |  |
           |  |------ 子程序1
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ _标签1_鼠标左键被按下
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetHandle
           |  |
           |  |---[dll]------   setHOOK
           |  |
           |  |---[dll]------   GetModuleHand
           |  |
           |  |---[dll]------   Unhook
           |  |
           |  |---[dll]------   MoveMemory
           |  |
           |  |---[dll]------   取窗口标题_
           |  |
           |  |---[dll]------   取指定点窗口句柄_
           |  |
           |  |---[dll]------   取父窗口_
           |  |
           |  |---[dll]------   取实例句柄_
           |  |
           |  |---[dll]------   载入图象_
           |  |
           |  |---[dll]------   创建指针_
           |  |
           |  |---[dll]------   清除指针_
           |  |
           |  |---[dll]------   设置窗口类

调用的DLL命令:

.DLL命令 GetHandle, 整数型, "user32", "GetForegroundWindow"

.DLL命令 setHOOK, 整数型, "user32", "SetWindowsHookExA"
    .参数 idHook, 整数型
    .参数 lpfn, 子程序指针
    .参数 hmod, 整数型
    .参数 dwThreadId, 整数型

.DLL命令 GetModuleHand, 整数型, , "GetModuleHandleA"
    .参数 a, 整数型

.DLL命令 Unhook, 整数型, "user32.dll", "UnhookWindowsHookEx"
    .参数 hook, 整数型

.DLL命令 MoveMemory, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 按键信息
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 取窗口标题_, 整数型, "user32", "GetWindowTextA", , , 取得一个窗体的标题（caption）文字，或者一个控件的内容（在vb里使用：使用vb窗体或控件的caption或text属性）  复制到lpString的字串长度；不包括空中止字符。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲获取文字的那个窗口的句柄
    .参数 缓冲区, 文本型, , 预定义的一个缓冲区，至少有cch+1个字符大小；随同窗口文字载入
    .参数 缓冲尺寸, 整数型, , lp缓冲区的长度;

.DLL命令 取指定点窗口句柄_, 整数型, "user32.dll", "WindowFromPoint", , ,
    .参数 横坐标, 整数型, , xPoint，x点值
    .参数 纵坐标, 整数型, , yPoint，y点值

.DLL命令 取父窗口_, 整数型, "user32", "GetParent", , , 判断指定窗口的父窗口  父窗口的句柄。如窗口没有父，或遇到错误，则返回零。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲测试的窗口的句柄;

.DLL命令 取实例句柄_, 整数型, , "GetModuleHandleA", , ,
    .参数 程序名, 整数型, , 文本型

.DLL命令 载入图象_, 整数型, "user32.dll", "LoadImageA", , , 载入一个位图、图标或指针
    .参数 实例句柄, 整数型, , hInst,要从其中载入图象的DLL或应用程序模块或实例句柄
    .参数 图象标志符, 文本型, , lpsz,欲载入图象的名字
    .参数 图象类型, 整数型, , un1,指定了欲载入的图象类型
    .参数 图象宽度, 整数型, , n1,要求的图象宽度
    .参数 图象高度, 整数型, , n2,要求的图象高度
    .参数 常数组合, 整数型, , un2,常数的任意组合

.DLL命令 创建指针_, 整数型, "user32.dll", "LoadCursorFromFileA", , ,
    .参数 文件名, 文本型, , lpFileName,包含指针的那个文件的名字

.DLL命令 清除指针_, 整数型, "user32.dll", "DestroyCursor", , ,
    .参数 鼠标指针句柄, 整数型, , hCursor,欲清除的指针对象的句柄

.DLL命令 设置窗口类, 整数型, "user32", "SetClassLongA", , 使用这个函数一定要小心。记住，这里的变动会影响指定类的所有窗口，但除非窗口重画，否则那个变动不会显露出来
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型