?在一些系統(tǒng)，為了特定目的，經(jīng)常要求程序隱藏起來運行，例如dcs（集散控制系統(tǒng)）中的后臺監(jiān)控系統(tǒng)、木馬控制程序、源碼防拷貝等，以減少被發(fā)現(xiàn)、截殺和反匯編的風險。這種功能模塊要求程序在運行期間不僅不會在桌面出現(xiàn)，也不允許**作者從任務管理器列表中發(fā)現(xiàn)。

    程序隱形的原理

    對于一個隱形程序而言，最基本的要求是：

    1.不在桌面出現(xiàn)界面；

    2.不在任務欄出現(xiàn)圖標；

    3.程序名從任務管理器名單中消失。

    對于上述第一點，可以將form的visible屬性設為false。

    要將圖標從任務欄中屏蔽掉，可以把form的shointaskbar改為false。

    在indos環(huán)境下，可以調用i函數(shù)中的registerviceprocess來實現(xiàn)第三個要求。

    上述功能，不論用vc、delphi、vb，還是pb等任何一種高級編程語言都是比較容易實現(xiàn)的。

    隱形功能多用于木馬程序，但木馬程序在許多國家和地區(qū)是不合法的，為便于理解，本文用vb結合一個程序防拷貝的實例來講解。通過獲取軟件安裝路徑所在磁盤序列號(磁盤id)，用做對合法用戶的判斷。以下程序的目的是用于講解隱形程序的編制和應用，對程序防拷貝內(nèi)容作了一定程度的簡化。

    程序隱形的示例

    程序的具體編制操作如下：

    1.在vb6.0編程環(huán)境中，新建一個工程project1。

    2.在project1中添加模塊modulel，在工程屬性中將工程名稱改為hiddenmen，應用程序標題也改為hiddenmen（以下程序都經(jīng)過實際運行測試，可以原樣復制使用）。

    在模塊module1中加入如下聲明：

    publicdeclarefungetcurrentprocessidlib“kernel32”long

    獲得當前進程id函數(shù)的聲明

    publicdeclarefunregisterserviceprocesslib“kernel32”(byvalprocessidlong,byvalserviceflagslong)long

    在系統(tǒng)中注冊當前進程id函數(shù)的聲明

    3.在project1中新建一個窗體form1，設置form1的屬性：

    =fals=false

    在代碼窗口添加如下代碼：

    privatedeclarefungetdrivetypelib“kernel32”alias“getdrivetypea”(byvalndrivestring)long

    獲得當前驅動器類型函數(shù)的聲明

    privatedeclarefungetvolumeinformationlib“kernel32”alias“getvolumeinformationa”(byvallprootpathring,byvallpvolumenamebufferstring,byvalnvolumenamesizelong,lpvolumeserialnumberlong,lpmaximumpolengthlong,lpfilesystemflagslong,byvallpfilesystemnamebufferstring,byvalemnamesizelong)long

    獲得當前驅動器信息函數(shù)的聲明

    privatesubform_load

    dimdrive_nolong,drive_flaglong

    dimdrive_chrstring,drive_diskstring

    dimserial_nolong,kkklong

    dimstemp3string,dflagboolean

    dimstrlabelstring,strtypestring，strg

    registerserviceprocessgetcurrentprocessid,1從系統(tǒng)中取消當前進程

    strlabel=string(255,chr(0))

    strtype=string(255,chr(0))

    stemp3=“172498135”這是作者c盤的序列號（十進制）,讀者可根據(jù)自己情況更改。

    dflag=false

    fordrive_no=025

    drive_disk=chr(drive_no+67)

    drive_chr=drive_disk&“:\”

    drive_flag=getdrivetype(drive_chr)

    drive_flag=3then

    kkk=getvolumeinformation(drive_chr,strlabel,len(strlabel),serial_no,0,0,strtype,len(strtype))通過getvolumeinformation獲得磁盤序列號

    selectcasedrive_no

    case0

    strc=serial_no

    e

    serial_no=stemp3then

    dflag=true

    exitfor

    end

    end

    drive_no

    drive_no=anddflag=falsethen非法用戶

    gotoerr:

    end

    msgbox(“hi，合法用戶！”)

    exitsub

    err:

    msgbox(“錯誤!你的c：盤id號是”&strc)

    endsub

    privatesubform_unload(teger)

    registerserviceprocessgetcurrentprocessid,0從系統(tǒng)中取消當前程序的進程

    endsub

    將上述程序代碼編譯后運行，在出現(xiàn)類似“錯誤!你的c盤id號是172498135”對話框時，按下ctrl+alt+del鍵，看看程序名叫“hiddenmen”是否在任務管理器名單列表里。如果把上述程序稍加改動，可以加到自己特定的程序中去。該程序在隱形運行之中，不知不覺就完成了預定功能。

    以上程序在簡體中文indos98和vb6.0環(huán)境中調試通過。