.版本 2 .支持库 eAPI .支持库 shell .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 集_句柄, 整数型 .程序集变量 集_载入, 逻辑型 .子程序 _时钟1_周期事件 集_句柄 ＝ 取鼠标所在窗口句柄 () .子程序 取资源管理器目录, 文本型, , 失败返回空 .参数 句柄, 整数型 .局部变量 局_标题, 文本型 .局部变量 局_句柄, 整数型, , "0" .局部变量 i 窗口_枚举所有子窗口 (窗口_取祖句柄 (句柄), 局_句柄, “ToolbarWindow32”) .计次循环首 (取数组成员数 (局_句柄), i) 局_标题 ＝ 窗口_取标题 (局_句柄 [i]) .如果真 (寻找文本 (局_标题, “地址”, , 假) ≠ -1) ' 因为取出来的句柄有四个，但只有一个是需要的，所以进行下判断 局_标题 ＝ 子文本替换 (局_标题, “地址: ”, “”, , , 真) ' 替换下，得到想要的字符串 返回 (局_标题 ＋ “\”) ' 取到的目录非'/'结尾，自己加下 .如果真结束 .计次循环尾 () 返回 (“”) .子程序 _图片框1_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 时钟1.时钟周期 ＝ 50 SetCapture (图片框1.取窗口句柄 ()) ' 捕获鼠标 .子程序 _图片框1_鼠标左键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .局部变量 局_文件目录, 文本型 时钟1.时钟周期 ＝ 0 ' 为了防止取不到想要的句柄，先停止 .判断开始 (集_句柄 ＝ 窗口_取桌面句柄 ()) ' 用户选择了拖到桌面 局_文件目录 ＝ 取特定目录 (3) .默认 局_文件目录 ＝ 选择 (取资源管理器目录 (集_句柄) ＝ “”, 取特定目录 (3), 取资源管理器目录 (集_句柄)) ' 防止目录错误，如果取出失败，则写到桌面 .判断结束 局_文件目录 ＝ 局_文件目录 ＋ “测试图片.jpg” 调试输出 (局_文件目录) 写到文件 (局_文件目录, 图片框1.图片) ReleaseCapture () ' 释放捕获 .子程序 __启动窗口_创建完毕