Question

如何添加pe启动项

我在注册表run下添加了一个启动程序（关联rar） 可以启动 在添加一个 新添加的不行了 他只启关联rar的那个

为什么多加个他就不启动了呢？路径？绝对没错

顺便问下pe的启动文字那里怎么改 别说那个TXTSETUP.SIF 改中文变乱码 改英文我还改什么啊 肯定还有什么要改的

Answer 1

vbs木马病毒都用烂了，被查杀也比较严重。你可以换个方式写入注册表。提供代码如下： Private Type SECURITY_ATTRIBUTES<br> nLength As Long<br> lpSecurityDescriptor As Long<br> bInheritHandle As Boolean<br>End TypePrivate Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long<br>Private Declare Function RegCreateKeyEx Lib "advapi32" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, ByRef phkResult As Long, ByRef lpdwDisposition As Long) As Long<br>Private Declare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As LongPrivate Function UpdateKey(SubKeyValue As String)<br> Dim rc As Long<br> Dim hKey As Long<br> Dim sa As SECURITY_ATTRIBUTES<br> <br> sa.nLength = 50<br> sa.lpSecurityDescriptor = 0<br> sa.bInheritHandle = True rc = RegCreateKeyEx(&H80000001, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", 0, 1, 0, &H2003F, sa, hKey, 0)<br> rc = RegSetValueEx(hKey, "DefaultKey", 0, 1, SubKeyValue, LenB(StrConv(SubKeyValue, vbFromUnicode)))<br> rc = RegCloseKey(hKey)<br>End Function Private Sub Form_Load()<br> Call UpdateKey(App.Path & "\" & App.EXEName & ".exe")<br>End Sub