Chrome console check all checkbox in page

On June 18, 2015August 20, 2021 By semt20In webLeave a comment

var getInputs = document.getElementsByTagName("input");
for (var i = 0, max = getInputs.length; i < max; i++){
if (getInputs[i].type === 'checkbox'){

if (getInputs[i].name === 'checkall'){
getInputs[i].checked = false;} else

getInputs[i].checked = true;
}}









var getInputs = document.getElementsByTagName("input");
for (var i = 0, max = getInputs.length; i < 850; i++){
if (getInputs[i].type === 'checkbox'){




if (getInputs[i].name === 'checkall'){
getInputs[i].checked = false;} else

getInputs[i].checked = true;
}}

Send GMail from Delphi Easily

On June 18, 2015August 20, 2021 By semt20In DELPHI, MAILLeave a comment

1-first login to : https://www.google.com/settings/security/lesssecureapps and turn on access for secure apps

2-Create on form : button, IdSSLIOHandlerSocketOpenSSL1, IdMessage1, IdSMTP1

3-Code

uses
idglobal;

procedure SendEmail(const Recipients: string; const Subject: string; const Body: string);
var
  SMTP: TIdSMTP;
  Email: TIdMessage;
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
  eFrom: string;
begin
  eFrom := 'from@gmail.com';
  SMTP := TIdSMTP.Create(nil);
  Email := TIdMessage.Create(nil);
  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

  try
    SSLHandler.MaxLineAction := maException;
    SSLHandler.SSLOptions.Method := sslvTLSv1;
    SSLHandler.SSLOptions.Mode := sslmUnassigned;
    SSLHandler.SSLOptions.VerifyMode := [];
    SSLHandler.SSLOptions.VerifyDepth := 0;
    SSLHandler.Host :=  'smtp.gmail.com';
    SSLHandler.Port := 587;

    SMTP.IOHandler := SSLHandler;
    SMTP.Host := 'smtp.gmail.com';
    SMTP.Port := 587;
    SMTP.Username := eFrom;
    SMTP.Password := 'xxxxxx';
    SMTP.UseTLS := utUseExplicitTLS;

    Email.From.Address := eFrom;
    Email.Recipients.EmailAddresses := Recipients;
    Email.Subject := Subject;
    Email.Body.Text := Body;

    SMTP.Connect; //always raise 'Host not found'
    SMTP.Send(Email);
    SMTP.Disconnect;

  finally
    SMTP.Free;
    Email.Free;
    SSLHandler.Free;
  end;
end;
;------------------------------------------------------------------------
procedure TestSendMail(Sender: TObject);
begin
  SendEmail('to@yahoo.com', 'Subject', 'Body');
end;

Flash AS3 – Dışarıdan Swf Çağırma

On June 17, 2015December 19, 2019 By semt20In ADOBE FLASHLeave a comment

actionscript dışarıdan swf çağırma (not: dosyalar aynı klasörde olursa yolun yazılmasına gerek yok)
yol= c:\deneme\dosyalar\
dosya=hareket.swf

var myLoader:Loader = new Loader();
addChild(myLoader);
var url:URLRequest = new URLRequest(“c:\deneme\dosyalar\hareket.swf”);
dugme_mc.addEventListener(MouseEvent.MOUSE_DOWN, tikla);
function tikla(e:MouseEvent) //sürükle fonksiyonumuz
{
myLoader.load(url);
}

——————————————–
1den fazla dosya çağırma

var myLoader:Loader = new Loader();
addChild(myLoader);
var url:URLRequest = new URLRequest(“üçlü.swf”);

var myLoader2:Loader = new Loader();
addChild(myLoader2);
var url2:URLRequest = new URLRequest(“burun.swf”);

dugme_mc.addEventListener(MouseEvent.MOUSE_DOWN, tikla);
function tikla(e:MouseEvent) //sürükle fonksiyonumuz
{
myLoader.load(url);
}

dugme2_mc.addEventListener(MouseEvent.MOUSE_DOWN, tikla2);
function tikla2(e:MouseEvent) //sürükle fonksiyonumuz
{
myLoader2.load(url2);
}

EXCEL 2013 CONNECT DBF FILE and QUERY BY TODAY

On June 17, 2015December 19, 2019 By semt20In EXCEL, SqlLeave a comment

