IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)
-   -   Mırc Internete Bağlanma Dialog Sistemi (https://www.ircforumlari.net/mirc-parca-kodlar/702305-mirc-internete-baglanma-dialog-sistemi.html)

Che 06 Ekim 2015 22:07
Mırc Internete Bağlanma Dialog Sistemi
 
Kod:
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) } }
}

uFuK 07 Ekim 2015 00:25
Cevap: Mırc Internete Bağlanma Dialog Sistemi
 
Kodun Ne İşe Yaradiğini Anlatırsaniz Daha İyi Olur.

İnternete Bağlanmaktan Kasıt Nedir, Neden Tarayici Dururken Bu Kullanılabilir Vb.

Ve Kendinize Ait Değilse Mutlaka ALINTIDIR İbaresinide Belirtin.

Che 07 Ekim 2015 07:24
Cevap: Mırc Internete Bağlanma Dialog Sistemi
 
Bu Kodu Mırc Remote Kısmına Ekledikten Sonra Mouse Sağ Tıklayıp Internet Butonu Seçeneğine Gelerek Tarayıcı Peneceresini Açıyoruz ve Acılan Tarayıcı penceresine bağlanmak istediğimiz adres sayfasını belirtip Aç Botununu Kullanarak belirtilen adrese bağlanıyoruz.




[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

YouMyCure 07 Ekim 2015 21:46
Cevap: Mırc Internete Bağlanma Dialog Sistemi
 
Toplam 1 Eklenti bulunuyor.
O kod bilgisayarınıza kurulu tarayıcıyı açıp bağlanır, ha elle açmişsınız he mircten fark etmez

Kod:
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...] )
  }
}
Bu Kod İle Mirc Üzerinde @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Penceresinden İnternette Sörf Yapabilirsiniz. ( Eklenti Olarak Eklediğim dll Dosyasını Mirc Ana Dizinine Atınız. )
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Caps;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Alıntı:
Not; Kodun Tamamı Bana Ait Değildir, Sadece Dialog Kısmı Bana Aittir.


Smith 08 Ekim 2015 01:04
Cevap: Mırc Internete Bağlanma Dialog Sistemi
 
Alıntı:
YouMyCure Nickli Üyeden Alıntı (Mesaj 1041687293)
O kod bilgisayarınıza kurulu tarayıcıyı açıp bağlanır, ha elle açmişsınız he mircten fark etmez

Kod:
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...] )
  }
}
Bu Kod İle Mirc Üzerinde @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Penceresinden İnternette Sörf Yapabilirsiniz. ( Eklenti Olarak Eklediğim dll Dosyasını Mirc Ana Dizinine Atınız. )
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Caps;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Eline emeğie saplık kardeşim.

Che 08 Ekim 2015 18:51
Cevap: Mırc Internete Bağlanma Dialog Sistemi
 
Eline sağlık. :)

Toprak 08 Ekim 2015 22:17
Cevap: Mırc Internete Bağlanma Dialog Sistemi
 
Paylaştığınız kodlar kime aitse ve hangi siteden alıntıysa lütfen belirtiniz..


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 09:05.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk