Dim loca_chek = Microsoft.Win32.Registry.LocalMachine Dim run_Check = loca_chek.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run") If (run_Check.GetValue("你设置的注册表名字") Is Nothing OrElse run_Check.GetValue("你程序的路径").ToString().ToLower() <> "你程序的路径") msgbox("不是自启动") Else msgbox("是自启动") End If
|