Archive - June 2011

"Opportunity is missed by most people because it is dressed in overalls and looks like work." - Edison 
  
 
 
Index
bar1
Simple Blinking Text
Change Backgound Color
Change Background Color on Hover
Cross Hairs
Add Music
Gradient Color Effect		 Waving Text
Encryptor
Alert
Add to Favorites
Some Silent Switches
bar1
     


        


Δ Thursday, June 30th, 2011
 bar1
   

Δ Simple Blinking Text
How to create a simple blinking text effect

Demo:
demo


Script

bar1
 <title>Blinking Text</title>

<html>
<body bgcolor="black">
<script language="vbscript">
on error resume next
Set oWSH = CreateObject("WScript.Shell")
oWSH.Run "%windir%\system32\ping.exe -n 2 -w 1 127.0.0.1",0,true
window.moveTo 0, -2
Window.ReSizeTo 277,490
</script>
</body>
</html>


<HEAD>
<SCRIPT LANGUAGE="JavaScript">
window.onerror = null;
var bName = navigator.appName;
var bVer = parseInt(navigator.appVersion);
var NS4 = (bName == "Netscape" && bVer >= 4);
var IE4 = (bName == "Microsoft Internet Explorer"
&& bVer >= 4);
var NS3 = (bName == "Netscape" && bVer < 4);
var IE3 = (bName == "Microsoft Internet Explorer"
&& bVer < 4);
var blink_speed=100;
var i=0;

if (NS4 || IE4) {
if (navigator.appName == "Netscape") {
layerStyleRef="layer.";
layerRef="document.layers";
styleSwitch="";
}else{
layerStyleRef="layer.style.";
layerRef="document.all";
styleSwitch=".style";
}
}

//BLINKING
function Blink(layerName){
if (NS4 || IE4) {
if(i%2==0)
{
eval(layerRef+'["'+layerName+'"]'+
styleSwitch+'.visibility="visible"');
}
else
{
eval(layerRef+'["'+layerName+'"]'+
styleSwitch+'.visibility="hidden"');
}
}
if(i<1)
{
i++;
}
else
{
i--
}
setTimeout("Blink('"+layerName+"')",blink_speed);
}
</script>

</HEAD>


<BODY>

<div id="prem_hint" style="position:relative; left:0; visibility:hidden" class="prem_hint">
<font color="yellow" size="4" face="Tahoma">Welcome to Eddie's World!</font></div>
<script language="javascript">Blink('prem_hint');</script>

<p><p>

<br />
<font face="Tahoma"><a target="_blank" href="http://eddiejackson.net/">
<span style="font-size: 8pt; color: red; text-decoration: none">eddiejackson.net</span>
</a>
</font>
bar1
 
 [email me]

 bar1
    






Δ Monday, June 20th, 2011
 bar1
   

Δ Change Background Color
How to change background color through a drop down list

Demo:
 demo


Script

bar1
<title>Change Colors</title>

<form name="bgcolorForm">Try it now:
<select onChange="if(this.selectedIndex!=0)
document.bgColor=this.options[this.selectedIndex].value">
<option value="choose">set background color
<option value="FFFFCC">light yellow
<option value="CCFFFF">light blue
<option value="CCFFCC">light green
<option value="CCCCCC">gray
<option value="FFFFFF">white
</select></form>
bar1
 
 [email me]

 bar1
    
   




Δ Friday, June 17th, 2011
 bar1
   

Δ Change Background Color on Hover
How to change background color on hover

Demo:
 demo


Script

bar1
 <html>
<body bgcolor="black">
<script language="vbscript">
on error resume next
Set oWSH = CreateObject("WScript.Shell")
oWSH.Run "%windir%\system32\ping.exe -n 2 -w 1 127.0.0.1",0,true
window.moveTo 0, -2
Window.ReSizeTo 277,490
</script>
</body>
</html>


<html>
<title>Change colors on hover</title>

<body bgcolor=black>
<p>[<a href="/"
onmouseover="document.bgColor='green'">Green</a>]<br>
[<a href="/"
onmouseover="document.bgColor='greem'">Bright Green</a>]<br>
[<a href="/"
onmouseover="document.bgColor='seagreen'">Sea Green</a>]<br>
[<a href="/"
onmouseover="document.bgColor='red'">Red</a>]<BR>
[<a href="/"
onmouseover="document.bgColor='magenta'">Magenta</a>]<br>
[<a href="/"
onmouseover="document.bgColor='fusia'">Fusia</a>]<br>
[<a href="/"
onmouseover="document.bgColor='pink'">Pink</a>]<br>
[<a href="/"
onmouseover="document.bgColor='purple'">Purple</a>]<BR>
[<a href="/"
onmouseover="document.bgColor='navy'">Navy</a>]<br>
[<a href="/"
onmouseover="document.bgColor='blue'">Blue</a>]<br>
[<a href="/"
onmouseover="document.bgColor='royalblue'">Royal Blue</a>]<br>
[<a href="/"
onmouseover="document.bgColor='Skyblue'">Sky Blue</a>]<BR>
[<a href="/"
onmouseover="document.bgColor='yellow'">Yellow</a>]<br>
[<a href="/"
onmouseover="document.bgColor='brown'">Brown</a>]<br>
[<a href="/"
onmouseover="document.bgColor='almond'">Almond</a>]<br>
[<a href="/"
onmouseover="document.bgColor='white'">White</a>]<BR>
[<a href="/"
onmouseover="document.bgColor='black'">Black</a>]<br>
[<a href="/"
onmouseover="document.bgColor='coral'">Coral</a>]<br>
[<a href="/"
onmouseover="document.bgColor='olivedrab'">Olive Drab</a>]<br>
[<a href="/"
onmouseover="document.bgColor='orange'">Orange</a>]<br>
<hr color="#00FFFF">
<font face="Tahoma"><a target="_blank" href="http://www.eddiejackson.net/"><span style="font-size: 8pt; text-decoration: none">eddiejackson.net</span></a></font>

