Çevrimdışı

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] da nicklist diye arattır sana ilgili add onu verecek.
hazır code almakyerine burada verilen derslerden örneklerden fikir olusturun bence hazırcılık iyi bişi degil.

__________________
2b|!2b=?

 

Çevrimdışı

coco onu biliyorum o cok sasali bisey oyle bisey istemiyorum ben yazimi iyi okumamissin
nasihatin icinde saol dikkate aliriz
hadi ver bi ders de basliyalim dikkate almaya dll dosyasiyle biseyler yap ve aanlat ogrenelim...

 

Çevrimdışı

bana bakma
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ben acemiyim dll ler ile hiçbir bilgim yok şaka bi yana gerçekten şu dll olayını açıklayan biri olursa mükemmel olur

 

Çevrimdışı

ingilizcesi olanlar faydalanabilir
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

dökümanı bulamadım ama buralardan faydalanabilirsiniz...

 

Çevrimdışı

el33t egerki buraya uye olan biri hakaret kufur reklam veya kotu bisey yazmiyorsa o mesaji silmek bence biraz ayip niye gereksiz mesaj oluyorki yazdigim aciklarmisin?
mesaj yazilmayan basliklar geride kaliyor ve unutulup gidiyor bende kalmasin geride diye mesaj attim ben nice mesajlar goruyorum baslikla alakasi olmayan vede burda yetkili olanlarin yaziklari onlara mesajini duzeltirmisin uyarisi yapip biz uyerlerinkini pat silmekte ne oluyor arkadasim
cevabi olan yazar demissin ve baska bi basligimda ki mesajimida silmissin altinada kod yazmissin bak varmis senin cevabin ama ben yokmu cevabi olan diyene kadar yazmamistin demekki baslik geride kaliyor veya gozden kaciyor bend gundemde tutmak icin cevabi olan yokmu yazdim sayfaya yukmu oldu 4 kelimemiz?

 

Çevrimdışı

bir süredir fındık toplamakla meşguldum bugün işim bitti. o yüzden mesajım biraz geç olmuştur kusura bakma Flyman... Nick Listesindeki info ile ilgili yazılmış nicklust dll si var..

bir kaç türlü info gösterdiği şekilde yollicam buraya

1.kod : Bu kodda nick renkleri sabittir , hepsi siyahtır. Arka planda beyazdır. Nick info penceresinin arka planı da beyaz yazıları ise siyahtır. Bu renkleri el ile ancak değişirsin. ctrl+k ile çıkan Renkler ( colors ) menüsünden değiştiremessin. Ayrıca kanal penceresinin en üstünde Kanal adı yazmaz.

alias nicklust { return $shortfn($scriptdirdll\nicklust.dll) }
on *:join:*:{
if ($nick == $me) {
if (%whochan == $null) set %whochan 1
else set %whochan $calc(%whochan + 1)
.nicklist #
.enable #visiblewho
.who #
}
}
alias nicktt {
if ($1 == color) {
if ($3 == $me) return %nl.owntext
elseif ($istokcs(%nl.specialnicks,$3,44)) return %nl.specialtext
elseif ($3 ishop $active) return %nl.halftext
elseif ($3 isop $active) return %nl.optext
elseif ($3 isvoice $active) return %nl.voicetext
return %nl.regtext
}
if ($1 == tooltip) {
return Nicki: $3 $+ $crlf $+ Adresi: $address( $+ $3 $+ ,1) $+ $crlf $+ Durumu: $getStatus($3,$active)
}
}
alias getStatus {
if ($istokcs(%nl.specialnicks,$1,44)) return Arkadaşın
elseif ($1 == $me) return Kendi Nickin
elseif ($1 ishop $2) return Half-operatör
elseif ($1 isop $2) return Operator
elseif ($1 isvoice $2) return Voice
else return Normal User
}
alias nicklist {
dll $nicklust Mark $1 > nicktt borderselect autoarrange balloon
dll $nicklust SetTipTitle $1 1 > Nick Bilgileri
dll $nicklust SetTipDelay $1 roll default
dll $nicklust SetTipColor # text $rgb(0,0,0)
dll $nicklust SetTipColor # bkg $rgb(255,255,255)
}


2.ci Kod : Bu kodda ise kanal ismi kanal penceresinin en üstünde yazar. Şimdi bunu nasıl yaptık dersen 1.ci koddan tek farkı şu satır dır : dll $nicklust SetHeaderText $1 > $1 işte bu satır kanal penceresinin üstünde kanal isminin yazmasını sağlar.

