实例代码:
‘声明FindWindow方法,调用user32.dll中的FindWindowA函数
Extern.Declare.micHwnd,"FindWindow","user32.dll","FindWindowA",micString,micString
‘声明SetWindowText方法
Extern.Declare miclog,"SetWindowText","user32.dll","SetWindowTextA",micHwnd,micString
‘获取记事本的窗口的句柄
hwnd = Extern.FindWindow("Notepad",vbNullString)
If hwnd = 0 Then
MsgBox"未能找到记事本窗口"
End If
‘改变记事本窗口的标题
res = Extern.SetWindowText(hwnd,"Hello
world")
问题:
时间: 2025-01-18 01:05:03