自己組裝一下來自兩個程序。
(拍照)
.版本 2
.支持庫 twain
.支持庫 eImgConverter
.子程序 關閉攝像頭
視頻設備1.預覽 (假, -1)
視頻設備1.預覽 (假, -1)
.子程序 拍照
視頻設備1.保存為圖片 (取運行目錄 () + “\temp\temp.bmp”)
轉換到JPG (取運行目錄 () + “\temp\temp.bmp”, 取運行目錄 () + “\temp\臨時照片.jpg”, 假, 到整數 (編輯框5.內容), 真, 0)
刪除文件 (取運行目錄 () + “\temp\temp.bmp”)
編輯框4.內容 = 取運行目錄 () + “\temp\臨時照片.jpg”
.子程序 啟動攝像頭
.局部變量 計次, 整數型
.計次循環首 (視頻設備1.來源總數, 計次)
視頻設備1.當前來源 = 計次
.計次循環尾 ()
.如果真 (視頻設備1.預覽 (真, 100) = 假)
啟動攝像頭 ()
(郵件發送)
.版本 2
.支持庫 EThread
.支持庫 internet
.支持庫 xplib
.程序集 窗口程序集1
.程序集變量 賬戶, 文本型
.程序集變量 主題, 文本型
.程序集變量 密碼, 文本型
.程序集變量 郵件內容, 文本型
.子程序 _按鈕1_被單擊, , , 需要在QQ郵箱中賬號中設置
.如果真 (編輯框賬號.內容 = “” 或 編輯框密碼.內容 = “”)
信息框 (“帳號密碼不能為空”, 0, )
返回 ()
.如果真結束
.如果真 (接收郵件地址.內容 = “”)
信息框 (“請設定群發目標起始號碼”, 0, )
返回 ()
.如果真結束
賬戶 = 編輯框賬號.內容
密碼 = 編輯框密碼.內容
主題 = 編輯框主題.內容
郵件內容 = 編輯框郵件內容.內容
接收方 = 到整數 (接收郵件地址.內容)
啟動線程 (&線程, , 句柄)
.子程序 線程
.局部變量 返回文本, 文本型
.局部變量 臨時文本, 文本型
.局部變量 循環次數, 整數型
.如果 (連接發信服務器 (“smtp.qq.com”, , 賬戶, 密碼, ))
返回文本 = “連接發信服務器成功” + #換行符
臨時文本 = 發送郵件 (主題, 郵件內容, 到文本 (接收方) + “@QQ.com”, , , 賬戶 + “@QQ.com”, )
.判斷開始 (臨時文本 ≠ “”)
返回文本 = “發送失敗:” + 臨時文本 + #換行符
.默認
返回文本 = “發送成功。” + #換行符
.判斷結束
.否則
返回文本 = “連接發信服務器失敗” + #換行符
.如果結束
調試編輯框.內容 = 返回文本
斷開發信服務器 ()
關閉線程句柄 (句柄)
.子程序 __啟動窗口_創建完畢
XP風格 (3)