دسته
آمار وبلاگ
تعداد بازدید : 1353
تعداد نوشته ها : 8
تعداد نظرات : 9
Rss
طراح قالب

اين كد رو از دست ندهيد. به زبان دي اچ تي ام ال است

براي اضافه كردن واتر مارك به ساييتون مي تونيد ازش استفاده كنيد

<ccResource>
  <ccTitle>
Watermark DHTML
  </ccTitle>
  <ccCategory>
DHTML
  </ccCategory>
  <ccDescription>
This places a watermark image on the bottom of your webpage.
  </ccDescription>
  <ccInstructions>
 Put this entire DHTML script below your last line of
 code on your webpage. 

 Look for this in the JavaScript to adjust to your
 image's HEIGHT and WIDTH:

 var IMGW= 100;
 var IMGH= 89;

 Then look for this in the <DIV> tag to adjust to your
 URL and IMAGE source including the HEIGHT and WIDTH. 

 IMPORTANT

 The image we used 'watermark.gif' can be found in the
 CoffeeCup Software folder. 
  </ccInstructions>
  <ccHeadContent>
  </ccHeadContent>
  <ccBodyContent>
<script language="JavaScript">

var IW= 0;
var IH= 0;
var PX= 0;
var PY= 0;
var ZIN= 0;
var us= null;
var IMGW= 100;
var IMGH= 89;
var LSAFETY= 20;
var TSAFETY= 17;
function branding() {
 oldIW= IW;
 oldIH= IH;
 oldPX= PX;
 oldPY= PY;
 if (navigator.appName == 'Netscape') {
  if ((window.innerHeight != oldIH)||(window.innerWidth != oldIW)||(window.pageXOffset != oldPX)||(window.pageYOffset != oldPY))
    {
    if (us == null)
      {
      for (i=0; i<document.layers.length; i++)
        {
        us= document.layers[i];
        if (us.id == "Valley")
          break;
        }
      }
    if (us != null)
      {
      us.visibility= "hide";
      IH= window.innerHeight;
      IW= window.innerWidth;
      PX= window.pageXOffset;
      PY= window.pageYOffset;


      (IH > IMGH) ? us.top= (IH+PY-(IMGH+TSAFETY)) : us.top= 0;
      (IW > IMGW) ? us.left= (IW+PX-(IMGW+LSAFETY)) : us.left= 0;

//alert('document.layers.length: ' + document.layers.length);
      for (i=0; i<document.layers.length; i++)
        {
        templay= document.layers[i];
// alert('document.layers[' + i + '].id: ' + document.layers[i].id);
        if (templay.zIndex > ZIN)
          ZIN= (templay.zIndex + 1);
        }
      us.zIndex= ZIN;
      us.visibility= "show";
      }
    }
 }
 else{
  if (navigator.appVersion.indexOf("Mac") == -1)
    {
    if ((document.body.clientHeight != oldIH)||(document.body.clientWidth != oldIW)||(document.body.scrollLeft != oldPX)||(document.body.scrollTop != oldPY))      {
      alldivs= document.all.tags("DIV");
      if (us == null){
        for (i=0; i<alldivs.length; i++)
          {
          us= alldivs(i);
          if (us.id == "Valley")
            break;
          }
      }
      if (us != null){
        us.style.display= "none";
        IH= document.body.clientHeight;
        IW= document.body.clientWidth;
        PX= document.body.scrollLeft;
        PY= document.body.scrollTop;
        us.style.top= (IH+PY-(IMGH+TSAFETY)+12);
        us.style.left=(IW+PX-(IMGW+LSAFETY)+15);
        for (i=0; i<alldivs.length; i++){
          templay= alldivs(i);
          if (templay.style.zIndex > ZIN)
            us.style.zindex= (templay.style.zIndex + 1);
        }
        us.style.display= "";
      }
  }
 }
 }
}
if ((document.all) || (document.layers)){
 setInterval("branding()",100);
}
</SCRIPT>
<DIV CLASS="Watermark" ID="Watermark" STYLE="position:absolute;top:1;visibility:hide;" ALIGN="right">
<A HREF="
http://www.coffeecup.com"><IMG SRC="watermark.gif" ALT="CoffeeCup Software" WIDTH=100 HEIGHT=89 BORDER=0></A>
</DIV>
  </ccBodyContent>
  <ccElementContent>
 
   <ccElementName></ccElementName>
   <ccElementAction></ccElementAction>
  
  </ccElementContent>
  <ccExtraData>

  </ccExtraData>

