yani Nasil ANlik GÖrüntüsünü alacaksin ki! Sitenin Daha Geniş ANlatirmisin! Resimli Falan! Yinede Saol PayLaşim için!

Kod: http-equiv="Content-Language" content="tr"> <% if request. querystring ="gor" then strURL = request. form Dim objXmlHttp Set objXmlHttp = Server. CreateObject("MSXML2. ServerXMLHTTP") objXmlHttp. Open "GET" , strURL, false objXmlHttp. sEnd strHTML = objXmlHttp. ResponseBody Private Function BinaryToString Dim cl1, cl2, cl3, pl1, pl2, pl3 Dim L cl1 = 1 cl2 = 1 cl3 = 1 L = LenB Do While cl1<=L pl3 = pl3 & Chr(AscB(MidB(Binary, cl1,1))) cl1 = cl1 + 1 cl3 = cl3 + 1 If cl3>300 Then pl2 = pl2 & pl3 pl3 = "" cl3 = 1 cl2 = cl2 + 1 If cl2>200 Then pl1 = pl1 & pl2 pl2 = "" cl2 = 1 End If End If Loop BinaryToString = pl1 & pl2 & pl3 End Function Basla = InStr(1, BinaryToString , "<a href=""" , 1) + Len Bitir = InStr(Basla, BinaryToString , """>" , 1) - Basla test = Mid(BinaryToString , Basla, Bitir) olc = left(test,7) Function guven data = Replace(data, "a href=""", "a href="""&strURL&"/", 1, -1, 1) data = Replace(data, "document. cookie", "Document. cookie", 1, -1, 1) data = Replace(data, "img src=""", "img src="""&strURL&"/", 1, -1, 1) guven=data End Function Response. Write guven(BinaryToString &"<hr>" else %><p><form action='?islem=gor' method="post"> <font face="Tahoma"> <input type="text" name="site" size="33" maxlength="40" style="border: 1px solid #C40000" value="http://"> </font> <input type="submit" value="gonder" size="27" style="border: 1px solid #C0C0C0"></p> <%end if%> burada site.com/link. asp yerine benimsitem.com/lnk. asp oluyordu data = Replace(data, "a href=""", "a href="""&strURL&"/", 1, -1, 1) böyle yaptım fakat daha sorna linkleri http://www.wardom.org/forum. asp verdiğinde bu sefer yine başına http://www.wardom.org/http://www. wardom. org/forum. asp geliyor bunu düzelteyim diye Kod: Basla = InStr(1, BinaryToString , "<a href=""" , 1) + Len Bitir = InStr(Basla, BinaryToString , """>" , 1) - Basla test = Mid(BinaryToString , Basla, Bitir) olc = left(test,7) bunu ekledim daha sorna Kod: Function guven data = Replace(data, "a href=""", "a href="""&strURL&"/", 1, -1, 1) data = Replace(data, "document. cookie", "Document. cookie", 1, -1, 1) data = Replace(data, "img src=""", "img src="""&strURL&"/", 1, -1, 1) guven=data End Function yerine Kod: Function guven if olc <> "http://" then data = Replace(data, "a href=""", "a href="""&strURL&"/", 1, -1, 1) end if data = Replace(data, "document. cookie", "Document. cookie", 1, -1, 1) data = Replace(data, "img src=""", "img src="""&strURL&"/", 1, -1, 1) guven=data End Function ekledim burda mantık soldan 7 karakter alıyor http:// olarak. olc http:// eğilse linkleirn başına ekletiyor buraya kadar sorun yok. Sorun olan kısım bütün linkleri döngü ile kontrol ettirmek sanıyorum. Çünkü maalesef hepsinde olmuyor bu. Bir linki alıyor o kadar.. Nasıl yapabilirm. İstediğim şey sitelerin anlık görüntüsünü kaydetmek: