欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vbs的一个小疑点。

更新时间: 2014-01-05 01:53:13 责任编辑: Author_N1

 

vbs的一个小问题。。
先说明,我是菜鸟,不要笑我。。刚学习脚本不久。,,

我最新发现一个问题。。
开机出现Document and setting\users\开始 菜单\程序\启动\1.vbs,

这里里面出现vbs启动项。。。。地址是c:\1.vbs 

搞不懂这个vbs是如何加进去的。。。。杀毒没有任何报警。。。

很好奇,,那位朋友告诉我下。代码如何实现的。。。

声明。。自己研究学习用。。。非恶意用途。。

--参考方法--
代码如何实现的?
re:
实现怎么x.vbs加到启动中
--参考方法--
C:\Documents and Settings\用户名\「开始」菜单\程序\启动
--参考方法--
移动到启动下就是了,又不是病毒,所以不会报警,只不过开机优化能弄掉
--参考方法--
直接移动的话杀毒软件应该会报的吧.
VBScript code
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
    sStartupPath = oShell.SpecialFolders("Startup")
    oFSO.MoveFile WScript.ScriptFullName,sStartupPath & "\1.vbs"

--参考方法--
VBScript code

Set oShell = CreateObject("WScript.Shell")
With  oShell
    sStartDir       = .SpecialFolders("Startup") & "\"
    Set oShellLink  = .CreateShortcut(sStartDir & "abc.lnk")
    With oShellLink
        .TargetPath     = "c:\1.vbs"
        .WindowStyle    = 1
        .Description    = "vbs程序"
        .Save
    End With
    Set oShellLink  = Nothing
End With 			
			
		
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:53:13
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2561/
本文WWW.DOC100.NET DOC100.NET版权所有。