阿里甫江·夏木西　沙吾列提·拜開依

摘 要：在機房教學中，無論采用哪種方式收繳電子資料，都難以避免學生相互抄襲或考試作弊。為了解決此問題，文章首先介紹了基于局域網的電子資料收繳思路，然后采用計算機編程語言編程實現了電子資料自動收繳及作弊檢查程序。實踐證明該程序安裝使用方便，給機房教學工作帶來極大的方便。

關鍵詞：機房教學；電子資料；收繳；作弊檢查

中圖分類號：G431 文獻標志碼：B 文章編號：1673-8454（2017）24-0091-03

一、引言

隨著信息技術的快速發展，計算機的作用不僅對社會產生了深刻的影響，而且對大學教學的影響也越來越深遠，在大學教學計劃里大量的信息技術相關課程不斷出現，機房教學也就不可避免地成為了大學教學中的重要環節之一。

在機房教學環節中，經常需要收繳學生的電子版作業或上機考試資料，學生電子文件的管理一直是信息技術教師最為棘手而又必須面對的重要問題[1]，處理得不好，教師就很難掌握學生的學習情況，影響教學質量。

二、問題分析

機房教學電子版資料的收繳方法不外乎于以下三種方式：

1.局域網方式

方法：學生可以通過機房的局域網功能把完成的文件復制到共享的教師機文件夾里，最后由教師整理收取[2]。

問題：此方法，雖然看似簡單易用，但是由此而產生的問題是顯然而見的。基于“共享”的特點，學生提交的全部文件資料顯示在共享的文件里，而共享內的文件對于全體網絡用戶來說是可見和開放的，局域網中的任何人都能復制，并能通過網絡操作打開、修改并刪除，因此個人文件的完整性絲毫沒有保障，一些居心不良的學生可能會利用這一漏洞對其他人的文件進行修改破壞，甚至盜竊別人的成果據為己有，難以避免學生相互抄襲或考試作弊。此外，隨意存取不同的文件特別是一些與課堂學習無關的文件更是垃圾成堆，進一步加深管理的難度[3]，這種行為會擾亂正常的課堂教學秩序，實為教學之遺憾。

2.U盤等移動存儲介質方式

方法：學生可以通過U盤等存儲介質，把完成的文件直接復制到教師機或教師的存儲介質上[4]。

問題：移動存儲介質雖很方便，對于機房教學和管理者卻是個痛心疾首的東西。因為，學生使用移動存儲介質攜帶游戲、影音文件，甚至攜帶各種惡意性軟件或病毒，嚴重影響了機房計算機系統的正常運作和教育教學活動。因此，有些機房禁止學生使用移動存儲介質。即使是能使用移動存儲介質，但是學生一一進行文件復制操作，浪費時間，也難以避免學生相互抄襲。

3.互聯網電子郵件方式

方法：通過開啟機房的互聯網，利用郵箱把電子資料發送到教師的郵箱，最后教師通過登錄自己的郵箱下載收取學生的資料。

問題：此方法雖然可行，但是考試時互聯網是關閉的，而且有些機房不具備互聯網功能，無法通過電子郵件發送文件資料。

由上述分析可見，盡管利用現有的任何方法，而不利用針對性程序，都不能較好的解決機房教學中的電子資料收繳弊端。因此，本文以《局域網方式》為框架，通過編制簡單的教師機程序，有效解決了機房學生電子資料收繳中的問題。

三、解決思路

機房一般都具備局域網，而加入此局域網，包括教師機在內的每臺計算機都可以相互訪問共享的資源[4]。因此，首先教師在教師機創建一文件夾并將其共享在局域網中（以下簡稱教師文件夾），然后通知學生進入教師機將完成的資料文件復制到教師文件夾中，最后在教師機安裝一個能夠監視文件夾變化的程序，由此程序及時發現復制的文件并將其及時移到沒有共享的其它文件夾里，使得教師文件夾始終處于空白的狀態，以便除教師以外的其他人員無法相互看到或復制。

從上述思路中可見，解決問題的關鍵是那個監視程序。這種文件夾監視程序網上可以找到，然而其功能只有簡單地監視文件夾的變化，而不能自動移動文件資料，也沒有作弊檢查等功能。

以下介紹此監視程序開發過程。

四、開發過程

Visual Basic是一種由Microsoft公司開發的包含協助開發環境的事件驅動計算高級編程語言[5]。它具有掌握容易、應用簡便、開發周期短等特點，是非專業程序開發者的理想工具[6]。本文利用Visual Basic 6.0（以下簡稱VB6）完成，以文件夾監視、文件移動和作弊檢查為一體的局域網文件資料收繳程序（以下簡稱收繳程序）。

1.文件夾監視

