当前位置:编程学习 > VB >>

XP如何实现开机自动弹出对话框

是这样的:
为了防止别人随意登录我的电脑(有开机密码的情况下别人也会破解密码登录的),我想在电脑每次开机时都自动弹出一个对话框,在这个对话框中显示警告语“请勿进入别人的机器”,并且在这个对话框中还要显示一个文本框让用户输入一个密码,只有密码输入正确才可以取消弹出的对话框,这样的功能怎么实现呢,请教各位大虾!请详细一些,本人属菜鸟级别! 系统密码可以破解,自己做的也可以破解,有意义吗? 破解没有关系的,我只是想用这个提示框对别人一个警告而已! 1。弹出画面应该很简单

2。可以用文件保存密码,读文件比较密码是否正确

3。可以把做好的程序放在启动里,这样会开机启动 楼上的你好,请具体说一下好吗,十分感谢! 自己先试着写一下 如果系统的密码都可以破解了,你这个对话框里的密码还有意义吗? 我只想知道xp密码怎么可能轻易破解

笨办法是另外一回事

能破解xp密码的人在乎你这个么
引用 3 楼 jhone99 的回复:
1。弹出画面应该很简单

2。可以用文件保存密码,读文件比较密码是否正确

3。可以把做好的程序放在启动里,这样会开机启动


1.没意见
2.文件保存明文密码太危险,必须考虑文件加密,而且如果此文件被删,自己也无法正常使用电脑,不推荐
3.加入启动项是实现了开机启动,但是实在进入xp以后,除非还要用其他方法禁止一切系统动作,否则只要该启动项再重启就行了
引用 8 楼 nnnnnetant 的回复:
引用 3 楼 jhone99 的回复:
1。弹出画面应该很简单

2。可以用文件保存密码,读文件比较密码是否正确

3。可以把做好的程序放在启动里,这样会开机启动


1.没意见
2.文件保存明文密码太危险,必须考虑文件加密,而且如果此文件被删,自己也无法正常使用电脑,不推荐
3.加入启动项是实现了开机启动,但是实在进入xp以后,除非还要用其他方法禁止一切系统动作,否则只要该启动项再重启就行了

突然想起来,alt+f4就解决掉了
引用 9 楼 nnnnnetant 的回复:
引用 8 楼 nnnnnetant 的回复:
引用 3 楼 jhone99 的回复:
1。弹出画面应该很简单

2。可以用文件保存密码,读文件比较密码是否正确

3。可以把做好的程序放在启动里,这样会开机启动


1.没意见
2.文件保存明文密码太危险,必须考虑文件加密,而且如果此文件被删,自己也无法正常使用电脑,不推荐
3.加入启动项是实现了开机启动,但是实在进入xp以后,除非还要用其他方法禁止一切系统动作,否则只要该启动项再重启就行了

突然想起来,alt+f4就解决掉了

hook windows键、alt等键即可
引用 10 楼 sysdzw 的回复:
引用 9 楼 nnnnnetant 的回复:
引用 8 楼 nnnnnetant 的回复:
引用 3 楼 jhone99 的回复:
1。弹出画面应该很简单

2。可以用文件保存密码,读文件比较密码是否正确

3。可以把做好的程序放在启动里,这样会开机启动


1.没意见
2.文件保存明文密码太危险,必须考虑文件加密,而且如果此文件被删,自己也无法正常使用电脑,不推荐
3.加入启动项是实现了开机启动,但是实在进入xp以后,除非还要用其他方法禁止一切系统动作,否则只要该启动项再重启就行了

突然想起来,alt+f4就解决掉了

hook windows键、alt等键即可

我的意思是说破解的方法太多了,如果按这个思路做下去将会面对一系列的问题
如果真做成的就变超级高手了 收回刚才的话,也许真有办法,
1.锁掉一些键
2,鼠标移动范围限制在窗体内 各位大虾想得太复杂了,我只想简单的实现这么一个提示框,给擅自使用电脑的人一个警示,而不是真的要禁止别人使用,俗话说“防君子不防小人”嘛,再严密的程序总会有破解的办法的这个我知道。
还是恳请各位大虾们给我一个详细的解决方案(最好给出代码,本人实在是菜鸟级别的。) 写个脚本或批处理,加入login script,搞掂。
或·者在屏幕上打个警告的图片。
或者在你的显示屏山贴张警告, 几个问题

1.除了你说的功能以外是否在此程序打开状态不能加载其他程序
2。是否此程序始终置于顶层
3.是否可以用热键结束进程 '方法 1    

Dim aa$, bb$    
Private Sub Command1_Click()    
 aa = "c:\a.exe"    
 bb = Environ("userprofile") & "\「开始」菜单\程序\启动\a.exe"    
 FileCopy aa, bb    
End Sub    

    
'方法 2 (写进注册表)    
    

'使用下面这三个API与两个常数    

Private Declare FunXXction RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long    
Private Declare FunXXction RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long    
Private Declare FunXXction RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long    
Const HKEY_LOCAL_MACHINE = &H80000002    
Const REG_SZ = 1    
Private Sub Command1_Click()    
 Dim Ret2 As Long    
 '打开 HKEY_LOCAL_MACHINE 下的 software\microsoft\windows\currentVersion\run    
 RegCreateKey HKEY_LOCAL_MACHINE, "software\microsoft\windows\currentVersion\run", Ret2    
 '将此主键下的 "默认" 值改为你的 exe 全路径"    
 RegSetValue Ret2, vbNullString, REG_SZ, "c:\a.exe", 4    
 '关闭对主键的操作    
 RegCloseKey Ret2    
End Sub


实现开机启动很多办法
重要的事之后的功能
http://www.symental.com/sfw/LockWindows.rar
楼主,这里有完整代码,其实是个成品软件,慢慢研究下,它主要特色就是吃掉了几个系统快捷键
引用楼主 qdubit 的回复:
是这样的:
为了防止别人随意登录我的电脑(有开机密码的情况下别人也会破解密码登录的),我想在电脑每次开机时都自动弹出一个对话框,在这个对话框中显示警告语“请勿进入别人的机器”,并且在这个对话框中还要显示一个文本框让用户输入一个密码,只有密码输入正确才可以取消弹出的对话框,这样的功能怎么实现呢,请教各位大虾!请详细一些,本人属菜鸟级别!


密码什么意思:就是可恶的意思!
把你的键盘换了,到电脑城去买一个指纹加密键盘! 要搞在进入系统之前运行?
引用 19 楼 chenjl1031 的回复:
引用楼主 qdubit 的回复:
是这样的:
为了防止别人随意登录我的电脑(有开机密码的情况下别人也会破解密码登录的),我想在电脑每次开机时都自动弹出一个对话框,在这个对话框中显示警告语“请勿进入别人的机器”,并且在这个对话框中还要显示一个文本框让用户输入一个密码,只有密码输入正确才可以取消弹出的对话框,这样的功能怎么实现呢,请教各位大虾!请详细一些,本人属菜鸟级别!


密码什么意思:就是可恶的意思!
把你的键盘换了,到电脑城去买一个指纹加密键盘!


这个高 搞个图片,上面写上几个打字“偷用被人电脑可耻”,然后把它设置系统背景。。。呵呵!! 最简单的方法是在开机运行中加入一段VBA代码,让电脑开机后执行,shutdown -s -t 设置成60秒进行关机。,一般人在一分钟内不知道如何解除,那只有关机了。 楼主已出国定居,后面的人不要再回了。
补充:VB ,  VBA
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,