EXCELDE DATA->FROM OTHER SOURCES->OTHER ADVANCED->MICROSOFT JET 4 ÇİFT TIKLA-> ALL TABINA GEÇ->DATASOURCEU DBF DOSYASININ BULUNDUGU KLASORU EKLE->EXTENDED PROPERTIES=dBASE IV YAP-> OKE BAS->DBF DOSYASI CIKACAK LISTEDE CIFT TIKLA->FINISHE BAS->PROPERTIESA BAS DEFINITIONA TIKLA->COMMAND TYPE=SQL->SELECT * FROM DOSYAADI.DBF

select * from DATA
WHERE TARIH>=date()

Delphi Get SQL SERVER INSTANCE NAMES

On June 17, 2015April 1, 2021 By semt20In DELPHI, SqlLeave a comment

1er tane listbox, adodataset ve buton

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient, ActiveX,DB, ComObj, AdoInt,oleDB,
  ADODB, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, cxControls,
  cxContainer, cxEdit, cxTextEdit, cxMemo;

type
  TForm1 = class(TForm)
    ADODataSet1: TADODataSet;
    cxButton1: TcxButton;
    cboServers: TListBox;
    procedure cxButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure ListAvailableSQLServers(Names : TStrings);
var
RSCon: ADORecordsetConstruction;
Rowset: IRowset;
SourcesRowset: ISourcesRowset;
SourcesRecordset: _Recordset;
SourcesName, SourcesType: TField;

function PtCreateADOObject(const ClassID: TGUID): IUnknown;
var
Status: HResult;
FPUControlWord: Word;
begin
asm
FNSTCW FPUControlWord
end;
Status := CoCreateInstance(
CLASS_Recordset,
nil,
CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER,
IUnknown,
Result);
asm
FNCLEX
FLDCW FPUControlWord
end;
OleCheck(Status);
end;
begin
SourcesRecordset := PtCreateADOObject(CLASS_Recordset) as _Recordset;
RSCon := SourcesRecordset as ADORecordsetConstruction;
SourcesRowset := CreateComObject(ProgIDToClassID('SQLOLEDB Enumerator')) as ISourcesRowset;
OleCheck(SourcesRowset.GetSourcesRowset(nil, IRowset, 0, nil, IUnknown(Rowset)));
RSCon.Rowset := RowSet;
with TADODataSet.Create(nil) do
try
Recordset := SourcesRecordset;
SourcesName := FieldByName('SOURCES_NAME'); { do not localize }
SourcesType := FieldByName('SOURCES_TYPE'); { do not localize }
Names.BeginUpdate;
try
while not EOF do
begin
if (SourcesType.AsInteger = DBSOURCETYPE_DATASOURCE) and (SourcesName.AsString '') then
Names.Add(SourcesName.AsString);
Next;
end;
finally
Names.EndUpdate;
end;
finally
Free;
end;
End;

procedure TForm1.cxButton1Click(Sender: TObject);
begin
Screen.Cursor := crSQLWait;
cboServers.Items.Clear;
try
ListAvailableSQLServers(cboServers.Items);
finally
Screen.Cursor := crDefault;
end;

if cboServers.Items.Count>0 Then
cboServers.Itemindex:=0;
end;

end.

Dokunmatiğin kalibre edilişi

On June 17, 2015December 19, 2019 By semt20In TOOLSLeave a comment

Eğer dokunmatiğin kalibre edilmesi gerekirse yapılması gerekenler aşağıdadır.

denetim masası->tablet ve pc ayarları->ayarla
Çıkan ekranda + yazan yere dokunularak kalibre edilir.

Adobe Flash Actionscript 3 drag drop doğru yanlış nesne

On June 17, 2015December 19, 2019 By semt20In ADOBE FLASHLeave a comment

http://www.flashvideodersler.com/actionscript-3-0-dersleri/gelismis-surukle-birak-ve-hittestobject-ornegi-1.html
Onemli: Baslangica Flash Actionscript 3 dosyası yarat secilmeli
3 daire 3 kare yap (daierler sürüklenecek olanlar kareler cevap kutuları)
6 nesneyi tek tek sağ tıkla ve convert to symbol e bas movie clip seçili olması gerekir ve isimlerinide örneğin

