DELPHI / Cursor Sabitlemek
procedure TForm1.Edit1Exit(Sender: TObject); begin showmessage(‘Asla yazı kutusundan çıkamassın’); postmessage(handle,WM_NEXTDLGCTL,0,0); postmessage(handle,WM_NEXTDLGCTL,1,0); end;
» Devamını OkuAy: Mart 2014
Sitenize Güncel Altın Fiyatları Kodu Ekle
mIRC Html Remotesi
|
1 2 3 4 5 6 7 |
Bu kodun amaci mirc script uzerinden web sitelerine baglanarak yaptiginiz sockopen islevlerinde gereki olan html kodlarini temizleyip duz metin halinde görmenizi saglar. Yazan kim bilmiyorum ama socks olarak baglandiginiz web sitelerinde kod halinda geliyor kodlardan arindirmak icin en güzel yontem budur. Kod; alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) return %x } |
mIRC PC-win (/loadbar)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
Ozellik(Kullanim): Baslik ismini belirliyebilirsiniz. 6 adet tema secenegi mevcut. Minimum 1, maksimum 5 text ekleyebilirsiniz. Yuklenme hizini belirliyebilirsiniz.(MS formatinda) Not: Title-name kismina girece?iniz textde, bosluk yerine “-” kullanmalisiniz. Resimdeki yukleniyor efekti gri renkte siz renkleri degistirebilirsiniz. Kullanim sekli: /loadbar [title-name] [red|blue|green|grey|yellow|orange] [load speed] [loadtext1+loadtext2+3../max 5 loadtext]) Ornek: /loadbar Baslik-ismi.(title) grey 20 Birinci text+ikinci text+Ucuncu text+Dorduncu text+Besinci text Kod; alias loadbar { var %echo = (/loadbar [title-name] [red|blue|green|grey|yellow|orange] [load speed] [loadtext1+loadtext2+3../max 5 loadtext]) if ($regex($1-,/\\\\s/g) < 3) { echo $color(info) -e */loadbar: Hatal? veya eksik kullan?m. %echo | halt } $iif($window(@loadbar),window -c @loadbar) | unset %load | clr $2 set %fill $hget($2,fill) | set %rect $hget($2,rect) | set %ptitle $hget($2,title) | set %clr $2 window -aCpdhBk0 +d @loadbar 0 0 220 65 | window -a @loadbar | drawfill -r @loadbar %fill %fill 0 0 drawrect -r @loadbar %rect 2 0 0 220 65 0 0 220 17 7 37 206 22 | drawrect -rf @loadbar %ptitle 1 2 2 216 13 drawtext -rbo @loadbar %fill %ptitle Arial 9 5 3 $ll($regsubex($1,/-/g,$chr(32))) | drawtext -rb @loadbar %fill %ptitle Arial 9 202 2 = x .timerload -m 200 $3 inc %load $(|) drawrect -rf @loadbar %ptitle 1 10 40 $!(%load,2) 16 $(|) drawtext -rbo @loadbar %rect %fill Arial 9 7 22 $!+(Load,$chr(40),%,$round($calc($(%load,2) /2),0),$chr(41)) $(|) txt %clr $4- } alias -l clr { if ($regex(red,$1)) { hadd -m red fill $rgb(169,14,21) | hadd -m red rect $rgb(43,0,14) | hadd -m red title $rgb(60,0,13) } if ($regex(blue,$1)) { hadd -m blue fill $rgb(30,72,240) | hadd -m blue rect $rgb(5,20,78) | hadd -m blue title $rgb(9,33,132) } if ($regex(green,$1)) { hadd -m green fill $rgb(0,200,0) | hadd -m green rect $rgb(0,35,0) | hadd -m green title $rgb(0,60,0) } if ($regex(grey,$1)) { hadd -m grey fill $rgb(85,85,85) | hadd -m grey rect $rgb(25,25,25) | hadd -m grey title $rgb(50,50,50) } if ($regex(yellow,$1)) { hadd -m yellow fill $rgb(255,255,0) | hadd -m yellow rect $rgb(85,85,0) | hadd -m yellow title $rgb(105,105,0) } if ($regex(orange,$1)) { hadd -m orange fill $rgb(255,128,0) | hadd -m orange rect $rgb(66,33,0) | hadd -m orange title $rgb(128,64,0) } } alias -l ll var %t = $iif($len($1-) >= 29,$+($left($1-,28),..),$1-) | var %tt = $regsubex(%t,/(?<=^)(.)/g,$upper(\\\\1)) | return %tt alias -l mse if ($mouse.x >= $gettok($1,1,45) && $mouse.x < $gettok($1,2,45)) && ($mouse.y >= $gettok($1,3,45) && $mouse.y < $gettok($1,4,45)) return $true alias -l txt { var %:- = $timer(load).reps if ($regex(%:-,^190$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t1 $gettok($2-,1,43) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t1) } if ($regex(%:-,^140$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t2 $iif(!$gettok($2-,2,43),%t1,$gettok($2-,2,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t2) } if ($regex(%:-,^90$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t3 $iif(!$gettok($2-,3,43),%t2,$gettok($2-,3,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t3) } if ($regex(%:-,^50$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t4 $iif(!$gettok($2-,4,43),%t3,$gettok($2-,4,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t4) } if ($regex(%:-,^10$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t5 $iif(!$gettok($2-,5,43),%t4,$gettok($2-,5,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t5) } if ($regex(%:-,^0$)) .timer 1 1 drawtext -rbo @loadbar %rect %fill Arial 9 7 22 $+(Veriler ba?ar?yla yüklendi.,$str($chr(160),30)) $(|) unset %t1 %t2 %t3 %t4 %t5 $(|) .timercls 1 3 window -c @loadbar } on *:close:@loadbar:$iif($timer(cls),.timercls off) menu @loadbar { sclick:$iif($mse(202-207-4-9),window -n @loadbar) | if ($mse(209-216-4-11)) window -c @loadbar | .timerload off mouse: { $iif($mse(202-207-4-9),drawtext -rbo @loadbar $rgb(255,255,255) %ptitle Arial 10 202 2 =,drawtext -rb @loadbar %fill %ptitle Arial 9 202 2 = $+(x,$chr(160))) $iif($mse(209-216-4-11),drawtext -rbo @loadbar $rgb(255,255,255) %ptitle Arial 10 210 2 x) } } |
mIRC Cift Renkli Yazi Tipi
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
menu menubar,channel,query { $iif($group(#DuaL_CoLoR.Text) == Off,DuaL_CoLoR Text [Off],DuaL_CoLoR Text [On]):{ $iif($group(#DuaL_CoLoR.Text) == Off,.enable #DuaL_CoLoR.Text,.disable #DuaL_CoLoR.Text) } } #DuaL_CoLoR.Text on on *:input:*:{ if ($left($1-,1) != /) { if ($left($1-,1) != $chr(33)) { set %len $len($1-) } if ($remove($1,:) ison $chan) { .set %nick.comp $remove($1,:) | .say 10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 14,1 ¬ 10,1 $1 14¬ 1,1 10 $+ $left($mid($2-,00,$calc($len($2-) - 1)),4) $+ 1,10 $+ $mid($2-,5,$calc($len($2-) - 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10× | goto End | :end | halt } else { msg $active 10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 1,1 1,1 $+ 10 $+ $left($mid($1-,1,$calc($len($1-) - 0)),11) $+ 1,10 $+ $mid($1-,12,$calc($len($1-) - 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10×0,0 | haltdef 11,11,110} } } } |
mIRC Baska Nickle Gireni Belirleme Kodu
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
1: start: (. Hmake nicksch 100) 1art Do?um: #: (($ comchan ($ nick, 0) <2) (nick $ site)) $ nicksgrab e?er 1: ç?k?n: (nick $ site) $ nicksgrab 1: kick: #: ( ($ Comchan ($ önemsiz, e?er 0) <2) ( ?v?r $ ifmatch) $ nicksgrab ($ ial ($ ?v?r birlikte). host! = $ null) ( ) ) alias (nicksgrab . $ Nicksch hadd IIf (($ gettok ($ 2, -1,46) == virtuel) & & ($ numtok (2,46 $)> 3 ),$+($ gettok ($ 2,1-2, 46). virtuel), $ 2) $ 1 ) NicksTrouve (alias var% a = $ IIf (($ gettok ($ 2, -1,46) == virtuel) & & ($ numtok (2,46 $)> 3 ),$+($ gettok ($ 2,1-2 , 46). virtuel), $ 2) return $ IIf ($ hget (nicksch,% a)! = $ 1, $ ifmatch) ) 1: JOIN: #: ( var% NickPrecedent = $ IIf ($ NicksTrouve ($ nick, $ site),? 4 [? 2Onceki Nicki? 4]? 12 $ ifmatch?) (% NickPrecedent) (echo-tm $ chan $ ifmatch) e?er ) |
mIRC Açılışta Şifre Koruması Addon
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
on *:start: { var %ho_p $?*="Lütfen şifreyi girin " if (!%ho_p) { var %ho_p $?*="Şifre kısmını Boş bırakmayınız..! Lütfen şifreyi girin " } if (%ho_p != %passx) { .exit } else { if (%ho_p = %passx ) { echo -a Sifre kabul edildi } } } /set %passx şifreniz |