图片框的粘贴取网页窗口

xinyuan2200

求大神更改为取网页窗口

小涛

http://www.5a5x.com/06/201108/08174082.html
你可以看看这个  应该是你要的

简简单单 没几句代码  都是API

小涛

改成取网页窗口 取 那个网页的啊?  IE 的话  精易普通填表里面有个 网页_取IE窗口句柄     这个 命令就可以取的

xinyuan2200

浩瀚网络_小涛 发表于 2018-2-3 11:58
改成取网页窗口 取 那个网页的啊?  IE 的话  精易普通填表里面有个 网页_取IE窗口句柄     这个 命令就可以 ...

在任意窗口 复制的图片 怎么改？

小涛

xinyuan2200 发表于 2018-2-3 12:11
在任意窗口 复制的图片 怎么改？

任意?  都是 你写的代码的窗口 还是  任意的?

xinyuan2200

浩瀚网络_小涛 发表于 2018-2-3 12:27
任意?  都是 你写的代码的窗口 还是  任意的?

意思就是我从别的任意窗口复制的图片粘贴到图片框

xinyuan2200

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
   
6. 
   
7. 全_QQ剪辑板标志 ＝ RegisterClipboardFormat (“QQ_RichEdit_Format”)
   
8. 载入 (窗口1, , 假)
   
9. 返回 (0)  ' 可以根据您的需要返回任意数值
   
10. 
    
11. .子程序 剪辑板_取类型, 整数型
    
12. .参数 窗口句柄, 整数型
    
13. .局部变量 局_类型, 整数型
    
14. 
    
15. OpenClipboard (窗口句柄)
    
16. 局_类型 ＝ EnumClipboardFormats (0)
    
17. CloseClipboard ()
    
18. 返回 (局_类型)
    
19. 
    
20. .子程序 剪辑板_取复制文件列表, 整数型, 公开, 返回文件个数
    
21. .参数 窗口句柄, 整数型
    
22. .参数 返回文件列表, 文本型, 数组
    
23. .局部变量 剪辑板数据句柄, 整数型
    
24. .局部变量 局_文件数量, 整数型
    
25. .局部变量 局_计次n, 整数型
    
26. .局部变量 局_临时文件路径, 文本型
    
27. .局部变量 cch, 整数型
    
28. 
    
29. 清除数组 (返回文件列表)
    
30. OpenClipboard (窗口句柄)
    
31. 剪辑板数据句柄 ＝ GetClipboardData (15)
    
32. CloseClipboard ()
    
33. .如果真 (剪辑板数据句柄 ≠ 0)
    
34.     局_文件数量 ＝ DragQueryFileA (剪辑板数据句柄, -1, “”, 0)
    
35.     ' 调试输出 (局_文件数量)
    
36.     .计次循环首 (局_文件数量, 局_计次n)
    
37.         cch ＝ DragQueryFileA (剪辑板数据句柄, 局_计次n － 1, “”, 0)
    
38.         局_临时文件路径 ＝ 取空白文本 (cch ＋ 1)
    
39.         DragQueryFileA (剪辑板数据句柄, 局_计次n － 1, 局_临时文件路径, cch ＋ 1)
    
40.         加入成员 (返回文件列表, 局_临时文件路径)
    
41.     .计次循环尾 ()
    
42. .如果真结束
    
43. 
    
44. 返回 (取数组成员数 (返回文件列表))
    
45. 
    
46. 
    
47. .子程序 剪辑板_取QQ复制图片路径, 文本型, 公开
    
48. .参数 窗口句柄, 整数型
    
49. .局部变量 剪辑板数据句柄, 整数型
    
50. .局部变量 全局内存块大小, 整数型
    
51. .局部变量 全局内存块, 整数型
    
52. .局部变量 大小, 整数型
    
53. .局部变量 消息字节集, 字节集
    
54. .局部变量 消息文本, 文本型
    
55. 
    
56. OpenClipboard (窗口句柄)
    
57. 剪辑板数据句柄 ＝ GetClipboardData (全_QQ剪辑板标志)
    
58. CloseClipboard ()
    
59. .如果真 (剪辑板数据句柄 ≠ 0)
    
60.     全局内存块大小 ＝ GlobalSize (剪辑板数据句柄)
    
61.     全局内存块 ＝ GlobalLock (剪辑板数据句柄)
    
62.     .如果真 (全局内存块大小 ≠ 0 且 全局内存块 ≠ 0)
    