</ccResource>

هر كدي را مي خواهيد فقط كافيه نظر بدهيد

دسته ها :
جمعه ششم 5 1385

براي كار كردن با اين كليدها كافيه فقط براي فعال كردن آن مقدار كليد رو 1 كنيد و باري غير فعال كردنش مقدار كليد رو صفر كنيد

Disable CMD   

HKEY_CURRENT_USES/Software/Policies/Microsoft/windows/System/DisableCMD

Disable TaskMgr

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/System/DisableTaskMgr

Disable Add Or Remove Programs

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Uninstall/NoAddRemovePrograms

Disable Changing WallPaper

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/ActiveDesktop

Clear Recent Documents On Exit

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/ClearRecentDocsOnExit

Hide Clock And Lock Button

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/HideClock

Disable Active Desktop

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/NoActiveDesktop

Disable Add Printer

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/NoAddPrinter

Disable CD Burning

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/NoCDBurning

Disable Log Off From Start Menu

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/StartmenuLogoff

Disable Themes Tab

HKEY_USERS/S-1-5-21-1757981266-527237240-682003330-1003/Software/Microsoft/Windows/CurrentVerison/Policies/Explorer/NoThemesTab

دسته ها :
جمعه ششم 5 1385

در سايت زير عضو شويد وبا توجه به اسلوب خطي پايين از دريافت جديدترين جك ها به صورت رايگان لذت ببرييد

 

http://www.smsiran.com

 

Order jokes by SMS
Send these codes:
jokeA, jokeB or jokeC to
+47-40000616 if you live outside Iran
or to 09123218321 if you live in Iran and get a joke as SMS.
NOTE: jokeA is polite; jokeB is naughty and jokeC is English jokes. (20 credits)

دسته ها :
جمعه ششم 5 1385
procedure TForm1.Button1Click(Sender: TObject);
beginmciSendString('Set cdaudio door open wait', nil, 0, Handle);
end;procedure TForm1.Button2Click(Sender: TObject);
beginmciSendString('Set cdaudio door closed wait', nil, 0, Handle);
end; 
دسته ها :
جمعه ششم 5 1385

FileName.{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}

كافييه اي اسم پوشه اي رو كه مي خواهيد به نام بالا تغيير دهييد

براي باز كردا قفل پوشه مي تونيد از داس كمك بگيريد در داس براي تغغير نام پوشه از فرمان موو استفاده مي شود

دسته ها :
جمعه ششم 5 1385

اينم سورس فرمت كردن با دلفي

