1 "*SPEED HACK ZERO" 80000008 Auto Assembler Script [ENABLE] luacall(speedhack_setSpeed(0)) [DISABLE] luacall(speedhack_setSpeed(1)) -- function pidDialog(doPid,autoSelectFirst,pn,dn) autoSelectFirst = autoSelectFirst or false -- print(type(autoSelectFirst)) local plugname = type(pn)=='table' and pn or {"iexplore","flashplayerplugin","plugin-container","opera","chrome","awesomium_process","torch","dragon","maxthon","palemoon","safari" } local dllname = type(dn)=='table' and dn or {"flash","unity" } if type(pn)=='string' then table.insert(plugname,pn) end if type(dn)=='string' then table.insert(dllname,dn) end local indexOf = function(s,m) for i=1,#m do if string.find(string.lower(s),string.lower(m[i]),1,true) then return i end end end -- cave insensitive find local function tmerge(t,o,...) for k,v in pairs(o) do t[k]=v end if select('#',...)>0 then return tmerge(t,...) else return t end end local function callLater(f,...) local a,n = {...},select('#',...) local t = tmerge(createTimer(),{Interval=1,Enabled=true,OnTimer=function(sender) sender.Enabled=false sender.Destroy() f(unpack(a,1,n)) end}) return t end local function parseProc(i,s) local dll=' ... ' for pid,name in string.gmatch(s,'([0-9A-F]+)-(.*)') do local weight,pid = 0,tonumber(pid,16) for _,v in ipairs(plugname) do if indexOf(name,plugname) then weight = weight + 1 local m = enumModules(pid) for i=1,#m do local ix = indexOf(m[i].Name,dllname) if ix then weight = weight + 1 dll = dllname[ix] break end end break end end return {pid=pid,desc=string.format('%5d %04X <%5s> %s',pid,pid,string.sub(dll.." ",1,5):upper(),name),name=name,w=weight+i/2048,dll=dll} end end local FP = createForm(false) tmerge(FP,{FormStyle='fsStayOnTop',AutoSize=true,BorderWidth=4,Color=0x80,Position='poScreenCenter',BorderStyle='bsToolWindow',Caption='Double Click to Select'}) local LB = createListBox(FP) tmerge(LB,{MultiSelect=false,AutoSize=true,Color=0x80}) local cs = LB.Constraints tmerge(cs,{MinHeight=300,MinWidth=400}) local fn = LB.Font tmerge(fn,{Color=0xffffff,Name='Courier New',Height=-12,Style='[bsBold]'}) LB.OnDblClick = function() local idx,PID,NAME = LB.ItemIndex,nil,'' if idx >= 0 then DESC = LB.Items[idx] for pid,pID,name in string.gmatch(DESC,"([0-9]+) ([0-9A-F]+) <.-> (.*)") do PID = tonumber(pid,10) NAME = name end end -- print(tostring(PID)) if PID ~= nil then callLater(doPid,PID,NAME,DESC) end FP.close() end -- LB.OnDblClick FP.OnClose = function() FP.destroy(); FP = nil end getProcesslist(LB.Items) local plist = {} for i=1,LB.Items.getCount() do table.insert(plist,parseProc(i,LB.Items[i-1])) end table.sort(plist,function(a,b) return a.w > b.w end) local currProcId = getOpenedProcessID() for i=1,LB.Items.getCount() do LB.Items.setString(i-1,plist[i].desc) if plist[i].pid == currProcId then LB.setItemIndex(i-1) end -- if i < 6 and type(autoSelectFirst)=='string' then print(plist[i].dll,indexOf(plist[i].dll,{autoSelectFirst}) or 'NIL') end if i==1 and autoSelectFirst == true or type(autoSelectFirst)=='string' and indexOf(plist[i].dll,{autoSelectFirst}) ~=nil then LB.setItemIndex(i-1) LB.OnDblClick() return end end FP.show() end -- usage: --pidDialog(print) --pidDialog(openProcess) --pidDialog(function(pid,name) print(string.format('%04X-%s',pid,name)) end) function ftest() local function tmerge(t,o,...) for k,v in pairs(o) do t[k]=v end if select('#',...)>0 then return tmerge(t,...) else return t end end -- test form setup dllname = {'cheat'} local FT = createForm(false) tmerge(FT,{FormStyle='fsStayOnTop',AutoSize=true,BorderWidth=4,Position='poScreenCenter',BorderStyle='bsToolWindow',Caption='Test Label/Button form'}) local LT = createLabel(FT) tmerge(LT,{Caption='Click Me',Color=0xffffff}) local fn = LT.Font tmerge(fn,{Height=40,Style='[bsBold]'}) -- attack an action/function to click event LT.OnClick = function(sender) -- call pidDialog when clicked, pidDialog(function(pid,name) -- here do the action on RETURNED pid,name from pidDialog openProcess(pid) sender.Caption = string.format('%04X-%s',pid,name) end) -- or true for auto select first (highest weight), no form show end FT.show() end -- ftest ftest()