Posted: Fri Jan 26, 2024 9:58 pm Post subject: Error in script : [string "function GetTheProcessList()
Error in script : [string "function GetTheProcessList()
..."]:2: <name> expected near '='
function GetTheProcessList()
local = {}
local Sl=createStringlistt()
getProcesslist(SL)
for i=0,strings_getstring(SL , i)
T[i] = strings_getString(SL , i)
end
return
end
function GetPros(sender)
local PL = GetTheProcessList()
local S ={}
local variable = ("Conquer Online - Dragon`s Ascension");
UDF1_CheckListBox.Clear()
for x = 0, #PL do
if variable == "ALL"
them
UDF1_CheckListBox1.Items.Add (PL[x] )
else
if string.sup (PL [x] , 10) == variable
then
S[ #S+1] = PL [x] --list for reference
UDF1_CheeckListBox.Items.Add (PL[x])
end
end
end
end
GetPros()
function OpenPro ()
local a = UDF1_CheckListBox1.ItemIndex
if a ~= -1 --negative 1 is nno selection
then
local b + string.sup (UDF1_CheckListBox.Items [a] ,0,
b = tonumber (b,16)
openProcess (b)
else
showMassage ("Erorr")
end
end
function UDF1_CEButton4Click (sender)
GetPros() --Scan
end
function UDF1_CEButton5Click (sender)
OpenPro () --Select
end
function UDF1_CEButton1Click(sender)
end
function UDF1_CEButton2Click(sender)
end
function UDF1_CheckListBox1Click(sender)
end _________________
This is a block of text that can be added to posts you make. There is a 300 character limit
local Sl=createStringlistt() -- listt ?
getProcesslist(SL)
for i=0,strings_getstring(SL , i)
T[i] = strings_getString(SL , i)
end
return
end
-- use function:
Code:
function GetTheProcessList()
local T = {}
list = getProcesslist()
for i,k in pairs(list) do
T[#T + 1] = k -- i = pid, k = processName.exe ..
end
return T
end
-- and .. (Edit ..)
Code:
function OpenPro ()
local a = UDF1_CheckListBox1.ItemIndex
if a ~= -1 --negative 1 is nno selection
then
local b + string.sup (UDF1_CheckListBox.Items [a] ,0,Cool
b = tonumber (b,16)
openProcess (b)
else
showMassage ("Erorr")
end
end
--Use UDF1.CEComboBox1 ..
Code:
function OpenPro()
prcssName = UDF1.CEComboBox1.text
pid1 = getProcessIDFromProcessName(prcssName)
if pid1~=nil then
openProcess(prcssName)
else
showMessage("The selected transaction does not appear to be open. Please tray again!")
-- update combobox list ..
list = getProcesslist()
local variable = ("Conquer Online - Dragon`s Ascension.exe") -- Your process.exe ?
UDF1.CEComboBox1.Clear()
UDF1.CEComboBox1.Items.Add("Select Process")
for i,k in pairs(list) do
if k==variable then -- k = all processName.exe
UDF1.CEComboBox1.Items.Add(k)
end
end
UDF1.CEComboBox1.ItemIndex=0
end
end
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum