lerik2703
так он есть я его установил чо делать дальше ?
так он есть я его установил чо делать дальше ?
так он есть я его установил чо делать дальше ?
Идем в свойства проекта, Project --> Plugins, подключаем Clipboard Pluginтолько вместо Clipboard Plugin,Script Plugin!
Проще поставь переводчик типа Сократа текст из справки копируеться!или поиши в инете,я лично отказался от такого перевода!Ктати если русик из Варезника то там косячок имелся,не знаю исправили его!
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.MaxClockSpeed" 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);
Input.SetText("Input1",tblInfo[1] );
Input.SetText("Input2",tblInfo[2] );
Input.SetText("Input3",tblInfo[3] );
end
end
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.MaxClockSpeed&" 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);
Input.SetText("Input1",tblInfo[1] );
Input.SetText("Input2",tblInfo[2] );
Input.SetText("Input3",tblInfo[3] );
end
end
А в имени процессора какая скорость указанна?
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модераторуDoXeR
Для навидения нужно событие On Enter а Оn Focus работает когда объект выделен!RichText.Copy("RichText1") работает только с выделеным текстом!
как понять "цепляется к ресурсной папке"?
Причина вот в чем, должно быть несколько кнопок в которых основной код один и тот же
function имя_функции (переменная_1, переменная_2,...переменная_n)
--здесь тело(код) функции
return (переменная) -- если функция должна вернуть значение
end
переменная_1 = значение_1
переменная_2 = значение_2
...
переменная_n = значение_n
имя_функции (переменная_1, переменная_2,...переменная_n)
имя_функции (переменная_1, переменная_2,...переменная_n)
Страницы: 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132
Предыдущая тема: PHP RapidGet Pro V