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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 21 Mart 2006, 12:44   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Siteden txt okutmak Script Klasorune Yazdırmak yardım pls




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
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

Konu cruel tarafından (21 Mart 2006 Saat 18:36 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Sohbet
Alt 21 Mart 2006, 13:54   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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..

 
Alıntı ile Cevapla

Alt 22 Mart 2006, 16:24   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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!..

 
Alıntı ile Cevapla

Alt 22 Mart 2006, 21:25   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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

 
Alıntı ile Cevapla

Cevapla

Etiketler
klasorune, mirc, mirc download, mirc indir, okutmak, pls, script, siteden, txt, yardim, yardım, yazdirmak, yazdırmak


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

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
Script Yardım (ACİL) eXLove mIRC Scripting Programları 7 20 Eylül 2008 21:28
Bota Saniye Okutmak Yardım Sirhot mIRC Scripting Sorunları 8 03 Nisan 2006 00:00
S.a sCripT YArdım?? Acil plz NiGhT1 mIRC Scripting Sorunları 2 12 Haziran 2005 17:36