Mirc Version taramasi Gerektigi zaman yapmanız gerektigi zaman kullanabileceginiz Mirc Kodları.

 Mirc ALT+R Yaparak remoteyi açınız ve aşagıdaki kodları ekleyiniz.

alias versionscan {
    dialog -m versionscan versionscan
    set %vc.versionscan 1
    var %count 1
    set %vc.total $nick($chan, 0)
    while (%count <= %vc.total) {
    .timer 1 %count ctcp $nick($chan, %count) VERSION
    inc %count
    }
    }

    on *:CTCPREPLY:VERSION*: {
    if (%vc.versionscan == 1) {
    if ($2 != $chr(40)) {
    inc %vc.version. [ $+ [ $2 ] ]
    }
    else {
    inc %vc.version. [ $+ [ $3 ] ]
    }
    inc %vc.count
    if (%vc.count == %vc.total) {
    .timer 1 2 versionlist
    }
    }
    }

    alias versionlist {
    var %count 1
    var %total $var(%vc.version.*, 0)
    while (%count <= %total) {
    did -a versionscan 1

    $strip($eval($var(%vc.version.*, %count), 2)

    $gettok($var(%vc.version.*, %count), -1, 46))
    inc %count
    }
    unset %vc.*
    }

    on *:DIALOG:versionscan:sclick:2: {
    var %filename $?=”save to file…”
    did -b $dname 2
    var %count 1
    var %total $did(1).lines
    while (%count <= %total) {
    write $qt(%filename) $did(1, %count).text
    inc %count
    }
    did -e $dname 2
    }

    dialog versionscan {
    title “Version Taraması”
    size -1 -1 126 114
    option dbu
    list 1, 0 0 126 100, sort size
    button “Sonuç”, 2, 78 101 47 12
    }

This entry was posted on Pazartesi, Kasım 23rd, 2009 at 17:00 and is filed under Hazir Kodlar, Mirc Script Dersleri. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.