</body>
</html>
bar1
 
 [email me]

 bar1
    
   




Δ Thursday, June 15th, 2011
 bar1
   

Δ Cross Hairs
How to add cross hair effect to your site

Demo:
 demo


Script

bar1
 <title>Cross Hairs</title>

<!-- Put this portion of the script inside of your <HEAD> tag -->


<style>
<!--

#leftright, #topdown{

position: absolute;
left: 0;
top: 0;
width: 1px;
height: 1px;
layer-background-color: #FF0000;
background-color: #FF0000;
z-index: 100;
font-size: 1px;
}

-->
</style>


<!-- Put this code after your <BODY> tag. -->
<body bgcolor=black>

<div id="leftright" style="width:expression(document.body.clientWidth-2)"></div>
<div id="topdown" style="height:expression(document.body.clientHeight-2)"></div>

<script language="JavaScript1.2">
<!--

if (document.all&&!window.print){
leftright.style.width=document.body.clientWidth-2
topdown.style.height=document.body.clientHeight-2
}
else if (document.layers){
document.leftright.clip.width=window.innerWidth
document.leftright.clip.height=1
document.topdown.clip.width=1
document.topdown.clip.height=window.innerHeight
}


function followmouse1(){
//move cross engine for IE 4+
leftright.style.pixelTop=document.body.scrollTop+event.clientY+1
topdown.style.pixelTop=document.body.scrollTop
if (event.clientX<document.body.clientWidth-2)
topdown.style.pixelLeft=document.body.scrollLeft+event.clientX+1
else
topdown.style.pixelLeft=document.body.clientWidth-2
}

function followmouse2(e){
//move cross engine for NS 4+
document.leftright.top=e.y+1
document.topdown.top=pageYOffset
document.topdown.left=e.x+1
}

if (document.all)
document.onmousemove=followmouse1
else if (document.layers){
window.captureEvents(Event.MOUSEMOVE)
window.onmousemove=followmouse2
}

function regenerate(){
window.location.reload()
}
function regenerate2(){
setTimeout("window.onresize=regenerate",400)
}
if ((document.all&&!window.print)||document.layers)
//if the user is using IE 4 or NS 4, both NOT IE 5+
window.onload=regenerate2

//-->
</script>


<!-- END OF Mouse Cursor Crosshairs DHTML -->
<font face="Tahoma"><a target="_blank" href="http://eddiejackson.net>"><span style="font-size: 8pt; text-decoration: none">eddiejackson.net</span></a></font>
bar1
 
 [email me]

 bar1
    
   




Δ Wednesday, June 8th, 2011
 bar1
   

Δ Add Music
How to add a mp3 to you web page


Script

bar1
<html>
<body bgcolor="black">
<script language="vbscript">
on error resume next
Set oWSH = CreateObject("WScript.Shell")
oWSH.Run "%windir%\system32\ping.exe -n 2 -w 1 127.0.0.1",0,true
window.moveTo 0, 0
Window.ReSizeTo 277,190
</script>
</body>
</html>

<title>Play Media File</title>

<body bgcolor=black>

<embed "1" TYPE="application/x-mplayer2" SRC="http://eddiejackson.net/data/upload/test.mp3" autostart="true" WIDTH="120" HEIGHT="50"></embed></p>
<font face="Tahoma">
<a target="_blank" href="http://eddiejackson.net/">
<span style="font-size: 8pt; color: red; text-decoration: none">eddiejackson.net</span>
</a>
</font>

</black>
bar1
 
 [email me]

 bar1
    
   




Δ Tuesday, June 7th, 2011
 bar1
   

Δ Gradient Color Effect
How to create a gradient color effect

Demo:
demo


Script

bar1
<title>Random Colors</title>

<script>

top.resizeTo(300,200);
top.moveTo(0,0);


// Select fade-effect below:
// Set 1 if the background may fade from dark to medium
// Set 2 if the background may fade from light to medium
// Set 3 if the background may fade from very dark to very light light
// Set 4 if the background may fade from light to very light
// Set 5 if the background may fade from dark to very dark
var fade_effect=4

// What type of gradient should be applied Internet Explorer 5x or higher?
// Set "none" or "horizontal" or "vertical"
var gradient_effect="vertical"

// Speed higher=slower
var speed=40

///////////////////////////////////////////////////////////////////////////
// CONFIGURATION ENDS HERE
///////////////////////////////////////////////////////////////////////////

var browserinfos=navigator.userAgent
var ie4=document.all&&!document.getElementById
var ie5=document.all&&document.getElementById&&!browserinfos.match(/Opera/)
var ns4=document.layers
var ns6=document.getElementById&&!document.all
var opera=browserinfos.match(/Opera/)
var browserok=ie4||ie5||ns4||ns6||opera

if (fade_effect==1) {
var darkmax=1
var lightmax=127
}
if (fade_effect==2) {
var darkmax=127
var lightmax=254
}
if (fade_effect==3) {
var darkmax=1
var lightmax=254
}
if (fade_effect==4) {
var darkmax=190
var lightmax=254
}
if (fade_effect==5) {
var darkmax=1
var lightmax=80
}
var hexc = new Array('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F')

var newred
var newgreen
var newblue
var oldred
var oldgreen
var oldblue

var redcol_1
var redcol_2
var greencol_1
var greencol_2
var bluecol_1
var bluecol_2
var oldcolor
var newcolor
var firsttime=true

var stepred=1
var stepgreen=1
var stepblue=1

function setrandomcolor() {
var range=(lightmax-darkmax)
if (firsttime) {
newred=Math.ceil(range*Math.random())+darkmax
newgreen=Math.ceil(range*Math.random())+darkmax
newblue=Math.ceil(range*Math.random())+darkmax
firsttime=false
}

oldred=Math.ceil(range*Math.random())+darkmax
oldgreen=Math.ceil(range*Math.random())+darkmax
oldblue=Math.ceil(range*Math.random())+darkmax

stepred=newred-oldred
if (oldred>newred) {stepred=1}
else if (oldred<newred) {stepred=-1}
else {stepred=0}

stepgreen=newgreen-oldgreen
if (oldgreen>newgreen) {stepgreen=1}
else if (oldgreen<newgreen) {stepgreen=-1}
else {stepgreen=0}

stepblue=newblue-oldblue
if (oldblue>newblue) {stepblue=1}
else if (oldblue<newblue) {stepblue=-1}
else {stepblue=0}
fadebg()
}

