mIRC Internet Browser ( Tarayıcı )

Internet {
title "Internet"
size -1 -1 79 87
option dbu
edit "" 1, 13 24 50 10, autohs
button "Aç", 2, 20 34 37 12
box "", 3, 10 16 57 33
text "", 4, 6 1 66 14, center
edit "", 5, 4 64 68 10, read center
text "", 6, 9 49 59 15, center
"Favori", 8, 26 74 25 8
menu "", 7
item "Cıkıs", 9, 7, ok
}
menu * {
Internet:/Internet
}
alias Internet { dialog $iif($dialog(Internet),-v,-mied) Internet Internet }

on *:dialog:Internet:init:*:{
did -a $dname 4 Bağlanacak Adres $
did -a $dname 5 %o
did -a $dname 6 En Son Acılıs: $date $time
}
on *:DIALOG:internet:sclick:*:{
if ($did == 1) { -r $did(5) }
if ($did == 2) { if (!$did(1).text) { noop $input(No Site was entered ex: sohbettur.com,uwo,Error!) } | else { url http:// $+ $did(1).text | set %o http:// $+ $did(1).text | set %ot $asctime(dddd hh:nn tt) | did -ra $dname 6 Previously Opened: $asctime(dddd hh:nn tt) | did -ra $dname 5 $+(http://,$did(1).text) } }
if ($did == 8) { dialog $iif($dialog(I.Fav),-v,-md) I.Fav I.Fav }
}
dialog I.Fav {
title "Favorites"
size -1 -1 74 75
option dbu
list 1, 11 9 50 50, size hsbar
button "", 2, 17 61 37 12
}
on *:dialog:I.fav:init:*:{ didtok $dname 1 44 Google.com,sohbettur.com | did -z $dname 1 }
on *:dialog:I.fav:sclick:*:{
if ($did == 2) { if (!$did(1).seltext) { noop $input(No Site was selected,uwo,Error!) } | else { url http:// $+ $did(1).seltext | set %ot $asctime(dddd hh:nn tt) | did -ra Internet 6 Previously Opened: $asctime(dddd hh:nn tt) | did -ra Internet 5 $+(http://,$did(1).seltext) } }
}

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir