[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2014-9-28 14:17 | 只看该作者

[原创] VBS 调用API函数Beep唱一曲《周杰伦-回到过去》

半原创，很多代码参考了百度VBS贴吧。
  1. Option Explicit

  2. 

  3. ' 获取 Excel 对象

  4. Dim oExcel, oBook

  5. Set oExcel = Excel_Init

  6. Set oBook = oExcel.ActiveWorkbook

  7. 

  8. '提示非台式机用户选择是否继续

  9. If LCase(ChassisType()) <> LCase("Desktop") Then

  10.   If CreateObject("WScript.Shell").Popup(_

  11.     "你的电脑不是台式机(桌面计算机)，将会导致扬声器发出较大的噪声，请注意调小音量！" & VbCrLf & VbCrLf & _

  12.     "退出程序，请按“确定”，否则请按“取消”。(7秒后自动取消)", 7, "警告", 48+4096+1) = 1 Then

  13.     WScript.Quit

  14.   End If

  15. End If

  16. 

  17. '内存报警实例

  18. CreateObject("WScript.Shell").Popup "稍等2秒，即将播放BIOS内存报警声……　　　" , 2, "提示", 64+4096+0

  19. Beep 880, 600: Sleep 200  '內存

  20. Beep 880, 200: Sleep 200

  21. Beep 880, 200: Sleep 200

  22. 

  23. '//do~si 节奏数据来自VBS吧

  24. CreateObject("WScript.Shell").Popup "稍等2秒，即将播放so~si音阶……　　　　　" , 2, "提示", 64+4096+0

  25. playsnd 440, 100

  26. playsnd 494, 100

  27. playsnd 554, 100

  28. playsnd 622, 100

  29. playsnd 698, 100

  30. playsnd 784, 100

  31. playsnd 880, 100 

  32. 

  33. '//周杰伦的回到过去 节奏数据来自VBS吧

  34. CreateObject("WScript.Shell").Popup "稍等2秒，即将播放《周杰伦-回到过去》……" , 2, "提示", 64+4096+0

  35. playsnd 587, 100: playsnd 784, 100: playsnd 880, 100: playsnd 988, 100:: playsnd 988, 200: playsnd 0, 100

  36. playsnd 988, 100: playsnd 880, 100: playsnd 988, 100: playsnd 1047, 200: playsnd 988, 100: playsnd 988, 100

  37. playsnd 880, 100: playsnd 100, 150: playsnd 880, 100: playsnd 784, 100:: playsnd 988, 100: playsnd 0, (5)

  38. playsnd 988, 100: playsnd 0, (5)::: playsnd 988, 100: playsnd 0, (5):::: playsnd 988, 100: playsnd 880, 100

  39. playsnd 784, 100: playsnd 740, 100: playsnd 784, 200: playsnd 100, 200:: playsnd 784, 100: playsnd 880, 100

  40. playsnd 784, 100: playsnd 988, 100: playsnd 0, (5)::: playsnd 988, 100:: playsnd 0, (5)::: playsnd 988, 100

  41. playsnd 0, (5)::: playsnd 988, 100: playsnd 100, 100: playsnd 587, 100:: playsnd 784, 100: playsnd 1175, 100

  42. playsnd 0, (5)::: playsnd 1175, 99: playsnd 988, 100: playsnd 0, (5):::: playsnd 988, 100: playsnd 0, (5)

  43. playsnd 987, 100: playsnd 100, 100: playsnd 784, 100: playsnd 0, (5):::: playsnd 784, 100: playsnd 880, 200

  44. playsnd 784, 100: playsnd 0, (5)::: playsnd 784, 100: playsnd 0, (5):::: playsnd 784, 50:: playsnd 659, (50)

  45. playsnd 784, 100: playsnd 659, 100: playsnd 784, 100: playsnd 880, 100:: playsnd 100, 100: playsnd 587, 110

  46. playsnd 784, 120: playsnd 880, 130: playsnd 740, 140: playsnd 784, 200:: playsnd 1, 1::::: playsnd 1, 1 

  47. 

  48. 

  49. ' 关闭 Excel 

  50. Excel_Quit

  51. WScript.Quit

  52. 

  53. 

  54. Function Excel_Init()

  55.   Dim WshShell

  56.   Dim oExcel, oBook, oModule

  57.   Dim strRegKey, strCode

  58.   Set oExcel = CreateObject("Excel.Application")

  59.   set WshShell = CreateObject("WScript.Shell")

  60.   strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM"

  61.   strRegKey = Replace(strRegKey, "$", oExcel.Version)

  62.   WshShell.RegWrite strRegKey, 1, "REG_DWORD"

  63.   Set oBook = oExcel.Workbooks.Add

  64.   Set oModule = obook.VBProject.VBComponents.Add(1)

  65.   strCode = _

  66.   "Declare Sub Beep Lib ""kernel32"" (ByVal fre As Long, ByVal ms As Long)" & vbCr & _

  67.   "Declare Sub Sleep Lib ""kernel32"" (ByVal ms As Long)"

  68.   oModule.CodeModule.AddFromString strCode

  69.   Set Excel_Init = oExcel

  70. End Function

  71. 

  72. Function playsnd(ByVal x, ByVal y)

  73.   Beep x, y * 3

  74. End Function

  75. 

  76. Sub Beep(fre,ms)

  77.   oExcel.Run "Beep",fre,ms

  78. End Sub

  79. 

  80. Sub Sleep(ms)

  81.   oExcel.Run "Sleep",ms

  82. End Sub

  83. 

  84. Function Excel_Quit()

  85.   oExcel.DisplayAlerts = False

  86.   'oBook.Close

  87.   oExcel.ActiveWorkbook.Close

  88.   oExcel.Quit

  89. End Function

  90. 

  91. 

  92. '判断计算机类型，只允许台式机发声(笔记本会使用扬声器发声，声音太刺耳)

  93. Function ChassisType()

  94.   Dim strComputer, objWMIService, colChassis, objChassis, strChassisType

  95.   strComputer = "."

  96.   Set objWMIService = GetObject("winmgmts:" _

  97.               & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

  98.   Set colChassis = objWMIService.ExecQuery _

  99.               ("Select * from Win32_SystemEnclosure")

  100.   For Each objChassis in colChassis

  101.     For Each strChassisType in objChassis.ChassisTypes

  102.       Select Case strChassisType

  103.         Case 1

  104.           ChassisType = "Other"

  105.         Case 2

  106.           ChassisType = "Unknown"

  107.         Case 3

  108.           ChassisType = "Desktop"

  109.         Case 4

  110.           ChassisType = "Low Profile Desktop"

  111.         Case 5

  112.           ChassisType = "Pizza Box"

  113.         Case 6

  114.           ChassisType = "Mini Tower"

  115.         Case 7

  116.           ChassisType = "Tower"

  117.         Case 8

  118.           ChassisType = "Portable"

  119.         Case 9

  120.           ChassisType = "Laptop"

  121.         Case 10

  122.           ChassisType = "Notebook"

  123.         Case 11

  124.           ChassisType = "Handheld"

  125.         Case 12

  126.           ChassisType = "Docking Station"

  127.         Case 13

  128.           ChassisType = "All-in-One"

  129.         Case 14

  130.           ChassisType = "Sub-Notebook"

  131.         Case 15

  132.           ChassisType = "Space Saving"

  133.         Case 16

  134.           ChassisType = "Lunch Box"

  135.         Case 17

  136.           ChassisType = "Main System Chassis"

  137.         Case 18

  138.           ChassisType = "Expansion Chassis"

  139.         Case 19

  140.           ChassisType = "Sub-Chassis"

  141.         Case 20

  142.           ChassisType = "Bus Expansion Chassis"

  143.         Case 21

  144.           ChassisType = "Peripheral Chassis"

  145.         Case 22

  146.           ChassisType = "Storage Chassis"

  147.         Case 23

  148.           ChassisType = "Rack Mount Chassis"

  149.         Case 24

  150.           ChassisType = "Sealed-Case PC"

  151.         Case Else

  152.           ChassisType = "Unknown"

  153.       End Select

  154.     Next

  155.   Next

  156. End Function
复制代码
收藏 分享
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
4楼
发表于 2014-9-28 15:25 | 只看该作者
回复 3# DAIC
不懂啊，请指教。
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

DAIC

Rank: 8Rank: 8

帖子
2874 
积分
7021 
技术
336  
捐助
0  
注册时间
2011-6-2 
3楼
发表于 2014-9-28 15:01 | 只看该作者
来一曲小苹果吧
sed.exe  gawk.exe  grep.exe  下载地址

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
2楼
发表于 2014-9-28 14:18 | 只看该作者
VBS演奏UN (Beep())
http://tieba.baidu.com/p/1245891339
  1. Option Explicit

  2. Dim WshShell

  3. Dim oExcel, oBook, oModule

  4. Dim strRegKey, strCode

  5. Set oExcel = CreateObject("Excel.Application")

  6. set WshShell = CreateObject("wscript.Shell")

  7. strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM"

  8. strRegKey = Replace(strRegKey, "$", oExcel.Version)

  9. WshShell.RegWrite strRegKey, 1, "REG_DWORD"

  10. Set oBook = oExcel.Workbooks.Add

  11. Set oModule = obook.VBProject.VBComponents.Add(1)

  12. strCode = _

  13. "Declare Sub Beep Lib ""kernel32"" (ByVal fre As Long, ByVal ms As Long)" & vbCr & _

  14. "Declare Sub Sleep Lib ""kernel32"" (ByVal ms As Long)"

  15. oModule.CodeModule.AddFromString strCode

  16. Beep 587, 88: Sleep 20

  17. Beep 494, 88: Sleep 20

  18. Beep 349, 88: Sleep 20

  19. Beep 587, 88: Sleep 20

  20. Beep 494, 88: Sleep 20

  21. Beep 349, 88: Sleep 20

  22. Beep 587, 88: Sleep 20

  23. Beep 494, 88: Sleep 20

  24. Beep 349, 88: Sleep 20

  25. Beep 523, 195: Sleep 20

  26. Beep 523, 195: Sleep 20

  27. Beep 523, 195: Sleep 20

  28. Beep 587, 88: Sleep 20

  29. Beep 494, 88: Sleep 20

  30. Beep 349, 88: Sleep 20

  31. Beep 587, 88: Sleep 20

  32. Beep 494, 88: Sleep 20

  33. Beep 349, 88: Sleep 20

  34. Beep 587, 88: Sleep 20

  35. Beep 494, 88: Sleep 20

  36. Beep 349, 88: Sleep 20

  37. Beep 659, 195: Sleep 20

  38. Beep 659, 195: Sleep 20

  39. Beep 659, 195: Sleep 20

  40. Beep 587, 88: Sleep 20

  41. Beep 494, 88: Sleep 20

  42. Beep 349, 88: Sleep 20

  43. Beep 587, 88: Sleep 20

  44. Beep 494, 88: Sleep 20

  45. Beep 349, 88: Sleep 20

  46. Beep 587, 88: Sleep 20

  47. Beep 494, 88: Sleep 20

  48. Beep 349, 88: Sleep 20

  49. Beep 523, 195: Sleep 20

  50. Beep 523, 195: Sleep 20

  51. Beep 523, 195: Sleep 20

  52. Beep 587, 88: Sleep 20

  53. Beep 494, 88: Sleep 20

  54. Beep 349, 88: Sleep 20

  55. Beep 587, 88: Sleep 20

  56. Beep 494, 88: Sleep 20

  57. Beep 349, 88: Sleep 20

  58. Beep 587, 88: Sleep 20

  59. Beep 494, 88: Sleep 20

  60. Beep 349, 88: Sleep 20

  61. Beep 659, 195: Sleep 20

  62. Beep 659, 195: Sleep 20

  63. Beep 659, 195: Sleep 20

  64. Beep 587, 410: Sleep 20

  65. Beep 494, 410: Sleep 20

  66. Beep 523, 410: Sleep 20

  67. Beep 440, 410: Sleep 20

  68. Beep 659, 410: Sleep 20

  69. Beep 523, 410: Sleep 20

  70. Beep 494, 410: Sleep 20

  71. Beep 587, 410: Sleep 20

  72. Beep 587, 410: Sleep 20

  73. Beep 494, 410: Sleep 20

  74. Beep 523, 410: Sleep 20

  75. Beep 440, 410: Sleep 20

  76. Beep 659, 410: Sleep 20

  77. Beep 523, 410: Sleep 20

  78. Beep 494, 820: Sleep 20

  79. Beep 587, 410: Sleep 20

  80. Beep 494, 410: Sleep 20

  81. Beep 523, 410: Sleep 20

  82. Beep 440, 410: Sleep 20

  83. Beep 659, 410: Sleep 20

  84. Beep 523, 410: Sleep 20

  85. Beep 494, 410: Sleep 20

  86. Beep 587, 410: Sleep 20

  87. Beep 587, 410: Sleep 20

  88. Beep 494, 410: Sleep 20

  89. Beep 523, 410: Sleep 20

  90. Beep 440, 410: Sleep 20

  91. Beep 659, 410: Sleep 20

  92. Beep 523, 410: Sleep 20

  93. Beep 494, 820: Sleep 20

  94. Beep 440, 410: Sleep 20

  95. Beep 659, 410: Sleep 20

  96. Beep 494, 410: Sleep 20

  97. Beep 659, 410: Sleep 20

  98. Beep 523, 410: Sleep 20

  99. Beep 587, 195: Sleep 20

  100. Beep 659, 195: Sleep 20

  101. Beep 587, 410: Sleep 20

  102. Beep 784, 410: Sleep 20

  103. Beep 880, 195: Sleep 20

  104. Beep 659, 195: Sleep 20

  105. Beep 988, 195: Sleep 20

  106. Beep 1047, 195: Sleep 20

  107. Beep 988, 195: Sleep 20

  108. Beep 1047, 88: Sleep 20

  109. Beep 988, 88: Sleep 20

  110. Beep 880, 195: Sleep 20

  111. Beep 784, 195: Sleep 20

  112. Beep 659, 195: Sleep 20

  113. Beep 784, 195: Sleep 20

  114. Beep 587, 195: Sleep 20

  115. Beep 659, 195: Sleep 20

  116. Beep 523, 410: Sleep 450

  117. Beep 440, 410: Sleep 20

  118. Beep 659, 410: Sleep 20

  119. Beep 494, 410: Sleep 20

  120. Beep 659, 410: Sleep 20

  121. Beep 523, 410: Sleep 20

  122. Beep 587, 195: Sleep 20

  123. Beep 659, 195: Sleep 20

  124. Beep 587, 410: Sleep 20

  125. Beep 784, 410: Sleep 20

  126. Beep 880, 195: Sleep 20

  127. Beep 659, 195: Sleep 20

  128. Beep 988, 195: Sleep 20

  129. Beep 1047, 195: Sleep 20

  130. Beep 988, 195: Sleep 20

  131. Beep 1047, 88: Sleep 20

  132. Beep 988, 88: Sleep 20

  133. Beep 880, 195: Sleep 20

  134. Beep 784, 195: Sleep 20

  135. Beep 880, 840: Sleep 20

  136. Beep 440, 410: Sleep 20

  137. Beep 659, 410: Sleep 20

  138. Beep 494, 410: Sleep 20

  139. Beep 659, 410: Sleep 20

  140. Beep 523, 410: Sleep 20

  141. Beep 587, 195: Sleep 20

  142. Beep 659, 195: Sleep 20

  143. Beep 587, 410: Sleep 20

  144. Beep 784, 410: Sleep 20

  145. Beep 880, 195: Sleep 20

  146. Beep 659, 195: Sleep 20

  147. Beep 988, 195: Sleep 20

  148. Beep 1047, 195: Sleep 20

  149. Beep 988, 195: Sleep 20

  150. Beep 1047, 88: Sleep 20

  151. Beep 988, 88: Sleep 20

  152. Beep 880, 195: Sleep 20

  153. Beep 784, 195: Sleep 20

  154. Beep 659, 195: Sleep 20

  155. Beep 784, 195: Sleep 20

  156. Beep 587, 195: Sleep 20

  157. Beep 659, 195: Sleep 20

  158. Beep 523, 410: Sleep 450

  159. Beep 440, 410: Sleep 20

  160. Beep 659, 410: Sleep 20

  161. Beep 494, 410: Sleep 20

  162. Beep 659, 410: Sleep 20

  163. Beep 523, 410: Sleep 20

  164. Beep 587, 195: Sleep 20

  165. Beep 659, 195: Sleep 20

  166. Beep 587, 410: Sleep 20

  167. Beep 784, 410: Sleep 20

  168. Beep 880, 195: Sleep 20

  169. Beep 659, 195: Sleep 20

  170. Beep 988, 195: Sleep 20

  171. Beep 1047, 195: Sleep 20

  172. Beep 988, 195: Sleep 20

  173. Beep 1047, 88: Sleep 20

  174. Beep 988, 88: Sleep 20

  175. Beep 880, 195: Sleep 20

  176. Beep 784, 195: Sleep 20

  177. Beep 880, 840: Sleep 20

  178. Sub Beep(fre,ms)

  179. oExcel.Run "Beep",fre,ms

  180. End Sub

  181. Sub Sleep(ms)

  182. oExcel.Run "Sleep",ms

  183. End Sub

  184. oExcel.DisplayAlerts = False

  185. oBook.Close

  186. oExcel.Quit
复制代码
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

返回列表