mIRC Internet Browser ( Tarayıcı )

dialog 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 "Adres", 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  link "Favori", 8, 26 74 25 8  menu "Dosya", 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 $ip  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 "Open", 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