MYSQL服务一键卸载

VB一键卸载MYSQL服务 部分代码展示 VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3090 ScaleWidth = 4680 StartUpPosition = 3 ' ;窗口缺省 End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Form_Load() Dim path As String path = App.path Shell ("net stop mysql") Shell ("""" & path & "\mysql\bin\mysqld"" -remove") Unload Me End Sub ;窗口缺省 End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Form_Load() Dim path As String path = App.path Shell ("net stop mysql") Shell ("""" & path & "\mysql\bin\mysqld"" -remove") Unload Me End Sub