visual basic Como criar um Desativador de Serviços do windows ♥

[[N]ARUTO_ 95]

Primeiramente crie um projeto com :

* 17 CheckBox

* 17 PictureBox

* 1 Button

* 1 Label

[spoiler=Print do Projeto]

 

 

Depois de ter feito o projeto igual a imagem acima vamos para o codigo :

* Dê 2 clique na form e apague tudo e cole esse codigo :

Public Class Form1

 

Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

Shell("net stop WinDefend", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click

Shell("net stop WSearch", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click

Shell("net stop wuauserv", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click

Shell("net stop Spooler", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click

Shell("net stop SCardSvr", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click

Shell("net stop wscsvc", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click

Shell("net stop seclogon", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click

Shell("net stop SensrSvc", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click

Shell("net stop RemoteAccess", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox10_Click(sender As Object, e As EventArgs) Handles PictureBox10.Click

Shell("net stop CryptSvc", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox11_Click(sender As Object, e As EventArgs) Handles PictureBox11.Click

Shell("net stop WerSvc", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click

Shell("net stop MpsSvc", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox13_Click(sender As Object, e As EventArgs) Handles PictureBox13.Click

Shell("net stop stisvc", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox14_Click(sender As Object, e As EventArgs) Handles PictureBox14.Click

Shell("net stop SharedAccess", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox15_Click(sender As Object, e As EventArgs) Handles PictureBox15.Click

Shell("net Stop WbioSrvc", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox16_Click(sender As Object, e As EventArgs) Handles PictureBox16.Click

Shell("net Stop ehSched", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub PictureBox17_Click(sender As Object, e As EventArgs) Handles PictureBox17.Click

Shell("net stop SysMain", AppWinStyle.Hide, True)

MsgBox("Desativado", MsgBoxStyle.Information, "")

End Sub

 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

'---------------------

If CheckBox2.Checked = True Then

Shell("net stop WinDefend", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox3.Checked = True Then

Shell("net stop WSearch", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox4.Checked = True Then

Shell("net stop wuauserv", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox5.Checked = True Then

Shell("net stop Spooler", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox6.Checked = True Then

Shell("net stop SCardSvr", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox7.Checked = True Then

Shell("net stop wscsvc", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox8.Checked = True Then

Shell("net stop seclogon", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox9.Checked = True Then

Shell("net stop SensrSvc", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox10.Checked = True Then

Shell("net stop RemoteAccess", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox11.Checked = True Then

Shell("net stop CryptSvc", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox12.Checked = True Then

Shell("net stop WerSvc", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox13.Checked = True Then

Shell("net stop MpsSvc", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox14.Checked = True Then

Shell("net stop stisvc", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox15.Checked = True Then

Shell("net stop SharedAccess", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox16.Checked = True Then

Shell("net Stop WbioSrvc", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox17.Checked = True Then

Shell("net Stop ehSched", AppWinStyle.Hide, True)

End If

'---------------------

If CheckBox18.Checked = True Then

Shell("net stop SysMain", AppWinStyle.Hide, True)

End If

'---------------------

End Sub

End Class

 

* Depois de fazer tudo isso está pronto seu Desativador de serviços do windows

* Lembrando que esses codigo só está desativando serviços desnecessario.

= > [N]ARUTO :h:

[Incompetech 566]

É um bom tutorial, porem seria meio inútil para alguém desativar as funções básicas do windows, ou seja aquelas que os protegem :v

realmente curti o tutorial, tópico bem explicado e tudo separado direitinho.