Как ускорить системное время Я идиот! Убейте меня, кто-нибудь!??
dim objWMIService as object, colItems as object, colItem as object
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery ("Select * from Win32_BiosPowerManagement")
for each colItem in colItems
colItem.PowerFrequency = colItem.PowerFrequency * 2
next
Поставь в таймере код который каждые 30 секунд увеличивал системное время на минуту (или по желанию) Smile
Max! писал(а):Ругается не пойму типо пишет "Automation error" и указывает на строчку : "for each colItem in colItems "
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 66