alias download {
var %r = $(|,) return $false, %e = scon -r !echo $color(info) -a $!!download: Error -
if (!$isid) %e this snippet can only be called as an identifier. %r
if ($os isin 9598) %e this snippet requires Windows ME or higher. %r
if ($version < 6) %e this snippet requires mIRC version 6.0 or higher. %r
var %dir = $nofile($1), %file = $nopath($1), %method = $upper($2), %url = $3
var %bit = $4, %headers = $iif($2 == get,$5,$6), %postdata = " $+ $5", %res
if (* !iswm %file) %e you must specify a file to save the data to. %r
if (%file != $mkfn(%file)) %e file %file contains illegal characters. %r 
if (* !iswm %dir) %dir = $mircdir
elseif (!$isdir(%dir)) %e no such folder %dir %r
if (!$istok(get head post,$2,32)) %e method can only be GET, HEAD or POST. %r
if (!$regex(%e,$3,/^\S+\.\S+\.\S+$/)) %e you didn't specify an url to download from. %r
if ($2 != head) {
if ($4 !isnum 1-3) %e bitmask should be a digit in range 1-3. %r 
if ($2 == post) && (* !iswm $5) %e you didn't specify any post data. %r
if (%headers) && (!$regsub(%e,%headers,/(\S+?): (.+?)(?=\s?\n|$)/g,"\1" $chr(44) "\2",%headers)) {
%e bad header syntax. Correct -> Label: value seperated by $!!lf's %r
}
}
var %file = $+(",%dir,%file,"), %id = $+(@download,$ticks,$r(1111,9999),.vbs), %a = aline %id
if (http://* !iswm $3) %url = http:// $+ $3
.comopen %id wscript.shell 
if ($comerr) %e could not open Wscript.Shell. %r
write -c %file
window -h %id
%a on error resume next 
%a sub quit $lf set http = nothing : set ado = nothing : wscript.quit $lf end sub
%a sub errmsg 
%a set fso = createobject("scripting.filesystemobject")
%a set file = fso.createtextfile( %file ,true)
%a file.write("Err number: " & err.number & " = " & err.description) : file.close
%a set fso = nothing 
%a quit
%a end sub
%a arr = array("winhttp.winhttprequest.5.1","winhttp.winhttprequest","msxml2.serverxmlhttp","microsoft.xmlhttp")
%a i = 0 $lf while i < 4 and not isobject(http) : set http = createobject(arr(i)) : i = i + 1 : wend 
%a if not isobject(http) then errmsg
%a err.clear
%a http.open $+(",%method,") , $+(",%url,") ,false
%a http.setrequestheader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)"
if (%headers) { tokenize 10 %headers | scon -r %a http.setrequestheader $* }
if (%method == post) {
%a http.setrequestheader "Content-Type","application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
http.send %postdata
}
else %a http.send
%a if err then errmsg
%a set ado = createobject("adodb.stream") 
%a if not isobject(ado) then errmsg
%a ado.open
if (%bit != 2) {
%a ado.type = 2 : ado.charset = "ascii" 
%a ado.writetext "HTTP/1.1 " & http.status & " " & http.statustext,1
%a ado.writetext http.getallresponseheaders,1 : ado.position = 0 
}
if (%bit != 1) %a ado.type = 1 : ado.read : ado.write http.responsebody 
%a ado.savetofile %file ,2 : ado.close : quit
savebuf %id %id 
close -@ %id
.comclose %id $com(%id,run,1,bstr*,%id,uint,0,bool,true)
.remove %id 
%res = $read(%file,t,1) 
if (Err number:*=* iswm %res) || (!$file(%file)) %e $iif(%res,%res,no data could be retrieved) - %url %r
return $true 
:error
if ($com(%id)) .comclose %id
if ($isfile(%id)) .remove %id
if ($window(%id)) close -@ %id
return $false
}
;/tckimlik <tc kimlik no> 
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return $remove(%x,$chr(9)) }
alias tckimlik { if $1 isnum { if $isfile(tckimlik.dat) { .remove tckimlik.dat } | if ($download(tckimlik.dat, POST, http://tckimlik.nvi.gov.tr/Web/VerifyIdentityNumber.aspx, 3, __VIEWSTATE=%2FwEPDwULLTE2MDQ5ODgyNjUPZBYCAgEPZBYCAgUPDxYCHgRUZXh0ZRYMHgZpc1JlYWwFBWZhbHNlHgVpc1BvcwUEdHJ1ZR4HdmFsRXhwcgUKXlxkezEsMTE%2FJB4JZGVjUGxhY2VzBQItMR4HZGVjU2lnbgUBLh4PcGxhY2VzQmVmb3JlRGVjBQIxMWRkDeRV6oTiJvccx1XVnFJKu3u9Fts%3D&ctlIdentityNumber= $+ $1 $+ &ctlVerify=T.C.+Kimlik+No+Do%C4%9Frula&__EVENTVALIDATION=%2FwEWAwLbzq2lBgKL86WHCgKc85DLBTaFUiCd1%2B3qlh%2FW1zmYjpwA8nCq)) parsetckimlik tckimlik.dat } | else { echo 4 -at * [T.C. Kimlik No. Doğrulama] Hata. Kullanım: 03/tckimlik <tc-kimlik-numaranız> } }
alias parsetckimlik { var %a = 1 | while %a <= $lines(tckimlik.dat) { if (*name="ctlIdentityNumber"* iswm $read(tckimlik.dat,%a)) { echo 3 -at [T.C. Kimlik No. Doğrulama] $gettok($wildtok($v2,value="*",1,32),2,61) } | if (*<TD style="WIDTH: 121px"* iswm $read(tckimlik.dat,%a)) { echo 4 -at [T.C. Kimlik No. Doğrulama] $replace($htmlfree($v2),ı,ı,ÄŸ,ğ,Åž,S) $htmlfree($read(tckimlik.dat,$calc(2+%a))) | inc %o } | inc %a } | .remove tckimlik.dat | if !%o { echo 4 -at * Böyle bir T.C. kimlik numarası bulunamadı. | unset %o } }