hi
i am making a program and 1 of the featers is to see what programs are starting up with windows
the program can now read all programs in the startup map but not all programs that start with windows are in there
the key with the startup programs is HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services (that is what i found somewhere)
but i dont know how i can make the program read the key and put the names of the programs in a richtextbox
my program can also detect the antivirus but not if it is on or of
this is the code i use now:
i want it to look like a dds log like this:
AV: COMODO Antivirus *Disabled/Updated* {B74CC7D2-B407-E1DC-1033-DD315BCDC8C8}
SP: Windows Defender *Disabled/Updated* {D68DDC3A-831F-4fae-9E44-DA132C1ACF46}
SP: COMODO Antivirus *Disabled/Updated* {0C2D2636-923D-EE52-2A83-E643204A8275}
FW: COMODO Firewall *Enabled* {8F7746F7-FE68-E084-3B6C-7404A51E8FB3}
does someone know a way to do that?
i am making a program and 1 of the featers is to see what programs are starting up with windows
the program can now read all programs in the startup map but not all programs that start with windows are in there
the key with the startup programs is HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services (that is what i found somewhere)
but i dont know how i can make the program read the key and put the names of the programs in a richtextbox
my program can also detect the antivirus but not if it is on or of
this is the code i use now:
Code:
Dim strcomputer As String = String.Empty
Dim wmins As String = String.Empty
Dim wmiquery As String = String.Empty
Dim objwmiservice As Object
Dim colitems As Object
Dim objitem As Object
Dim strsb As New StringBuilder
Try
If strsystem = System.Environment.MachineName Then
strcomputer = "."
Else
strcomputer = strsystem
End If
wmins = "/root/securitycenter2"
wmiquery = "select * from antivirusproduct"
objwmiservice = GetObject("winmgmts:\\" & strcomputer & wmins)
colitems = objwmiservice.execquery(wmiquery)
For Each objitem In colitems
Try
strsb.AppendLine(objitem.displayname.ToString)
Catch ex As Exception
strsb.AppendLine("??" & vbTab & vbTab & vbTab & "??")
End Try
Next
Catch ex As Exception
MsgBox("error!")
End Try
Return strsb.ToStringAV: COMODO Antivirus *Disabled/Updated* {B74CC7D2-B407-E1DC-1033-DD315BCDC8C8}
SP: Windows Defender *Disabled/Updated* {D68DDC3A-831F-4fae-9E44-DA132C1ACF46}
SP: COMODO Antivirus *Disabled/Updated* {0C2D2636-923D-EE52-2A83-E643204A8275}
FW: COMODO Firewall *Enabled* {8F7746F7-FE68-E084-3B6C-7404A51E8FB3}
does someone know a way to do that?