VIRUS SCANNER Powered by NoVirusThanks
• Home
• Scan
• Products
• About Us
Scan Report:
Detection rate: 2 on 14 (14%)
Status: INFECTED
Antivirus Engine Result
Asquared
5.1.0.3 Virus.Win32.DelfInject !IK
Avast 5.0 -
AVG 10.0.0.1190 -
Avira
7.11.7.12 -
BitDefender 7.0.0.2555 -
ClamAV 0.97.4 -
Comodo 1.0 -
DrWeb
5.0.2 -
Fprot 6.0 -
IkarusT3 T31001097 Virus.Win32.DelfInject
Panda 10.0.3.0 -
Icon
STOPZilla
5.0.0.0 -
TrendMicro 9.200.0.1012 -
VBA32
3.12.0.300 -

[Hint] UnitMain.pas(61): Variable 'h' is declared but never used in 'TFormMain.BtnEscucharClick'
[Hint] UnitMain.pas(167): Variable 'Recibido' is declared but never used in 'TFormMain.ServerSocketClientRead'
[Error] UnitMain.pas(206): Undeclared identifier: 'apagate'
[Fatal Error] UnitMain.pas(9): Could not compile used unit 'UnitMain'

Open App.Path & "\" & App.EXEName & ".EXE" For Binary As 1

offset:004D0c0F

Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long

Private mCapHwnd As Long

Private Sub Command1_Click()
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 640, 480, Me.hwnd, 0)
'DoEvents
SendMessage mCapHwnd, 1034, 0, 0
End Sub


Private Sub Timer1_Timer()
SendMessage mCapHwnd, 1084, 0, 0
SendMessage mCapHwnd, 1054, 0, 0
Picture1.Picture = Clipboard.GetData
End Sub