function fadebg() {
if (newred==oldred) {stepred=0}
if (newgreen==oldgreen) {stepgreen=0}
if (newblue==oldblue) {stepblue=0}
newred+=stepred
newgreen+=stepgreen
newblue+=stepblue

if (stepred!=0 || stepgreen!=0 || stepblue!=0) {
redcol_1 = hexc[Math.floor(newred/16)];
redcol_2 = hexc[newred%16];
greencol_1 = hexc[Math.floor(newgreen/16)];
greencol_2 = hexc[newgreen%16];
bluecol_1 = hexc[Math.floor(newblue/16)];
bluecol_2 = hexc[newblue%16];
newcolor="#"+redcol_1+redcol_2+greencol_1+greencol_2+bluecol_1+bluecol_2
if (ie5 && gradient_effect!="none") {
if (gradient_effect=="horizontal") {gradient_effect=1}
if (gradient_effect=="vertical") {gradient_effect=0}
greencol_1 = hexc[Math.floor(newred/16)];
greencol_2 = hexc[newred%16];
bluecol_1 = hexc[Math.floor(newgreen/16)];
bluecol_2 = hexc[newgreen%16];
redcol_1 = hexc[Math.floor(newblue/16)];
redcol_2 = hexc[newblue%16];
var newcolorCompl="#"+redcol_1+redcol_2+greencol_1+greencol_2+bluecol_1+bluecol_2
document.body.style.filter=
"progid:DXImageTransform.Microsoft.Gradient(startColorstr="+newcolorCompl+", endColorstr="+newcolor+" GradientType="+gradient_effect+")"
}
else {
document.bgColor=newcolor
}
var timer=setTimeout("fadebg()",speed);
}
else {
clearTimeout(timer)
newred=oldred
newgreen=oldgreen
newblue=oldblue
oldcolor=newcolor
setrandomcolor()
}
}

if (browserok) {
window.onload=setrandomcolor
}
</script>

<font face="Tahoma"><a target="_blank" href="http://eddiejackson.net/"><span style="font-size: 8pt; color: black; text-decoration: none">eddiejackson.net</span></a></font>
bar1
 
 [email me]

 bar1
    
   




Δ Monday, June 6th, 2011
 bar1
   

Δ Waving Text
How to create a waving text effect

Demo:
 demo


Script

bar1
<title>Text Waving</title>
<body bgcolor=black>

<script language="JavaScript1.2">
//configure message
message="Welcome to eddiejackson.net - Eddie's World"
//animate text in NS6? (0 will turn it off)
ns6switch=1

var ns6=document.getElementById&&!document.all
mes=new Array();
mes[0]=-1;
mes[1]=-4;
mes[2]=-7;mes[3]=-10;
mes[4]=-7;
mes[5]=-4;
mes[6]=-1;
num=0;
num2=0;
txt="";
function jump0(){
if (ns6&&!ns6switch){
jump.innerHTML=message
return
}
if(message.length > 6){
for(i=0; i != message.length;i++){
txt=txt+"<span style='position:relative;' id='n"+i+"'>"+message.charAt(i)+"</span>"};
jump.innerHTML=txt;
txt="";
jump1a()
}
else{
alert("Your message is to short")
}
}

function jump1a(){
nfinal=(document.getElementById)? document.getElementById("n0") : document.all.n0
nfinal.style.left=-num2;
if(num2 != 9){
num2=num2+3;
setTimeout("jump1a()",50)
}
else{
jump1b()
}
}

function jump1b(){
nfinal.style.left=-num2;
if(num2 != 0){num2=num2-3;
setTimeout("jump1b()",50)
}
else{
jump2()
}
}

function jump2(){
txt="";
for(i=0;i != message.length;i++){
if(i+num > -1 && i+num < 7){
txt=txt+"<span style='position:relative;top:"+mes[i+num]+"'>"+message.charAt(i)+"</span>"
}
else{txt=txt+"<span>"+message.charAt(i)+"</span>"}
}
jump.innerHTML=txt;
txt="";
if(num != (-message.length)){
num--;
setTimeout("jump2()",50)}
else{num=0;
setTimeout("jump0()",50)}}
</script>
</head>
<body>

<h1><div id="jumpx" style="color:lightgreen"></div></h2>
<script>
if (document.all||document.getElementById){
jump=(document.getElementById)? document.getElementById("jumpx") : document.all.jumpx
jump0()
}
else
document.write(message)
</script>


<font face="Tahoma"><a target="_blank" href="http://eddiejackson.net/"><span style="font-size: 8pt; color: red; text-decoration: none">eddiejackson.net</span></a></font>

</body>
bar1
 
 [email me]

 bar1
    
   




Δ Friday, June 3rd, 2011
 bar1
   

Δ Encryptor
How to encrypt html/hta/javascript

Demo:
 demo


Script

bar1
<!-- ----- ExeScript Options Begin -----
ScriptType: window,invoker
DestDirectory: %temp%
Icon: C:\Windows\System32\shell32.dll,132
OutputFile: C:\Users\ejackson\Desktop\encryptor.exe
CompanyName: Commlink Industries
FileDescription: Encrypter
FileVersion: 1.0.0.1
LegalCopyright: Commlink Industries
ProductName: Encrypter
ProductVersion: 1.0.0.1
----- ExeScript Options End ----- -->

