窗口小工具脚本源码

窗口小工具脚本源码

运行环境：分辨率：1280x800 色深：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