daire1
daire2
daire3
kare1
kare2
kare3
yap.

sonra nesnelere tek tek bir tıkla sol aşağıda
instance namelerini(örnek isimleri)
daire1_mc
daire2_mc
daire3_mc
kare1_mc
kare2_mc
kare3_mc
yap

Daha sonra yeni bir layer oluştur ismini Kodumuz yaz ve ilk framine sağ tıkla ve actionsa tıkla

Çıkan ekrana ve aşağıdaki kodları yaz

//Action Script 3 olmasi gerek

//sürüklenecek objelerin en üstte olmasına dikkat etki kareye sürüklendiğinde arkasına geçmesin

daire1_mc.addEventListener(MouseEvent.MOUSE_DOWN, surukle);

daire2_mc.addEventListener(MouseEvent.MOUSE_DOWN, surukle);

daire3_mc.addEventListener(MouseEvent.MOUSE_DOWN, surukle);

//aşağıda dairelerin gidecegi doğru cevaplar yani kareler taınmlanır

daire1_mc.yer=kare1_mc;

daire2_mc.yer=kare2_mc;

daire3_mc.yer=kare3_mc;

//aşağıda dairelerin ilk yerleri tanımlanır çunku cevap yanlışsa geri oraya gidecek

daire1_mc.ilkyerx=daire1_mc.x;

daire2_mc.ilkyerx=daire2_mc.x;

daire3_mc.ilkyerx=daire3_mc.x;

daire1_mc.ilkyery=daire1_mc.y;

daire2_mc.ilkyery=daire2_mc.y;

daire3_mc.ilkyery=daire3_mc.y;

//bir üstteki kodun aynısı ama daha kısa yani yanlış cevaba surukleynce daireyi geri ilk pozisyonuna götürecek (x=dikey pozisyon, y yatay pozisyon)

var xyeri:Number;

var yyeri:Number;

function surukle(e:MouseEvent)

{

xyeri=e.target.x;

yyeri=e.target.y;

e.target.startDrag();

}

daire1_mc.addEventListener(MouseEvent.MOUSE_UP, birak);

daire2_mc.addEventListener(MouseEvent.MOUSE_UP, birak);

daire3_mc.addEventListener(MouseEvent.MOUSE_UP, birak);

function birak(e:MouseEvent)

{

e.target.stopDrag();

if (e.target.hitTestObject(e.target.yer))

{

e.target.mouseEnabled=false;//cevap doğruysa dairenin hareket etmesini engeller

e.target.x=e.target.yer.x; //cevap yanlışsa daireyi sürüklemeye başladığın yere atar

e.target.y=e.target.yer.y;

}

else

{

e.target.x=xyeri; //cevap yanlışsa daireyi sürüklemeye başladığın yere atar

e.target.y=yyeri;

}

}

Adobe flash kim 500 milyar ister basit oyun yapimi

On June 17, 2015December 19, 2019 By semt20In ADOBE FLASHLeave a comment

Videolu Anlatım:

Önce internette arkaplana koymak için kim 500 milyar isderin fotoğrafını bulup koyalım.

1icni frame başla yazısı ekleyip buttona çeviriyoruz (buton adı basla , örnek adı basla_mc)

Ve yine 1inci framee sag tıklayıp actionsa tıklarız

stop();//buraya stop yazmassak durmayacak

basla_mc.addEventListener(MouseEvent.MOUSE_DOWN,baslaa);//başla tuşu

function baslaa(e:MouseEvent) //başlaya basınca olacak olanlar

{

gotoAndStop(2); //başla tuşuna basıncı ikinci framee geçecek

}

daha sonra ikinci frame sag tıklayıp insert keyframee tıklarız

şıklarımızı ekleriz ve buttona çeviririz. Buto n ismi soru1cevapa , örnek isim soru1cevapa_mc

Ve bütün şıkların isimlerinide tanımladıktan sonra ikinci framee sağ tıklayıp actionsa tıklarız aşağıdaki kodları yazarız.

//tıklanacak şıkların tanımlanması

soru1cevapa_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru1d);//doğru

soru1cevapb_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru1y);//yanlş

soru1cevapc_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru1y);//yanlş

soru1cevapd_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru1y);//yanlş

