| Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Toolbarda hata
Selamlar .. elimdeki web-Toolbar'ın içinden ayıklama yaparak sadece google arama motoru kısmını alayım dedim toolbarı'ın üst kısmını kaldırdım diyalogları istediğim oldu derken bu kezde tolbarın hata verdini gördüm adresi yazıp tıkladığımda swich barda yani yan tarafta bir sürü web sayfası acılıor Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. acaba nerde düzeltme yapmam gerekior bi baksanız? Kod: Kodu kopyalamak için üzerine çift tıklayın! 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 update.toolbar {
}
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
mdx SetColor $dname 102 text $rgb(0,0,0)
did -a $dname 101 Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.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...
if ($window($active) != @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) && (!$window(@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) {
window -peng1k0 @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
var %hwnd = $dll(dll\nhtml.dll,attach,$window(@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).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 == 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,2 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,2 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 = $+(@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],%wins)
if ($window(%window)) { inc %wins | goto winname }
return %window
}
Buda toolbarın orjinal hali Kod: Kodu kopyalamak için üzerine çift tıklayın! 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 Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.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) != @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) && (!$window(@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) {
window -peng1k0 @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
var %hwnd = $dll(dll\nhtml.dll,attach,$window(@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).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 = $+(@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],%wins)
if ($window(%window)) { inc %wins | goto winname }
return %window
}
Konu Feragat tarafından (26 Şubat 2022 Saat 19:11 ) değiştirilmiştir.
|