RW4PIR
Full Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
я чо то не понял это, куда ч то должно отображатся ?
Цитата:
Script.SetLanguage(Script_VBScript);
Cen_Proc=[[Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Processor")
conf=conf&"Процессор: "&Trim(objProc.Name)&vbCrLf&"Текущая Скорость Процессора : "&objProc.CurrentClockSpeed&" MHz"&vbCrLf&vbcrlf&"Описание: "&objProc.Caption&vbCrLf
Next ]]
Script.AddCode(Cen_Proc, Script_InternalCode);
strInfo = Script.GetResultAsString("conf");
function String.ToTable(str, delimiter)
local conf = {};
for line in string.gfind(str, "[^"..delimiter.."]+") do
table.insert(conf, line);
end
return (table.getn(conf) > 0) and conf or nil
end
if (strInfo ~= "") then
tblInfo = String.ToTable(strInfo, "\r\n");
if tblInfo then
Dialog.Message("Информафия", tblInfo[1].."\r"..tblInfo[2].."\r"..tblInfo[3], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end |
Добавлено:
Еть ли такая возможность, нажатые ссылки в объекте веб1, открывались в веб2 ? |
-умер, сорри... 
Ответы на наиболее часто задаваемые вопросы: 
дело в том что встроенная функция полноэкранки (SetFullScreen) работает только при загруженном ролике в объект видео,сделать псевдо функцию можно растянув окно и объект видео но что из этого получиться сказать сложно! 
