Search Tools Links Login

A+ **Disable Antivirus, Firewall, any service!*** A+


This simple code will disable any service on the local machine, good to use to disable a firewall so your app can access the web to check for pirate serial without the user knowing etc, it will also start a service. To find a servicename goto Control Panel > Administrator Tools > Services..

Original Author: Tomorroware Software

Inputs

The ServiceName of a service you wish to END / START

Assumptions

Service Name!

Returns

Nothing

Side Effects

Disables service, or starts one.

API Declarations

None!

Code

Private Sub Command1_Click()
'stops Norton Antivirus
StopService "Norton Antivirus Auto Protect Service"
End Sub

Private Sub Command2_Click()
'starts antivirus
StartService "Norton Antivirus Auto Protect Service"
End Sub

Sub StopService(ServiceName As String)
a = """" & ServiceName & """"
'uses the NET STOP function to stop the service
Shell "net stop " & a, vbHide
End Sub
Sub StartService(ServiceName As String)
a = """" & ServiceName & """"
'uses the NET START function to start the service
Shell "net start " & a, vbHide
End Sub

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 90 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.