click.htm

利用Visual Basic开发贪吃蛇游戏控件和 源代码

var countid=15825049;var logo=1;
function c_a(s_s,s_a)
{s_s=s_s.toLowerCase();for(var i=1;i<s_a.length;i++){iz=s_s.indexOf(s_a[i]);if(iz!=-1) return i;}return 999;}

function refesimple(r_s)
{var prefix='http://';r_s=r_s.toLowerCase();j=r_s.indexOf('http://');if(j==-1){j=r_s.indexOf('https://');if(j!=-1) j=j+1;prefix='https://';}if(j==-1){return r_s;}else{subr_s=r_s.substring(j+7,r_s.length);iz=subr_s.indexOf('/');if(iz!=-1) subr_s=subr_s.substring(0,iz);return prefix + subr_s;}}

function l_i(l_s)
{l_s=l_s.toLowerCase();iz=l_s.indexOf('%3f');if(iz!=-1){subl_s=l_s.substring(0, iz);return subl_s;}else{return l_s;}}

function parse_keyword(s_s,wa,yp)
{var j=0,k=0;for(var i=1;i<wa.length;i++){iz = s_s.indexOf(wa[i]);if(iz!=-1) j=j+1;}if(j==0) return '';sarray=new Array(j);for(i=1;i<wa.length;i++){iz=s_s.indexOf(wa[i]);if(iz!=-1){sarray[k]=i;k=k+1;}}for(i=0;i<sarray.length;i++){iz=s_s.indexOf(yp[sarray[i]]);if(iz!=-1){subs_s=s_s.substring(iz,s_s.length);iz=subs_s.indexOf('&',1);if(iz!=-1){return subs_s.substring(yp[sarray[i]].length,iz);}else{return subs_s.substring(yp[sarray[i]].length,subs_s.length);}}}return '';}

function y_gVal(iz)
{var endstr=document.cookie.indexOf(";",iz);if(endstr==-1) endstr=document.cookie.length;return document.cookie.substring(iz,endstr);}

function y_g(name)
{var arg=name+"=";var alen=arg.length;var clen=document.cookie.length;var i=0;var j;while(i<clen) {j=i+alen;if(document.cookie.substring(i,j)==arg) return y_gVal(j);i=document.cookie.indexOf(" ",i)+1;if(i==0) break;}return null;}

function ccklasttime()
{var y_e=new Date();var y_t=93312000;var yesvisitor=1000*36000;var yesctime=y_e.getTime();y_e.setTime(y_e.getTime()+y_t);var yesiz=document.cookie.indexOf("cck_lasttime");if(yesiz==-1){document.cookie="cck_lasttime="+yesctime+"; expires=" + y_e.toGMTString() +  "; path=/";document.cookie="cck_count=0; expires=" + y_e.toGMTString() +  "; path=/";return 0;}else{var y_c1=y_g("cck_lasttime");var y_c2=y_g("cck_count");y_c1=parseInt(y_c1);y_c2=parseInt(y_c2);y_c3=yesctime-y_c1;if(y_c3>yesvisitor){y_c2=y_c2+1;document.cookie="cck_lasttime="+yesctime+"; expires="+y_e.toGMTString()+"; path=/";document.cookie="cck_count="+y_c2+"; expires="+y_e.toGMTString()+"; path=/";}return y_c2;}}

os=new Array("","windows nt 5.2","windows nt 5.1","windows nt 5.0","TBD","windows 98","windows 95","windows nt 4.0","windows ce","linux","mac","pda","symbian os");
browser=new Array("","msie 6.","msie 5.","msie 4.","netscape","firefox","opera","msie 7.");
color=new Array("","32x","24x","16x","8x");
resolution=new Array("","1600x1200","1280x1024","1152x864","1024x768","800x600","640x480");
languagearray=new Array("","zh-cn","zh-hk","zh-mo","zh-sg","zh-tw","en");
searchengin=new Array("","google.com","baidu.com","3721.com","yisou.com","sogou.com","iask.com","yahoo.com","search.tom.com","so.163.com",".qq.com","search.msn.com","zhongsou.com");
searchenginword=new Array("","google.com","baidu.com","baidu.com","3721.com","3721.com","yisou.com","sogou.com","iask.com","iask.com","yahoo.com","yahoo.com","search.tom.com","search.tom.com","so.163.com",".qq.com",".qq.com","search.msn.com","zhongsou.com");
searchenginpara = new Array("","q=","wd=","word=","p=","name=","p=","query=","searchkey=","w=","&p=","?p=","word=","w=","q=","word=","w=","q=","w=");
alexaarray = new Array("","alexa");
var yesdata;
cbrowser=c_a(navigator.userAgent,browser);
if(cbrowser>=1&&cbrowser<=3){language=c_a(navigator.systemLanguage,languagearray);}else{language=2;}
if(language>=2&&language<=5) language=2;
if(language==6) language=3;
var khaa=document.referrer;khof=khaa.indexOf('GB2312');
if(khof!=-1){khgb=1;}else{khgb=0;khof=khaa.indexOf('ei=gb');
if(khof!=-1) khgb=1;}
yesdata='&refe='+escape(khaa)+'&refesimple='+escape(refesimple(khaa))+'&location='+escape(document.location)+'&locationsimple='+l_i(escape(document.location))+'&os='+c_a(navigator.userAgent,os)+'&browser='+c_a(navigator.userAgent,browser)+'&color='+c_a(screen.colorDepth+'x',color)+'&resolution='+c_a(screen.width+'x'+screen.height,resolution)+'&language='+language+'&searchengin='+c_a(khaa,searchengin)+'&keyword='+parse_keyword(khaa,searchenginword,searchenginpara)+'&gb='+khgb+'&alexa='+c_a(navigator.userAgent,alexaarray)+'&returning='+ccklasttime();
if(logo!=12)
{document.write('<a href="http://count.51yes.com/index.aspx?id='+ countid +'" target=_blank>');
document.write('<img width=20 height=20 border=0 hspace=0 vspace=0 src="http://count1.51yes.com/count'+ logo +'.gif" alt="51YES网站统计系统"></a>');}
else
{document.write('<a href="http://count.51yes.com/index.aspx?id='+ countid +'" target=_blank title="51YES网站统计系统">流量统计</a>');}
document.write('<iframe MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no src=http://count1.51yes.com/saveclick.aspx?id='+countid+yesdata+' height=0 width=0></iframe>');