63.         消息字节集 ＝ 指针到字节集 (全局内存块, 全局内存块大小)
    
64.     .如果真结束
    
65. 
    
66. .如果真结束
    
67. .如果真 (取字节集长度 (消息字节集) ＝ 0)
    
68.     返回 (“”)
    
69. .如果真结束
    
70. 消息文本 ＝ 到文本 (消息字节集)
    
71. 消息文本 ＝ 文本_取出中间文本 (消息文本, “#引号1#引号 filepath=#引号”, “#引号 shortcut=”, , )
    
72. 返回 (消息文本)
    
73. 
    
74. .子程序 剪辑板_取图片, 字节集
    
75. .参数 窗口句柄, 整数型
    
76. .局部变量 图片句柄, 整数型
    
77. .局部变量 信息, BITMAPINFOHEADER
    
78. .局部变量 文件, BITMAPFILEHEADER
    
79. .局部变量 hMem, 整数型
    
80. .局部变量 lpData, 整数型
    
81. .局部变量 hBitmap, 整数型
    
82. .局部变量 指针, 整数型
    
83. .局部变量 位图, 字节集
    
84. .局部变量 bmp, 位图结构_
    
85. .局部变量 hdc, 整数型
    
86. .局部变量 私画布句柄, 整数型
    
87. 
    
88. OpenClipboard (窗口句柄)
    
89. 图片句柄 ＝ GetClipboardData (2)
    
90. CloseClipboard ()
    
91. .如果真 (图片句柄 ＝ 0)
    
92.     返回 ({  })
    
93. .如果真结束
    
94. .如果真 (取对象属性_ (图片句柄, 28, bmp) ＝ 0)
    
95.     返回 ({  })
    
96. .如果真结束
    
97. 信息.biSize ＝ 40
    
98. 信息.biWidth ＝ bmp.位图宽度
    
99. 信息.biHeight ＝ bmp.位图高度
    
100. 信息.biPlanes ＝ 1
     
101. 信息.biBitCount ＝ 24
     
102. 信息.biCompression ＝ 0
     
103. 信息.biSizeImage ＝ (bmp.位图宽度 × 24 ＋ 31) ÷ 8 × bmp.位图高度
     
104. 信息.biXPelsPerMeter ＝ 0
     
105. 信息.biYPelsPerMeter ＝ 0
     
106. 信息.biClrUsed ＝ 0
     
107. 信息.biClrImportant ＝ 0
     
108. hdc ＝ GetDC (0)
     
109. 私画布句柄 ＝ CreateCompatibleDC (hdc)
     
110. hMem ＝ GlobalAlloc (位或 (0, 64), 信息.biSizeImage)
     
111. lpData ＝ GlobalLock (hMem)
     
112. GetDIBits (私画布句柄, 图片句柄, 0, 信息.biHeight, lpData, 信息, 0)
     
113. 文件.bfType ＝ 19778
     
114. 文件.bfReserved1 ＝ 0
     
115. 文件.bfReserved2 ＝ 0
     
116. 文件.bfSize ＝ 14 ＋ 40 ＋ 信息.biSizeImage
     
117. 文件.bfOffBits ＝ 14 ＋ 40
     
118. 指针 ＝ VirtualAlloc (0, 54 ＋ 信息.biSizeImage, 4096, 4)
     
119. 拷贝内存_位图文件头 (指针, 文件, 14)
     
120. 拷贝内存_位图信息头 (指针 ＋ 14, 信息, 40)
     
121. 拷贝内存_位图数据 (指针 ＋ 54, lpData, 信息.biSizeImage)
     
122. 位图 ＝ 指针到字节集 (指针, 54 ＋ 信息.biSizeImage)
     
123. VirtualFree (指针, 0, 32768)
     
124. DeleteDC (私画布句柄)
     
125. ' 本源码来自易语言资源网(www.5a5x.com)
     
126. 返回 (位图)
     
127. 
     
128. .子程序 文本_取出中间文本, 文本型, 公开, 比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”，
     
129. .参数 欲取全文本, 文本型, , 比如：欲取全文本为 12345
     
130. .参数 前面文本, 文本型, , 3的前面为“2”，引号直接用 #引号，如："<font color=#引号red#引号>"
     
131. .参数 后面文本, 文本型, , 3的后面为“4”，引号直接用 #引号，如："<font color=#引号red#引号>"
     
132. .参数 起始搜寻位置, 整数型, 可空, 可空,这里是指搜寻 参数二 前面文本 的开始位置
     
133. .参数 是否不区分大小写, 逻辑型, 可空, 为真不区分大小写，为假区分。
     
134. .局部变量 局_前面文本位置, 整数型
     
135. .局部变量 局_后面文本位置, 整数型
     
136. .局部变量 局_前面文本, 文本型
     
137. .局部变量 局_后面文本, 文本型
     
138. 
     
139. 局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)
     
