strptr

因为只是传了一个字过去而已
StrPtr("无标题 - 画图")只是指向了第一个字符无
StrPtr("无标题 - 画图") + 2指向了第二个字符标
StrPtr("无标题 - 画图") + 4指向了第三个字符题

Declare Function FindWindow& Lib "user32.dll" Alias "FindWindowW" (ByVal lpszClass&, ByVal lpszWindow&)
Sub main()
Dim Hwnd&
Hwnd = FindWindow(0, StrPtr("无标题 - 画图"))
MsgBox Hwnd
End Sub
就可以了

Declare Function FindWindow& Lib "user32.dll" Alias "FindWindowA" (ByVal lpszClass&, ByVal lpszWindow&)
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
Sub main()
Dim Hwnd&
CopyMemory Hwnd, "无标题 - 画图", 4
Hwnd = FindWindow(0, Hwnd)
MsgBox Hwnd
End Sub
也可以