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

Question

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

Answer 1

写成批处理文件(*.bat),然后放到启动组中.例如：net share E$ /dele批处理文件的语法，你只要自己查就好了．

Answer 2

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

Answer 3

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

Answer 4

是放到启动组里就可以了,但也必须是可执行文件吧!!!可执行的文件除了.exe,就是.bat.１．可以把你要运行的程序的.exe文件放到启动组．方便，简单，有效．２．把它放到组策略中．
３．把它放到注册表里．
４．把它写到批处理文件中，让它执行，－－麻烦

Answer 5

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

Answer 6

贴个注册表的 
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 LongConst 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