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

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

關(guān)鍵詞：機(jī)房教學(xué)；電子資料；收繳；作弊檢查

中圖分類號(hào)：G431 文獻(xiàn)標(biāo)志碼：B 文章編號(hào)：1673-8454（2017）24-0091-03

一、引言

隨著信息技術(shù)的快速發(fā)展，計(jì)算機(jī)的作用不僅對(duì)社會(huì)產(chǎn)生了深刻的影響，而且對(duì)大學(xué)教學(xué)的影響也越來越深遠(yuǎn)，在大學(xué)教學(xué)計(jì)劃里大量的信息技術(shù)相關(guān)課程不斷出現(xiàn)，機(jī)房教學(xué)也就不可避免地成為了大學(xué)教學(xué)中的重要環(huán)節(jié)之一。

在機(jī)房教學(xué)環(huán)節(jié)中，經(jīng)常需要收繳學(xué)生的電子版作業(yè)或上機(jī)考試資料，學(xué)生電子文件的管理一直是信息技術(shù)教師最為棘手而又必須面對(duì)的重要問題[1]，處理得不好，教師就很難掌握學(xué)生的學(xué)習(xí)情況，影響教學(xué)質(zhì)量。

二、問題分析

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

1.局域網(wǎng)方式

方法：學(xué)生可以通過機(jī)房的局域網(wǎng)功能把完成的文件復(fù)制到共享的教師機(jī)文件夾里，最后由教師整理收取[2]。

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

2.U盤等移動(dòng)存儲(chǔ)介質(zhì)方式

方法：學(xué)生可以通過U盤等存儲(chǔ)介質(zhì)，把完成的文件直接復(fù)制到教師機(jī)或教師的存儲(chǔ)介質(zhì)上[4]。

問題：移動(dòng)存儲(chǔ)介質(zhì)雖很方便，對(duì)于機(jī)房教學(xué)和管理者卻是個(gè)痛心疾首的東西。因?yàn)椋瑢W(xué)生使用移動(dòng)存儲(chǔ)介質(zhì)攜帶游戲、影音文件，甚至攜帶各種惡意性軟件或病毒，嚴(yán)重影響了機(jī)房計(jì)算機(jī)系統(tǒng)的正常運(yùn)作和教育教學(xué)活動(dòng)。因此，有些機(jī)房禁止學(xué)生使用移動(dòng)存儲(chǔ)介質(zhì)。即使是能使用移動(dòng)存儲(chǔ)介質(zhì)，但是學(xué)生一一進(jìn)行文件復(fù)制操作，浪費(fèi)時(shí)間，也難以避免學(xué)生相互抄襲。

3.互聯(lián)網(wǎng)電子郵件方式

方法：通過開啟機(jī)房的互聯(lián)網(wǎng)，利用郵箱把電子資料發(fā)送到教師的郵箱，最后教師通過登錄自己的郵箱下載收取學(xué)生的資料。

問題：此方法雖然可行，但是考試時(shí)互聯(lián)網(wǎng)是關(guān)閉的，而且有些機(jī)房不具備互聯(lián)網(wǎng)功能，無法通過電子郵件發(fā)送文件資料。

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

三、解決思路

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

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

以下介紹此監(jiān)視程序開發(fā)過程。

四、開發(fā)過程

Visual Basic是一種由Microsoft公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動(dòng)計(jì)算高級(jí)編程語言[5]。它具有掌握容易、應(yīng)用簡(jiǎn)便、開發(fā)周期短等特點(diǎn)，是非專業(yè)程序開發(fā)者的理想工具[6]。本文利用Visual Basic 6.0（以下簡(jiǎn)稱VB6）完成，以文件夾監(jiān)視、文件移動(dòng)和作弊檢查為一體的局域網(wǎng)文件資料收繳程序（以下簡(jiǎn)稱收繳程序）。

1.文件夾監(jiān)視

文件夾監(jiān)視是收繳程序的最重要功能。文件夾監(jiān)視指的是程序能夠監(jiān)測(cè)指定文件夾里的文件加入（復(fù)制）、文件移除（刪除）、文件更名、創(chuàng)建子文件夾等操作并觸動(dòng)相應(yīng)的動(dòng)作。文件夾監(jiān)視不僅能夠監(jiān)測(cè)其根目錄下的變化，還能夠監(jiān)測(cè)其子文件夾目錄樹里的變化。

通過調(diào)查研究發(fā)現(xiàn)，實(shí)現(xiàn)此功能的簡(jiǎn)單實(shí)用方法是利用Microsoft Scripting Runtime（scrrun.dll）庫中的File System Object（FSO）對(duì)象[7]。文件夾監(jiān)視代碼如下：

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

‘監(jiān)測(cè)到文件變化（fName），觸動(dòng)移動(dòng)模塊

Next

DoEvents

End Function

2.文件移動(dòng)

文件夾監(jiān)視模塊觸發(fā)文件夾變化動(dòng)作并觸動(dòng)文件移動(dòng)模塊。

學(xué)生提交資料有時(shí)可能包括一個(gè)整體的文件夾及其里面的文件，簡(jiǎn)單地移動(dòng)一個(gè)文件顯然行不通。文件移動(dòng)模塊應(yīng)該具備文件及其整體目錄樹結(jié)構(gòu)的原樣移動(dòng)功能，即學(xué)生提交什么就原樣復(fù)制什么。其代碼如下[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.作弊檢查

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

實(shí)現(xiàn)此模塊的關(guān)鍵問題是如何取得文件大小和修改時(shí)間。文件大小可以直接使用VB6的FileLen函數(shù)[10]獲得，而修改時(shí)間則可以使用API函數(shù)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，F(xiàn)SHARE_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所示。

五、結(jié)束語

機(jī)房教學(xué)上機(jī)考試或作業(yè)資料的收繳過程中，無論采用局域網(wǎng)、移動(dòng)存儲(chǔ)介質(zhì)和互聯(lián)網(wǎng)，都難以解決學(xué)生相互抄襲或考試作弊。本文在局域網(wǎng)的基礎(chǔ)上，結(jié)合計(jì)算機(jī)高級(jí)編程語言開發(fā)實(shí)現(xiàn)了作業(yè)收繳程序。程序只需在教師機(jī)上安裝，即可自動(dòng)完成學(xué)生電子文件資料的有效收繳。另外還具備了作弊檢查功能，有效解決學(xué)生相互抄襲或考試作弊，給機(jī)房教學(xué)工作帶來極大的方便。

參考文獻(xiàn)：

[1]梁秀清，劉昊.淺談機(jī)房課堂教學(xué)的管理[J].中國(guó)科教創(chuàng)新導(dǎo)刊，2011（19）：229.

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

[3]李志剛.機(jī)房教學(xué)管理淺談[J].職業(yè)教育，2008， 129（10）：139-140.

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

[5]劉瑞新，王遠(yuǎn)征.Visual Basic 程序設(shè)計(jì)教程[M].北京：機(jī)械工業(yè)出版社，2008.

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

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

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

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

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

（編輯：魯利瑞）endprint