My.Computer.Audio.Play("SoundFile.wav")
目前創(chuàng)新互聯(lián)已為數千家的企業(yè)提供了網站建設、域名、網站空間、網站改版維護、企業(yè)網站設計、灞橋網站維護等服務,公司將堅持客戶導向、應用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
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("狀態(tài):" outParams("Returnvalue"))
End Sub
End Module
shell調用sc
禁用服務
sc config 服務名 start= Disabled/Enable
或者
Shell "net stop 服務名", vbHide
編譯前可以點三角繼續(xù)運行,編譯時可能會提示錯誤,如果能編譯過,它在編譯后的程序中不起作用。