![]() |
| | #1 (permalink) | ||||||||||||||||||||||
| Yazan: McKruGer
Dll dosyasını indirmek için: http://www.mircscriptleri.com/dosyal...oolbar/dll.zip Icon dosyasını indirmek için: http://www.mircscriptleri.com/dosyal...olbar/icon.zip mIRC açıldığı an mIRC ve mIRC Scripting Okulu - Powered by vBulletin 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 mIRC ve mIRC Scripting Okulu - Powered by vBulletin } Resim ise: 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 http://www.mircscriptleri.com
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
Konu McKruGer tarafından (01-06-2010 Saat 12:35 ) değiştirilmiştir.. | ||||||||||||||||||||||
|
|
|
| BLaCK_and_WHiTe nickinin mesajına yandaki kullanıcı Teşekkür etmiştir. | McKruGer (01-06-2010) |
|
| Bookmarks |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | |
| Stil | |
|
|