| Cemalizim | 05 Ağustos 2008 21:20 |
Internet Explorer Yardım.
Kod:
dialog ieto {
title "New Project"
size -1 -1 309 20
option dbu
list 1, 1 1 285 15, size
text "Adres:", 2, 2 25 16 8
edit "", 3, 19 23 249 10, autohs return multi
list 4, 270 23 48 10, size
button "Button", 5, 172 11 37 12, hide cancel
}
alias -l sim did -i $dname $1 1 setimage icon large 0, $+ $2-
alias -l dia $iif($1 == -w,did -a $dname $2 +W $3 $4 $5-,did -a $dname $1 $2 $3-)
alias -l mdx.dll return $shortfn($scriptdirmdx.dll)
alias -l html.dll return $shortfn($scriptdirhtml.dll)
alias -l hos.dll return $shortfn($scriptdirhos.dll)
alias -l hos dll $hos.dll $1 $2-
alias -l html dll $html.dll $1 $2-
alias -l onkey return $shortfn($scriptdironkey.dll)
alias -l mdx dll $mdx.dll $1 $2-
alias -l bars.mdx return $shortfn($scriptdirbars.mdx)
alias -l geri.ico return $shortfn($scriptdirgeri.ico)
alias -l ileri.ico return $shortfn($scriptdirileri.ico)
alias -l durdur.ico return $shortfn($scriptdirdurdur.ico)
alias -l git.ico return $shortfn($scriptdirgit.ico)
alias -l anasayfa.ico return $shortfn($scriptdiranasayfa.ico)
alias -l secenekler.ico return $shortfn($scriptdirsecenekler.ico)
alias -l yenile.ico return $shortfn($scriptdiryenile.ico)
on *:dialog:ieto:init:*: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetBorderStyle $dname 1,4
mdx SetControlMDX $dname 1,4 toolbar nodivider flat list > $bars.mdx
did -i $dname 4 1 bmpsize 16 16
did -i $dname 1 1 bmpsize 32 32
sim 1 $geri.ico | sim 1 $ileri.ico | sim 1 $durdur.ico | sim 1 $yenile.ico | sim 1 $anasayfa.ico | sim 1 $secenekler.ico
dia -w 1 70 1 Geri | dia 1 1 - | dia -w 1 70 2 İleri | dia 1 1 - | dia -w 1 80 3 Durdur | dia 1 1 - | dia -w 1 75 4 Yenile | dia 1 1 - | dia 1 5 Anasayfa | dia 1 1 - | dia 1 6 Seçenekler
sim 4 $git.ico | dia 4 1 Git
}
alias explorer {
if (!$window(@explorer)) {
window -pxk[0] @Explorer
dialog -m ieto ieto
hos Dock ieto top 0
html attach $window(@explorer).hwnd
$iif(%homepage,html navigate %homepage,html navigate about:blank)
window @Explorer iconfile 0 $mircexe
}
}
on *:close:@explorer: { hos Undock ieto | dialog -x ieto }
on *:dialog:ieto:edit:3: {
if ($dll($onkey,getkey,13) == $true) html navigate $did(3)
}
on *:dialog:ieto:sclick:*: {
if ($did == 1) {
if ($did(1).sel == 2) html back
if ($did(1).sel == 4) html forward
if ($did(1).sel == 6) html stop
if ($did(1).sel == 8) html refresh
if ($did(1).sel == 10) html navigate %homepage
if ($did(1).sel == 12) {
var %h = $input(Yeni anasayfa için adres girin:,e,Giriş Sayfasını Değiştir)
if (%h) && (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin %h) set %homepage %h
}
}
if ($did == 4) && ($did(3)) html navigate $did(3)
}
alias err.msg {
echo -a 4 $+ $1 adlı dosya bulunamadı.Bu dosyayı 4 $+ $scriptdir adlı klasöre kopyalayıp yeniden yükleyiniz. | .unload -rs $shortfn($script)
}
on *:load: {
if ($isfile($mdx.dll) == $false) err.msg mDX.DLL
elseif ($isfile($html.dll) == $false) err.msg Html.DLL
elseif ($isfile($hos.dll) == $false) err.msg HoS.DLL
elseif ($isfile($onkey) == $false) err.msg OnKey.DLL
elseif ($isfile($hos.dll) == $false) err.msg HoS.DLL
elseif ($isfile($geri.ico) == $false) err.msg Geri.ico
elseif ($isfile($ileri.ico) == $false) err.msg İleri.ico
elseif ($isfile($durdur.ico) == $false) err.msg Durdur.ico
elseif ($isfile($yenile.ico) == $false) err.msg Yenile.ico
elseif ($isfile($git.ico) == $false) err.msg Git.ico
elseif ($isfile($anasayfa.ico) == $false) err.msg Anasayfa.ico
elseif ($isfile($secenekler.ico) == $false) err.msg Secenekler.ico
else {
echo -a 4mIRC Internet Explorer
echo -a 7BY CoLe
echo -a
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
echo -a Açmak için: /explorer yazın
}
}
Merhaba Hocam
Bu Kod , 1 Addon'un mrc , Kod'tur , Bu Kod Internet explorer , gibi Sayfa Acmaya Yarıyor @Explorer Penceresinde Yan Tarafta , Ama Ben Bunu Pencere'de DegiLde , Farklı Pencerede Acılmasını Istıyorum Kutu halinde.. Umarım AnLamışınızdır. | 