dll示例1.sbs

来自「SPSS的实战介绍」· SBS 代码 · 共 18 行

Declare Function GetActiveWindow& Lib "user32" ()
Declare Function GetWindowTextLength& Lib "user32" _
    (ByVal hwnd&)
Declare Sub GetWindowText Lib "user32" _
    (ByVal hwnd&, ByVal lpsz$, ByVal cbMax&)

Function ActiveWindowTitle$()
    ActiveWindow = GetActiveWindow()
    TitleLen = GetWindowTextLength(ActiveWindow)
    Title$ = Space$(TitleLen)
    GetWindowText ActiveWindow,Title$,TitleLen+1
    ActiveWindowTitle$ = Title$
End Function

Sub Main
    Debug.Print ActiveWindowTitle$()
End Sub