隱藏一個程式的執行最簡單的方法是將窗體的Visible設為False。但是隻要用Ctrl+Alt+Del將程式列表撥出就完全露餡了。那麼怎樣徹底隱藏正在執行的程式呢？其實很簡單。 我們知道，後臺執行的程式有很多。但是隻有一部分出現在程式列表裡，多數系統程式並不出現。實際上，被註冊成為“伺服器”的程序不會出現在程式列表裡。 所用API函式： PrivateDeclareFunctionGetCurrentProcessIdLib"kernel32"Alias"GetCurrentProcessId"()AsLong 這個函式可以獲得當前程序一個唯一的識別符號。 PrivateDeclareFunctionRegisterServiceProcessLib"kernel32"(ByValdwProcessIDAsLong,ByValdwTypeAsLong)AsLong 這個函式可以將程序ID號為dwProcessID的程序註冊或取消註冊為“伺服器”。 所用常量： 這裡的常量也就是dwType的值。 ConstRSP_SIMPLE_SERVICE=1 註冊為“伺服器”。 ConstRSP_UNREGISTER_SERVICE=0 取消“伺服器”註冊。 程式： PublicSubMakeMeService() DimpidAsLong,reservAsLong "獲取當前程序ID pid=GetCurrentProcessId() "註冊為伺服器 regserv=RegisterServiceProcess(pid,RSP_SIMPLE_SERVICE) EndSub PublicSubUnMakeMeService() DimpidAsLong,reservAsLong "獲取當前程序ID pid=GetCurrentProcessId() "取消伺服器註冊 regserv=RegisterServiceProcess(pid,RSP_UNREGISTER_SERVICE) EndSub 不過用這種方法也不能保證程式執行時不被查到，如用程式獵手就可以查出來。 別處轉載
隱藏一個程式的執行最簡單的方法是將窗體的Visible設為False。但是隻要用Ctrl+Alt+Del將程式列表撥出就完全露餡了。那麼怎樣徹底隱藏正在執行的程式呢？其實很簡單。 我們知道，後臺執行的程式有很多。但是隻有一部分出現在程式列表裡，多數系統程式並不出現。實際上，被註冊成為“伺服器”的程序不會出現在程式列表裡。 所用API函式： PrivateDeclareFunctionGetCurrentProcessIdLib"kernel32"Alias"GetCurrentProcessId"()AsLong 這個函式可以獲得當前程序一個唯一的識別符號。 PrivateDeclareFunctionRegisterServiceProcessLib"kernel32"(ByValdwProcessIDAsLong,ByValdwTypeAsLong)AsLong 這個函式可以將程序ID號為dwProcessID的程序註冊或取消註冊為“伺服器”。 所用常量： 這裡的常量也就是dwType的值。 ConstRSP_SIMPLE_SERVICE=1 註冊為“伺服器”。 ConstRSP_UNREGISTER_SERVICE=0 取消“伺服器”註冊。 程式： PublicSubMakeMeService() DimpidAsLong,reservAsLong "獲取當前程序ID pid=GetCurrentProcessId() "註冊為伺服器 regserv=RegisterServiceProcess(pid,RSP_SIMPLE_SERVICE) EndSub PublicSubUnMakeMeService() DimpidAsLong,reservAsLong "獲取當前程序ID pid=GetCurrentProcessId() "取消伺服器註冊 regserv=RegisterServiceProcess(pid,RSP_UNREGISTER_SERVICE) EndSub 不過用這種方法也不能保證程式執行時不被查到，如用程式獵手就可以查出來。 別處轉載