易语言调试辅助工具

zhuqiuhao

易语言里粘贴即可');" value="复制代码" class="pnpnc"/>  

窗口程序集名	保 留	保 留	备 注
窗口程序集1			易辅客栈-戴眼镜的猫
变量名	类 型	数组	备 注
易语言句柄

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
控件句柄	整数型

易语言句柄 ＝ FindWindowA (“ENewFrame”, 字符 (0))
如果真 (易语言句柄 ＝ 0)
信息框 (“没有找到易语言”, #错误图标, “”)
结束 ()
SetParent (取窗口句柄 (), 易语言句柄)
信息框 (“插件加载成功,易辅客栈-戴眼镜的猫”, 0, “”, )

子程序名	返回值类型	公开	备 注
子程序			本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
计时	整数型
句柄	整数型
句柄1	整数型

' 本源码来自:[url=http://www.bibis.cc]www.bibis.cc[/url]
PostMessage (易语言句柄, 256, #F7键, 0)
PostMessage (易语言句柄, 257, #F7键, 0)
判断循环首 (计时 ＜ 50)
句柄 ＝ FindWindowA (字符 (0), “请输入欲编译到的可执行文件名：”)
延时 (100)
如果真 (句柄 ＞ 0)
跳出循环 ()
计时 ＝ 计时 ＋ 1
判断循环尾 ()
句柄1 ＝ FindWindowExA (句柄, 0, “Edit”, 字符 (0))
如果真 (句柄1 ＞ 0)
SendMessage (句柄1, 12, 0, 取运行目录 () ＋ “\text_w.exe”)
句柄1 ＝ FindWindowExA (句柄, 0, “Button”, “保存(&S)”)
如果真 (句柄1 ＞ 0)
PostMessage (句柄, 256, #回车键, 0)
PostMessage (句柄, 257, #回车键, 0)
计时 ＝ 0
判断循环首 (计时 ＜ 100)
如果真 (寻找文件 (取运行目录 () ＋ “\text_w.exe”, ) ≠ “”)
跳出循环 ()
计时 ＝ 计时 ＋ 1
延时 (100)
判断循环尾 ()
如果真 (寻找文件 (取运行目录 () ＋ “\text_w.exe”, ) ≠ “”)
按钮1.禁止 ＝ 真
按钮2.禁止 ＝ 假
运行 (取运行目录 () ＋ “\text_w.exe”, 真, )
按钮1.禁止 ＝ 假
按钮2.禁止 ＝ 真
删除文件 (取运行目录 () ＋ “\text_w.exe”)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

启动线程 (&子程序, , )

子程序名	返回值类型	公开	备 注
_按钮2_被单击

运行 (“cmd /c taskkill /f /im text_w.exe”, 真, 1)
删除文件 (取运行目录 () ＋ “\text_w.exe”)
按钮1.禁止 ＝ 假
按钮2.禁止 ＝ 真

DLL命令名	返回值类型	公开	备 注
FindWindowA	整数型
DLL库文件名:
user32
在DLL库中对应命令名:
FindWindowA
参数名	类 型	传址	数组	备 注
lpClassName	文本型
lpWindowName	文本型

DLL命令名	返回值类型	公开	备 注
SendMessage	整数型
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
SendMessageA
参数名	类 型	传址	数组	备 注
HWND
sc
z1
z2	文本型

DLL命令名	返回值类型	公开	备 注
PostMessage	整数型
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
PostMessageA
参数名	类 型	传址	数组	备 注
HWND
sc
z1
z2

DLL命令名	返回值类型	公开	备 注
SetParent	整数型		指定一个窗口的新父（在vb里使用：利用这个函数，vb可以多种形式支持子窗口。例如，可将控件从一个容器移至窗体中的另一个。用这个函数在窗体间移动控件是相当冒险的，但却不失为一个有效的办法。如真的这样做，请在关闭任何一个窗体之前，注意用SetParent将控件的父设回原来的那个）。返回值Long，前一个父窗口的句柄。
DLL库文件名:
user32
在DLL库中对应命令名:
SetParent
参数名	类 型	传址	数组	备 注
hWndChild	整数型			备注1无法读取，请您提供该API名报易BBS中ID号klasp完善。
hWndNewParent	整数型			备注2无法读取，请您提供该API名报易BBS中ID号klasp完善。

DLL命令名	返回值类型	公开	备 注
FindWindowExA	整数型		在窗口列表中寻找与指定条件相符的第一个子窗口。返回值Long，找到的窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastErrora。
DLL库文件名:
user32
在DLL库中对应命令名:
FindWindowExA
参数名	类 型	传址	数组	备 注
hWnd1	整数型			Long，在其中查找子的父窗口。如设为零，表示使用桌面窗口（通常说的顶级窗口都被认为是桌面的子窗口，所以也会对它们进行查找）
hWnd2	整数型			Long，从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零，表示从第一个子窗口开始搜索
lpsz1	文本型			String，欲搜索的类名。零表示忽略
lpsz2	文本型			String，欲搜索的类名。零表示忽略

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集1, , , 易辅客栈-戴眼镜的猫<br /> .程序集变量 易语言句柄<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 控件句柄, 整数型<br /> <br /> 易语言句柄 ＝ FindWindowA (“ENewFrame”, 字符 (0))<br /> .如果真 (易语言句柄 ＝ 0)<br />     信息框 (“没有找到易语言”, #错误图标, “”)<br />     结束 ()<br /> .如果真结束<br /> SetParent (取窗口句柄 (), 易语言句柄)<br /> 信息框 (“插件加载成功,易辅客栈-戴眼镜的猫”, 0, “”, )<br /> <br /> .子程序 子程序, , , 本子程序在程序启动后最先执行<br /> .局部变量 计时, 整数型<br /> .局部变量 句柄, 整数型<br /> .局部变量 句柄1, 整数型<br /> <br /> ' 本源码来自:<a href="http://www.bibis.cc" target="_blank">www.bibis.cc</a><br /> PostMessage (易语言句柄, 256, #F7键, 0)<br /> PostMessage (易语言句柄, 257, #F7键, 0)<br /> .判断循环首 (计时 ＜ 50)<br />     句柄 ＝ FindWindowA (字符 (0), “请输入欲编译到的可执行文件名：”)<br />     延时 (100)<br />     .如果真 (句柄 ＞ 0)<br />         跳出循环 ()<br />     .如果真结束<br />     计时 ＝ 计时 ＋ 1<br /> .判断循环尾 ()<br /> 句柄1 ＝ FindWindowExA (句柄, 0, “Edit”, 字符 (0))<br /> .如果真 (句柄1 ＞ 0)<br />     SendMessage (句柄1, 12, 0, 取运行目录 () ＋ “\text_w.exe”)<br />     句柄1 ＝ FindWindowExA (句柄, 0, “Button”, “保存(&S)”)<br />     .如果真 (句柄1 ＞ 0)<br />         PostMessage (句柄, 256, #回车键, 0)<br />         PostMessage (句柄, 257, #回车键, 0)<br />         计时 ＝ 0<br />         .判断循环首 (计时 ＜ 100)<br />             .如果真 (寻找文件 (取运行目录 () ＋ “\text_w.exe”, ) ≠ “”)<br />                 跳出循环 ()<br />             .如果真结束<br />             计时 ＝ 计时 ＋ 1<br />             延时 (100)<br />         .判断循环尾 ()<br /> <br />         .如果真 (寻找文件 (取运行目录 () ＋ “\text_w.exe”, ) ≠ “”)<br />             按钮1.禁止 ＝ 真<br />             按钮2.禁止 ＝ 假<br />             运行 (取运行目录 () ＋ “\text_w.exe”, 真, )<br />             按钮1.禁止 ＝ 假<br />             按钮2.禁止 ＝ 真<br />             删除文件 (取运行目录 () ＋ “\text_w.exe”)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&子程序, , )<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 运行 (“cmd /c taskkill /f /im text_w.exe”, 真, 1)<br /> 删除文件 (取运行目录 () ＋ “\text_w.exe”)<br /> 按钮1.禁止 ＝ 假<br /> 按钮2.禁止 ＝ 真<br /> <br /> .版本 2<br /> <br /> .DLL命令 FindWindowA, 整数型, "user32", "FindWindowA"<br />     .参数 lpClassName, 文本型<br />     .参数 lpWindowName, 文本型<br /> <br /> .DLL命令 SendMessage, 整数型, , "SendMessageA"<br />     .参数 HWND<br />     .参数 sc<br />     .参数 z1<br />     .参数 z2, 文本型<br /> <br /> .DLL命令 PostMessage, 整数型, , "PostMessageA"<br />     .参数 HWND<br />     .参数 sc<br />     .参数 z1<br />     .参数 z2<br /> <br /> .DLL命令 SetParent, 整数型, "user32", "SetParent", , 指定一个窗口的新父（在vb里使用：利用这个函数，vb可以多种形式支持子窗口。例如，可将控件从一个容器移至窗体中的另一个。用这个函数在窗体间移动控件是相当冒险的，但却不失为一个有效的办法。如真的这样做，请在关闭任何一个窗体之前，注意用SetParent将控件的父设回原来的那个）。返回值Long，前一个父窗口的句柄。<br />     .参数 hWndChild, 整数型, , 备注1无法读取，请您提供该API名报易BBS中ID号klasp完善。<br />     .参数 hWndNewParent, 整数型, , 备注2无法读取，请您提供该API名报易BBS中ID号klasp完善。<br /> <br /> .DLL命令 FindWindowExA, 整数型, "user32", "FindWindowExA", , 在窗口列表中寻找与指定条件相符的第一个子窗口。返回值Long，找到的窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastErrora。<br />     .参数 hWnd1, 整数型, , Long，在其中查找子的父窗口。如设为零，表示使用桌面窗口（通常说的顶级窗口都被认为是桌面的子窗口，所以也会对它们进行查找）<br />     .参数 hWnd2, 整数型, , Long，从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零，表示从第一个子窗口开始搜索<br />     .参数 lpsz1, 文本型, , String，欲搜索的类名。零表示忽略<br />     .参数 lpsz2, 文本型, , String，欲搜索的类名。零表示忽略

请点击此处下载

查看状态：已购买或有权限

您的用户组是：游客

文件名称：强制调试.e 
下载次数：23  文件大小：395.47 KB 
下载权限： 不限  以上或 VIP会员   [购买VIP]   [充值积分]  [免费赚积分]