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