有什么高难度的VBA需求，尽管冲我来-我的小助手ChatGPT将尽快帮助你

lss001

………………

chis3

試試網抓如何?
有些網很難抓到關鍵cookie, 不知道ai 會否知道一些奇怪方法一直沒人知道的能實現

c13222131862

在中国，个人用不来ChatGPT吧？好多上的方法，这几天都渐渐地被封了。谁有啥能上的方法？

ivccav

c13222131862 发表于 2023-2-5 14:33
在中国，个人用不来ChatGPT吧？好多上的方法，这几天都渐渐地被封了。谁有啥能上的方法？

正常操作是用不了的。能用的方法都是非法的。后续期待某度吧

qlmgu

学习了，将来是否会出现AI vba

smsn

难的在于给ai描述需求

hnsd24

lss001 发表于 2023-2-5 13:22
chatgpt能否提供以下方案
设置获取系统音量＜包括静音＞

您可以使用Windows API函数"waveOutGetVolume"和"waveOutSetVolume"来实现在VBA中获取和设置电脑系统音量。

首先，请在模块中添加以下声明：

Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal hwo As Long, _
ByRef dwVolume As Long) As Long

Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal hwo As Long, _
ByVal dwVolume As Long) As Long

然后，您可以使用以下代码获取系统音量：

Dim Volume As Long
Call waveOutGetVolume(0, Volume)

设置静音，您可以这样做：

Call waveOutSetVolume(0, &HFFFFFFFF)

请注意，在设置音量时，dwVolume参数是一个位域值，因此请确保左移左声道音量并右移右声道音量。

hnsd24

lss001 发表于 2023-2-5 13:22
chatgpt能否提供以下方案
设置获取系统音量＜包括静音＞

您可以使用Windows API函数"waveOutGetVolume"和"waveOutSetVolume"来实现在VBA中获取和设置电脑系统音量。

首先，请在模块中添加以下声明：

Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal hwo As Long, _
ByRef dwVolume As Long) As Long

Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal hwo As Long, _
ByVal dwVolume As Long) As Long

然后，您可以使用以下代码获取系统音量：

Dim Volume As Long
Call waveOutGetVolume(0, Volume)

设置静音，您可以这样做：

Call waveOutSetVolume(0, &HFFFFFFFF)

请注意，在设置音量时，dwVolume参数是一个位域值，因此请确保左移左声道音量并右移右声道音量。

hnsd24

lss001 发表于 2023-2-5 13:22
chatgpt能否提供以下方案
设置获取系统音量＜包括静音＞

您可以使用Windows API函数"waveOutGetVolume"和"waveOutSetVolume"来实现在VBA中获取和设置电脑系统音量。

首先，请在模块中添加以下声明：

Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal hwo As Long, _
ByRef dwVolume As Long) As Long

Private Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal hwo As Long, _
ByVal dwVolume As Long) As Long

然后，您可以使用以下代码获取系统音量：

Dim Volume As Long
Call waveOutGetVolume(0, Volume)

设置静音，您可以这样做：

Call waveOutSetVolume(0, &HFFFFFFFF)

请注意，在设置音量时，dwVolume参数是一个位域值，因此请确保左移左声道音量并右移右声道音量。

lss001

hnsd24 发表于 2023-2-6 10:54
您可以使用Windows API函数"waveOutGetVolume"和"waveOutSetVolume"来实现在VBA中获取和设置电脑系统音量 ...

谢谢提供方案！

测试了一下
并非获取的系统音量，而是Office应用软件音量
设置的也非系统音量，仅是Office应用软件音量