監控網源碼
VC-攝像頭控制SDK源碼
#include <windows.h>
#include <stdio.h>
#include <vfw.h>
#pragma comment(lib,"vfw32.lib")
HWND ghWndCap ; //捕獲窗的句柄
CAPDRIVERCAPS gCapDriverCaps ; //視頻驅動器的能力
CAPSTATUS gCapStatus ; //捕獲窗的狀態
char szCaptureFile[] = "MYCAP.AVI";
char gachBuffer[20];
LRESULT CALLBACK WndProc(HWND,UINT,WPARAM,LPARAM);
LRESULT CALLBACK StatusCallbackProc(HWND hWnd,int nID,LPSTR lpStatusText)
{
if(!ghWndCap)return FALSE;//獲得捕獲窗的狀態
capGetStatus(ghWndCap,&gCapStatus,sizeof(CAPSTATUS));//更新捕獲窗的大小
SetWindowPos(ghWndCap,NULL,0,0,gCapStatus.uiImageWidth,gCapStatus.uiImageHeight,SWP_NOZORDER|SWP_NOMOVE);
if(nID==0){//清除舊的狀態信息
SetWindowText(ghWndCap,(LPSTR)"hello");
return (LRESULT)TRUE;
}//顯示狀態ID和狀態文本
wsprintf(gachBuffer,"Status# %d: %s",nID,lpStatusText);
SetWindowText(ghWndCap,(LPSTR)gachBuffer);
return (LRESULT)TRUE;
}
LRESULT CALLBACK ErrorCallbackProc(HWND hWnd,int nErrID,LPSTR lpErrorText)
{
if(!ghWndCap)return FALSE;
if(nErrID==0)return TRUE;//清除舊的錯誤
wsprintf(gachBuffer,"Error# %d",nErrID);//顯示錯誤標識和文本
MessageBox(hWnd, lpErrorText, gachBuffer,MB_OK | MB_ICONEXCLAMATION);
return (LRESULT) TRUE;
}
LRESULT CALLBACK FrameCallbackProc(HWND hWnd,LPVIDEOHDR lpVHdr)
{
FILE *fp;
fp=fopen("caram.dat","w");
if(!ghWndCap)return FALSE;//假設fp為一打開的.dat文件指針
fwrite(lpVHdr->lpData,1,lpVHdr->dwBufferLength,fp);
return (LRESULT)TRUE;
}
int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,PSTR szCmdLine,int iCmdShow)
{
static TCHAR szAppName[]=TEXT("HelloWin");
HWND hwnd;
MSG msg;
WNDCLASS wndclass;
wndclass.style=CS_HREDRAW|CS_VREDRAW;
wndclass.lpfnWndProc=WndProc;
wndclass.cbClsExtra=0;
wndclass.cbWndExtra=0;
wndclass.hInstance=hInstance;
wndclass.hIcon=LoadIcon(NULL,IDI_APPLICATION);
wndclass.hCursor=LoadCursor(NULL,IDC_ARROW);
wndclass.hbrBackground=(HBRUSH)GetStockObject(WHITE_BRUSH);
wndclass.lpszMenuName=NULL;
wndclass.lpszClassName=szAppName;
if(!RegisterClass(&wndclass))
{
MessageBox(NULL,TEXT("This program requires WindowsNT!"),szAppName,MB_ICONERROR);
return 0;
}
hwnd=CreateWindow(szAppName,TEXT("The Hello Program"),WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,NULL,NULL,hInstance,NULL);
ShowWindow(hwnd,iCmdShow);
UpdateWindow(hwnd);
while(GetMessage(&msg,NULL,0,0))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
return msg.wParam;
}
LRESULT CALLBACK WndProc(HWND hwnd,UINT message,WPARAM wParam,LPARAM lParam)
{
HDC hdc;
PAINTSTRUCT ps;
RECT rect;
switch(message)
{
case WM_CREATE:
{
ghWndCap=capCreateCaptureWindow((LPSTR)"Capture Window",WS_CHILD|WS_VISIBLE,0,0,300,240,(HWND)hwnd,(int)0);
capSetCallbackOnError(ghWndCap,(FARPROC)ErrorCallbackProc);
capSetCallbackOnStatus(ghWndCap,(FARPROC)StatusCallbackProc);
capSetCallbackOnFrame(ghWndCap,(FARPROC)FrameCallbackProc);
capDriverConnect(ghWndCap,0); // 將捕獲窗同驅動器連接
//獲得驅動器的能力,相關的信息放在結構變數gCapDriverCaps中
capDriverGetCaps(ghWndCap,&gCapDriverCaps,sizeof(CAPDRIVERCAPS));
capPreviewRate(ghWndCap, 66); // 設置Preview模式的顯示速率
capPreview(ghWndCap, TRUE); //啟動Preview模式
if(gCapDriverCaps.fHasOverlay) //檢查驅動器是否有疊加能力
capOverlay(ghWndCap,TRUE); //啟動Overlay模式
if(gCapDriverCaps.fHasDlgVideoSource)capDlgVideoSource(ghWndCap); //Video source 對話框
if(gCapDriverCaps.fHasDlgVideoFormat)capDlgVideoFormat(ghWndCap); // Video format 對話框
if(gCapDriverCaps.fHasDlgVideoDisplay)capDlgVideoDisplay(ghWndCap); // Video display 對話框
capFileSetCaptureFile( ghWndCap, szCaptureFile); //指定捕獲文件名
capFileAlloc(ghWndCap, (1024L * 1024L * 5)); //為捕獲文件分配存儲空間
capCaptureSequence(ghWndCap); //開始捕獲視頻序列
capGrabFrame(ghWndCap); //捕獲單幀圖像
}
return 0;
case WM_PAINT:
hdc=BeginPaint(hwnd,&ps);
GetClientRect(hwnd,&rect);
DrawText(hdc,TEXT("Hello,Windows98!"),-1,&rect,DT_SINGLELINE|DT_CENTER|DT_VCENTER);
EndPaint(hwnd,&ps);
return 0;
case WM_DESTROY:
{
capSetCallbackOnStatus(ghWndCap,NULL);
capSetCallbackOnError(ghWndCap,NULL);
capSetCallbackOnFrame(ghWndCap,NULL);
capCaptureAbort(ghWndCap);//停止捕獲
capDriverDisconnect(ghWndCap); //將捕獲窗同驅動器斷開
PostQuitMessage(0);
}
return 0;
}
return DefWindowProc(hwnd,message,wParam,lParam);
}
B. 易語言伺服器端怎麼連接客戶端的攝像頭！最好有一個簡單的源碼 就連接一個攝像頭
所用組件和支持庫、變數：
一、接收端程序編寫
1.支持庫：視頻聊天支持庫
2.接送端全局變數及組件
全局變數 音頻輸出設備, 文本型
組件 多媒體播放器 說明：播放接收到的視頻圖像
組件伺服器說明：接收視頻數據
組件時鍾 說明：用於檢測接收遠程資料庫速度
組件標簽 說明：顯示接收遠程數據數據速度
組件 窗口1 說明：設置輸出音頻
組件多媒體設備枚舉器 說明：獲取音頻設備
組件組合框 說明：列出音頻設備
3.接收視頻窗口設置-啟動窗口 
.版本2
.支持庫eChat
.程序集窗口程序集2
.程序集變數視頻輸入設備數組,視頻輸入設備,,"0"
.程序集變數音頻輸入設備數組,音頻輸入設備,,"0"
.子程序_窗口1_創建完畢
.局部變數n,整數型
視頻輸入設備數組＝多媒體設備枚舉器1.取視頻輸入設備列表()
音頻輸入設備數組＝多媒體設備枚舉器1.取音頻輸入設備列表()
.計次循環首(取數組成員數(視頻輸入設備數組),n)
組合框_視頻輸入.加入項目(視頻輸入設備數組[n].設備名稱,)
.計次循環尾()
組合框_視頻輸入.現行選中項＝0
.計次循環首(取數組成員數(音頻輸入設備數組),n)
組合框_音頻輸入.加入項目(音頻輸入設備數組[n].設備名稱,)
.計次循環尾()
組合框_音頻輸入.現行選中項＝0
.子程序_按鈕1_被單擊
視頻輸入設備＝視頻輸入設備數組[組合框_視頻輸入.現行選中項＋1].設備路徑
音頻輸入設備＝音頻輸入設備數組[組合框_音頻輸入.現行選中項＋1].設備標識
銷毀()
發送端設置完成。
C. 怎麼把區域網內的網路監控實時錄像開放到外網上。 最好有源碼
網路監控 錄像機有 ip地址 可以在路由器上做映射 到公網上面
電腦安裝監控軟體就可以看
D. 如何利用python自動監控網站並發送郵件告警
1、監控網站
監控網站其實就是去爬網頁的源碼，每次對比或檢查網頁源碼特定位置的html代碼是否有變化即可，具體可以用
fromurllibimportrequest
page=request.urlopen("網址")
html=page.read()
就可以獲取網頁源碼；
2、發送高警
建議別用郵件，郵件發多幾次就會認為你的發件箱有發垃圾郵件的嫌疑。用 喵提醒 ，是個公眾號，可以免費發提醒到手機上。調用方法也和監控網頁代碼類似，具體自己看喵提醒的教程。
E. 公司的源代碼應該怎麼保護，防止泄密呢
推薦使用域之盾系統，域之盾系統安裝方便點點滑鼠即可完成安裝部署，操作簡單 功能全面，可針對日常辦公/文字編輯/圖紙編輯/圖片編輯進行一鍵透明加密，比如在域之盾管控端設置好針對WORD文件加密以後，客戶端上的word文檔會自動加密，加密以後的文件任何形式的非法外發拷貝傳輸 打開都是亂碼 裝有域之盾客戶端的電腦設備之間可以無障礙傳閱，也可以設置外發文件的生命周期，最大打開次數 最長打開天數 多方面保護數據安全不被泄密 域之盾系統的桌面管理功能支持實時畫面，屏幕錄像，微信QQ 釘釘 聊天記錄 網頁瀏覽 網址搜索記錄等 可有效幫企業監督員工上網行為，適合企業使用
1. 透明加解密
系統根據管理策略對相應文件進行加密，用戶訪問需要連接到伺服器，按許可權訪問，越權訪問會受限，通過共享、離線和外發管理可以實現更多的訪問控制。
2. 泄密控制
對打開加密文檔的應用程序進行列印、內存竊取、拖拽和剪貼板等操作管控，用戶不能主動或被動地泄漏機密數據。
3. 審批管理
支持共享、離線和外發文檔，管理員可以按照實際工作需求，配置是否對這些操作進行強制審批。用戶在執行加密文檔的共享、離線和外發等操作時，將視管理員的許可權許可，可能需要經過審批管理員審批。
4. 離線文檔管理
對於員工外出無法接入網路的情況可採用系統的離線管理功能。通過此功能授權指定用戶可以在一定時間內不接入網路仍可輕松訪問加密數據，而該用戶相應的安全策略仍然生效，相應數據仍然受控，文檔許可權也與聯網使用一樣。
5. 外發文檔管理
本功能主要是解決數據二次泄密的威脅，目的是讓發出的文檔仍然受控。通過此功能對 需要發出的文件進行審批和授權後，使用者不必安裝加密客戶端即可輕松訪問受控文件，且可對文件的操作許可權及生命周期予以管控。
6. 審計管理
對加密文檔的常規操作，進行詳細且有效的審計。對離線用戶，聯網後會自動上傳相關日誌到伺服器。
7. 自我保護
通過在操作系統的驅動層對系統自身進行自我保護，保障客戶端不被非法破壞，並且始終運行在安全可信狀態。即使客戶端被意外破壞，客戶端計算機里的加密文檔也不會丟失或泄漏。
F. 易語言監控屏幕得視頻源碼，就是電腦上面網頁播放視頻，如果視頻暫停了就自動點擊繼續播放，源碼要怎麼寫
給你一個思路，如果你的網頁不動，用 滑鼠_記位 這個函數（包含在「精易模塊.ec」中）記錄繼續播放按鈕的坐標，再用 滑鼠_歸位 還原 滑鼠位置，至於點擊，用模擬按鍵即可。
G. 易語言怎麼通過源碼監控競店實時銷量
創建源碼。
首先創建一個子程序，為了體現你用的方法ScriptControl對象。在易語言中，創建ScriptControl對象方法ScriptControl，創建ScriptControl，寫屬性ScriptControl，數值方法最後，通過通用方法返回獲取相應的數值。