简单屏幕取词功能 - 按键网资源站

[简单屏幕取词功能]可保存到剪切板

理论支持所有未保护以标题为文字的窗口

这个功能挺简单的,给新手学习,高手可以路过了

Hwnd = Plugin.Window.MousePoint()
If Hwnd<>0 Then
    sText = Plugin.Window.GetText(Hwnd)
    If sText<>"" Then
        Call Plugin.Sys.SetCLB(sText)
        Call 显示提示信息("获取文本:"&sText)
    Else
        Call 显示提示信息("无法获取文本")
    End If
Else
    Call 显示提示信息("无法获取文本")
End If
Sub 显示提示信息(Text)
    ScreenX = Plugin.Sys.GetScRX()
    ScreenY = Plugin.Sys.GetScRY()
    GetCursorPos x, y
    Call Plugin.Msg.ShowScrTXT(x, y, ScreenX, ScreenY, Text, "0000FF")
    Delay 1000
    Call Plugin.Msg.HideScrTXT()
    EndScript
End Sub