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) } }
}

dialog netweb {
  title "Web Bağlantı Penceresi Dialogu"
  size -1 -1 485 276
  option pixels notheme
  edit "", 1, 143 23 160 20
  text "Bağlanılacak Adres", 3, 27 24 100 17
  button "Bağlan", 2, 27 54 273 37, ok
  box "Rastgele Bağlan", 5, 15 5 297 99
  box "Belirli Bağlan", 4, 330 5 139 248
  radio "Google", 6, 349 28 100 17
  radio "Yandex", 7, 349 49 100 17
  radio "Facebook", 8, 349 70 100 17
  radio "Twitter", 9, 349 91 100 17
  radio "Instagram", 10, 349 113 100 17
  radio "Social Freedom", 11, 349 135 100 17
  radio "IRCForumlari", 12, 349 157 100 17
  radio "TurkiyeForumlari", 13, 349 179 100 17
  button "Bağlan", 14, 342 208 115 33, ok
  button "Pencereyi Kapat", 15, 36 167 245 68, ok
  link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
16, 10 255 91 17
}
on *:dialog:netweb:*:*: {
  if $devent == sclick {
    if $did == 2 { /web $did(1) | dialog -x netweb netweb }
    if $did == 6 { set %bdiger 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if $did == 7 { set %bdiger 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if $did == 8 { set %bdiger 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if $did == 9 { set %bdiger 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if $did == 10 { set %bdiger 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if $did == 11 { set %bdiger 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if $did == 12 { set %bdiger 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if $did == 13 { set %bdiger 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if $did == 14 { /web %bdiger | dialog -x netweb netweb }
    if $did == 15 { dialog -x netweb netweb }
  }
}
on *:INPUT:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:{ if (http isin $1) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $1) { Web $1- }  halt }
alias internet dialog -m netweb netweb
alias Web { 
  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...]
    editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1
    set -u2 %x $dll(nHTMLn_2.95.dll,attach,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd) 
    set -u2 %x $dll(nHTMLn_2.95.dll,navigate,$1)
    editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] --> Site Adı Yaz ve Enter ( [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] )

  }
  if ($window($active) == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) &&  ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) {
    editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1
    set -u2 %x $dll(nHTMLn_2.95.dll,attach,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd) 
    set -u2 %x $dll(nHTMLn_2.95.dll,navigate,$1)
    editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] --> Site Adı Yaz ve Enter ( [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] )
  }
}