窗口小工具脚本源码

运行环境：分辨率：1280×800 色深：16位 操作系统：Microsoft Windows XP 按键精灵版本：9.20.10818

@pengyue212    2012/3/2

DimEnv hwnd,sText,sClass,RtColor,ux,uy,ux2,uy2,sRect,sRect2,x_env,y_env，ScreenW，ScreenH，Dev   Event Form1.Timer1.Timer       hwnd = Plugin.Window.MousePoint()          sText = Plugin.Window.GetText(Hwnd)       sClass = Plugin.Window.GetClass(Hwnd)       Form1.InputBox1.text = stext       Form1.InputBox2.text = hwnd       Form1.InputBox3.text = sClass       GetCursorPos x, y       x_env = x:y_env = y       RtColor=Plugin.Color.GetPixelColor(x,y,0)       Form1.InputBox4.text = "【BGR】"&RtColor       Form1.InputBox5.text = x&","&y          sRect = Plugin.Window.GetClientRect(Hwnd)       aa = split(sRect, "|")       ux = aa(0) : uy = aa(1)          Form1.Label18.Caption = aa(0) & "," & aa(1)       Form1.Label19.Caption = aa(2) & "," & aa(3)       Form1.Label21.Caption = aa(2) - aa(0) & " X " & aa(3) - aa(1)               Form1.InputBox6.text = x - ux & "," & y - uy       sRect2 = Plugin.Window.GetwindowRect(Hwnd)       aa2 = split(sRect2, "|")       ux2 = aa2(0) : uy2 = aa2(1)       Form1.Label12.Caption = aa2(0) & "," & aa2(1)       Form1.Label13.Caption = aa2(2) & "," & aa2(3)       Form1.Label15.Caption = aa2(2)-aa2(0)&" X "&aa2(3)-aa2(1)       Form1.InputBox7.text = x - ux2 & "," & y - uy2       ScreenW = Plugin.Sys.GetScRX()       ScreenH = Plugin.Sys.GetScRY()       Dev = Plugin.Sys.GetScDep()       Form1.Label22.Caption = "分辨率："&ScreenW & " X " & ScreenH & vblf&"颜色质量："&Dev    End Event   Event Form1.Load       form1.Timer1.Enabled = false       form1.timer1.Interval = 100       form1.timer2.Interval = 100   End Event   Event Form1.Timer2.Timer       Form1.Label9.Caption = "欢迎使用沧海制作的小工具!"&vblf&"现在时间为："&now       aj = GetLastKey()       If aj = 17 Then            If i mod 2 = 0 Then                form1.Timer1.Enabled = true               i=i+1           Else                form1.Timer1.Enabled = false               i=i+1           End If         End If     End Event   Event Form1.InputBox1.GotFocus       Call Plugin.Sys.SetCLB(sText)   End Event   Event Form1.InputBox2.GotFocus       Call Plugin.Sys.SetCLB(hwnd)   End Event   Event Form1.InputBox3.GotFocus       Call Plugin.Sys.SetCLB(sClass)   End Event   Event Form1.InputBox4.GotFocus       Call Plugin.Sys.SetCLB(RtColor)   End Event   Event Form1.InputBox5.GotFocus       Call Plugin.Sys.SetCLB(x_env&","&y_env)   End Event   Event Form1.InputBox7.GotFocus       Call Plugin.Sys.SetCLB(x_env - ux2 & "," & y_env - uy2)   End Event   Event Form1.InputBox6.GotFocus       Call Plugin.Sys.SetCLB(x_env - ux & "," & y_env - uy)   End Event   Event Form1.Label12.Click       Call Plugin.Sys.SetCLB(split(sRect2, "|")(0) & "," & split(sRect2, "|")(1))   End Event   Event Form1.Label13.Click       Call Plugin.Sys.SetCLB(split(sRect2, "|")(2) & "," & split(sRect2, "|")(3))   End Event   Event Form1.Label15.Click       Call Plugin.Sys.SetCLB(split(sRect2, "|")(2)-split(sRect2, "|")(0) & "," & split(sRect2, "|")(3)-split(sRect2, "|")(1))   End Event      Event Form1.Label18.Click       Call Plugin.Sys.SetCLB(split(sRect, "|")(0) & "," & split(sRect, "|")(1))   End Event   Event Form1.Label19.Click       Call Plugin.Sys.SetCLB(split(sRect, "|")(2) & "," & split(sRect, "|")(3))   End Event   Event Form1.Label21.Click       Call Plugin.Sys.SetCLB(split(sRect, "|")(2)-split(sRect, "|")(0) & "," & split(sRect, "|")(3)-split(sRect, "|")(1))   End Event   Event Form1.Label22.Click       Call Plugin.Sys.SetCLB("分辨率："&ScreenW & " X " & ScreenH & vblf&"颜色质量："&Dev)    End Event