开机时自动运行的代码 立马给分

[aiguo25]

想在运行时自动弹出窗口，请给出开机时自动运行的代码，谢谢！

[kimurakenshin]

写成批处理文件(*.bat),然后放到启动组中.

例如：net share E$ /dele

批处理文件的语法，你只要自己查就好了．

[kimurakenshin]

＊．bat文件：写成记事本形式，然后在存储的时候改变扩展名为 .bat即可．

[Dublue]

没太看懂~~~放到启动组里不就是了？

[power17]

编译成.exe文件
将其拖到"开始"菜单的启动目录下

[aiguo25]

能不能再详细一点？

[kimurakenshin]

是放到启动组里就可以了,但也必须是可执行文件吧!!!

可执行的文件除了.exe,就是.bat.

１．可以把你要运行的程序的.exe文件放到启动组．方便，简单，有效．

２．把它放到组策略中．
３．把它放到注册表里．
４．把它写到批处理文件中，让它执行，－－麻烦

[kmzs]

写一下注册表比较保险

[kimurakenshin]

1.启动组：开始－＞程序－＞启动

２．注册表：开始－＞运行－＞输入：regedit回车－＞HEY_LOCAL_MACHINE-->SOFTWARE-->
MICROSOFT-->WINDOWS-->CURRENTVERSION-->RUN-->右边列表：默认，右键单击－＞
　　修改－＞数值数据：把你要启动的程序的.exe文件在目录ＣＯＰＹ过来．

[hemeijun81]

放到启动中或写进注册表中

[minghui000]

关注０００

[kimurakenshin]

???

[kimurakenshin]

你到底需要什么效果,写清楚!!!!

[lxcc]

贴个注册表的
Private Declare Function RegCreateKey& Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey&, ByVal lpszSubKey$, lphKey&)
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1

'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
Public Function AutoRun() As Boolean
'声明变量
Dim sKeyName As String, sKeyValue As String, sKeyValueIcon As String
Dim Ret As Integer, lphKey As Long
On Error GoTo errHandle
sKeyName = "Software\Microsoft\Windows\CurrentVersion\Run"
sKeyValue = "自动运行程序的完整路径和完整文件名称"
Ret = RegCreateKey&(HKEY_LOCAL_MACHINE, sKeyName, lphKey)
Ret = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
AutoRun = True
Exit Function
errHandle:
AutoRun = False
End Function

[lxcc]

调用AutoRun 即可