Script to show the information about a user from the website (IP, reflink, browser userage, language, operating system)
Posted: Fri Nov 16, 2018 6:53 pmThe script is handled to the event OnPrivateRequest on the server. It works in MyChat version 5.22 and higher.
Looks like this:
web-sup-info.png (17.77 KiB) Viewed 7164 times
Help: https://nsoft-s.com/en/mcserverhelp/index.html?scriptseventsonprivaterequest.htm
Code: Select all
function OnPrivateRequest(iCID, iUIN, iUINTo, iRole, iRoleReciever, iTask: integer): boolean;
var
s,
sIP, //user IP address in WEB support
sWEBSupportBrowserInfo, // browser information
sWEBSupportRefLink, // reflink
sWEBSupportsSysLanguage, // browser local language
sWEBSupportsPlatformOS: string; // user operating system
iCIDTo: integer;
begin
if mGetRoleNameByID(iRole) = 'WEB guests' then begin
sIP := mGetUserAttribute(iUIN, 'IP_Address');
sWEBSupportBrowserInfo := mGetUserAttribute(iUIN, 'WEBSupportBrowserInfo');
sWEBSupportRefLink := mGetUserAttribute(iUIN, 'WEBSupportRefLink');
sWEBSupportsSysLanguage := mGetUserAttribute(iUIN, 'WEBSupportSysLanguage');
sWEBSupportsPlatformOS := mGetUserAttribute(iUIN, 'WEBSupportPlatformOS');
s := '---------------' + CRLF +
'-=WEB Support=-' + CRLF + CRLF +
'IP: ' + sIP;
if length(sWEBSupportBrowserInfo) > 0 then s := s + CRLF + 'Browser: ' + sWEBSupportBrowserInfo + CRLF;
if length(sWEBSupportRefLink) > 0 then s := s + CRLF + 'Reflink: ' + sWEBSupportRefLink;
if length(sWEBSupportsSysLanguage) > 0 then s := s + CRLF + 'System language: ' + sWEBSupportsSysLanguage;
if length(sWEBSupportsPlatformOS) > 0 then s := s + CRLF + 'OS: ' + sWEBSupportsPlatformOS;
mSendPrivateMessage(iUIN, iUINTo, s, 21, true);
iCIDTo := mGetUserCID(iUINTo);
mSendCustomMsgToClientConsoleByCID(iCIDTo, 'WEB support session from UIN ' + inttostr(iUIN), 'newmsg', false, true, 78);
end;
result := true;
end;
begin
end.Looks like this:
Help: https://nsoft-s.com/en/mcserverhelp/index.html?scriptseventsonprivaterequest.htm