140. 局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)
     
141. 局_前面文本位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否不区分大小写)
     
142. .如果真 (局_前面文本位置 ≠ -1)
     
143.     局_前面文本位置 ＝ 局_前面文本位置 ＋ 取文本长度 (局_前面文本)
     
144. .如果真结束
     
145. 局_后面文本位置 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_前面文本位置, 是否不区分大小写)
     
146. .如果真 (局_前面文本位置 ＝ -1 或 局_后面文本位置 ＝ -1)
     
147.     返回 (“”)
     
148. .如果真结束
     
149. 返回 (取文本中间 (欲取全文本, 局_前面文本位置, 局_后面文本位置 － 局_前面文本位置))
     

复制代码

xinyuan2200

1. .版本 2
   
2. 
   
3. .DLL命令 OpenClipboard, 整数型, "user32", "OpenClipboard", 公开, 打开剪辑板
   
4.     .参数 句柄, 整数型
   
5. 
   
6. .DLL命令 GetClipboardData, 整数型, "user32", "GetClipboardData", 公开, 剪辑板取数据句柄
   
7.     .参数 wFormat, 整数型
   
8. 
   
9. .DLL命令 GlobalSize, 整数型, , "GlobalSize", 公开, 返回全局内存块大小
   
10.     .参数 hMem, 整数型
    
11. 
    
12. .DLL命令 GlobalLock, 整数型, "kernel32", "GlobalLock", 公开, 锁定内存对象并返回一个指针
    
13.     .参数 hMem, 整数型
    
14. 
    
15. .DLL命令 CloseClipboard, 整数型, "user32", "CloseClipboard", 公开, 剪辑板关闭
    
16. 
    
17. .DLL命令 RegisterClipboardFormat, 整数型, "user32", "RegisterClipboardFormatA", , 登记新的CLIPBOARD格式
    
18.     .参数 lpString, 文本型
    
19. 
    
20. .DLL命令 EnumClipboardFormats, 整数型, "user32", "EnumClipboardFormats"
    
21.     .参数 wFormat, 整数型
    
22. 
    
23. .DLL命令 DragQueryFileA, 整数型, "shell32.dll", "DragQueryFileA"
    
24.     .参数 hDrop, 整数型
    
25.     .参数 iFile, 整数型
    
26.     .参数 lpszFile, 文本型
    
27.     .参数 cch, 整数型
    
28. 
    
29. .DLL命令 lstrcpyn_字节集, 整数型, "kernel32.dll", "lstrcpyn", 公开, 字节集
    
30.     .参数 欲取其指针, 字节集, 传址
    
31.     .参数 欲取其指针, 字节集, 传址
    
32.     .参数 保留, 整数型, , 0
    
33. 
    
34. .DLL命令 取对象属性_, 整数型, "gdi32", "GetObjectA"
    
35.     .参数 对象句柄, 整数型
    
36.     .参数 数据尺寸, 整数型
    
37.     .参数 属性, 位图结构_
    
38. 
    
39. .DLL命令 GetDC, 整数型
    
40.     .参数 hWnd, 整数型
    
41. 
    
42. .DLL命令 CreateCompatibleDC, 整数型
    
43.     .参数 hdc, 整数型
    
44. 
    
45. .DLL命令 GlobalAlloc, 整数型, "kernel32", "GlobalAlloc", , 在堆中分配内存　
    
46.     .参数 wFlags, 整数型
    
47.     .参数 dwBytes, 整数型
    
48. 
    
49. .DLL命令 GetDIBits, 整数型, "gdi32", "GetDIBits", , 将来自一幅位图的二进制位复制到一幅与设备无关的位图里　非零表示成功，零表示失败。在Windows 95中，返回值是返回的扫描线数量
    
50.     .参数 aHDC, 整数型, , 定义了与设备有关位图hBitmap的配置信息的一个设备场景的句柄
    
51.     .参数 hBitmap, 整数型, , 源位图的句柄。绝对不能将这幅位图选入设备场景
    
52.     .参数 nStartScan, 整数型, , 欲复制到DIB中的第一条扫描线的编号
    
