IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

*AspavA* · 11 Eylül 2014, 19:50

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