Sorularınızın muhattabı farkındaysanız konu açılış tarihi 2007 olduğunu var sayarsak foruma girmemektedirler. O yüzden soruyu ilgili bölüm yöneticisi olarak üstüme alıp aşağıdaki kodlamayı yaptım. Tabiki daha geliştirilebilir hali yazılabilirdi. Saatin 03:50 olduğunu göz önünde bulundurursak kendi açımdan pekte istenilen bir durum değildi. (sorgulamadan bir sonraki sorgu için 10 saniye beklemesi gibi. bu kısım için en basitinden !
pr denilince set -u10 %prsorgu diye set oluşturup ondan sonra yapılacak sorgulamada variableste hala %prsorgu varsa bekleme için msg atılabilir. Amacımız sizleri yönlendirmek en azından kendinizin yazabileceğiniz kodlara yöneltmek)
En basitinden
!
pr siteadı.com şeklinde bir kodlama yaptım. Bu kodlama yapısına bakıp veya buna benzer kodlamalara bakıp diğer isteklerinizi kendiniz yapabilirsiniz.
Bu konu hakkında Socket konusu olarak "mIRC Scripting Dersleri" bölümünde bulunmaktadır.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
alias page { sockopen pagerank
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.80 }
on *:SockOpen:pagerank:{
sockwrite -n $sockname GET /@pagerank/
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.HTTP/1.1
sockwrite -n $sockname host: pagerank.gen.tr
sockwrite -n $sockname $crlf
}
on *:SockRead:pagerank:{
var %cesuryurek
sockread %cesuryurek
if (/ 10 isin $htmlfree(%cesuryurek)) {
msg %chan %Site Sitesinin Pagerank Değeri 10 üzerinden $gettok($htmlfree(%cesuryurek),1,47) Değerine Sahip. | .timer 1 2 sockclose pagerank }
}
on *:TEXT:*:
#KANAL: {
if ($1 == !
pr) && $2 && (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.set -u10 %Chan $chan | set -u10 %Site $2 | .timer 1 2 .page }
elseif ($1 == !
pr) && $2 && (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.isin $2) { set -u10 %Chan $chan | set -u15 %Site $remove($2,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.1 2 .page }