53.     .参数 nNumScans, 整数型, , 欲复制的扫描线数量
    
54.     .参数 lpBits, 整数型, , 指向一个缓冲区的指针。这个缓冲区将用于装载采用DIB格式的信息，但不取回数据（用ByVal传递零值）
    
55.     .参数 lpBI, BITMAPINFOHEADER, , BITMAPINFO，对lpBits DIB的格式及颜色进行说明的一个结构。在BITMAPINFOHEADER结构中，从biSize到biCompression之间的所有字段都必须初始化
    
56.     .参数 wUsage, 整数型, , 下述常数之一：;DIB_PAL_COLORS：在颜色表中装载一个16位所以数组，它们与当前选定的调色板有关;DIB_RGB_COLORS：在颜色表中装载RGB颜色;  
    
57. 
    
58. .DLL命令 VirtualAlloc, 整数型, "kernel32", "VirtualAlloc", , 保留虚拟页　
    
59.     .参数 lpAddress, 整数型
    
60.     .参数 dwSize, 整数型
    
61.     .参数 flAllocationType, 整数型
    
62.     .参数 flProtect, 整数型
    
63. 
    
64. .DLL命令 VirtualFree, 整数型, "kernel32", "VirtualFree", , 释放虚拟页　
    
65.     .参数 lpAddress, 整数型
    
66.     .参数 dwSize, 整数型
    
67.     .参数 dwFreeType, 整数型
    
68. 
    
69. .DLL命令 拷贝内存_位图数据, , "kernel32.dll", "RtlMoveMemory", , 　
    
70.     .参数 pBlock, 整数型
    
71.     .参数 缓冲区, 整数型
    
72.     .参数 尺寸, 整数型
    
73. 
    
74. .DLL命令 拷贝内存_位图文件头, , "kernel32.dll", "RtlMoveMemory", , 　
    
75.     .参数 pBlock, 整数型
    
76.     .参数 缓冲区, BITMAPFILEHEADER
    
77.     .参数 尺寸, 整数型
    
78. 
    
79. .DLL命令 拷贝内存_位图信息头, , "kernel32.dll", "RtlMoveMemory", , 　
    
80.     .参数 pBlock, 整数型
    
81.     .参数 缓冲区, BITMAPINFOHEADER
    
82.     .参数 尺寸, 整数型
    
83. 
    
84. .DLL命令 DeleteDC, 逻辑型
    
85.     .参数 hdc, 整数型
    

复制代码

xinyuan2200

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 窗口程序集_窗口1
   
5. 
   
6. .子程序 _图片框1_鼠标右键被放开, 逻辑型
   
7. .参数 横向位置, 整数型
   
8. .参数 纵向位置, 整数型
   
9. .参数 功能键状态, 整数型
   
10. .局部变量 局_类型, 整数型
    
11. .局部变量 局_文件列表, 文本型, , "0"
    
12. .局部变量 局_图片路径, 文本型
    
13. .局部变量 局_图片字节集, 字节集
    
14. 
    
15. 局_类型 ＝ 剪辑板_取类型 (取窗口句柄 ())
    
16. 调试输出 (局_类型)
    
17. 局_图片路径 ＝ “”
    
18. 局_图片字节集 ＝ {  }
    
19. .判断开始 (局_类型 ＝ 15)  ' 复制的文件列表
    
20.     .如果真 (剪辑板_取复制文件列表 (取窗口句柄 (), 局_文件列表) ＞ 0)
    
21.         局_图片路径 ＝ 局_文件列表 [1]
    
22.     .如果真结束
    
23. 
    
24. .判断 (局_类型 ＝ 49161)  ' QQ聊天框复制的消息
    
25.     局_图片路径 ＝ 剪辑板_取QQ复制图片路径 (取窗口句柄 ())
    
26. .判断 (局_类型 ＝ 8)  ' QQ聊天框复制的消息
    
27.     局_图片字节集 ＝ 剪辑板_取图片 (取窗口句柄 ())
    
28. .默认
    
29.     信息框 (“不支持复制该方式复制的图片”, #信息图标, “提示”, )
    
30.     返回 ()
    
31. .判断结束
    
32. 
    
33. .如果真 (局_图片路径 ≠ “”)
    
34.     局_图片字节集 ＝ 读入文件 (局_图片路径)
    
35. .如果真结束
    
36. 图片框1.图片 ＝ 局_图片字节集
    

复制代码

xinyuan2200

之前是取QQ窗口，能改成取任意窗口或者取复制到的文件吗？