今看到一個外包專案, 要求用VB寫一個電腦螢幕監控軟體, 具體要求如下:

電腦螢幕監控軟體功能實現：
1、電腦非空閒（根據滑鼠鍵盤動作判斷？）時，每五秒（通過配置檔案設定）截圖並按時間命名（如201007181950.jpg）儲存到指定資料夾。
2、電腦空閒一分鐘（通過配置檔案裝置）後，自動將該資料夾內所有檔案用FTP以續傳的方式上傳到指定FTP伺服器的指定目錄（目錄名為本機IP地址）。

我想， AutoHotkey也能實現這些功能，殺雞何用宰牛刀， 於是寫了個Demo嘗試一下，程式碼如下：

#Persistent #include ../../ #include ./inc/inifile.aik #include ./inc/capture.aik #include ./inc/ftp.aik g_inifile = 螢幕監控.ini ;; 配置檔案 ifnotexist %g_inifile% { write_ini(g_inifile, "setting", "CaptureTime", "5000") ; 截圖間隔時間 write_ini(g_inifile, "setting", "FTPTime", "60000") ; 上傳間隔時間 write_ini(g_inifile, "setting", "PicDir", a_scriptdir) ; 臨時存放截圖影象的目錄 write_ini(g_inifile, "setting", "DelAfterFTP", "0") ; 指定將上傳之後的影象刪除(或移動到其他目錄) write_ini(g_inifile, "FTP", "server", "") ; FTP伺服器 write_ini(g_inifile, "FTP", "port", "21") ; 埠 write_ini(g_inifile, "FTP", "name", "") ; 使用者名稱 ( 如果使用者名稱和密碼為空, 將會彈出登入視窗 ) write_ini(g_inifile, "FTP", "password", "") ; 密碼 write_ini(g_inifile, "FTP", "remotePath", "") ; 遠端目錄 msgbox 請先設定配置檔案,再執行本程式! run %g_inifile% exitapp } ; 建立儲存截圖的資料夾 IfNotExist, PrintScreen { FileCreateDir, PrintScreen } ; 建立FTP目標 IfNotExist, FTP { FileCreateDir, FTP } ; 按日期命名的FTP的子目錄, 將FTPd的日誌和上傳完畢的圖片移動到此目錄 g_ftpLog = FTP/%a_yyyy%-%a_mm%-%a_dd% IfNotExist, %g_ftpLog% { FileCreateDir, %g_ftpLog% } ; 從配置檔案中讀取配置 g_captureTime := read_ini(g_inifile, "setting", "CaptureTime", "5000") g_ftpTime := read_ini(g_inifile, "setting", "FTPTime", "60000") g_bDelAfterFTP := read_ini(g_inifile, "setting", "DelAfterFTP", "0") g_Server := read_ini(g_inifile, "FTP", "server", "") g_Port := read_ini(g_inifile, "FTP", "port", "21") g_remotePath := read_ini(g_inifile, "FTP", "remotePath", "") uName := read_ini(g_inifile, "FTP", "name", "") pWord := read_ini(g_inifile, "FTP", "password", "") ;; 如果密碼或賬號有一項為空,那麼彈出對話方塊要求輸入賬號和密碼 ; 這裡會彈出兩次輸入框, 在實際專案中, 最好寫個登陸框, 給使用者更好的體驗 if ( uName == "" || pWord == "" ) { InputBox, uName, Please input your username, Please input your username if(ErrorLevel) ; 使用者點選取消則退出 { ExitApp } InputBox, pWord, Please input your password, Please input your password, HIDE if(ErrorLevel) ; 使用者點選取消則退出程式 { ExitApp } } ; 其實還需要檢查一下其他配置是否正確, 這個只是演示程式, 故而假設其他配置都正確. ; 設定定時器 SetTimer 【定時截圖】, %g_captureTime% SetTimer 【定時上傳FTP】, %g_ftpTime% ; 定時截圖的定時器, 每隔一段時間(滑鼠/鍵盤空閒時), 截圖一次, 儲存到PrintScreen目錄 【定時截圖】: if ( A_TimeIdlePhysical > g_captureTime ) { capfile = PrintScreen/%a_yyyy%%a_mm%%a_dd%%A_Hour%%A_Min%%A_Sec%.jpg CaptureScreen(0, False, capfile, 100) ; 截圖函式 } return ; 定時將截圖的影象上傳到FTP伺服器 【定時上傳FTP】: if ( A_TimeIdlePhysical > g_ftpTime ) { FileList = Loop, PrintScreen/*.jpg FileList = %FileList%%A_LoopFileName%`n Sort, FileList ; Sort by date. Loop, parse, FileList, `n { if A_LoopField = ; 無效的檔名則跳過 continue ; 上傳一張影象 file_to_upload = PrintScreen/%A_LoopField% hConnect:=FTP_Open( g_Server, g_Port, Username, Password ) FTP_PutFile( hConnect, file_to_upload, g_remotePath ) FTP_CloseSocket( hConnect ) FTP_Close( ) ; 刪除或移動已經上傳的影象檔案 if g_bDelAfterFTP = 1 FileDelete %file_to_upload% else FileMove, %file_to_upload%, %g_ftpLog%/%A_LoopField% , 1 } } return

    了了幾十行程式碼即實現了大部分功能, 定時截圖、FTP上傳都已經實現。定時截圖測試通過, FTP上傳因沒有FTP賬號沒有測試。 當然, 這只是個Demo,  有些粗糙， FTP沒有窗體，沒有進度，沒有續傳功能，一切在無形無聲中完成，要讓使用者有更好的體驗還需要花些時間改善一下。

    我想需要說明幾點， 抓圖函式CaptureScreen() 與 FTP相關函式FTP_Open()、FTP_PutFile()、FTP_CloseSocket()、FTP_Close()都是從AutoHotkey的官方論壇上獲得, 實際都是通過呼叫Windows API函式來實現的.

    希望那位外包朋友看到這篇文章, 或許可以省下外包費用, DIY 一個"電腦螢幕監控軟體"出來.