| McKruGer | 15 Ocak 2009 02:49 |
Web Toolbar
Dll dosyasını indirmek için: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Icon dosyasını indirmek için: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
mIRC açıldığı an [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sitesi @web penceresinde açılır.
Eğerki mirc açılır açılmaz @web penceresinin açılmasını istemiyorsanız
Koddaki şu satırları aynen siliniz. if ($window($active) != @Web) && (!$window(@Web)) {
window -peng1k0 @Web
var %hwnd = $dll(dll\nhtml.dll,attach,$window(@Web).hwnd)
dll dll\nhtml.dll attach %hwnd
dll dll\nhtml.dll navigate [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
} Resim ise: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod:
on *:start: { dialog -m toolbar toolbar }
alias Temadene { echo -a Temam: $iif($temabul,XP Teması,Klasik Windows Teması) }
alias Temabul { .comreg dll/Tema.dll | .comopen toolbar Tema.buL | var %komut = $com(toolbar,TemaBul,1) | var %komut = $com(toolbar).result | .comclose toolbar | .comreg -u dll/Tema.dll | return %komut }
alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }
alias rebar { dll DLL\rebar.dll $$1- }
alias bars { return DLL\bars.mdx }
on *:connect: {
update.toolbar
}
on *:disconnect: {
update.toolbar
}
on *:close:*: {
update.toolbar
}
alias saat { if ($dialog(toolbar)) { did -a toolbar $1 $time } }
alias update.toolbar {
if (!$dialog(toolbar)) { halt }
else {
scid $activecid
if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) {
did -o toolbar 1 3 +a 2 $chr(32) Bağlantıyı Kes $chr(9) $+ IRC Serverle Bağlantınızı Koparır.
}
else {
did -o toolbar 1 3 +a 1 $chr(32) Servere Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.
}
}
}
dialog toolbar {
title "x"
size 0 0 550 $iif($temabul,34,36)
option dbu
list 4, 0 -2 550 17, size
list 1, 0 4 550 17, size
text "", 2, 464 6 45 16, center
text "", 3, 467 10 39 11, center
list 100, 0 33 180 19, size
combo 101, 170 33 148 70, size edit drop
text "Adres:", 102, 145 35 18 11
list 103, 323 33 45 11
}
on *:dialog:toolbar:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetFont $dname 1,102,103 Turkish 14 800 Cyrillic
mdx SetFont $dname 100 Turkish 14 600 Cyrillic
mdx SetFont $dname 3 +a 20 600 arial
.timersaat 0 1 saat 3
mdx SetColor $dname 102 text $rgb(0,0,0)
did -a $dname 101 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
did -c $dname 101 1
rebar HideToolbar .
rebar Dock $dialog(toolbar).hwnd > top
mdx SetControlMDX $dname 1,3,4 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1,4 ToolBar flat wrap arrows nodivider > $bars
mdx SetControlMDX $dname 100,103 ToolBar list flat wrap arrows nodivider > $bars
mdx SetBorderStyle 1,100,103
did -i $dname 103 1 bmpsize 16 16
did -i $dname 103 1 setimage +nh icon small icon\git.ico
did -a $dname 103 +b 1 Adrese Git!
did -i $dname 100 1 bmpsize 16 16
did -i $dname 100 1 setimage icon large icon\geri.ico
did -i $dname 100 1 setimage icon large icon\ileri.ico
did -i $dname 100 1 setimage icon large icon\dur.ico
did -i $dname 100 1 setimage icon large icon\yenile2.ico
did -a $dname 100 +a -
did -a $dname 100 +a 1 $chr(32) Geri $chr(9) $+ Bir önceki sayfaya gelinir...
did -a $dname 100 +a -
did -a $dname 100 +a 2 $chr(32) İleri $chr(9) $+ Bir sonraki sayfaya gidilir...
did -a $dname 100 +a -
did -a $dname 100 +a 3 $chr(32) Dur $chr(9) $+ Sayfa görüntülenmesi durdurulur...
did -a $dname 100 +a -
did -a $dname 100 +a 4 $chr(32) Yenile $chr(9) $+ Sayfa görüntülenmesini yeniler...
did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 1 1 bmpsize 27 27
did -i $dname 1 1 setimage icon large icon\baglan.ico
did -i $dname 1 1 setimage icon large icon\kes.ico
did -i $dname 1 1 setimage icon large icon\Ayarlar.ico
did -i $dname 1 1 setimage icon large icon\kanal.ico
did -i $dname 1 1 setimage icon large icon\korumalar.ico
did -i $dname 1 1 setimage icon large icon\kontrolpanel.ico
did -i $dname 1 1 setimage icon large icon\gorunum.ico
did -i $dname 1 1 setimage icon large icon\liste.ico
did -i $dname 1 1 setimage icon large icon\oyunlar.ico
did -i $dname 1 1 setimage icon large icon\internet.ico
did -i $dname 1 1 setimage icon large icon\yardım.ico
did -a $dname 1 +a -
did -a $dname 1 +a 1 $chr(32) Server Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar.
did -a $dname 1 +a -
did -a $dname 1 +a 3 $chr(32) Bağlantı $chr(9) $+ Bağlantı Ayarlarını Yapar.
did -a $dname 1 +a -
did -a $dname 1 +a 4 $chr(32) Kanallar $chr(9) $+ Kanallara Giriş Penceresini Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 5 $chr(32) Korumalar $chr(9) $+ Kanal ve Kişisel Korumaları Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 6 $chr(32) Kontrol Panel $chr(9) $+ Scriptinizle İlgili Tüm Ayarları Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 7 $chr(32) Görünümler $chr(9) $+ Scriptinizin Görünümüyle İlgili Ayarları Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 8 $chr(32) Listeler $chr(9) $+ Scriptinizdeki Notify, Düşman Listesi Gibi Ayarları Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 9 $chr(32) Oyunlar $chr(9) $+ Scriptinizin Oyunlarıyla İlgili Diyalogu Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 10 $chr(32) Internet $chr(9) $+ Internet Adreslerinin Olduğu Diyalogu Açar.
did -a $dname 1 +a -
did -a $dname 1 +a 11 $chr(32) Yardım $chr(9) $+ Scriptinizin Yardım Dosyasını Açar.
did -a $dname 1 +a -
if ($window($active) != @Web) && (!$window(@Web)) {
window -peng1k0 @Web
var %hwnd = $dll(dll\nhtml.dll,attach,$window(@Web).hwnd)
dll dll\nhtml.dll attach %hwnd
dll dll\nhtml.dll navigate [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
}
on *:dialog:toolbar:*:*: {
if $devent == sclick {
if $did == 1 {
if ($did($dname,1).sel = 3) {
if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }
else {
scid $activecid server
}
update.toolbar
did -f $dname 1
scid $activecid window -a "status window"
}
if ($did($dname,1).sel = 5) {
Ayarlar
}
if ($did($dname,1).sel = 7) {
Kanallar
}
if ($did($dname,1).sel = 9) {
Korumalar
}
if ($did($dname,1).sel = 11) {
kontrolpanel
}
if ($did($dname,1).sel = 13) {
gorunumler
}
if ($did($dname,1).sel = 15) {
listeler
}
if ($did($dname,1).sel = 17) {
oyunlar
}
if ($did($dname,1).sel = 19) {
internet
}
if ($did($dname,1).sel = 21) {
yardim
}
}
if $did == 100 {
if $did(100).sel == 3 {
var %hwnd = $dll(dll/nhtml.dll,find,findme)
dll dll/nHTML.dll attach %hwnd
dll dll/nhtml.dll back 0
/echo -a 0,1 Bir önceki sayfaya geliniyor...
}
}
if $did == 100 {
if $did(100).sel == 5 {
var %hwnd = $dll(dll/nhtml.dll,find,findme)
dll dll/nHTML.dll attach %hwnd
dll dll/nHTML.dll forward 0
/echo -a 0,1 Bir sonraki sayfaya gidiliyor...
}
}
if $did == 100 {
if $did(100).sel == 7 {
var %hwnd = $dll(dll/nhtml.dll,find,findme)
dll dll/nHTML.dll attach %hwnd
dll dll/nHTML.dll stop 0
/echo -a 0,1 Sayfa görüntülenmesi durduruluyor...
}
}
if $did == 100 {
if $did(100).sel == 9 {
var %hwnd = $dll(dll/nhtml.dll,find,findme)
dll dll/nHTML.dll attach %hwnd
dll dll/nhtml.dll refresh 0
/echo -a 0,1 Sayfa görüntülenmesi yenileniyor...
}
}
if $did == 103 {
var %z = $did(103).sel
if (%z == 2) { git $did(101) }
}
}
}
Alias -l html { dll $+(",$mircdirdll/nhtml.dll,") $1- }
Alias -l nhtml { return $+(",$mircdirdll/nhtml.dll,") }
Alias -l
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
window -peng1Bk0 $1
html attach $window($1).hwnd
html navigate $2-
}
Alias git {
if (!$1) {
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color=red>[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
if ($1) {
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if ($dialog(toolbar)) { did -a toolbar 101 $1- }
}
Alias yenipencere {
var %w = 1,%wins = 1
while ($window(%w)) {
if (Web isin $ifmatch) { inc %wins }
inc %w
}
:winname
var %window = $+(@Web,%wins)
if ($window(%window)) { inc %wins | goto winname }
return %window
}
|