alias nicklust { return $shortfn($scriptdirdll\nicklust.dll) }
on *:join:*:{
if ($nick == $me) {
if (%whochan == $null) set %whochan 1
else set %whochan $calc(%whochan + 1)
.nicklist #
.enable #visiblewho
.who #
}
}
alias nicktt {
if ($1 == color) {
if ($3 == $me) return %nl.owntext
elseif ($istokcs(%nl.specialnicks,$3,44)) return %nl.specialtext
elseif ($3 ishop $active) return %nl.halftext
elseif ($3 isop $active) return %nl.optext
elseif ($3 isvoice $active) return %nl.voicetext
return %nl.regtext
}
if ($1 == tooltip) {
return Nicki: $3 $+ $crlf $+ Adresi: $address( $+ $3 $+ ,1) $+ $crlf $+ Durumu: $getStatus($3,$active)
}
}
alias getStatus {
if ($istokcs(%nl.specialnicks,$1,44)) return Arkadaşın
elseif ($1 == $me) return Kendi Nickin
elseif ($1 ishop $2) return Half-operatör
elseif ($1 isop $2) return Operator
elseif ($1 isvoice $2) return Voice
else return Normal User
}
alias nicklist {
dll $nicklust Mark $1 > nicktt borderselect autoarrange balloon
dll $nicklust SetTipTitle $1 1 > Nick Bilgileri
dll $nicklust SetTipDelay $1 roll default
dll $nicklust SetTipColor # text $rgb(0,0,0)
dll $nicklust SetTipColor # bkg $rgb(255,255,255)
dll $nicklust SetHeaderText $1 > $1
}


3.cü Kod : Bu kod ilede Nick renklerinide belirtebilirsin ve değiştirebilirsin.. Ayrıca Kanal penceresi arka planınıda değiştirebilirsin..

alias nicklust { return $shortfn($scriptdirdll\nicklust.dll) }
on *:join:*:{
if ($nick == $me) {
if (%whochan == $null) set %whochan 1
else set %whochan $calc(%whochan + 1)
.nicklist #
.enable #visiblewho
.who #
}
}
alias nicktt {
if ($1 == color) {
if ($3 == $me) return %nl.owntext
elseif ($istokcs(%nl.specialnicks,$3,44)) return %nl.specialtext
elseif ($3 ishop $active) return %nl.halftext
elseif ($3 isop $active) return %nl.optext
elseif ($3 isvoice $active) return %nl.voicetext
return %nl.regtext
}
if ($1 == tooltip) {
return Nicki: $3 $+ $crlf $+ Adresi: $address( $+ $3 $+ ,1) $+ $crlf $+ Durumu: $getStatus($3,$active)
}
}
alias getStatus {
if ($istokcs(%nl.specialnicks,$1,44)) return Arkadaşın
elseif ($1 == $me) return Kendi Nickin
elseif ($1 ishop $2) return Halfops
elseif ($1 isop $2) return Operator
elseif ($1 isvoice $2) return Voice
else return Normal User
}

alias nicklist {
dll $nicklust Mark $1 > nicktt borderselect autoarrange balloon
dll $nicklust SetTipTitle $1 1 > Nick Bilgileri
dll $nicklust SetTipDelay $1 roll default
dll $nicklust SetTipColor # text $rgb(0,0,0)
dll $nicklust SetTipColor # bkg $rgb(255,255,255)
dll $nicklust SetHeaderText $1 > $1
dll $nicklust SetColor # bkg $rgb(255,255,255)
dll $nicklust SetColor # op $rgb(221,0,0)
dll $nicklust SetColor # halfop $rgb(255,94,0)
dll $nicklust SetColor # normal $rgb(0,0,255)
dll $nicklust SetColor # voice $rgb(0,110,0)
}

dll $nicklust SetColor # bkg $rgb(255,255,255) satırı ile kanalın arka plan rengini değiştirirsin.. Parantez içinde yer alan 255,255,255 rgb renklendirme kodudur...

dll $nicklust SetTipColor # bkg $rgb(255,255,255) satırı ile info penceresinin arka plan rengini değişirsin. ki arka plan rengi şu an beyaz.

dll $nicklust SetTipColor # text $rgb(0,0,0) satırı ilede info penceresindeki yazı rengini değişirsin. ki yazıların rengi siyahtır.


