|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>sanadata.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<INPUT class=textblack3 dir=rtl name=srch onkeypress=myKeyPress() size=10 style="HEIGHT: 22px; WIDTH: 120px">
<SCRIPT language=vbscript>
public mode,clik
mode=1
'-----------------------------------------------------------------------
sub MyKeyDown
'function changelang(mode)
'window.alert("MyKeyDown")
'-----------------------------------------------------------------------
'if (window.event.shiftKey and window.event.altKey) then
if (mode=0) then
' mode=1
window.defaultStatus = "Farsi Mode"
else
' mode=0
window.defaultStatus = "English Mode"
end if
' window.event.returnValue=FALSE
' exit sub
'end if
'window.event.returnValue=TRUE
end sub
function init()
mode=1
end function
function changelang(typemode)
if (typemode=0) then
mode=0
clik=1
window.defaultStatus = "English Mode"
elseif (typemode=1) then
mode=1
clik=1
window.defaultStatus = "farsi Mode"
end if
end function
'-----------------------------------------------------------------------
sub MyKeyPress
'window.alert(mode)
'-----------------------------------------------------------------------
dim key
key=window.event.keyCode
if key>127 then exit sub
if (mode=1) then
select case chr(key)
case "&" : window.event.keyCode = 1548
case "?" : window.event.keyCode = 1567
case "H" : window.event.keyCode = 1570
case "h" : window.event.keyCode = 1575
case "f","F" : window.event.keyCode = 1576
case "`" : window.event.keyCode = 1662
case "j","J" : window.event.keyCode = 1578
case "e","E" : window.event.keyCode = 1579
case "[" : window.event.keyCode = 1580
case "]" : window.event.keyCode = 1670
case "p","P" : window.event.keyCode = 1581
case "o","O" : window.event.keyCode = 1582
case "n","N" : window.event.keyCode = 1583
case "b","B" : window.event.keyCode = 1584
case "v","V" : window.event.keyCode = 1585
case "c","C" : window.event.keyCode = 1586
case "\" : window.event.keyCode = 1688
case "s","S" : window.event.keyCode = 1587
case "a","A" : window.event.keyCode = 1588
case "w","W" : window.event.keyCode = 1589
case "q","Q" : window.event.keyCode = 1590
case "x","X" : window.event.keyCode = 1591
case "z","Z" : window.event.keyCode = 1592
case "u","U" : window.event.keyCode = 1593
case "y","Y" : window.event.keyCode = 1594
case "t","T" : window.event.keyCode = 1601
case "r","R" : window.event.keyCode = 1602
case ";" : window.event.keyCode = 1603
case "'" : window.event.keyCode = 1711
case "g","G" : window.event.keyCode = 1604
case "l","L" : window.event.keyCode = 1605
case "k","K" : window.event.keyCode = 1606
case "," : window.event.keyCode = 1608
case "i","I" : window.event.keyCode = 1607
case "d" : window.event.keyCode = 1610
case "D" : window.event.keyCode = 1609
case "m","M" : window.event.keyCode = 1574
case "?" : window.event.keyCode = 1567
' case "0" : window.event.keyCode = 1776
' case "1" : window.event.keyCode = 1777
' case "2" : window.event.keyCode = 1778
' case "3" : window.event.keyCode = 1779
' case "4" : window.event.keyCode = 1780
' case "5" : window.event.keyCode = 1781
' case "6" : window.event.keyCode = 1782
' case "7" : window.event.keyCode = 1783
' case "8" : window.event.keyCode = 1784
' case "9" : window.event.keyCode = 1785
end select
end if
window.event.returnValue=TRUE
end sub
'-----------------------------------------------------------------------
'-----------------------------------------------------------------------
</SCRIPT>
</body>
</html>
|
