VBS 如何抓取屏幕某一点坐标的颜色值？

ecogbc

VBS 如何抓取屏幕某一点坐标颜色？

pcl_test

1. '运行后在屏幕任意位置点击即可
   
2. Set ws = CreateObject("Wscript.Shell")
   
3. Set fso = CreateObject("Scripting.FileSystemObject")
   
4. 
   
5. If LCase(Right(WScript.FullName, 11)) = "wscript.exe" Then
   
6.     ws.run "cscript.exe -nologo """ & WSH.ScriptFullName & """", 0
   
7.     WSH.Quit
   
8. End If
   
9. 
   
10. Set tmp = fso.GetSpecialFolder(2)
    
11. Set systemroot = fso.GetSpecialFolder(0)
    
12. net = systemroot&"\Microsoft.NET\Framework"
    
13. Call CreateCs
    
14. Set SubFolders = fso.GetFolder(net).SubFolders
    
15. For Each Folder In SubFolders
    
16.     If fso.FileExists(Folder&"\csc.exe") Then
    
17.         cscpath = Folder&"\csc.exe"
    
18.         Exit For
    
19.     End If
    
20. Next
    
21. 
    
22. If cscpath = "" Then
    
23.     Msgbox "未安装Microsoft .NET Framework 2.0及以上版本组件或是相关程序缺失！"
    
24.     WSH.Quit
    
25. Else
    
26.     If not fso.FileExists(tmp&"\$GetPixelColor.exe") Then
    
27.         ws.Run cscpath&" /out:"""&tmp&"\$GetPixelColor.exe"" """&tmp&"\$GetPixelColor.cs""", 0, True
    
28.     End If
    
29. End If
    
30. 
    
31. Set oExec = ws.Exec(tmp&"\$GetPixelColor.exe")
    
32. Msgbox oExec.StdOut.ReadAll '结果
    
33. 
    
34. Function CreateCs
    
35.     Set cs = fso.CreateTextFile(tmp&"\$GetPixelColor.cs", 2)
    
36.     cs.Write _
    
37.     "using System;using System.Runtime.InteropServices;using System.Windows.Forms;" & vbCrLf & _
    
38.     "using System.Drawing;using System.Threading;" & vbCrLf & _
    
39.     "public class GetPixelColor {" & vbCrLf & _
    
40.     "   [DllImport(""user32.dll"")]" & vbCrLf & _
    
41.     "   private static extern IntPtr GetDC(IntPtr hwnd);" & vbCrLf & _
    
42.     "   [DllImport(""gdi32.dll"")]" & vbCrLf & _
    
43.     "   private static extern int GetPixel(IntPtr hdc, Point p);" & vbCrLf & _
    
44.     "   public static void Main(string[] args){" & vbCrLf & _
    
45.     "        while (true){if ((Control.MouseButtons & MouseButtons.Left) == MouseButtons.Left){" & vbCrLf & _
    
46.     "           int x = Control.MousePosition.X, y = Control.MousePosition.Y;" & vbCrLf & _
    
47.     "           Point p = new Point(x, y);IntPtr hdc = GetDC(IntPtr.Zero);" & vbCrLf & _
    
48.     "           int c = GetPixel(hdc, p), r = (c & 0xFF);" & vbCrLf & _
    
49.     "           int g = (c & 0xFF00)>>8, b = (c & 0xFF0000)>>16;" & vbCrLf & _
    
50.     "           Console.WriteLine(""X:""+x+"" Y:""+y+""\r\nR:""+r+"" G:""+g+"" B:""+b+""\r\nHTML:""+" & vbCrLf & _
    
51.     "               ColorTranslator.ToHtml(Color.FromArgb(r, g, b))+""\r\nHEX:""+c.ToString(""X6""));break;" & vbCrLf & _
    
52.     "           }Thread.Sleep(100);" & vbCrLf & _
    
53.     "}}}"
    
54. End Function

复制代码

shuaige100

我要点赞快乐咯

segree

牛逼牛逼，怎么这么好的帖子没人顶？