Cclener orqali yuqadigon virus!
Virus hozirgi kunga qadar 700 000 kompyuterni zararladi.
Royxatda Samsung, Google, Microsoft va juda yirik kompaniyalar turibdi!
Hackerlar Cclener dasturida "teshik" topishdi va virusni butun dunyoga tarqatishti. Lekin Virus Google, Samsung, Micorosoft, Cisco va Intel kompaniyalariga tushganda haddan tashqari kop ma'lumot yeg'di!
Avast va Cisco kompaniyalarining xabar berishicha Hackerlar Cclener serveriga ulanib ichki domenlarga hujum uyushtirishdi. Virusning vazifasi zararlangan qurilma haqida toliq ma'lumot ye'gish va hohlagan payt Dostup olishga imkon yaratib beradi!
Ekspertlarning fikricha zararlangan qurilmalar soni 2 000 000 dan oshishi mimkin!
@webdastur
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label1MouseLeave(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label2MouseLeave(Sender: TObject);
procedure Label2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Label1Click(Sender: TObject);
begin
Messagedlg('Salom',mtinformation,[mbok],0);
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Label1.Font.Color:=clblack;
Label1.Font.Style:=Label1.Font.Style-[fsunderline];
end;
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Color:=clred;
Label1.Font.Style:=Label1.Font.Style+[fsunderline];
end;
procedure TForm1.Label2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
Label1.Font.Color:=clred;
Label1.Font.Style:=Label1.Font.Style-[fsunderline];
end;
procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Font.Color:=clred;
Label1.Font.Style:=Label1.Font.Style+[fsunderline];
end;
end.
Delphi uchun dastur salomlashadi!
Salom sizlarga bir xabarim bor @SpamVzlomBot bu botga aldanmang sizni raqamingizga kelgan kodni ko'rsatmang yoki jo'natmang sababi sizni ma'lumotlaringizni boshqalar bilib oladi iloji bo'lsa do'stlaringizga jo'nating.
Читать полностью…WebDastur.uz
Bootstrap orqali moslavshuvchan sayt tuzish. Bilishingiz kerak bo'lgan narsalar
➖ @webdastur ➖
WebDastur.uz
Bootstrap orqali moslavshuvchan sayt tuzish. Kirish qismi.
http://img.uz/d/2017/08/59a19731c071b.jpg Ushbu video dars ingliz tilida bo'lib bootstrapda landing page tayyorlash o'rgatilgan. Eng muhimi tas-ix zonasida.
Nomi: Boostrap Layouts Responsive Single Page Design-Welcome
Davomiyligi: 01:04
Hajmi: 9mb
Kengaytmasi: MP4
Saytimmizga a'zo bo'ling va maqola joylang
Salom saytimmiz bazasi va dizayni yangilanib qolmay imkoniyatlar ham qo'shildi endilikda siz saytimmizdan ro'yxatdan o'tganingizdan so'ng saytimmiz a'zosigina bo'lib qolmay maqola ham joylay olasiz ha to'g'ri o'qidingiz maqola joylay olasiz agar maqolangizda fayllar bo'lsa yoki rasm qo'shmoqchi bo'lsangiz img.uz Rasm hostinggi fayl hostinggi esa ishonchlisi disk.yandex.ru shularga joylab keyin saytda e'lon qilishingiz mumkin eslatma bizdagi qulaylik yuklanadigan fayl qo'shadigan bo'lsangiz Yuklab olish darchasiga fayl url manzilini kiritsangiz bas o'zi avtomat ravishda yuklab olish tugmasi bilan chop etiladi. Eslatma har bitta maqolangiz o'zingizni nomingizga chop etiladi. Hamda mualliflik huquqi sizga tegishli bo'ladi.
Spinner !
💰Narxi: 15 000 so'm
🚛Yetkazish: 20-35 kun
📚 Ranglari: 6 xil
👤 Murojaat uchun: @AliExpress_Manager
Endi WebDastur.uz saytidan ro'yxatdan o'tib o'zingizni maqolangizni kiritishingiz mumkin.
Читать полностью…🔊 @InglizchaTestbot Inglizcha Test olami✅
✅Testlar aynan siz uchun tayyorlangan
✅O’z darajangizni tanlash imkoniyati
✅Doimo bepul va qulay
✅Sertifikat olish imkoniyati
✅Ayni paytda biz 1000 dan ziyod foydalanuvchilarga egamiz
✅Kelajagizni biz bilan quring
http://158.69.106.40:10057 bizning TeamSpeak serverimmiz endi online darslar bo'ladi
Читать полностью…🇬🇧 Here’s to the crazy ones. The misfits. The rebels. The troublemakers. The round pegs in the square holes. The ones who see things differently. They’re not fond of rules. And they have no respect for the status quo. You can quote them, disagree with them, glorify or vilify them. But the only thing you can’t do is ignore them. Because they change things. They push the human race forward. While some may see them as the crazy ones, we see genius. Because the people who are crazy enough to think they can change the world, are the ones who do.
ⓒ Steve Jobs
🇷🇺 Хвала безумцам. Бунтарям. Смутьянам. Неудачникам. Тем, кто всегда некстати и невпопад. Тем, кто видит мир иначе. Они не соблюдают правила. Они смеются над устоями. Их можно цитировать, спорить с ними, прославлять или проклинать их. Но только игнорировать их — невозможно. Ведь они несут перемены. Они толкают человечество вперёд. И пусть кто-то говорит: безумцы, мы говорим: гении. Ведь лишь безумец верит, что он в состоянии изменить мир, — и потому меняет его.
ⓒ Стив Джобс
🇺🇿 Телбаларга, исёнчиларга, фитначиларга, омадсизларга офарин. Ҳар доим бемаврид ва ўринсиз бўлувчиларга офарин. Ҳаётни ўзгача кўрадиганларга офарин. Улар қоидаларга амал қилмайдилар. Улар тартиблар устидан куладилар. Улардан иқтибослар келтириш, улар билан баҳслашиш, уларни мадҳ қилиш ёки лаънатлаш мумкин, Аммо уларни эътиборсиз қолдиришнинг иложи йўқ. Зеро улар ўзгаришларга сабабчи бўладилар. Улар инсониятни олға ундайдилар. Баъзилар "тентаклар" дейишса деяверишсин, биз "даҳолар" деймиз. Ахир телбагина оламни ўзгартира олишига ишонади, — шу боис ҳам уни ўзгартиради.
ⓒ Стив Джобс
Delphi dastur misol uchun
Delphida tuzilgan dastur agar x>y bo'lsa x+y aks holda x-y ni hisoblaydigan dastur.
Dastur kodi:
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label3: TLabel;
Edit3: TEdit;
Panel1: TPanel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Label8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label8MouseLeave(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var x,y,z:integer;
begin
x:=strtoint(edit1.Text);
y:=strtoint(edit2.Text);
if x>y then z:=x+y else z:=x-y;
edit3.Text:=inttostr(z);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
procedure TForm1.Label8MouseLeave(Sender: TObject);
begin
label8.Font.Color:=clblack;
label8.Font.Style:=[];
end;
procedure TForm1.Label8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label8.Font.Color:=clred;
label8.Font.Style:=[fsunderline];
end;
end.
Dasturni yuklab olish uchun
#webdastur 🔗 http://webdastur.uz/delphi/24-delphi-dastur-misol-uchun.html
Dasturlashmi yoki o'ynash
Zamon rivojlangan sari internet va kompyuter texnologiyalari rivojlanyapti. Siz o'ylab ko'ring tanlov o'zingizda bitta zo'r kompyuteringiz bor ertadan kechgacha o'ynaysiz qancha vaqt yo'q bo'lyapti qancha umr endi o'ylab ko'ring shuncha vaqtni dasturlashga sarflasangiz qancha narsani o'rganasiz faqat shijoat bo'lsa bo'ldi sizda hammasini eplaysiz hamma ishni qila olasiz. Shunga vaqtni qadriga yeting.
#webdastur 🔗 http://webdastur.uz/shaxsiy-rivojlanish/23-dasturlashmi-yoki-oynash.html
Saytda maqola ochilmasa.
Salom siz ushbu maqolani ochdingizmi oxirigacha o'qing. Bizning sayt ya'ni WebDastur.uz saytimmizda ba'zi bir maqolani ochsangiz quyidagi holat sodir bo'ladi:
Agarda sizda shunday holat sodir bo'lsa maqolani ko'rishingiz juda zarur bo'lib qolsa saytimmizdan ro'yxatdan o'tishingiz yoki saytga kirishingizni so'raymiz. Sababi bu maqola ro'yxatdan o'tganlar uchun.
Nega bunday qildik?
Bunday qilganimmizni sababi maqolalarni tarqamasligi tarqasa ham o'sha inson bizning saytga a'zo bo'lib qoladi.
Ro'yxatdan o'tsam meni shaxsiy ma'lumotlarimni hech kim bilmaydimi?
Yoq hech kim bilmaydi. Shaxsiy ma'lumotlaringiz MD5 kodlash tizimi orqali kodlanadi. Agarda ma'lum davr ichida saytimmiz kiber hujumga uchrasa ham ma'lumotlaringiz hech kimni qo'liga o'tib ketmaydi.
Ro'yxatdan o'tsam menga nima foyda?
Siz ro'yxatdan o'tsangiz yashirin maqolalarni ko'ra olasiz va maqola kirita olasiz eng so'nggi yangiliklardan habardor bo'lasiz.
Tanlash imkoniyatingiz bor hammani hayoti o'zini qulida.
#webdastur 🔗 https://goo.gl/ePkvpv
1-dars. Veb-dizayndagi asosiy tushunchalar (RUS)
Ushbu video dars rus tilida bo'lib HTML & CSS juda yaxshi tushuntirilgan. Video dars bilan qo'shib dars paytida o'rgatilgan qo'llanmalarni ham olishingiz mumkin.
#webdastur 🔗 https://goo.gl/ktUYgH
WebDastur.uz
Insonlar bilan munosabatlarni yaxshilash borasida 7 tavsiya
➖ @webdastur ➖
Bilaman albatta bu xabarni ochdingizmi demak o'qimoqchisiz. Siz dasturlashdan biror ma'lumotga egamisiz? Agar xa degan javob kelgan bo'lsa unda sizga bir taklifimmiz bor siz saytimmizda maqola qo'shish bo'limi orqali maqolangizni qo'shing Sentabr oyini oxirigacha eng ko'p maqola qo'shgan va maqolasi ko'p ko'rilgan va sharxlangan insonga biz C++ asoslari nomli pullik video kursni beramiz faqat shoshiling bemani maqola kiritganlar esa boshqa maqola kirita olmaydi. Ha yana aytgancha maqolangiz boshqa saytdan olingiz bo'lsa albatta manbani yozib qoldiring. Shoshiling vaqt tig'iz!
WebDastur.uz Biz bilan endi boshlanadi.
Web Dasturlashni o’rganmoqchilar uchun taklif qiladigan kitoblarim
http://webdastur.uz/qollanmalar/13-web-dasturlashni-organmoqchilar-uchun-taklif-qiladigan-kitoblarim.html