29 Haziran 2016, 18:27
|
#1 |
Çevrimdışı | DriverDll.TCL Kod: Kodu kopyalamak için üzerine çift tıklayın! ## 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 "<div class=\"arsiv\">" $driverdlldata]] [expr [string last "<div align=\"center\">" $driverdlldata]]]
if { ![string match "*.dll" $text] } {
foreach driverdlllinks [split $intervening \n] {
if {[string match -nocase "*<h2>*" $driverdlllinks]} {
regexp -- {<h2><a href=\"(.*?)\" rel=\"bookmark\" title=\"(.*?)\">.*?<\/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 "*<p>*" $driverdlllinks]} {
putquick "privmsg $chan :\0031 [string map {" <p>" "" "</p>" ""} $driverdlllinks]\003"
putquick "privmsg $chan :\003"
}
}
} else {
foreach driverdlllinks [split $intervening \n] {
if {[string match -nocase "*<h2>*" $driverdlllinks]} {
regexp -- {<h2><a href=\"(.*?)\" rel=\"bookmark\" title=\"(.*?)\">.*?<\/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 "*<p>*" $driverdlllinks]} {
putquick "privmsg $chan :\0031 [string map {" <p>" "" "</p>" ""} $driverdlllinks]\003"
putquick "privmsg $chan :\003"
}
}
}
}
putlog "driverdll.tcl coding by rascoLn" Kod: Kodu kopyalamak için üzerine çift tıklayın! ## 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 "<div class=\"arsiv\">" $driverdlldata]] [expr [string last "<div align=\"center\">" $driverdlldata]]]
if { ![string match "*.dll" $text] } {
foreach driverdlllinks [split $intervening \n] {
if {[string match -nocase "*<h2>*" $driverdlllinks]} {
regexp -- {<h2><a href=\"(.*?)\" rel=\"bookmark\" title=\"(.*?)\">.*?<\/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 "*<p>*" $driverdlllinks]} {
putquick "privmsg $chan :\0031 [string map {" <p>" "" "</p>" ""} $driverdlllinks]\003"
putquick "privmsg $chan :\003"
}
}
} else {
foreach driverdlllinks [split $intervening \n] {
if {[string match -nocase "*<h2>*" $driverdlllinks]} {
regexp -- {<h2><a href=\"(.*?)\" rel=\"bookmark\" title=\"(.*?)\">.*?<\/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 "*<p>*" $driverdlllinks]} {
putquick "privmsg $chan :\0031 [string map {" <p>" "" "</p>" ""} $driverdlllinks]\003"
putquick "privmsg $chan :\003"
}
}
}
}
putlog "driverdll.tcl coding by rascoLn" |
| |
IRCForumu.Net - Reklam Alanı |
|