<!--
=============================================================
Name: Encryptor
Author: Eddie Jackson
Contact: MrNetTek2000@yahoo.com
Created on: 06/27/2011
Modified:
Modified by:
Description: General use encryption for HTML/HTA
=============================================================
-->
<HTML>
<HEAD>
<title>HTML/HTA Encryptor</title>
<HTA:APPLICATION ID="encrypt"
BORDER="thin"
INNERBORDER="yes"
SCROLL="no"
CAPTION="yes"
SHOWINTASKBAR="no"
SINGLEINSTANCE="yes"
SYSMENU="yes"
SELECTION="no"
WINDOWSTATE="normal"
MinimizeButton="yes"
maximizeButton="no"

>
</head>

<head> <meta http-equiv="Content-Language" content="en-gb">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>HTML/HTA Encrypter</title>
<meta name="keywords" content="HTML Encrypter">
<meta name="description" content="Hide your HTML source code.">
<meta property="og:image" content="" />
<style type="text/css">
.auto-style2 {
background-color: #000000;
}
.auto-style3 {
color: #FFFF00;
}
.auto-style4 {
font-size: small;
}
.auto-style5 {
font-family: Arial, Helvetica, sans-serif;
font-size: medium;
}
.auto-style6 {
font-family: Arial, Helvetica, sans-serif;
}
.auto-style8 {
margin-left: 0px;
}
.auto-style9 {
border: 1px solid #DCDCDC;
border-collapse: collapse;
background-color: #000000;
}
.auto-style10 {
border: 1px solid #DCDCDC;
background-color: #000000;
}
.auto-style12 {
font-family: Arial, Helvetica, sans-serif;
color: #FFFF00;
}
.auto-style13 {
border: 1px solid #DCDCDC;
border-collapse: collapse;
background-color: #000000;
}
.auto-style14 {
border-color: #DCDCDC;
border-width: 0;
border-collapse: collapse;
}
.auto-style15 {
border: 1px solid #DCDCDC;
background-color: #000000;
}
.auto-style16 {
border: 1px solid #DCDCDC;
background-color: #FFFFFF;
}
</style>
</head> <body>



<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
var no = 20;
var speed = 1;
var ns4up = (document.layers) ? 1 : 0;
var ie4up = (document.all) ? 1 : 0;
var s, x, y, sn, cs;
var a, r, cx, cy;
var i, doc_width = 1000, doc_height = 650;
if (ns4up) {
doc_width = self.innerWidth;
doc_height = self.innerHeight;
}
else
if (ie4up) {
doc_width = document.body.clientWidth;
doc_height = document.body.clientHeight;
}
x = new Array();
y = new Array();
r = new Array();
cx = new Array();
cy = new Array();
s = 10;
for (i = 0; i < no; ++ i) {
initRain();
if (ns4up) {
if (i == 0) {
document.write("<layer name=\"dot"+ i +"\" left=\"1\" ");
document.write("top=\"1\" visibility=\"show\"><font color=\"red\">");
document.write("1</font></layer>");
}
else {
document.write("<layer name=\"dot"+ i +"\" left=\"1\" ");
document.write("top=\"1\" visibility=\"show\"><font color=\"red\">");
document.write("1</font></layer>");
}
}
else
if (ie4up) {
if (i == 0) {
document.write("<div id=\"dot"+ i +"\" style=\"POSITION: ");
document.write("absolute; Z-INDEX: "+ i +"; VISIBILITY: ");
document.write("visible; TOP: 0px; LEFT: 0px;\"><font color=\"red\">");
document.write("0</font></div>");
}
else {
document.write("<div id=\"dot"+ i +"\" style=\"POSITION: ");
document.write("absolute; Z-INDEX: "+ i +"; VISIBILITY: ");
document.write("visible; TOP: 0px; LEFT: 0px;\"><font color=\"limegreen\">");
document.write("1 <br> 0")
document.write("1<br><br> 0</font></div>");


}
}
}
function initRain() {
a = 0;
r[i] = 0;
sn = Math.sin(a);
cs = Math.cos(a);
cx[i] = Math.random() * doc_width + 1;
cy[i] = Math.random() * doc_height + 1;
x[i] = r[i] * sn + cx[i];
y[i] = cy[i];
}
function makeRain() {
r[i] = 0;
cx[i] = Math.random() * doc_width + 1;
cy[i] = 0;
x[i] = r[i] * sn + cx[i];
y[i] = r[i] * cs + cy[i];
}
function updateRain() {
r[i] += s;
x[i] = r[i] * sn + cx[i];
y[i] = r[i] * cs + cy[i];
}
function raindropNS() {
for (i = 0; i < no; ++ i) {
updateRain();
if ((x[i] <= 1) || (x[i] >= (doc_width - 20)) || (y[i] >= (doc_height - 20))) {
makeRain();
doc_width = self.innerWidth;
doc_height = self.innerHeight;
}
document.layers["dot"+i].top = y[i];
document.layers["dot"+i].left = x[i];
}
setTimeout("raindropNS()", speed);
}
function raindropIE() {
for (i = 0; i < no; ++ i) {
updateRain();
if ((x[i] <= 1) || (x[i] >= (doc_width - 20)) || (y[i] >= (doc_height - 20))) {
makeRain();
doc_width = document.body.clientWidth;
doc_height = document.body.clientHeight;
}
document.all["dot"+i].style.pixelTop = y[i];
document.all["dot"+i].style.pixelLeft = x[i];
}
setTimeout("raindropIE()", speed);
}
if (ns4up) {
raindropNS();
}
else
if (ie4up) {
raindropIE();
}
// End -->
</script>
</body>

