IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Kod:

## DriverDll.TCL | Driver and Dll download link coding..
 

# Driver Sitesi

set driverdllsite "https://www.driverindir.web.tr/\?s="
 

set command ".ddll"
 

bind pub - [lindex $command 0] [string range $command 1 6]
 

proc ddll {nick host hand chan text} {

global driverdllsite

if {$text eq ""} { putquick "privmsg $chan :\0034Kullanımı:\003 .ddll (\002aranacak Driver/Dll\002)"; return 0}

set driverdllconnect [::http::geturl $driverdllsite[string map -nocase {" " "+"} $text] -timeout 5000]

set driverdlldata [encoding convertto utf-8 [::http::data $driverdllconnect]]

::http::cleanup $driverdllconnect

if {[string match -nocase "*Ops, bulamadik.*" $driverdlldata]} { putquick "privmsg $chan :\0034,1 ! \003 Malesef aradığınız \0034Driver\003 veya \0034Dll\003 bulunamadı."; return 0}

set intervening [string range $driverdlldata [expr [string first "

" $driverdlldata]] [expr [string last "

" $driverdlldata]]]
 

if { ![string match "*.dll" $text] } {

foreach driverdlllinks [split $intervening \n] {

if {[string match -nocase "**" $driverdlllinks]} {

regexp -- {

.?<\/a><\/h2>(.)$} $driverdlllinks - link bulunan driverdlllinks putquick "privmsg $chan :\0030,5 Bulunan Driver \003 \0034,1 $bulunan \003" putquick "privmsg $chan :\0030,5 Driver Link \003 \0039,1 $link \003" } if {[string match -nocase "" $driverdlllinks]} { putquick "privmsg $chan :\0031 [string map {" " "" " " ""} $driverdlllinks]\003" putquick "privmsg $chan :\003" } } } else { foreach driverdlllinks [split $intervening \n] { if {[string match -nocase "" $driverdlllinks]} { regexp -- {
`.?<\/a><\/h2>(.)$} $driverdlllinks - link bulunan driverdlllinks putquick "privmsg $chan :\0030,5 Bulunan Dll \003 \0034,1 $bulunan \003" putquick "privmsg $chan :\0030,5 Dll Link \003 \0039,1 $link \003" } if {[string match -nocase "**" $driverdlllinks]} { putquick "privmsg $chan :\0031 [string map {" " "" " " ""} $driverdlllinks]\003" putquick "privmsg $chan :\003" } } } } putlog "driverdll.tcl coding by rascoLn"`

*" $driverdlllinks]} { regexp -- {

*" $driverdlllinks]} { regexp -- {

*" $driverdlllinks]} {
regexp -- {

*" $driverdlllinks]} {
regexp -- {