rapidshare check link sistemi lazım

19-04-2009, 15:51:23

arkadaşlar bana rapidshare check link sistemi lazım bunu nereden temin edebilirim yada bildiginiz bi sistem varmı ? acaba xmlhttp ile denesem olurmu ?

19-04-2009, 16:57:03

#2

anka81

xmlhttp ve instr kullanarak çok basitçe halledebilirsin, yapamazsan pm at, ben bi örnek yazıp buraya korum.

20-04-2009, 10:39:17

#3

Blus

örnek bi kod gösterirsen güzel olur aslında

20-04-2009, 22:58:22

#4

anka81

<html>
<head>
<title>xmlhttp ile rapid dosya var mı</title>
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
  <meta http-equiv="Content-Language" content="tr">
<head>
<%

private Function GETHTTP(adres)  
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" ) 

rapidlinki  = "http://rapidshare.com/files/209040321/ES-CEP___Keygen___MrIndia__.rar"

StrHTTP.Open "GET" , rapidlinki, false  


StrHTTP.sEnd  
GETHTTP = StrHTTP.Responsetext  
Set StrHTTP = Nothing  
End Function 

site = GETHTTP(rapidlinki) 


If Instr(site,"The file could not be found") Then
response.write "dosya yok"


Else 
response.write "dosya var"
'response.redirect ""&rapidlinki
End If
%>

rapidlinki değişkenini querystring veya form ile alcaksın, veya neyse alıyosan artık. "The file could not be found" uyarısı rapid de olmayan dosyalar için uyarı. bu kodu direkt denersen dosya var yazacak (istersen oraya gidecek). rapidlinkini değiştirip (misal sonunu rar değilde rr yapıp ) denersen dosya yok yazacak. sanırım istediğin de bu, işini görür diye düşünüyom, olmadı detaylı bişiler yaz başka şeyler deneyip geliştirmeye çalışırız.

25-04-2009, 00:02:19

#5

Blus

çok mantıklı olmuş ben free butonunu aratırken sen direk kendisini aratmışsın evet istedigim tam buydu buna bi göngü kurdukmuydu sisteme entegre ederim çok saol