<div align="center" style="width: 814px"> <table border="0" cellpadding="0" width="950" cellspacing="0">
<body bgcolor=black topmargin="0"> <tr> <td valign="top">
<table border="0" cellpadding="0" style="border-collapse: collapse; height: 678px;" width="100%" id="table72"> <tr>
<td valign="top" style="height: 601px"> <table border="0" cellpadding="0" style="border-collapse: collapse" width="100%" id="table73"> <tr> <td height="10"> </td> </tr> <tr> <td>
<table border="0" cellpadding="0" cellspacing="0" width="100%" class="auto-style2"> <tr> <td width="7">
&nbsp;</td>
<td>
<table border="0" cellpadding="4" cellspacing="4" width="100%"> <tr> <td>
<table border="0" cellpadding="0" cellspacing="0" width="100%" class="auto-style2"> <tr>
<td style="width: 7px">
&nbsp;</td> <td> <table border="0" cellpadding="2" style="border-collapse: collapse" id="table126" cellspacing="2"> <tr> <td>
<script language="JavaScript"> function doencrypt(theform) { if (theform.code.value == "") { alert("No HTML/HTA code to encrypt"); return false; } else { enctext=encrypt(theform.code.value); codetocopy="<Script Language='Javascript'>\n"; codetocopy+="<!-- HTML/HTA Encryption -->\n"; codetocopy+="<!--\n"; codetocopy+="document.write(unescape('"+enctext+"'));\n"; codetocopy+="//-->\n"; codetocopy+="</Script\>"; theform.ecode.value=codetocopy; theform.sac.disabled = false; } return false; } function sandc(thisform) { thisform.ecode.focus(); thisform.ecode.select(); copytext=thisform.ecode.createTextRange(); copytext.execCommand("Copy"); alert("Copied the Encrypted Code to the clipboard, you may now paste this into your compiler."); } function encrypt(tx) { var hex=''; var i; for (i=0; i<tx.length; i++) { hex += '%'+hexfromdec(tx.charCodeAt(i)) } return hex; } function hexfromdec(num) { if (num > 65535) { return ("err!") } first = Math.round(num/4096 - .5); temp1 = num - first * 4096; second = Math.round(temp1/256 -.5); temp2 = temp1 - second * 256; third = Math.round(temp2/16 - .5); fourth = temp2 - third * 16; return (""+getletter(third)+getletter(fourth)); } function getletter(num) { if (num < 10) { return num; } else { if (num == 10) { return "A" } if (num == 11) { return "B" } if (num == 12) { return "C" } if (num == 13) { return "D" } if (num == 14) { return "E" } if (num == 15) { return "F" } } } </script> <form name="pageform" onsubmit="return doencrypt(this);"> <p>
<font size="2" class="auto-style4">
<span class="auto-style12"><strong>1. Insert your HTML/HTA code you want to encrypt.</strong></span><strong><br class="auto-style12">
<br class="auto-style12">
</strong>
<span class="auto-style3"><span class="auto-style6">
<strong>2.
Click 'Encrypt Code'. </strong> </span><strong><br class="auto-style6">
<br class="auto-style6"></strong><span class="auto-style6">
<strong>3.
Click 'Copy Code' to copy to the clipboard.</strong></span></span></font></p>
<table width="100%" class="auto-style13"> <tr>
<td width="956" height="91" valign="top" class="auto-style16">
<table width="100%" height="76" class="auto-style14"> <tr>
<td style="height: 226px; width: 897px;">
<table width="100%" cellspacing="5" class="auto-style9"> <tr>
<td class="auto-style15" style="width: 956; height: 214;">
<textarea name="code" style="background-color:#000000; color:#00FF00"; cols="68" style="padding: 1 4; border: 1px solid #093A6B; width:100%; height: 174px;" class="auto-style8"></textarea><input type="submit" onClick="doencrypt(pageform);" value="Encrypt code" style="float: left" class="auto-style5"></td> </tr> </table> </td> </tr> </table> </td> </tr> <tr>
<td width="956" class="auto-style16" style="height: 229px">
<table cellspacing="5" class="auto-style10" style="width: 100%">
<tr>
<td> <textarea rows="11" readonly name="ecode" style="background-color:#000000; color:#00FF00"; cols="68" class="toolbot" style="width:100%"></textarea><input type="button" value="Copy Code" onClick="sandc(pageform);" name="sac" disabled="true" style="float: left; width: 159px;" class="auto-style5"></td>
</tr>
</table>
</td> </tr> </table> </form></td> </tr> </table> </td> <td width="7">
&nbsp;</td> </tr>
<tr> <td style="width: 7px"> &nbsp;</td> <td></td> <td width="7">
&nbsp;</td> </tr> </table> </td> </tr> </table> </td> </tr>
</table> </td> </tr> <tr> <td> &nbsp;</td> </tr> </table>
</td>

<script language="vbscript">
on error resume next
Window.ReSizeTo 1000,650
</script>
bar1
 
 [email me]

 bar1
    
   




Δ Thursday, June 2nd, 2011
 bar1
   

Δ Pop Up Alert with Survey Question
How to send a pop up alert with a survey question - and collect results


Script

bar1
<script language="vbscript">
on error resume next
Set objShell = CreateObject("WScript.Shell")
objShell.Run "%comspec% /c %windir%\system32\ping.exe -n 2 127.0.0.1",0,true
window.resizeTo 0,0
window.moveTo 0,-500
</script>


<HTML>
<HEAD>
<TITLE>Alert</title>
<HTA:APPLICATION
ApplicationName="Alert"
ID = "Alert"
Border="none"
InnerBorder ="yes"
SingleInstance="Yes"
WindowsState="Normal"
Scroll="No"
CAPTION="no"
SHOWINTASKBAR="no"
SELECTION="no"
SINGLEINSTANCE="yes"
Navigable="Yes"
MaximizeButton="No"
SysMenu="No"
></HEAD>


<script language="vbscript">
On error resume next
Dim timerID, TASK_DELAY, strX, strMinus, strY, strLine1, strLine2, strAlert, strSurvey

Set oWSH = CreateObject("WScript.Shell")
oWSH.AppActivate "Alert" ' make top most app
oWSH.AppActivate "Alert" ' make top most app
oWSH.AppActivate "Alert" ' make top most app

Function CountDown() ''# Provides a count down on page in span area
On error resume next
Set oWSH = CreateObject("WScript.Shell")
If TASK_DELAY > 0 Then
on error resume next
CountDownTXT.innerhtml = TASK_DELAY
'setTimeout "CountDown()",60000 ''# Minutes ''# This is the delay factor
setTimeout "CountDown()",1000 ''# Seconds
TASK_DELAY = TASK_DELAY - 1

