GTAIV Registry Recover(code).pdf

《GTAIV Registry Recover(code).pdf》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、#Region"说明"'GTAIVRegistryRecover'作者:黎振旺QQ:624729759#EndRegionImportsSystem.ManagementModuleMainModulePublicConAsSystem.ConsolePublicIsbit32AsBooleanPublicIschsAsBooleanSubmain()WithConIfUCase(My.Computer.Info.InstalledUICulture.ThreeLetterWindowsLanguageName.ToString)="CHS"ThenIschs=TrueElseIs

2、chs=FalseDimsearchAsNewManagementObjectSearcher("SELECT*FROMWin32_ComputerSystem")DiminfoAsManagementObjectForEachinfoInsearch.Get()SelectCaseLSet(info("systemtype").ToString(),3)Case"x86","X86"Isbit32=TrueCase"x64","X64"Isbit32=FalseEndSelectNext.Title=Application.ProductName.Write(Applicatio

3、n.ProductName)IfIschs=TrueThen.Write("软件作者:黎振旺")Else.Write("CodedBy黎振旺").Write(vbCrLf)IfIschs=TrueThen.Write("此应用程序适用于恢复GTA4以及GTA4EFLC注册表")Else.Write("ThisprogramisuseforrecovertheregistryofGTAIVandEFLC").Write(vbCrLf).Write(vbCrLf)IfIschs=TrueThen.Write("系统版本:"&My.Computer.Info.OSFullName.ToS

4、tring)Else.Write("OSName:"&My.Computer.Info.OSFullName.ToString)IfIschs=TrueThenIfIsbit32=TrueThen.Write("(32位操作系统)")Else.Write("(64位操作系统)")ElseIfIsbit32=TrueThen.Write("(32bit)")Else.Write("(64bit)")EndIf.Write(vbCrLf).Write(vbCrLf)IfMy.Computer.FileSystem.FileExists(Application.StartupPath&"

5、GTAIV.exe")=TrueThenTryIfIsbit32=TrueThenIfIschs=TrueThen.Write("正在写入"&Application.StartupPath.ToString&"到HKEY_LOCAL_MACHINESOFTWARERockstarGamesGrandTheftAutoIVInstallFolder")Else.Write("Writing"&Application.StartupPath.ToString&"toHKEY_LOCAL_MACHINESOFTWARERockstarGamesGrandTheftAuto

6、IVInstallFolder")EndIfMy.Computer.Registry.SetValue("HKEY_LOCAL_MACHINESOFTWARERockstarGamesGrandTheftAutoIV","InstallFolder",Application.StartupPath)ElseIfIschs=TrueThen.Write("正在写入"&Application.StartupPath.ToString&"到HKEY_LOCAL_MACHINESOFTWAREWow6432NodeRockstarGamesGrandTheftAutoIV

7、InstallFolder")Else.Write("Writing"&Application.StartupPath.ToString&"toHKEY_LOCAL_MACHINESOFTWAREWow6432NodeRockstarGamesGrandTheftAutoIVInstallFolder")EndIfMy.Computer.Registry.SetValue("HKEY_LOCAL_MACHINESOFTWAREWow6432NodeRo