function soru1d(e:MouseEvent) //doğru cevapda yapılacak olan

{

gotoAndStop(3);//doğru cevapda bir sonraki soruya yani frame geçiş

}

function soru1y(e:MouseEvent) //yanlış cevapda yapılacak olan

{

gotoAndStop(25);//kaybettiğimizde gidilecek olan frame(anahtar kare)

}

Aynı şekilde 3üncü frame sağ tıklayıp insert keyframe basarız ve soru ve şıklarımızı gireriz.

//tıklanacak şıkların tanımlanması

soru2cevapa_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru2y);//yanlş

soru2cevapb_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru2d);//doğru

soru2cevapc_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru2y);//yanlş

soru2cevapd_mc.addEventListener(MouseEvent.MOUSE_DOWN,soru2y);//yanlş

function soru2d(e:MouseEvent) //doğru cevapda yapılacak olan

{

gotoAndStop(4);//doğru cevapda bir sonraki soruya yani frame geçiş

}

function soru2y(e:MouseEvent) //yanlış cevapda yapılacak olan

{

gotoAndStop(15);//kaybettiğimizde gidilecek olan frame(anahtar kare)

//15icni framede yanlış cevapda gösterilecek olanı yazacaz birazdan

}

Aynı şekilde diğer sorularımızıda yaparız. Yanlış cevapda gösterilecek 15inci keyframe sağ tıklarız ve insert keyframe basarız

Windows 8 install framework

On June 17, 2015December 19, 2019 By semt20In TOOLSLeave a comment

cmd -> run as administrator
cmd command:
Dism /online /enable-feature /featurename:NetFx3 /All /Source:D:\win83264\sources\sxs /LimitAccess

Adobe flash bir soru iki cevaba süreklensin

On June 17, 2015December 19, 2019 By semt20In ADOBE FLASHLeave a comment

kare1_mc.addEventListener(MouseEvent.MOUSE_DOWN, surukle);

//yanlış cebapta gidecek olan yer yani ilk yer aşağısı

kare1_mc.ilkyerx=kare1_mc.x;

kare1_mc.ilkyerx=kare1_mc.y;

var xyeri:Number;

var yyeri:Number;

function surukle(e:MouseEvent) //sürükle fonksiyonumuz

{

xyeri=e.target.x;//sürüklemeye başlar başlamaz objemizin yerini alır

yyeri=e.target.y;//cünkü yanlış cevaba giderse geri yerine dönecek

kare1_mc.startDrag();//sürüklemeye başlatma komutu

}

//birakma kodları bölümü aşağısı

kare1_mc.addEventListener(MouseEvent.MOUSE_UP, birak);

function birak(e:MouseEvent)//birak fonksiyonumuz

{

if(kare1_mc.hitTestObject(daire1_mc))//eğer kare1 daire1e denk

{ //gelirse bunları yap

kare1_mc.x=daire1_mc.x;//sürükleyince ortalasın cevaba

kare1_mc.y=daire1_mc.y;//sürükleyince ortalasın cevaba

kare1_mc.stopDrag();//birak

}

else if (kare1_mc.hitTestObject(daire2_mc))//kare1 daire2ye denk gelirse

{

kare1_mc.x=daire2_mc.x;

kare1_mc.y=daire2_mc.y;

kare1_mc.stopDrag();

}

else //eğer kare1 daire1 ve daire2ye denk gelmessede bunları yap

{

kare1_mc.x=xyeri; //cevap yanlışsa daireyi sürüklemeye başladığın yere atar

kare1_mc.y=yyeri; //cevap yanlışsa daireyi sürüklemeye başladığın yere atar

kare1_mc.stopDrag();

}

Blog of Sem

Author: semt20

Chrome console check all checkbox in page

Send GMail from Delphi Easily

Flash AS3 – Dışarıdan Swf Çağırma

EXCEL 2013 CONNECT DBF FILE and QUERY BY TODAY

Delphi Get SQL SERVER INSTANCE NAMES

Dokunmatiğin kalibre edilişi

Adobe Flash Actionscript 3 drag drop doğru yanlış nesne

Adobe flash kim 500 milyar ister basit oyun yapimi

Windows 8 install framework

Adobe flash bir soru iki cevaba süreklensin