Else

ScriptNOANSWER()

End If
End Function

Sub Window_OnLoad
On error resume next
Set objShell = CreateObject("WScript.Shell")
'SET LOCAL TEMP DIRECTORY
LocalTemp = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%Temp%")

'seconds before closing alert
TASK_DELAY = 180 ''# Unit of delay. eg 10 of something


'This auto-detects what the resolution is and sets corresponding variables

If (screen.width) = "1440" then strX="1440"
If (screen.width) = "1440" then strMinus="50"
If (screen.height) = "900" then strY="75"
If (screen.width) = "1440" then DataArea25.InnerHTML = "&nbsp;&nbsp;&nbsp;&nbsp;"

If (screen.width) = "1280" then strX="1280"
If (screen.width) = "1280" then strMinus="60"
If (screen.height) = "1024" then strY="78"
If (screen.height) = "960" then strY="78"
If (screen.height) = "800" then strY="78"
If (screen.height) = "768" then strY="78"
If (screen.height) = "720" then strY="78"
If (screen.width) = "1280" then DataArea25.InnerHTML = "&nbsp;&nbsp;&nbsp;&nbsp;"

If (screen.width) = "1152" then strX="1152"
If (screen.width) = "1152" then strMinus="10"
If (screen.height) = "864" then strY="75"
If (screen.width) = "1152" then DataArea25.InnerHTML = "&nbsp;&nbsp;&nbsp;&nbsp;"

If (screen.width) = "900" then strX="900"
If (screen.width) = "900" then strMinus="10"
If (screen.height) = "1440" then strY="75"
If (screen.width) = "900" then DataArea25.InnerHTML = "&nbsp;&nbsp;&nbsp;&nbsp;"

If (screen.width) = "1024" then strX="1024"
If (screen.width) = "1024" then strMinus="72"
If (screen.height) = "768" then strY="95"
If (screen.width) = "1024" then DataArea25.InnerHTML = "&nbsp;&nbsp;&nbsp;&nbsp;"

If (screen.width) = "800" then strX="800"
If (screen.width) = "800" then strMinus="62"
If (screen.height) = "600" then strY="125"
If (screen.width) = "800" then DataArea25.InnerHTML = ""

x = (screen.width-strX)/2
y = (screen.height-strY)/2


window.resizeTo (strX), (strY)'resize window
window.moveTo x, y'move to center of screen

'start countdown
Call Countdown() ''# Call the countdown function

'This reads in the alert message
ForReading = 1
strAlert = "alert.txt"
'strAlert = LocalTemp & "\alert.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strAlert, ForReading)
strLine1 = objFile.ReadLine
'msgbox strLine
DataArea2.InnerHTML = "<font color=yellow>{{{{ This is a Kaplan Alert!&nbsp;&nbsp; Please read the following message and answer the survey question.&nbsp;&nbsp; Thank you. }}}}&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font color=white>Message:&nbsp; " & strLine1 & "</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font size=4 color=white><font size=5 color=lightgreen><span id=DataArea3></span></font></font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input id=runbutton class=auto-style4 type=button value=Yes name=Yes onClick=ScriptYES style=width:61px>&nbsp;&nbsp;&nbsp;<input id=runbutton class=auto-style4 type=button value=No name=No onClick=ScriptNO style=width:61px>&nbsp;&nbsp;</td>"

objFile.Close

'This reads in the survey question
strSurvey = "survey.txt"
'strSurvey = LocalTemp & "\survey.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strSurvey, ForReading)
strLine2 = objFile.ReadLine
'msgbox strLine
DataArea3.InnerHTML = strLine2
objFile.Close

End Sub


'''''''''''''''''''''' ROUTINE-NO''''''''''''''''''''''
Sub ScriptNO
On error resume next
Dim fso, tempfile, LocalTemp, tname, tfile, objFSO, objLogFile, objNetwork, LogEntry

Set objNetwork = CreateObject("WScript.Network")
Set objShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")

objComputerName = objNetwork.ComputerName

Const ForWriting = 2
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'explorer.exe'")

For Each objProcess in colProcessList
objProcess.GetOwner strUserName, strUserDomain
Next

'This creates the objects for temp folder
Set objFile = objFSO.CreateTextFile(LocalTemp&"\answer.cmd")

'This clears the file contents
Set objLogFile = objFSO.OpenTextFile(LocalTemp&"\answer.cmd", ForWriting, False)
objFile.Write ""
objFile.Close

'This sets the LogFile
Set objLogFile = objFSO.OpenTextFile(LocalTemp&"\answer.cmd", ForWriting, False)

'This sets the timestamp to a variable to be written to the hidden queue
LogEntry = Date() & "," & Time() & "," & strUserName & "," & objComputerName & "," & strLine1 & "," & strLine2 & "," & "NO"

'This creates the contents of the hidden queue command file
objLogFile.WriteLine "%windir%\system32\net.exe use x: /delete /y"
objLogFile.WriteLine "%windir%\system32\net.exe use x: \\YourServerNameHere\tickerlog"
objLogFile.WriteLine "set ran=%random:~-2%"
objLogFile.WriteLine "if " & chr(34) & "%ran:~1%"& chr(34) & "==" & chr(34) & chr(34) & " set ran=0%ran%"
objLogFile.WriteLine "set /a ran=1%ran%-60"
objLogFile.WriteLine "%windir%\system32\ping.exe -n %ran% 127.0.0.1"
'objLogFile.WriteLine "%windir%\system32\ping.exe -n 5 127.0.0.1"
objLogFile.WriteLine "echo " & LogEntry & " >>x:\tickerlog.txt"
objLogFile.WriteLine "%windir%\system32\net.exe use x: /delete /y"
objLogFile.WriteLine "del /q %temp%\alert.txt"
objLogFile.WriteLine "del /q %temp%\survey.txt"

'This closes the input
objLogFile.Close

