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

Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 05 Nisan 2008, 11:05   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
script güncellemekle ilgili




Benim bir chat içeren web sitem var. Bir irc servere linkli. Kendi kullanıcılarımıza mirc script vereceğiz. Ilerde link değişirsem Bağlantı menusune yeni adresi nasil güncelletebilirim? Böyle bir imkanım varmı acaba?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet
Alt 05 Nisan 2008, 11:58   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: script güncellemekle ilgili




Scripti Yeniden Güncellemen Gerekecek.

__________________
Şimdi Saat Sensizliğin Ertesi..
 
Alıntı ile Cevapla

Alt 05 Nisan 2008, 12:06   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: script güncellemekle ilgili




[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu konuda şu an tek örnek XcLusive Script v1.0 dır.Konuda burada mevcuttur. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 
Alıntı ile Cevapla

Alt 05 Nisan 2008, 12:44   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: script güncellemekle ilgili




Kafam karıştı o scriptde. Mesela benim [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] dosyam var. Mesela 3 ay sonra otomatık olarak guncellemesını nasil yapabilirim ? Öyle bir şey olabilirmi ?

 
Alıntı ile Cevapla

Alt 05 Nisan 2008, 13:37   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: script güncellemekle ilgili




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::: XcLusive Script ::::: ::::: Update Code ::::: ::::: By HaLiL ::::: ::::: Türkiyede İlk! ::::: :::::
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: dialog msg { title "Uyarı:" size -1 -1 181 46 option dbu text "...", 1, 5 5 172 25 button "Tamam", 2, 74 32 37 12, cancel } alias dmsg { set %dmsg $1- if (!$dialog(msg)) { dialog -m msg msg } else { dialog -v msg } } on *:dialog:msg:*:*:{ if $devent == init { idset 2 did -ra $dname 1 %dmsg } } alias su { update | if ($sock(update,0) == 1) { sockclose update } | sockopen update update.ahkalbim.net 80 } on 1:sockopen:update:{ if ($sockerr) { dmsg Güncelleme Bilgisi Alınamadı Sock Bağlanamıyor Lütfen Manuel Olarak Kontrol Ediniz (/update) | echo $color(info) -at Sock Bağlanamıyor Lütfen Tekrar Deneyin | if ($dialog(updated)) { did -ra updated 3 Sock Bağlanamıyor Lütfen Tekrar Deneyin.. } | halt } updmsg Update Kontrol Ediliyor.. .sockwrite -n update GET /dosya.txt HTTP/1.1 .sockwrite -n update Host: update.ahkalbim.net .sockwrite -n update $clrf } on 1:sockread:update:{ sockread %temp if (*HTTP/* 404 Not Found* iswm %temp) { if ($dialog(updated)) { did -ra updated 3 Sock Bağlanamıyor Lütfen Tekrar Deneyin.. } | sockclose $sockname | updmsg HATA: Update Bilgisi Alınamıyor | dmsg HATA: Update Bilgisi Alınamıyor | halt } if (content-length isin %temp) { set %dosyab $remove($gettok(%temp,2,58),$chr(32)) } updates %temp } alias updates { if $1 != dosya { goto end } aspas $2- set %aspas x :end if $1 == yok { .timer 1 1 updmsg Güncellenecek Dosya Yok.. | if $dialog(updated) { did -ra updated 3 Henüz Güncellenecek Dosya Yok } } if $1 == the && $2 == end { updmsg Dosya Bilgisi Alındı.. | if $dialog(updated) { did -ra updated 10 Dosya Bilgisi Alındı } } } alias aspas { var %asfa dat $+ $rand(111,999) sockopen %asfa update.ahkalbim.net 80 $x(sock, $+ %asfa $+ ,$1-) $x(update, $+ %asfa $+ ,$1-) } on 1:sockopen:dat*:{ if ($sockerr) { echo $color(info) -at Sock Bağlanamıyor Lütfen Tekrar Deneyin | dmsg Sock Bağlanamıyor Lütfen Tekrar Deneyin | halt } sockwrite -n $sockname GET / $+ $x3(sock, $+ $sockname $+ ) HTTP/1.1 sockwrite -n $sockname Connection: keep-alive sockwrite -n $sockname Host: %d.host sockwrite $sockname $crlf } on 1:sockread:dat*:{ sockread %sas if (content-length isin %sas) { set %fsiz $remove($gettok(%sas,2,58),$chr(32)) | dsy $x3(sock, $+ $sockname $+ ) | $x4(sock, $+ $sockname $+ ) } } on *:sockclose:*:{ if ($remove($sockname,dat) !isnum) { goto end } var %socksayac $ini(xclusive.ini,sock,0) if ($dialog(updated) != $null) { $x4(update, $+ $sockname $+ ) } if (%socksayac == 0) && (%gnclm != var) { updmsg Script Güncel Versiyonda if (!$dialog(updated)) { .timer 1 3 updmsg Ayrıntılı Bilgi İçin /update Yazın } if $dialog(updated) { did -ra updated 3 Script Güncel Versiyonda | did -a updated 3 Güncellenecek Dosya Yok } halt } if (%socksayac == 0) { if $dialog(updated) { did -ra updated 10 Dosya Listesi Alındı } } :end if ($sockname == rep) && ($dialog(updated) == $null) { .timer 1 1 dsydevam } if ($dialog(updated) != $null) && (%gnclm == var) { did -ra updated 9 Yükle | did -e updated 9 } } alias updmsg /dll systray.dll Balloon 50 3 > ..:: XcLusive Update ::.. > $1- alias dsy { var %fs $findfile($mircdir, $+ $1 $+ ,0) var %fx 1 while (%fx <= %fs) { if $file($findfile($mircdir, $+ $1 $+ ,%fx)).size != %fsiz { if %asfas == 2 { if $dialog(updated) != $null) { did -r updated 3 } } set %asfas 3 if $dialog(updated) { did -a updated 3 $1 } set %gnclm var if $dialog(updated) { did -e updated 9 } if (%autoupdate == on) && ($dialog(updated) == $null) { if ($sock(rep,0) == 0) { dsydevam } } } inc %fx } } alias dsydevam { var %baydi $ini(xclusive.ini,update,0) var %baydi2 $ini(xclusive.ini,update,1) if %baydi == 0 { updmsg Güncelleme Tamamlandi | goto end } var %okuini $readini(xclusive.ini,update, $+ %baydi2 $+ ) $x4(update, $+ %baydi2 $+ ) dl http://update.ahkalbim.net/ $+ %okuini updmsg %okuini Dosyası Yükleniyor... :end } alias update { if (!$dialog(updated)) { dialog -md updated updated } else { dialog -v updated } } dialog updated { title "XcLusive Script Update" size -1 -1 215 170 option dbu icon $mircdirikon\update.ico, 0 box "Bilgisayara Yüklenmiş Dosyalar", 1, 5 89 206 61 box "Güncelleme İçin Bekleyen Dosyalar", 2, 5 12 206 60 list 3, 9 19 152 50, size list 4, 9 96 197 50, size button "Bilgiler", 5, 165 19 40 13 button "Liste AL", 6, 165 37 40 13 button "Kapat", 8, 163 153 39 13, cancel button "Yükle", 9, 165 55 40 13 text "İlerleme:", 10, 6 77 205 8, center button "Dosyayı Sil", 11, 108 153 45 13 button "Dosyayı Script'e Yükle", 13, 13 153 85 13 check "", 7, 10 2 8 10 text "Otomatik Güncellemeyi Aktif Et", 12, 20 3 105 8 } on 1:dialog:updated:*:*:{ if $devent == init { set %gnclm yok idset 14 dll $mdx SetColor $dname 7,12 text 255 if %autoupdate == on did -c $dname 7 var %fs $findfile($mircdirupdate,*.*,0) var %fx 1 while (%fx <= %fs) { did -a $dname 4 $remove($findfile($mircdirupdate,*.*,%fx),$mircdirupdate\) inc %fx } did -b $dname 9 bi } if $devent == sclick { if $did == 7 { if %autoupdate == on { set %autoupdate off | halt } else { set %autoupdate on } } if $did == 5 { did -r $dname 3 | bi | did -b $dname 9 } if $did == 6 { did -r $dname 3 | su | did -ra $dname 3 Lütfen Bekleyin... | set %asfas 2 | set %gnclm yok } if $did == 9 { if ($did(3).seltext == $null) { did -ra $dname 10 Yüklenecek Dosyayı Seçmediniz | halt } if ($sock(rep,0) == 1) { did -ra $dname 10 Script Şuanda Başka Bir Dosya Yüklüyor | halt } dl http://update.ahkalbim.net/ $+ $did(3).seltext } if $did == 11 { var %dsil $did(4).seltext | if (%dsil == $null) { did -ra $dname 10 Silinecek Dosyayı Seçmediniz | halt } | .remove $mircdirupdate/ $+ %dsil | dosyabul | did -ra $dname 10 %dsil Dosyası Update Klasöründen Kaldırıldı } if $did == 13 { if ($did(4).seltext == $null) { did -ra $dname 10 Yüklenecek Dosyayı Seçmediniz | halt } var %gnc $did(4).seltext var %gnca $mircdirupdate\ $+ %gnc var %gncd $findfile($mircdir, $+ %gnc $+ ,0) var %gncs 1 while (%gncs <= %gncd) { var %gncx $findfile($mircdir, $+ %gnc $+ , $+ %gncs $+ ) if (update !isin %gncx) { var %klasor $remove(%gncx, $+ %gnc $+ ) .copy -o %gnca %klasor did -ra $dname 10 %gnc Dosyası Başarıyla Script'e Kopyalandı rcheck %gnc %klasor acheck %gnc %klasor } inc %gncs 1 if %gncs > %gncd { .remove %gnca | dosyabul } } } } if $devent == close { sockclose * remini xclusive.ini update remini xclusive.ini sock } } alias aupdate { var %gnc $1 var %gnca $mircdirupdate\ $+ %gnc var %gncd $findfile($mircdir, $+ %gnc $+ ,0) var %gncs 1 while (%gncs <= %gncd) { var %gncx $findfile($mircdir, $+ %gnc $+ , $+ %gncs $+ ) if (update !isin %gncx) { var %klasor $remove(%gncx, $+ %gnc $+ ) .copy -o %gnca %klasor updmsg %gnc Dosyası Başarıyla Script'e Kopyalandı rcheck %gnc %klasor acheck %gnc %klasor } inc %gncs 1 if %gncs > %gncd { .remove %gnca } } } alias rcheck { var %qw $ini(mirc.ini,rfiles,0) var %qe 1 while (%qe <= %qw) { var %qs $ini(mirc.ini,rfiles, $+ %qe $+ ) var %qr $readini(mirc.ini,rfiles, $+ %qs $+ ) if $1 isin %qr { .load -rs $2 $+ $1 | updmsg $1 Dosyası Başarıyla Remoteye Yüklendi | if $dialog(updated) { did -ra updated 10 $1 Dosyası Başarıyla Remoteye Yüklendi } } inc %qe 1 } } alias acheck { var %ww $ini(mirc.ini,afiles,0) var %we 1 while (%we <= %ww) { var %ws $ini(mirc.ini,afiles, $+ %we $+ ) var %wr $readini(mirc.ini,afiles, $+ %ws $+ ) if $1 == %wr { .load -a $2 $+ $1 | updmsg $1 Dosyası Başarıyla Aliasese Yüklendi | if $dialog(updated) { did -ra updated 10 $1 Dosyası Başarıyla Aliasese Yüklendi } } inc %we 1 } } alias dosyabul { var %fs $findfile($mircdirupdate,*.*,0) var %fx 1 if $dialog(updated) { did -r updated 4 } while (%fx <= %fs) { if $dialog(updated) { did -a updated 4 $remove($findfile($mircdirupdate,*.*,%fx),$mircdirupdate\) } inc %fx } } alias bi { update | if ($sock(bilgi,0) == 1) { sockclose bilgi } | sockopen bilgi update.ahkalbim.net 80 } on 1:sockopen:bilgi:{ if ($sockerr) { echo $color(info) -at Otomatik Güncelleme Kontrol Edilemiyor.. | halt } if ($sock(bilgi,0) == 1) { sockwrite -n bilgi GET /update.txt HTTP/1.1 } if ($sock(bilgi,0) == 1) { sockwrite -n bilgi Host: update.ahkalbim.net } if ($sock(bilgi,0) == 1) { sockwrite -n bilgi $clrf } } on 1:sockread:bilgi:{ sockread %temp if (*HTTP/* 404 Not Found* iswm %temp) { if ($dialog(updated)) { did -ra updated 3 Sock Bağlanamıyor Lütfen Tekrar Deneyin.. } | sockclose $sockname | updmsg HATA: Update Bilgisi Alınamıyor | halt } bilgis %temp } alias bilgis { if $1 != salla { goto end } if $dialog(updated) { did -a updated 3 $2- } :end if $1 == bitti { if $dialog(updated) { did -ra updated 10 Güncelleme Bilgisi Alındı | updmsg Güncelleme Bilgisi Alındı } } } alias dl { set %d.path $remove($1,%d.host,http://,ftp://)) if ($exists($mircdir $+ /update/ $+ $gettok(%d.path,$numtok(%d.path,47),47))) { if (%autoupdate == on) && ($dialog(updated) == $null) { updmsg Bazı Güncelleştirmeler Daha Önce Yüklenmiş Lütfen /update Yazın | remini xclusive.ini sock | remini xclusive.ini update | halt } set %hmm $input($gettok(%d.path,$numtok(%d.path,47),47) Bu Dosya Daha Önceden Yüklenmiş $+ $chr(44) $crlf $+ Tekrar Yüklemek İstiyormusunuz?,y) if (%hmm == $true) { .remove $mircdir $+ update/ $+ $gettok(%d.path,$numtok(%d.path,47),47) | goto start } else { halt } } :start if $dialog(updated) { dialog -v updated } set %time.total $ctime if (http:// isin $1) { set %d.host $gettok($1,2,47) } else { set %d.host $gettok($1,1,47) } set %d.path $remove($1,%d.host,http://,ftp://)) sockopen rep $remove(%d.host,http://,ftp://) 80 .timer.speed 0 2 spee :end } on *:SOCKREAD:rep: { if (%d.check == 0) { sockread %dat if (*HTTP/* 404 Not Found* iswm %dat) { sockclose rep | updmsg HATA: Dosya Bulunamadi Sock Kapatildi | remini xclusive.ini update | remini xclusive.ini | halt } if (content-length isin %dat) { set %fsize $remove($gettok(%dat,2,58),$chr(32)) } if ($len(%dat) < 4) { set %d.check 1 } } elseif (%d.check == 1) { .timerd -m 0 200 cee sockread &tmp set %read $calc(%read + $sockbr) set %rt $calc(%rt + $sockbr) set %percents $int($calc(%read / %fsize * 100)) if $dialog(updated) { did -ra updated 10 $eval([,0) $str(|,$int($calc(%percents / 2.5 ))) $+ $str($chr(58),$calc(40 - $int($calc(%percents / 2.5)))) $eval(],0) | did -b updated 9 | did -ra updated 9 Bekleyin... } bwrite $mircdir $+ update/ $+ $gettok(%d.path,$numtok(%d.path,47),47) -1 &tmp if (%read == %fsize) { updmsg $gettok(%d.path,$numtok(%d.path,47),47) Dosyası Başarıyla Yüklendi if (%autoupdate == on) && ($dialog(updated) == $null) { aupdate $gettok(%d.path,$numtok(%d.path,47),47) } if $dialog(updated) { var %dosyaadi $gettok(%d.path,$numtok(%d.path,47),47) | did -ra updated 10 %dosyaadi Dosyası Başarıyla Yüklendi | did -d updated 3 $did(updated,3).sel | did -e updated 9 | did -ra updated 9 Yükle | sockclose rep } dosyabul } } } alias spee { unset %rt if $dialog(updated) { did -ra updated 10 $eval([,0) $str(|,40) $eval(],0) } set %time $ctime } alias cee { if (%read == %fsize) { .timerd off .timer.speed off } } on *:sockopen:rep:{ if ($sockerr) { dmsg Sock Bağlanamıyor Lütfen Tekrar Deneyin | echo $color(info) -at Sock Bağlanamıyor Lütfen Tekrar Deneyin | halt } set %d.check 0 unset %read set %done 0 sockwrite -n $sockname GET %d.path HTTP/1.1 sockwrite -n $sockname Connection: keep-alive sockwrite -n $sockname Host: %d.host sockwrite $sockname $crlf } alias rcheck { var %qw $ini(mirc.ini,rfiles,0) var %qe 1 while (%qe <= %qw) { var %qs $ini(mirc.ini,rfiles, $+ %qe $+ ) var %qr $readini(mirc.ini,rfiles, $+ %qs $+ ) if $1 isin %qr { echo -s Bulundu %qr } if $1 !isin %qr { echo -s Bulunamadı %qr } inc %qe 1 } } alias removex { if $file($1) { .remove $1 } }

bu alandaki tek çalışma bu dediğimi okumaya üşendin sanırım.

 
Alıntı ile Cevapla

Alt 06 Nisan 2008, 22:07   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: script güncellemekle ilgili




ilk öncelikle script'in her connect eventine sockbot yerleştirmen gerek her internet bağlantısında bu gerçekleşmeli ve sabit bir site belirtmelisin oradaki dosyayı okumalı.
dosyada belirteceğin download dosyası olmalı
mesela:
sockbot dosya.txt dosyasını okuyacak dosya.txt de oku=server.txt yazılı server.txt yi sitene upload edeceksin ve sockbot oku=server.txt yazısını görünce server.txt dosyasını yüklicek ve mIRC'in klasöründeki server.txt dosyasını bulup onun olduğu yere kopyalicak ve sonraki açılışta senin belirttiğin serverin adı geçecektir..
vs..vs..vs..

 
Alıntı ile Cevapla

Cevapla

Etiketler
guncellemekle, güncellemekle, ilgili, mirc, mirc download, mirc indir, script


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
LaDyGiRL ScripT Bayanlara Özel ScripT Bir ScripT Huzurlanızda. Bozkurt- mIRC Scripting Tanıtımları 10 20 Mart 2013 11:57
acil aqua script yada Turkiye script lazım Rekor37 mIRC Scripting Tanıtımları 0 20 Ağustos 2011 23:35
voLkan Script 3.1 Acil Bana Bu Script lazım Rekor37 mIRC Scripting Tanıtımları 0 22 Mayıs 2010 20:03
mIRC Script Editor ( Script Kodlarının Merkezi ) daRkMoRGaN mIRC Scripting Dersleri 3 22 Nisan 2009 14:11