dll $nicklust SetColor # op $rgb(221,0,0) satırı op rengini
dll $nicklust SetColor # halfop $rgb(255,94,0) halfop rengini
dll $nicklust SetColor # normal $rgb(0,0,255) Normal user rengini
dll $nicklust SetColor # voice $rgb(0,110,0) voice rengini değiştirir. Parantez içindekiler yukarıda dediğim gibi rgb renklendirme kodudur.


rgb renkleri hakkında yardım istiyorsan hangi rakamlar hangi renge işaret eder diyorsan o koduda yazayım remoteye eklersin.

Rgb kodu :

alias -l preview {
window -phn +b @Color -1 -1 270 25
drawfill -r @Color $rgb($1,$2,$3) 1 1 1
drawsave @Color preview.bmp
window -c @Color
}
alias -l color {
window -phn +b @Color -1 -1 18 18
drawfill -r @Color $rgb($1,$2,$3) 1 1 1
drawsave @Color $+($4,.bmp)
window -c @Color
}

dialog RGB {
title "RGB Renkleri"
size -1 -1 126 102
option dbu
icon 1, 4 45 117 15, preview.bmp, 0
scroll "", 3, 24 5 96 8, range 0 255 horizontal
scroll "", 4, 24 19 96 8, range 0 255 horizontal
scroll "", 5, 24 33 96 8, range 0 255 horizontal
icon 6, 4 3 15 10, r.bmp, 0
icon 7, 4 17 15 10, g.bmp, 0
icon 8, 4 31 15 10, b.bmp, 0
text "RGB", 10, 10 65 16 8
text "HEX", 11, 10 74 16 8
button "Çıkış", 12, 89 89 33 11, ok
text "", 13, 31 64 32 8
text "", 14, 31 74 32 8
box "", 15, 4 59 118 25
button "HEX Kopyala", 16, 47 89 38 11
button "RGB Kopyala", 17, 4 89 38 11
}
on *:dialog:rgb:*:*:{
if ($devent == init) {
did -a $dname 13 0,0,0
did -a $dname 14 #0
}
if ($devent == scroll) {
%rgb.val = $did(3).sel $did(4).sel $did(5).sel
preview %rgb.val
did -g $dname 1 preview.bmp
did -ra $dname 13 $replace(%rgb.val,$chr(32),$chr(44))
did -ra $dname 14 $chr(35) $+ $base($rgb($token(%rgb.val,1,32),$token(%rgb.val,2 ,32),$token(%rgb.val,3,32)),10,16)
color $did($did).sel 0 0 r
color 0 $did($did).sel 0 g
color 0 0 $did($did).sel b
did -g $dname $calc(3+ $did) $+($replace($did,3,r,4,g,5,b),.bmp)
}
if ($devent == sclick) {
if ($did isnum 16-17) {
%rgb.c = $iif($did == 16,~)
if (%rgb.c) {
clipboard $did(14)
}
else {
clipboard $did(13)
}
}
}
}
alias rgb {
preview 0 0 0
%rgb.count = 1
while ($token(r.g.b,%rgb.count,46)) {
color 0 0 0 $ifmatch
inc %rgb.count
}
unset %rgb.*
dialog -dm rgb rgb
}
menu channel {
.RGB Renkleri : dialog -m RGB RGB
}


Son olarak aşağıdan Nicklust dll si cek ve dll klasorü içinde at.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Not : Bu Kodu denedim tıkır tıkır calisiyor. şayet gene yapamassan o zaman bende mirc.exe ye yüklenmiş halini mirc.exe ile beraber yollarım.

 

Çevrimdışı

3 nude denedim calistiramadim nerde yanlis yapiyorumki 6.16 mirc kullaniyorum bu kodu remoteye atiyorum ve dll li yukledim sanirimda baska yapilcak bisye yok ama calismadi ucude nerde yanlis yapiyorum anliyamadim

 

Çevrimdışı

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Buraya yükledim cek. şu an bunu kullanıyorum mesela tıkır tıkır çalışıyor.

 

Çevrimdışı

mckruger in verdiği kodu da sanırım dll lerin olduğu klasöre kaydetmek gerekiyor bide o şekilde dene flyman sadece tahmin tabi benimkisi

 

Çevrimdışı

mirci indirdim evet calisiyor inceledim baska bisey de yok bend eniye clismiyor anliyamadim bend eolan bi kod etkiliyor diye dusunuyorum ne kadar dll varsa sildim ama yine olmadi bazne anlamak zor bu mirci