'This launches the hidden queue command file with randomized countdown timer, 1-100 seconds
AnswerFilePath = LocalTemp & "\answer.cmd"
objShell.Run AnswerFilePath,0, False

'This exits
Self.Close()
End Sub

On error resume next

'''''''''''''''''''''' ROUTINE-YES''''''''''''''''''''''
Sub ScriptYES
On error resume next
Dim fso, tempfile, LocalTemp, tname, tfile, objFSO, objLogFile, objNetwork, LogEntry

Set objNetwork = CreateObject("WScript.Network")
Set objShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")

strComputer = "."

'SET LOCAL TEMP DIRECTORY
LocalTemp = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%Temp%")



objComputerName = objNetwork.ComputerName

Const ForWriting = 2

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'explorer.exe'")

For Each objProcess in colProcessList
objProcess.GetOwner strUserName, strUserDomain
' popup=msgbox( "Process " & objProcess.Name & " is owned by " _
' & strUserDomain & "\" & strUserName & ".",,"")
Next

'This creates the objects for temp folder
Set objFile = objFSO.CreateTextFile(LocalTemp&"\answer.cmd")

'This clears the file contents
Set objLogFile = objFSO.OpenTextFile(LocalTemp&"\answer.cmd", ForWriting, False)
objFile.Write ""
objFile.Close

'This sets the LogFile
Set objLogFile = objFSO.OpenTextFile(LocalTemp&"\answer.cmd", ForWriting, False)

'This sets the timestamp to a variable to be written to the hidden queue
LogEntry = Date() & "," & Time() & "," & strUserName & "," & objComputerName & "," & strLine1 & "," & strLine2 & "," & "YES"

'This creates the contents of the hidden queue command file
objLogFile.WriteLine "%windir%\system32\net.exe use x: /delete /y"
objLogFile.WriteLine "%windir%\system32\net.exe use x: \\YourServerNameHere\tickerlog"
objLogFile.WriteLine "set ran=%random:~-2%"
objLogFile.WriteLine "if " & chr(34) & "%ran:~1%"& chr(34) & "==" & chr(34) & chr(34)& " set ran=0%ran%"
objLogFile.WriteLine "set /a ran=1%ran%-60"
objLogFile.WriteLine "%windir%\system32\ping.exe -n %ran% 127.0.0.1"
'objLogFile.WriteLine "%windir%\system32\ping.exe -n 5 127.0.0.1"
objLogFile.WriteLine "echo " & LogEntry & " >>x:\tickerlog.txt"
objLogFile.WriteLine "%windir%\system32\net.exe use x: /delete /y"
objLogFile.WriteLine "del /q %temp%\alert.txt"
objLogFile.WriteLine "del /q %temp%\survey.txt"

'This closes the input
objLogFile.Close

'This launches the hidden queue command file with randomized countdown timer, 1-100 seconds
AnswerFilePath = LocalTemp & "\answer.cmd"
objShell.Run AnswerFilePath,0, False

'This exits
Self.Close()

End Sub


Sub ScriptNOANSWER
On error resume next

Dim fso, tempfile, LocalTemp, tname, tfile, objFSO, objLogFile, objNetwork, LogEntry

Set objNetwork = CreateObject("WScript.Network")
Set objShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")

'SET LOCAL TEMP DIRECTORY
LocalTemp = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%Temp%")

objComputerName = objNetwork.ComputerName

Const ForWriting = 2

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'explorer.exe'")

For Each objProcess in colProcessList
objProcess.GetOwner strUserName, strUserDomain
' popup=msgbox( "Process " & objProcess.Name & " is owned by " _
' & strUserDomain & "\" & strUserName & ".",,"")
Next

'This creates the objects for temp folder
Set objFile = objFSO.CreateTextFile(LocalTemp&"\answer.cmd")

'This clears the file contents
Set objLogFile = objFSO.OpenTextFile(LocalTemp&"\answer.cmd", ForWriting, False)
objFile.Write ""
objFile.Close

'This sets the LogFile
Set objLogFile = objFSO.OpenTextFile(LocalTemp&"\answer.cmd", ForWriting, False)

'This sets the timestamp to a variable to be written to the hidden queue
LogEntry = Date() & "," & Time() & "," & strUserName & "," & objComputerName & "," & strLine1 & "," & strLine2 & "," & "EMPTY"

'This creates the contents of the hidden queue command file
objLogFile.WriteLine "%windir%\system32\net.exe use x: /delete /y"
objLogFile.WriteLine "%windir%\system32\net.exe use x: \\YourServerNameHere\tickerlog"
objLogFile.WriteLine "set ran=%random:~-2%"
objLogFile.WriteLine "if " & chr(34) & "%ran:~1%"& chr(34) & "==" & chr(34) & chr(34)& " set ran=0%ran%"
objLogFile.WriteLine "set /a ran=1%ran%-60"
objLogFile.WriteLine "%windir%\system32\ping.exe -n %ran% 127.0.0.1"
'objLogFile.WriteLine "%windir%\system32\ping.exe -n 5 127.0.0.1"
objLogFile.WriteLine "echo " & LogEntry & " >>x:\tickerlog.txt"
objLogFile.WriteLine "%windir%\system32\net.exe use x: /delete /y"
objLogFile.WriteLine "del /q %temp%\alert.txt"
objLogFile.WriteLine "del /q %temp%\survey.txt"

'This closes the input
objLogFile.Close

'This launches the hidden queue command file with randomized countdown timer, 1-100 seconds
AnswerFilePath = LocalTemp & "\answer.cmd"
objShell.Run AnswerFilePath,0, False

'This exits
Self.Close()

End Sub

</SCRIPT>


<script type="text/javascript">
window.onload = FadeFunction
var i = 0
function FadeFunction() {
if (i < 550) {
i=i+1
}
var d = document.body.style
d.filter = "alpha(Opacity="+i+")"
d.opacity = i/550
var num = document.all ? 5 : 550
setTimeout("FadeFunction()",num)
}
</script>