文件夾監視是收繳程序的最重要功能。文件夾監視指的是程序能夠監測指定文件夾里的文件加入（復制）、文件移除（刪除）、文件更名、創建子文件夾等操作并觸動相應的動作。文件夾監視不僅能夠監測其根目錄下的變化，還能夠監測其子文件夾目錄樹里的變化。

通過調查研究發現，實現此功能的簡單實用方法是利用Microsoft Scripting Runtime（scrrun.dll）庫中的File System Object（FSO）對象[7]。文件夾監視代碼如下：

Private Function WatchFolder（wFolder As String）

Dim rFolder As Folder

Dim fName As String

On Error Resume Next

Set rFolder = FSO.GetFolder（wFolder）

For Each strSubFolderInrFolder.SubFolders

WatchFolder （strSubFolder.Path）

Next

DoEvents

For Each strFileInrFolder.Filesendprint

fName = wFolder + "＼" + strFile.Name

‘監測到文件變化（fName），觸動移動模塊

Next

DoEvents

End Function

2.文件移動

文件夾監視模塊觸發文件夾變化動作并觸動文件移動模塊。

學生提交資料有時可能包括一個整體的文件夾及其里面的文件，簡單地移動一個文件顯然行不通。文件移動模塊應該具備文件及其整體目錄樹結構的原樣移動功能，即學生提交什么就原樣復制什么。其代碼如下[8]：

Public Function CopyFile（ByVal Source As String， ByVal Destination As String） As Boolean

If Me.FileExists（Destination） = False Then

CopyFile = CopyFileAPI（Source， Destination， 0）

Else

CopyFile = True

End If

CopyFile = CopyFileAPI（Source， Destination， 0）

Kill Source

End Function

3.作弊檢查

一個Windows操作系統中的文件通常有創建時間、修改時間和訪問時間等三個時間屬性，而修改時間記錄了此文件最后寫入操作的時間，即日期、小時、分、秒[9]。因此，作弊檢查的原理可以是：同一程序創建的兩個文件，如果其修改時間和大小是相同的，則可以認為此兩個文件是相同的，即此兩個文件相互被復制，可以認定作弊。

實現此模塊的關鍵問題是如何取得文件大小和修改時間。文件大小可以直接使用VB6的FileLen函數[10]獲得，而修改時間則可以使用API函數GetFileTime[10]，其代碼如下：

Public Function getTime（Filename As String）

Dim hFile As Long， rVal As Long

Dim Buff As OFSTRUCT

Dim cTime As FILETIME

Dim mTime As FILETIME

Dim laTime As FILETIME

Dim sTime As SYSTEMTIME

hFile = CreateFile（FName， GEN_R，FSHARE_R

Or FSHARE_W， 0&， OEXIST， 0&， 0&）

If hFile Then

rVal = GetFileTime（hFile， cTime， laTime， mTime）

rVal = FileTimeToLocalFileTime（mTime， mTime）

rVal = FileTimeToSystemTime（mTime， sTime）

With sTime

gDate = .wYear& "-" & .wMonth& "-" & .wDay

gTime = .wHour& "：" & .wMinute& "：" & .wSecond

End With

getTime = Format（gDate， "yyyy-mm-dd"） & "，"&_Format（gTime， "hh：mm：ss"）

End If

rVal = CloseHandle（hFile）

End Function

最后完成的收繳程序主界面如圖1所示。

五、結束語

機房教學上機考試或作業資料的收繳過程中，無論采用局域網、移動存儲介質和互聯網，都難以解決學生相互抄襲或考試作弊。本文在局域網的基礎上，結合計算機高級編程語言開發實現了作業收繳程序。程序只需在教師機上安裝，即可自動完成學生電子文件資料的有效收繳。另外還具備了作弊檢查功能，有效解決學生相互抄襲或考試作弊，給機房教學工作帶來極大的方便。

參考文獻：

[1]梁秀清，劉昊.淺談機房課堂教學的管理[J].中國科教創新導刊，2011（19）：229.

[2]林麗萍，黃群杰.淺析學校機房局域網的組建與管理[J].科技傳播，2010，12（6）： 209-210.

[3]李志剛.機房教學管理淺談[J].職業教育，2008， 129（10）：139-140.

[4]劉輝. 淺談機房教學效率的提高[J].成才之路， 2007（27）：41-42.

[5]劉瑞新，王遠征.Visual Basic 程序設計教程[M].北京：機械工業出版社，2008.

[6]李天啟. Visual Basic 6.0 學習捷徑[M].北京：清華大學出版社，1999.

[7]David Barron.The World of Scripting Languages [M]. Wiley， 2000.

[8]David I. Schneider. Introduction of programming using visual basic 2010[M].北京：電子工業出版社， 2012.

[9]王欽.Visual Basic 6.0入門與提高[M].北京：人民郵電出版社，2002.

[10]Steven Roman. Win32 API Programming with Visual Basic [M]. O'Reilly & Associates， 1999.

（編輯：魯利瑞）endprint