20CN网络安全小组论坛 - 编程破解 - 我要做一个VB编的程序，请帮帮我！

论坛: 编程破解标题: 我要做一个VB编的程序，请帮帮我！

复制本贴地址

作者: lygxty [lygxty]

论坛用户

它要可以在启动时自启动，而且在启动项里删不了，屏蔽CTRL+ALT+DEL
屏蔽ALT+F4谢谢。请爱好VB的加我QQ：121685351

地主发表时间: 07/26 21:49

回复: ricky [ricky]

版主

哈哈，用VB写这样的东东，好难啊，全得调API，还不如直接用C

B1层发表时间: 07/26 23:54

回复: ranchuan [ranchuan]

版主

1，调用注册表函数，写入键值让程序自动运行，另外还要禁止注册表
2，用API屏掉那三个组合键就行了
3，第三个就难些，要用钩子函数才行吧

B2层发表时间: 07/29 10:54

回复: tabris17 [tabris17]

论坛用户

把ALT-F4注册成VB程序的热健呢？

B3层发表时间: 07/29 10:58

回复: xjy1234 [xjy1234]

论坛用户

只要不给你的程序加标题栏就行了,这样在按下Ctrl_Alt_Del后,在那里面就找不到你的程序了.就等于屏蔽了那个键了.当然你得修改一下注册表的run键值就行了,这样在每次只要你启动一个应用程序,你的这个程序就会执行了.

B4层发表时间: 08/02 21:25

回复: debug [debug]

论坛用户

我认为屏蔽热启动的组合键用常用的API函数调用方法来做好像只可以再win98中实现,一旦到了2000/xp 程序就不起作用了!

B5层发表时间: 08/03 21:47

回复: vbhero [vbhero]

论坛用户

为了防止运行在客户端的程序被用户发现，可以把窗体隐藏，并调用API函数让其在Ctrl＋Alt＋Del的程序列表中消失，需要把自己的程序注册为服务器（Service），这可以利用RegisterService API函数将程序的进程ID进行注册来实现。在程序退出时再次使用此API函数将服务器注册取消。方法如下：
　　1.在窗体的声明部分声明加入API函数和需要的常数：
　　Private Declare Function GetCurrentProcessId Lib ″kernel32″ () As Long
　　Private Declare Function GetCurrentProcess Lib ″kernel32″ () As Long
　　Private Declare Function RegisterServiceProcess Lib ″kernel32″ (ByVal dwProcessID As Long， _ ByVal dwType As Long) As Long
　　Private Const RSP_SIMPLE_SERVICE = 1
　　Private Const RSP_UNREGISTER_SERVICE = 0
　　2.注册为service和释放注册的过程：
　　在Form_Load事件的开始添加如下代码
　　Dim pid As Long
　　Dim reserv As Long
　　pid = GetCurrentProcessId() ′得到当前进程ID
　　regserv = RegisterServiceProcess(pid， RSP_SIMPLE_SERVICE) ′把本程序注册为service
　　把Form_QueryUnload事件修改为如下代码，即在程序结束时把服务器注册取消
　　Private Sub Form_QueryUnload(Cancel As Integer， UnloadMode As Integer)
　　Dim pid As Long
　　Dim reserv As Long
　　Close ＃1
　　pid = GetCurrentProcessId()
　　regserv = RegisterServiceProcess(pid， RSP_UNREGISTER_SERVICE)
　　End Sub
　　如果让程序开机运行，需要先把文件编译为可执行文件放到特定目录下，并修改注册表让其开机便运行，路径是HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersonRun，用API函数在里面写入个字符串型的键值，并把内容修改成为你的文件名(包括路径)即可，当然，更为实用的功能是把访问的网址信息定时传送到服务器，需要用到Winsock控件和定时传输
VB操作注册表： http://www.sqreg.com/file/vb/reg_01.htm

B6层发表时间: 08/04 17:36

回复: LostAngel [lostangel]

论坛用户

楼上的
注册为系统服务在2000下有效吗？

B7层发表时间: 08/05 21:00

论坛: 编程破解