大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
My.Computer.Audio.Play("SoundFile.wav")
目前创新互联已为数千家的企业提供了网站建设、域名、网站空间、网站改版维护、企业网站设计、灞桥网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
SoundFile.wav是你要播放的声音文件的路径
Imports System
Imports System.Management
Module Module1
Public Sub Main()
Dim service As ManagementObject = New ManagementObject( "win32_service=""winmgmt""")
Dim options As InvokeMethodOptions = New InvokeMethodOptions
options.Timeout = New TimeSpan(0, 0, 0 , 5)
Dim outParams As ManagementBaseObject = service.InvokeMethod("StopService" , Nothing, options)
Console.WriteLine("状态:" outParams("Returnvalue"))
End Sub
End Module
shell调用sc
禁用服务
sc config 服务名 start= Disabled/Enable
或者
Shell "net stop 服务名", vbHide
编译前可以点三角继续运行,编译时可能会提示错误,如果能编译过,它在编译后的程序中不起作用。