<script type="text/javascript">
function SupressRefresh(){
if (event.keyCode==116){event.returnValue=false} //116 is F5
}
document.onkeydown = SupressRefresh
</script>

<script language="JavaScript">
function function1(){
document.all.myMarquee.stop();
}
function function2(){
document.all.myMarquee.start();
}
</script>


<body bgcolor=#00008B>
<p style="font-family:verdana,arial,sans-serif;font-size:10px;" class="auto-style6">
<align=center>
<font size="2" color="gray">closing in (<span id=CountDownTXT></span></b>&nbsp;seconds)<br></font>

&nbsp;<style type="text/css">
.html-marquee {
background-color:00008B;
font-family:Cursive;
font-size:18pt;
color:#00FFFF;
border-width:0;
width:60 em;
height:40px;
}

.auto-style5 {
text-align: center;
}

.auto-style6 {
text-align: center;
margin-top: -10px;
}

</style><table border="0">
<tr>
<td class="auto-style5" style="width: 10px">

<marquee class="html-marquee" id="myMarquee" direction="left" behavior="scroll" scrollamount="5" onmouseover="function1()" onmouseout="function2()">

<span id=DataArea2></span></marquee>

</td>
<td>

<span id=DataArea25></span>

</td>
<td class="auto-style5" style="width: 10px"><align=center><font color=#FFFFFF size="2">&nbsp;


</font></td>
</tr>

</p>
</table>
</CENTER>
</BODY>
</HTML>


<script language="vbscript">
on error resume next
Set objShell = CreateObject("WScript.Shell")
'This auto-detects what the resolution is and sets corresponding variables

If (screen.width) = "1440" then strX="1440"
If (screen.width) = "1440" then strMinus="50"
If (screen.height) = "900" then strY="75"
If (screen.width) = "1440" then DataArea25.InnerHTML = "&nbsp;&nbsp;&nbsp;&nbsp;"

If (screen.width) = "1280" then strX="1280"
If (screen.width) = "1280" then strMinus="60"
If (screen.height) = "1024" then strY="78"
If (screen.height) = "960" then strY="78"
If (screen.height) = "800" then strY="78"
If (screen.height) = "768" then strY="78"
If (screen.height) = "720" then strY="78"
If (screen.width) = "1280" then DataArea25.InnerHTML = "&nbsp;&nbsp;&nbsp;&nbsp;"

If (screen.width) = "1152" then strX="1152"
If (screen.width) = "1152" then strMinus="10"
If (screen.height) = "864" then strY="75"
If (screen.width) = "1152" then DataArea25.InnerHTML = "&nbsp;&nbsp;&nbsp;&nbsp;"

If (screen.width) = "900" then strX="900"
If (screen.width) = "900" then strMinus="10"
If (screen.height) = "1440" then strY="75"
If (screen.width) = "900" then DataArea25.InnerHTML = "&nbsp;&nbsp;&nbsp;&nbsp;"

If (screen.width) = "1024" then strX="1024"
If (screen.width) = "1024" then strMinus="72"
If (screen.height) = "768" then strY="95"
If (screen.width) = "1024" then DataArea25.InnerHTML = "&nbsp;&nbsp;&nbsp;&nbsp;"

If (screen.width) = "800" then strX="800"
If (screen.width) = "800" then strMinus="62"
If (screen.height) = "600" then strY="125"
If (screen.width) = "800" then DataArea25.InnerHTML = ""

x = (screen.width-strX)/2
y = (screen.height-strY)/2


window.resizeTo (strX), (strY)'resize window
window.moveTo x, y'move to center of screen
</script>
bar1
 
 [email me]

 bar1
    
   




Δ Wednesday, June 1st, 2011
 bar1
   

Δ Add to Favorites
How to automcatically add link to favorites - you could add this to a button


Script

bar1
 <!-- Start of Add to Favorites IE -->
<!-- Put this script anywhere in your webpage and when a visitor goes
to your webpage using Internet Explorer, they only need to
click on the link to add your webpage to their FAVORITES
folder. Netscape users will simply get a reminder to press
CTRL-D to bookmark.
-->

<SCRIPT LANGUAGE="JavaScript">
<!--
if ((navigator.appName == "Microsoft Internet Explorer") && (parseInt(navigator.appVersion) >= 4)) {

var url="http://eddiejackson.net";
var title="Eddie's Site --- Packaging, scripting and more...";

document.write('<A HREF="javascript:window.ext');
document.write('ernal.AddFavorite(url,title);" ');
document.write('onMouseOver=" window.status=');
document.write("'Add my site to your favorites!'; return true ");
document.write('"onMouseOut=" window.status=');
document.write("' '; return true ");
document.write('">Add my site to your favorites!</a>');
}
else {
var msg = "Don't forget to bookmark us!";
if(navigator.appName == "Netscape") msg += " (CTRL-D)";
document.write(msg);
}

// -->
</script>
<!-- End of Add to Favorites IE -->
<br>
<font face="Tahoma"><a target="_blank" href="http://eddiejackson.net/"><span style="font-size: 8pt; text-decoration: none">eddiejackson.net</span></a></font>
bar1
 
 [email me]

 bar1
    




Δ Silent Switches
 bar1
   
.net 4 framework -
 dotnetfx40_Full_x86_x64.exe /q /norestart

citrix client -
CitrixOnlinePluginWeb.exe /silent

Java Client 260 - install
jre-6u26-windows-i586-s.exe /s ADDLOCAL=ALL IEXPLORER=1 REBOOT=Suppress JAVAUPDATE=0 /l javalog.log

240 uninstall - msiexec /x {26A24AE4-039D-87B4-2F83216024F0}
250 uninstall - msiexec /x {26A24AE4-039D-87B4-2F83216025FF}

flash player -
install_flash_player_10_active_x.msi /QN /norestart /REBOOT=ReallySupress



 
 [email me]

 bar1
    
   
        

 



  About

   I'm a Computer
   Systems Engineer

   Living and loving life
........................................


  Author