none
开机启动怎么不行~ RRS feed

  • 问题

  •  Dim Reg As Microsoft.Win32.RegistryKey
            Reg = Microsoft.Win32.Registry.CurrentUser
            Reg.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
            Reg.SetValue("MB", Application.ExecutablePath) '写入注册表
            Reg.Close()
    2010年8月20日 8:25

答案

  • Hi

    你的代码貌似有点问题,请你你是要写进LocalMachine里面或者CurrentUser啊?

     

    如果是LocalMachine,可以试试看这样:

     

    Dim rkApp As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
    rkApp.SetValue("Keylogger", Application.ExecutablePath.ToString())
    rkApp.Close()
    

     

    嗯,然后你不行的问题其实是因为你用OpenSubKey打开到所指明的地方但却没有存到Reg的值里面,所以Reg在执行SetValue的时候其实是把你的NzRe建立在HKEY_LOCAL_MACHINE这里了。

    希望能帮到你 :)

     

    cchitsiang

     

    2010年8月22日 16:08

全部回复

  • 你看注册表写得对不对


    http://feiyun0112.cnblogs.com/
    2010年8月20日 8:28
    版主
  •  Dim Reg As Microsoft.Win32.RegistryKey
            Reg = Microsoft.Win32.Registry.CurrentUser
            Reg.OpenSubKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
            Reg.SetValue("NzRe", Application.ExecutablePath) '写入注册表
            Reg.Close()
    这样?还是不行
    2010年8月20日 8:31
  • Hi

    你的代码貌似有点问题,请你你是要写进LocalMachine里面或者CurrentUser啊?

     

    如果是LocalMachine,可以试试看这样:

     

    Dim rkApp As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
    rkApp.SetValue("Keylogger", Application.ExecutablePath.ToString())
    rkApp.Close()
    

     

    嗯,然后你不行的问题其实是因为你用OpenSubKey打开到所指明的地方但却没有存到Reg的值里面,所以Reg在执行SetValue的时候其实是把你的NzRe建立在HKEY_LOCAL_MACHINE这里了。

    希望能帮到你 :)

     

    cchitsiang

     

    2010年8月22日 16:08
  • 谢谢~果然行啊!!!!!!!!!!!!!!!!!!

    顺便问问怎么删除这个键

    2010年8月24日 2:13