国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

用VB實現“木馬”式隱形運行程序

2019-11-18 17:41:19
字體：大 中 小
來源：轉載
供稿：網友
在一些系統，為了特定目的，經常要求程序隱藏起來運行，例如DCS（集散控制系統）中的后臺監控系統、木馬控制程序、源碼防拷貝等，以減少被發現、截殺和反匯編的風險。這種功能模塊要求程序在運行期間不僅不會在桌面出現，也不允許被操作者從任務管理器列表中發現。

程序隱形的原理

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

　　1.不在桌面出現界面；

　　2.不在任務欄出現圖標；

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

　　對于上述第一點，可以將Form的Visible屬性設為False。

　　要將圖標從任務欄中屏蔽掉，可以把Form的ShowInTaskBar改為False。

　　在Windows環境下，可以調用WINAPI函數中的Registervicedflag=False
Fordrive_no=0To25
　drive_disk=Chr(drive_no 67)
　drive_chr=drive_disk&“:/”
　drive_flag=GetDriveType(drive_chr)
　Ifdrive_flag=3Then
　　kkk=GetVolumeInformation(drive_chr,strlabel,Len(strlabel),serial_no,0,0,strtype,Len(strtype))'通過GetVolumeInformation獲得磁盤序列號
　SelectCasedrive_no
　　Case0
　　strc=serial_no
　EndSelect
　Ifserial_no=stemp3Then
　　dflag=True
　　ExitFor
　EndIf
EndIf
Nextdrive_no
Ifdrive_no=26Anddflag=FalseThen'非法用戶
　GoToerr:
EndIf
MsgBox(“HI，合法用戶！”)
ExitSub
err:
　MsgBox(“錯誤!你的C：盤ID號是”&strc)
EndSub
PrivateSubForm_Unload(CancelAsInteger)
RegisterServiceProcessGetCurrentProcessId,0'從系統中取消當前程序的進程
EndSub->
　　將上述程序代碼編譯后運行，在出現類似“錯誤!你的C盤ID號是172498135”對話框時，按下Ctrl Alt Del鍵，看看程序名叫“HiddenMen”是否在任務管理器名單列表里。如果把上述程序稍加改動，可以加到自己特定的程序中去。該程序在隱形運行之中，不知不覺就完成了預定功能。

　　以上程序在簡體中文Windows98和VB6.0環境中調試通過。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 探索| 额敏县| 崇仁县| 新乡县| 绥芬河市| 上栗县| 永仁县| 龙门县| 璧山县| 闵行区| 文成县| 巢湖市| 旺苍县| 中阳县| 余江县| 景德镇市| 莱芜市| 莱州市| 浦江县| 望都县| 玉树县| 东平县| 永定县| 石河子市| 都昌县| 临湘市| 桃园市| 兴山县| 泽库县| 喀喇沁旗| 运城市| 和平区| 闻喜县| 察隅县| 天峻县| 鄂伦春自治旗| 南乐县| 乌兰察布市| 称多县| 南涧| 永寿县|