扣子小程序是一个简单有趣的应用程序，它会在屏幕上显示一个圆形按钮，在用户按下按钮后会弹出一个文本框，用户可以在其中输入一些文本，然后单击 OK 按钮以将文本保存到剪贴板中。
现在，我们将向大家介绍如何使用 VBS（VBScript）编写此扣子小程序的代码。
首先，创建一个名为 ButtonProg.vbs 的文件，然后在其中编写以下代码：
```
Option Explicit
Dim oShell, oBtn
' 创建 Shell 对象
Set oShell = CreateObject("WScript.Shell")
' 创建扣子按钮对象
Set oBtn = oShell.CreateShortcut("C:\Button.lnk")
' 设置扣子按钮属性
oBtn.Description = "扣子"
oBtn.IconLocation = "C:\Windows\System32\shell32.dll, 1"
oBtn.TargetPath = "C:\Windows\System32\notepad.exe"
oBtn.Arguments = ""
oBtn.Hotkey = "Ctrl+Alt+B"
oBtn.Save
' 显示扣子按钮
oBtn.WindowStyle = 1
oBtn.ShowMode = 1
oBtn.Save
```
在这个代码中，我们使用了 WScript.Shell 对象创建了一个扣子按钮对象，并将它的属性设置为将它放置在桌面上，这些属性包括它的描述、图标，目标路径（这里我们设置成记事本程序），参数以及热键。最后，我们将设置保存并将扣子按钮显示在屏幕上。
接下来，编辑 ButtonProg.vbs 文件，添加以下代码：
```
' 如果用户单击了扣子按钮
If MsgBox("Do you want to open the input box?", vbYesNo, "Button Program") = vbYes Then
' 创建输入框对象
Dim oInput
Set oInput = oShell.InputBox("Please enter some text:", "Button Program")
' 如果用户输入了内容
If oInput <> "" Then
' 将内容复制到剪贴板
oShell.Run "cmd /c echo " & oInput & "| clip", 0, True
' 显示复制到剪贴板的消息
MsgBox "Text copied to clipboard.", vbInformation, "Button Program"
End If
End If
```
在这个代码中，我们使用 MsgBox 函数再次创建了一个对话框，询问用户是否要打开输入框。如果用户单击“是”按钮，该代码将创建另一个对象——输入框，并让用户输入一些文本。如果用户输入了文本，程序将使用 cmd 命令将其复制到剪贴板中，并在窗口中显示消息。
最后，运行 ButtonProg.vbs 文件，单击“是”按钮以打开输入框，然后输入文本并单击 OK，则文本将被复制到剪贴板中，并且复制到剪贴板的消息将会在屏幕上弹出。
以上就是使用 VBS 编写扣子小程序的代码，信手拈来简便实用。如果您准备深入学习 VBS 或者编程，建议您阅读相关的编程书籍或者网络教程，以获取更深入的了解和掌握。
