vb 打开360浏览器组合键

shift+ctrl+n键

2025-03-01 03:14:03

推荐回答（1个）

回答1：

'新建窗体，放一个  command1 在上面
'需要声明 3 个 api 函数 findwindow, sleep 和 showwindow

Private Sub Command1_Click()
    Dim hwnd As Long
    
    '知道 Opera 窗口的类名是: OperaWindowClass
    hwnd = FindWindow("OperaWindowClass", vbNullString)
    
     '显示窗口
    ShowWindow hwnd, 1
    
	'延时
    Sleep 1000
    '发送组合键 ctrl+ shift + n
	SendKeys "+^{n}"
End Sub

我的机子上没有装 360,所以用 opera 浏览器做了一个例子：