| BLaCK_and_WHiTe | 05 Nisan 2008 13:37 |
Cevap: script güncellemekle ilgili
Kod:
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::: 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. |
