发布网友 发布时间:2022-12-21 23:47
共1个回答
热心网友 时间:2024-09-29 17:28
Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Sub GetHandle() Dim Result As Long Resule = FindWindow(vbNullString, "迅雷看看播放器") '根据窗口标题取得窗体句柄 GetHandle = Result '返回句柄End Sub只是简单写了一下,你可以根据自己的要求改一下