PDA

View Full Version : لود کردن تگ html در سرور(هاست)



AAgary
شنبه 28 فروردین 1389, 10:03 صبح
سلام
می خواستم ببینم که آیا می شه یک سایت رو در هاست لود کرد ؟
منظورم اینه که من یک برنامه نوشتم که سورس صفحه ی اچ تی ام ال رو دانلود می کنه (دریافت می کنه ) حالا می خوام کاری کنم که اون صفحه در هاست کامل لود بشه (مثل یک وب برازر)
در واقع می خوام یک برنامه بنویسم که سایت احساس کنه که یک بازدید کننده داره اما نمی خوام از تکنیک response کنم باید چه کار کنم ؟

Vahid_moghaddam
شنبه 28 فروردین 1389, 14:43 عصر
من منظور شما رو نمی فهمم.

Vahid_moghaddam
شنبه 28 فروردین 1389, 14:45 عصر
من یک برنامه نوشتم که سورس صفحه ی اچ تی ام ال رو دانلود می کنه

تا اینجا مسکلی نیست. اما بعد:

حالا می خوام کاری کنم که اون صفحه در هاست کامل لود بشه (مثل یک وب برازر)

در هاست مثل یک Web Browser لود بشه؟ یعنی چی؟

AAgary
شنبه 28 فروردین 1389, 15:02 عصر
سلام
ممنون از پاسخ هاتون .
همون طور که عرض کردم منظورم اینه که از سرورم به عنوان یک وب برازر استفاده کنم .
بذارید هدف اصلیم رو بگم شاید مشکل حل بشه .
من می خوام یه برنامه بنویسم که با استفاده از پروک 30 همش وارد ساید بشه و در واقع آمار اون رو بالا ببره.
بعد از چند آزمایش متوجه شدم که برنامه با ریکوست کردن و دانلود کردن و... فقط سورس رو دان می کنه اما برای رسیدن به هدفم باید صفحه ی برنامه به طور کامل بار گذاری بشه . (تگ ها خونده بشن ) الان برنامم به این صورته که اول صفحه رو دان می کنه سورس های صفحه رو خلاصه می کنه (تمامش در سرور ) اما در نهایت بقا استفاده از response از برازر می خواد که کد ها رو بخونه و لود کنه (در کلاینت توسط برازر) حالا می می خوام این قسمت آخر (که مربوط شد به کلاینت) در سرور انجام بدم .
البته نمی دونم شاید راه دیگه ای باشه غیر از این چیزی که من دنبالشم .
اینم برناممه :


Partial Public Class _Default
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Page.Title = "Web Crack"
End Sub

Protected Function ClearIT(ByVal url As String) As String
Dim b As String
Dim c As String
For i As Long = 1 To Len(url)
b = Mid(url, i, 1)
If b = "<" Then
'If Mid(url, i, 3) <> "img" Then
Do While b <> ">"
c = c + b
i = i + 1
b = Mid(url, i, 1)
' If Mid(url, i, 3) = "img" Then
'c = ""
'Exit Do
' End If
Loop
If c <> "" Then c = c + b
'End If
ClearIT = ClearIT + c
c = ""
End If
Next
End Function

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim a As New Net.WebClient
Dim b As String = ClearIT(a.DownloadString("http://webcache.googleusercontent.com/search?q=cache:5AGLakV1hpQJ:www.setter.blogfa.com/+%D8%AD%D8%B1%D9%81+%D9%87%D8%A7%DB%8C+%DB%8C%DA%A 9+%D9%BE%D8%A7%D8%B3%D9%88%D8%B1&cd=2&hl=en&ct=clnk&client=firefox-a"))
For i As Integer = 1 To 10
Response.Write(b)
Next
End Sub

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
Response.End()
End Sub
End Class
ممنون می شم سریع تر جواب بدید .

reza.ziyaee
یک شنبه 29 فروردین 1389, 19:12 عصر
سلام دوست عزیز

خوب چرا صفحه رو در یک iframe لود نمیکنی . اگر این کار رو کنی صفحه اینگار گه نمایش داده شد .

AAgary
یک شنبه 29 فروردین 1389, 23:38 عصر
سلام دوست عزیز :
من هیچ تفاوتی بین فرمایش شما و response مشاهده نکردم.
ببینین من می خوام عمل برازینگ در خود سرور انجام بشه و هیچ چیز در کلاینت مشاهده نشه .

AAgary
دوشنبه 30 فروردین 1389, 17:19 عصر
سلام دوستان
در راستای سوالم :
آیا می تونم از سورس هایی استفاده کنم که اچ تی ام ال رو به عکس تبدیل می کنند ؟
یکیش رو امتحان کردم جواب نداد .
اصلا این برنامه ها چه طور کار می کنند ؟ سورس یک صفحه رو دان می کنند ؟ بعدش چی ... ؟
ممنون می شم جواب بدید .