require 'Gelo'
UAChanger = {}
UAChanger.chrome = '' -- must be blank
UAChanger.opera = 'Opera/9.80 (Windows NT 5.1; U; en) Presto/2.5.22 Version/10.51'
UAChanger.firefox = 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3 (.NET CLR 3.5.30729)'
UAChanger.ie = 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0)'
UAChanger.safari = 'Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR) AppleWebKit/531.22.7 (KHTML, like Gecko) Version/4.0.5 Safari/531.22.7'
UAChanger.msg_restart = 'This change will take effect when you restart the Sandcat Browser.'
function UAChanger:DisplayUserAgent()
local displayhtml = [[
User-Agent Changer
]]
browser.newtab('about:useragent',displayhtml)
end
function UAChanger:UpdateCustomUserAgent()
local ua = extbar.getval('select[name="useragentlist"]')
extbar.setval('input[name="customuseragent"]',ua)
end
function UAChanger:GetUserAgentList()
local p = GStrListParser:new()
local flist = GStrList:new()
local l = browser.readfile('Syhunt.scx','Agent.lst')
p:loadfromstr(l)
while p:parsing() do
flist:add('')
end
local result = flist.text
flist:release()
p:release()
return result
end
function UAChanger:ApplyCustomUserAgent()
local ua = extbar.getval('input[name="customuseragent"]')
browser.setuseragent(ua)
app.showmessage('User-Agent changed to Custom: '..ua)
app.showmessage(UAChanger.msg_restart)
end
function UAChanger:DisplayUserAgentList()
local html = [[
]]
extbar.load(html)
end
function UAChanger:SetUserAgent(s)
local ua = ''
if s == 'Chrome' then ua = self.chrome end
if s == 'Opera' then ua = self.opera end
if s == 'Firefox' then ua = self.firefox end
if s == 'IE' then ua = self.ie end
if s == 'Safari' then ua = self.safari end
browser.setuseragent(ua)
if ua ~= '' then
app.showmessage('User-Agent changed to '..s..': '..ua)
app.showmessage(UAChanger.msg_restart)
else
app.showmessage('User-Agent changed to default (Chrome)')
app.showmessage(UAChanger.msg_restart)
end
end