type
TDiocRegisters = record
EBX, EDX, ECX, EAX, EDI, ESI, Flags: DWORD;
end;TVWin32CtlCode = (ccNone, ccVWin32IntIoctl, ccVWin32Int26,
ccVWin32Int25, ccVWin32Int13);TBiosParamBlock = packed record
BytesPerSector: Word;
SectorsPerCluster: Byte;
ReservedSectors: Word;
NumFats: Byte;
NumRootEntries: Word;
NumSectors: Word;
MediaID: Byte;
SectorsPerFat: Word;
SectorsPerTrack: Word;
NumHeads: Word;
HiddenSectors: Word;
Dummy1: Word;
TotalSectors: LongInt;
Dummy2: array[0..5] of Byte;
end;TDeviceParamBlock = packed record
Special: Byte;
DeviceType: Byte;
DeviceAttr: Word;
NumCylinders: Word;
MediaType: Byte;
BiosParamBlock: TBiosParamBlock;
end;TFormatParamBlock = packed record
Reserved: Byte;
Head: Word;
Cylinder: Word;
end;function VWin32(CtlCode: TVWin32CtlCode; var Regs: TDiocRegisters): Boolean;
var
hDevice: THandle;
Count: DWORD;
begin
hDevice := CreateFile('\\.\VWIN32', 0, 0, nil, 0,
FILE_FLAG_DELETE_ON_CLOSE, 0);
Result := DeviceIoControl(hDevice, Ord(CtlCode), @Regs, SizeOf(Regs), @Regs, SizeOf(Regs), Count, nil);
CloseHandle(hDevice);
end;function GetDeviceParamBlock(Drive: Char;
var ParamBlock: TDeviceParamBlock): Word;
var
Regs: TDiocRegisters;
begin
with Regs do
begin
EAX := $440D;
EBX := Ord(UpCase(Drive)) - Ord('@');
ECX := $0860;
EDX := LongInt(@ParamBlock);
VWin32(ccVWin32IntIoctl, Regs);
if (Flags and 1) <> 0 then
Result := LoWord(EAX)
else
Result := 0;
end;
end;function SetDeviceParamBlock(Drive: Char;
var ParamBlock: TDeviceParamBlock): Word;
var
Regs: TDiocRegisters;
begin
with Regs do
begin
EAX := $440D;
EBX := Ord(UpCase(Drive)) - Ord('@');
ECX := $0840;
EDX := LongInt(@ParamBlock);
VWin32(ccVWin32IntIoctl, Regs);
if (Flags and 1) <> 0 then
Result := LoWord(EAX)
else
Result := 0;
end;
end;function FormatTrack(Drive: Char;
var ParamBlock: TFormatParamBlock): Word;
var
Regs: TDiocRegisters;
begin
with Regs do
begin
EAX := $440D;
EBX := Ord(UpCase(Drive)) - Ord('@');
ECX := $0842;
EDX := LongInt(@ParamBlock);
VWin32(ccVWin32IntIoctl, Regs);
if (Flags and 1) <> 0 then
Result := LoWord(EAX)
else
Result := 0;
end;
end; 
دسته ها :
جمعه ششم 5 1385


<!--   DESCRIPTION:  This will make your text bounce in the
status bar of the browser.

 INSTRUCTIONS:  Place this script in the HEAD tags of
your webpage.  Then place the text you want to be bounced in
the area that says, "YOUR MESSAGE HERE". 

 FUNCTIONALITY: Works in both Netscape & IE.
-->

<SCRIPT LANGUAGE="JavaScript">
//Modified by CoffeeCup Software
//This code is Copyright (c) 1997 CoffeeCup Software
//all rights reserved. License is granted to a single user to
//reuse this code on a personal or business Web Site.

 

var yourtext = "* YOUR MESSAGE HERE! *";
var wedge1="                        ";
var wedge2="                        ";
var message1=wedge1+yourtext+wedge2;
var dir = "lside";
var speed = 50;

function bouncey() {

 if (dir == "lside") {
  message2=message1.substring(2,message1.length)+"  ";
  window.status=message2;
  setTimeout("bouncey();",speed);
  message1=message2;

  if (message1.substring(0,1) == "*") {
   dir="rside";
  }
 }

 else {
  message2="  "+message1.substring(0,message1.length-2);
  window.status=message2;
  setTimeout("bouncey();",speed);
  message1=message2;
  if (message1.substring(message1.length-1,message1.length) == "*") {
   dir="lside";
  }
 }
}

// -- End Hiding Here -->
</SCRIPT>

<body onLoad="bouncey()">

دسته ها :
جمعه ششم 5 1385

اين وبلاگ در اصل مربوط به سايت زير است

 

http://nimrah.blogfa.com

در صورتي كه سورس برنامه ي خاصي را مي خواهيد فقط كافي نظر بديد سعي مي كنم چند تا سورس جاوا بذارم

دسته ها :
جمعه ششم 5 1385
X