无忧岛

首先祝各位圈里的朋友圣诞节快乐!
前段时间在落伍把网页照相机落伍版的编译出来的可执行程序发布了,很多朋友提出需要源代码,方便大家学习交流,前几天太忙了,于是挑了今天圣诞节做为发布的日期.
网页照相机的核心代码是几个API

Public Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 _
As String) As Long
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long

 Public Type OPENFILENAME
            lStructSize As Long
            hwndOwner As Long
            hInstance As Long
            lpstrFilter As String
            lpstrCustomFilter As String
            lMaxCustFilter As Long
            lFilterIndex As Long
            lpstrFile As String
            lMaxFile As Long
            lpstrFileTitle As String
            lMaxFileTitle As Long
            lpstrInitialDir As String
            lpstrTitle As String
            flags As Long
            iFileOffset As Integer
            iFileExtension As Integer
            lpstrDefExt As String
            lCustData As Long
            lpfnHook As Long
            lpTemplateName As String
 End Type
 Public Const OFN_EXPLORER = &H80000
 Public Const OFN_FILEMUSTEXIST = &H1000
 Public Const OFN_HIDEREADONLY = &H4
 Public Const OFN_OVERWRITEPROMPT = &H2
 Public Const OFN_PATHMUSTEXIST = &H800
 Public Const OFN_ALLOWMULTISELECT = &H200

Public Const WM_PRINT As Long = &H317
Public Const PRF_CHECKVISIBLE = &H1
Public Const PRF_NONCLIENT = &H2
Public Const PRF_CLIENT = &H4
Public Const PRF_ERASEBKGND = &H8
Public Const PRF_CHILDREN = &H10
Public Const PRF_OWNED = &H20

Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_MBUTTONDBLCLK = &H209
Public Const WM_MBUTTONDOWN = &H207
Public Const WM_MBUTTONUP = &H208
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205

工程源码下载地址:
文件大小:37kb
文件类型:*.rar
下载地址:http://www.islandcn.com/wp-content/uploads/attachment/WebCamera.rar