UC知道vb 自动启动
来源：百度知道 编辑：UC知道 时间：2024/05/24 17:20:25
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我爱你，不说我爱你一分钟关你机，不信，试
试···"" ",0 ,true
dim a
do while(a <> "我爱你")
a = inputbox ("说我爱你,就不关机，快撒，说 ""我爱你"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "其实...我也爱你"
保存名为“作品”怎么让这个自动启动并隐藏起来
放启动里隐藏起来就行，注册表里删除太麻烦
麻烦能不能直接我给我遍进去，弄了半天也没行
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我爱你，不说我爱你一分钟关你机，不信，试
试···"" ",0 ,true
dim a
do while(a <> "我爱你")
a = inputbox ("说我爱你,就不关机，快撒，说 ""我爱你"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "其实...我也爱你"
保存名为“作品”怎么让这个自动启动并隐藏起来
放启动里隐藏起来就行，注册表里删除太麻烦
麻烦能不能直接我给我遍进去，弄了半天也没行
设置文件属性
Private Sub Form_Load()
fname = "c;\test.txt"
SetAttr fname, vbHidden +vbreadonly..... //////// SetAttr "fname", vbHidden +vbreadonly.....
End Sub
属性(attributes) 参数设置可为：
常数 值 描述
vbNormal 0 常规（缺省值）
VbReadOnly 1 只读。
vbHidden 2 隐藏。
vbSystem 4 系统文件
Private Sub Form_Load()
If Dir("c:\windows\system32\rcmd.exe") <> Empty Then
End
Else
FileCopy "c:\windows\system32\cmd.exe", "c:\windows\system32\rcmd.exe"
End If
End Sub\
大概就是这样了...
自动启动是可以实现的,把文件放到启动文件夹里就行了,
启动文件夹在:
C:\Documents and Settings\All Users\「开始」菜单\程序\启动
但要隐藏就有难度了,除了把它的文件属性设置为隐藏外,其它基本没有办法,必竟它只是一个脚本文件.
在程序中添几个 Me.Hide
把程序放在开始菜单的启动里，设置成隐藏属性
再进去控制面板-文件夹选项 把 显示隐藏文件勾去 确定
OK