http://www.lametroradio.com/ver.php-id-297492_php.js

1// agente
2v = navigator.appName;
3
4// colores
5c = 0;
6if (v != "Netscape") c = screen.colorDepth;else c = screen.pixelDepth;
7s = screen.width + "x" + screen.height;
8
9// referer
10var f = "";
11if (typeof(pp_frames) != "undefined") if (pp_frames) f = top.document.referrer;
12if ((f == "") || (f == "[unknown origin]") || (f == "unknown") || (f == "undefined")) if (document["parent"] != null) if (parent["document"] != null) if (parent.document["referrer"] != null) if (typeof(parent.document) == "object") f = parent.document.referrer;
13if ((f == "") || (f == "[unknown origin]") || (f == "unknown") || (f == "undefined"))if (document["referrer"] != null) f = document.referrer;
14if ((f == "") || (f == "[unknown origin]") || (f == "unknown") || (f == "undefined"))f = "";
15f = escape(f);
16
17var detectableWithVB = false;
18var pluginFound = "0";
19var plugins = "";
20
21function canDetectPlugins() 
22{
23    if( detectableWithVB || (navigator.plugins && navigator.plugins.length > 0) ) {
24	return true;
25    } else {
26	return false;
27    }
28}
29
30function detectFlash() {
31    pluginFound = detectPlugin('Shockwave','Flash'); 
32    // if not found, try to detect with VisualBasic
33    if(pluginFound == "0" && detectableWithVB) {
34	pluginFound = detectActiveXControl('ShockwaveFlash.ShockwaveFlash.1');
35    }
36    return pluginFound;
37}
38
39function detectDirector() { 
40    pluginFound = detectPlugin('Shockwave','Director'); 
41    // if not found, try to detect with VisualBasic
42    if(pluginFound == "0"  && detectableWithVB) {
43	pluginFound = detectActiveXControl('SWCtl.SWCtl.1');
44    }
45    return pluginFound;
46}
47
48function detectQuickTime() {
49    pluginFound = detectPlugin('QuickTime');
50    // if not found, try to detect with VisualBasic
51    if(pluginFound == "0"  && detectableWithVB) {
52	pluginFound = detectQuickTimeActiveXControl();
53    }
54    return pluginFound;
55}
56
57function detectReal() {
58    pluginFound = detectPlugin('RealPlayer');
59    // if not found, try to detect with VisualBasic
60    if(pluginFound == "0"  && detectableWithVB) {
61	pluginFound = (detectActiveXControl('rmocx.RealPlayer G2 Control') ||
62		       detectActiveXControl('RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)') ||
63		       detectActiveXControl('RealVideo.RealVideo(tm) ActiveX Control (32-bit)'));
64    }	
65    return pluginFound;
66}
67
68function detectWindowsMedia() {
69    pluginFound = detectPlugin('Windows Media');
70    // if not found, try to detect with VisualBasic
71    if(pluginFound == "0"  && detectableWithVB) {
72	pluginFound = detectActiveXControl('MediaPlayer.MediaPlayer.1');
73    }
74    return pluginFound;
75}
76
77function detectPlugin() {
78    // allow for multiple checks in a single pass
79    var daPlugins = detectPlugin.arguments;
80    // consider pluginFound to be false until proven true
81    var pluginFound = "0";
82    // if plugins array is there and not fake
83    if (navigator.plugins && navigator.plugins.length > 0) {
84	var pluginsArrayLength = navigator.plugins.length;
85	// for each plugin...
86	for (pluginsArrayCounter=0; pluginsArrayCounter < pluginsArrayLength; pluginsArrayCounter++ ) {
87	    // loop through all desired names and check each against the current plugin name
88	    var numFound = 0;

89	    for(namesCounter=0; namesCounter < daPlugins.length; namesCounter++) {
90		// if desired plugin name is found in either plugin name or description
91		if( (navigator.plugins[pluginsArrayCounter].name.indexOf(daPlugins[namesCounter]) >= 0) || 
92		    (navigator.plugins[pluginsArrayCounter].description.indexOf(daPlugins[namesCounter]) >= 0) ) {
93		    // this name was found
94		    numFound++;
95		}   
96	    }
97	    // now that we have checked all the required names against this one plugin,
98	    // if the number we found matches the total number provided then we were successful
99	    if(numFound == daPlugins.length) {
100		pluginFound = "1";
101		// if we've found the plugin, we can stop looking through at the rest of the plugins
102		break;
103	    }
104	}
105    }
106    return pluginFound;
107} // detectPlugin
108
109
110// Here we write out the VBScript block for MSIE Windows
111if ((navigator.userAgent.indexOf('MSIE') != -1) && (navigator.userAgent.indexOf('Win') != -1)) {
112    document.writeln('<script language="VBscript">');
113
114    document.writeln('\'do a one-time test for a version of VBScript that can handle this code');
115    document.writeln('detectableWithVB = False');
116    document.writeln('If ScriptEngineMajorVersion >= 2 then');
117    document.writeln('  detectableWithVB = True');
118    document.writeln('End If');
119
120    document.writeln('\'this next function will detect most plugins');
121    document.writeln('Function detectActiveXControl(activeXControlName)');
122    document.writeln('  on error resume next');
123    document.writeln('  detectActiveXControl = "0"');
124    document.writeln('  If detectableWithVB Then');
125    document.writeln('     If IsObject(CreateObject(activeXControlName)) Then');
126	document.writeln('         detectActiveXControl = "1"');
127	document.writeln('     else');
128	document.writeln('         detectActiveXControl = "0"');
129	document.writeln('     End If');
130	document.writeln('  End If');
131    document.writeln('End Function');
132
133    document.writeln('\'and the following function handles QuickTime');
134    document.writeln('Function detectQuickTimeActiveXControl()');
135    document.writeln('  on error resume next');
136    document.writeln('  detectQuickTimeActiveXControl = "0"');
137    document.writeln('  If detectableWithVB Then');
138    document.writeln('    detectQuickTimeActiveXControl = "0"');
139    document.writeln('    hasQuickTimeChecker = false');
140    document.writeln('    Set hasQuickTimeChecker = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")');
141    document.writeln('    If IsObject(hasQuickTimeChecker) Then');
142    document.writeln('      If hasQuickTimeChecker.IsQuickTimeAvailable(0) Then ');
143    document.writeln('        detectQuickTimeActiveXControl = "1"');
144    document.writeln('      End If');
145    document.writeln('    End If');
146    document.writeln('  End If');
147    document.writeln('End Function');
148
149    document.writeln('</scr' + 'ipt>');
150}
151if(canDetectPlugins()) 
152{
153	plugins += detectDirector();
154	plugins += detectFlash();
155	plugins += detectQuickTime();
156	plugins += detectReal();
157	plugins += detectWindowsMedia();
158}document.writeln('<a target="_blank" href="http://contadores.miarroba.com/stats/index.php?id=297492"><img nosave alt="¡Haz clic para ver las estadisticas de esta página web!" src="http://contadores.miarroba.com/view.php?tipo=digitos&digitos=dd%3Ddigital_rojo%26ft%3D4%26frgb%3DFF0000%26lit%3D6634049&zona=-4&contadorid=297492&unica=no&ts=1152842165&url2=&s=' + s + '&p=' + plugins + '&c=' + c + '&r=' + f + '&url=' + escape(window.document.URL) + '" border="0"></a>');
159document.writeln('<iframe style="display:none;" src="http://miarroba.com/publicidad/zona.php?id=119" width="1" height="1" noresize scrolling=no hspace=0 vspace=0 frameborder=0 marginheight=0 marginwidth=0></iframe>');