نرم افزار افزایش بازدید

[p4yman]

سلام دوستان
میشه 1کی کمک کنه در مورد آموزش ساخت 1 نرم افزار افزایش بازدید با VB6
که پس از هر بازدیدآیپی تغییر کنه(همون استفاده از پراکسی)اگه میشه 1توضیح کاملی بدید ازش مرسی

[SlowCode]

سلام
دنبال اینجور برنامه ها نباشد! روی سئوی سایت تاثیر منفی داره.
درسته که رتبه الکسا رو زیاد میکنه ولی از اونطرف رنک گوگل افت میکنه که مهم تره.

[p4yman]

اینم حرفیه اما نیازش دارم و هم اینکه میخوام 1 برنامه ای با VB6 نوشته باشم تا کمی راه بیفتم باهاش

[p4yman]

کسی کمک نمیکنه؟

[Dr Saeed]

کسی کمک نمیکنه؟

سلام

خب یه قسمت از سایتیتو بهش هدر بفرس با سوکت ! هربارم که یه هدر ارسال میکنی !‌ با یه ای پی دیگه به سوکتت کانکت شو !

تا ایجاشو اگه بتونی بنویسی خیلی خوبه !

واسه این که سئوی تاثیر منفی نداشته باشه میتونی کاری کنی که کاربر از گوگل یا یاهو وارد سایت شه !

[p4yman]

بله اون وردی گرفتن از گوگلو و ارسال هدر راحته, فقط هربار با 1 آی پی عوض شدن مشکله برام ,
چطور آی پی رو تغییر بدم؟ میخوام خود نرم افزار آی پی رو تغییر بده که شنیدم بعضی استادا گفتن آی پی تغییر نمیکنه فقط پراکس میگیره که این رو هم نمیدونم چطوره؟
در کل چند روش واسه تغییر آی پی یا پراکس وجود داره؟
میشه توضیح بدید چطوری؟
کسی سورسی در این مورد داره؟

[Dr Saeed]

بله اون وردی گرفتن از گوگلو و ارسال هدر راحته, فقط هربار با 1 آی پی عوض شدن مشکله برام ,
چطور آی پی رو تغییر بدم؟ میخوام خود نرم افزار آی پی رو تغییر بده که شنیدم بعضی استادا گفتن آی پی تغییر نمیکنه فقط پراکس میگیره که این رو هم نمیدونم چطوره؟
در کل چند روش واسه تغییر آی پی یا پراکس وجود داره؟
میشه توضیح بدید چطوری؟
کسی سورسی در این مورد داره؟

خب 90 % راه رو رفتی خب اگه بلدی هدر بفرسی

ببین فکر کن میخوایم به یه سایتی هدر بفرسیم

با فرض اینکه این هدرمونه

Header = Header & "GET /login.php?login_ajax=1&login_ajax_f=1&username=pro  mis&password=ali3530reza&oka=5 HTTP/1.1" & vbCrLf

Header = Header & "Host: rozblog.com" & vbCrLf

Header = Header & "User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0" & vbCrLf

Header = Header & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbCrLf

Header = Header & "Accept-Language: en-US,en;q=0.5" & vbCrLf

Header = Header & "Accept-Encoding: gzip, deflate" & vbCrLf & vbCrLf '''bar farz ino mikhaym send konim 

اینطوری بنویس

ws.close

ws.connect proxy,port

پرکسی هارو هم میتونی از یه سایت گرب کنی !

[p4yman]

میشه با
microsoft internet control
هم این کارو کرد؟
پروکسی هرو چطور باید بگیره؟
و چطور فراخوانی کنه؟

[SlowCode]

واسه یادگیری خوبه، بنویس.

واسه این که سئوی تاثیر منفی نداشته باشه میتونی کاری کنی که کاربر از گوگل یا یاهو وارد سایت شه !

اصلا ربطی نداره!
اینکه روی سئو تاثیر منفی داره دلیلش اینه که اگه کاربر سایت رو کمتر از زمان مشخص سایت رو ببنده، تاثیر منفی میزاره.
اینجور برنامه ها هم سایت رو در هر ثانیه چند بار باز و بسته میکنن!
در ضمن اگه بخوای از گوگل ریدایرکت بکنی گوگل میفهمه که ربات هستی و سرعت رو اونقدر پایین میاره یا برنامت بپکه، بعد هم یه کد کپچا میزاره جلوت
دور گوگل رو خط بکش.

[p4yman]

حالا اینا رو بیخیال شید لطفا در کل واسه سایت ضرر داره اما من میخوام بنویسمش مهم هم اینه که بتونم بنویسم و تمومش کنم پس لطفا کمک کنید تا بنویسمش
ممنون

[Dr Saeed]

واسه یادگیری خوبه، بنویس.


اصلا ربطی نداره!
اینکه روی سئو تاثیر منفی داره دلیلش اینه که اگه کاربر سایت رو کمتر از زمان مشخص سایت رو ببنده، تاثیر منفی میزاره.
اینجور برنامه ها هم سایت رو در هر ثانیه چند بار باز و بسته میکنن!
.

اگه اینطوری باشه که در فیسبوک رو باید تخته کنن ! بعدشم برنامه سایت بازو بسته نمیکنه . هدر ارسال میکنه ! ممکنه تو یه سایت 200 نفر هم زمان انلاین باشن .

[p4yman]

راست میگه اگه چند مورد رو رعایت کنید خیلی رتبه سایت رو بالا میبره در فقط تنها موقعی که از این برنامه استفاده نکنیم و بازدید واقعی سایت خیلی زیاد افت داشته باشه رتبه باز پسرفت میکنه
این قطعه کد الان مشکلی داره؟

Private Sub Winsock1_Connect()

              header = header & "Post / HTTP/1.1" & vbCrLf

              header = header & "Host: " & Text1.Text & vbCrLf

              header = header & "User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0 AlexaToolbar/alxf-2.19" & vbCrLf

              header = header & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbCrLf

              header = header & "Accept-Language: en-US,en;q=0.5" & vbCrLf

              header = header & "Accept -Encoding: gzip , deflate" & vbCrLf

              header = header & "Connection: keep -alive" & vbCrLf & vbCrLf

 

              Winsock1.SendData header

میشه بجای ارسال هدر از web browser استفاده کنم و رفرش بشه در هر رفرش پراکس جدید اعمال بشه؟

[Dr Saeed]

راست میگه اگه چند مورد رو رعایت کنید خیلی رتبه سایت رو بالا میبره در فقط تنها موقعی که از این برنامه استفاده نکنیم و بازدید واقعی سایت خیلی زیاد افت داشته باشه رتبه باز پسرفت میکنه
این قطعه کد الان مشکلی داره؟

Private Sub Winsock1_Connect()

              header = header & "Post / HTTP/1.1" & vbCrLf

              header = header & "Host: " & Text1.Text & vbCrLf

              header = header & "User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0 AlexaToolbar/alxf-2.19" & vbCrLf

              header = header & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbCrLf

              header = header & "Accept-Language: en-US,en;q=0.5" & vbCrLf

              header = header & "Accept -Encoding: gzip , deflate" & vbCrLf

              header = header & "Connection: keep -alive" & vbCrLf & vbCrLf

 

              Winsock1.SendData header

میشه بجای ارسال هدر از web browser استفاده کنم و رفرش بشه در هر رفرش پراکس جدید اعمال بشه؟

اگه بخواید از webbrowser آستفاده کنید . خیلی سرعت شمارو پایین میاره :|

این تکه کد رو اقای سید حمید حق پرست زحمتشو کشید شما میتونید با این کد با پروکسی با webbrowser یه سایت رو باز کنید ! ولی بازم میگم سرعت کار خیلی پایین میاد

Set Reg = CreateObject("wscript.shell")

Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr  entVersion\Internet Settings\ProxyServer", PIP.Text & ":" & PPort.Text, "REG_SZ"

Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr  entVersion\Internet Settings\ProxyEnable", "1", "REG_DWORD"

Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr  entVersion\Internet Settings\ProxyHttp1.1", "1", "REG_DWORD"

و این هم برای غیر فعال کردن اون پروکسی

Set Reg = CreateObject("wscript.shell")

Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr  entVersion\Internet Settings\ProxyServer", "", "REG_SZ"

Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr  entVersion\Internet Settings\ProxyEnable", "0", "REG_DWORD"

Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr  entVersion\Internet Settings\ProxyHttp1.1", "0", "REG_DWORD"

ولی از نظر من همون سوکت خیلی بهتره

[p4yman]

اون کدی که بالا دادم مشکل داشت؟؟
از کجا بدونم هدر ارسال شده؟

[Dr Saeed]

اون کدی که بالا دادم مشکل داشت؟؟
از کجا بدونم هدر ارسال شده؟

در قسمت data arrial

بنویس

dim data1 as string

winsock.getdata 

text1= text1 & data1

ببین پاسخی که از طرف سایت ارسال میشه چیه

[p4yman]

سورس کامل رو برات پ.خ کردم ممنون میشم 1 نکاهی بهش بندازی و اشکالاتشو بهم بگی

[Dr Saeed]

سورس کامل رو برات پ.خ کردم ممنون میشم 1 نکاهی بهش بندازی و اشکالاتشو بهم بگی

والا من که نتونستم سایتت رو باز کنم :-؟

میشه بگی الان هدرت داره به کجا هدر مفرسه ؟

[Dr Saeed]

این رو دکمت بنویس

Winsock1.Close

Winsock1.Connect "186.91.106.89", 8080

مشکلی نداره تقریبا

[p4yman]

برای من اصلا اینارو نیاورد
این آی پی چیه؟

[Dr Saeed]

برای من اصلا اینارو نیاورد
این آی پی چیه؟

به این پروکسی ها میگن Google Proxy یا peroxy Seo یه لیست ازش میزارم تا بیشتر متوجه شی

http://google-proxies.blogspot.com/2..._583.html#more

اینم جایگزین اون سورست کن

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim data As String

Winsock1.GetData data

txt_data = txt_data & data

End Sub

[p4yman]

جوابی که میگیرم اینه
شما تو عکس بالای که خودتون ساختید هدر رو به کجا ارسال کردید؟

HTTP/1.1 400 Bad Request

Date: Tue, 28 Jan 2014 11:12:31 GMT

Server: Apache

X-Powered-By: PHP/5.3.28

Expires: Thu, 19 Nov 1981 08:52:00 GMT

....

گاهیم اصلا جواب نمیده

[Dr Saeed]

جوابی که میگیرم اینه
شما تو عکس بالای که خودتون ساختید هدر رو به کجا ارسال کردید؟

HTTP/1.1 400 Bad Request

Date: Tue, 28 Jan 2014 11:12:31 GMT

Server: Apache

X-Powered-By: PHP/5.3.28

Expires: Thu, 19 Nov 1981 08:52:00 GMT

....

گاهیم اصلا جواب نمیده

خب این بخاطر پروکسی هاست
باید از پروکسی سالم استفاده کنید

[p4yman]

آخه من هنوز از پروکسی استفاده نکردم
به این وصل میشه فعلا

Winsock1.Close

Winsock1.Connect "mysite.ir", 80

برا استفاده از پراکسی باید لیست داشته باشم؟
مشه کامل بگید چطور باید ازش استفاده کنم

[Dr Saeed]

آخه من هنوز از پروکسی استفاده نکردم
به این وصل میشه فعلا

Winsock1.Close

Winsock1.Connect "mysite.ir", 80

برا استفاده از پراکسی باید لیست داشته باشم؟
مشه کامل بگید چطور باید ازش استفاده کنم

من جواب نگرفتم از این روش !

[p4yman]

خب شما که سورسو دادم بهتون جواب گرفتید
تو سورس چه تغییری ایجاد کردید؟
میشه تون سورسو بدید بهم

[Dr Saeed]

خب شما که سورسو دادم بهتون جواب گرفتید
تو سورس چه تغییری ایجاد کردید؟
میشه تون سورسو بدید بهم

من سورس رو تغیر خاصی ندادم ! قسمت send complate رو پاک کردن

با پروکسی به سایتت کانکت شدم که بالا بت گفتم

اینم قسمت dataarrival جایگزین کردم

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim data As String

Winsock1.GetData data

txt_data = txt_data & data

End Sub

[p4yman]

خعلی خعلی گلی مرسی
راهی هست که این بازدید رو تو امار سایت هم نشون بده؟

[SlowCode]

میشه ولی باید سیستم آمارگیر سایت رو ویرایش کنی.
یه راه اینه که یه user-agent مخصوص برای خودت مشخص کنی و سمت سرور بررسی کنی اگه یوزر ایجنت مال خودت بود تعدادش رو select count بکنه و نشون بده.

[p4yman]

ندونستم که چطور میشه
امکانش هست از برنامه تغییری داد که اینکارو انجام بده؟؟
یا مثلا میشه کنار همین برنامه 1 وب بروزر گذاشت که هر بار که پراکسی تغییر میکنه وب بررزر با همون پراکسی باز شه؟؟

[Dr Saeed]

ندونستم که چطور میشه
امکانش هست از برنامه تغییری داد که اینکارو انجام بده؟؟
یا مثلا میشه کنار همین برنامه 1 وب بروزر گذاشت که هر بار که پراکسی تغییر میکنه وب بررزر با همون پراکسی باز شه؟؟

منظورتو نفهمیدم :-؟‌ یعنی میخوای بازدید سایت رو داخل برنامه نشون بده ؟‌

[p4yman]

منظورتو نفهمیدم :-؟‌ یعنی میخوای بازدید سایت رو داخل برنامه نشون بده ؟‌

نه تو جواب SlowCode اینو گفتم

سوالم اینه که راهی هست که این بازدید تو امار سایت هم تاثیر داشته داده بده؟

[Dr Saeed]

نه تو جواب SlowCode اینو گفتم

سوالم اینه که راهی هست که این بازدید تو امار سایت هم تاثیر داشته داده بده؟

فکر کنم داشته باشه !‌

چون من هربار سایت رو رفرش میکردم 7 تا اضافه میشد بهش :|

[SlowCode]

نه تو جواب SlowCode اینو گفتم

سوالم اینه که راهی هست که این بازدید تو امار سایت هم تاثیر داشته داده بده؟

آهان، این که آره خودش خودکار می افته.
من فکر کردم میخوای از سایت آمار بازدید شده توسط برنامه رو گزارش گیری کنی.
شما وقتی صفحه سایت رو باز میکنی بازدید شما تو دیتابیس ثبت میشه بعد صفحه نمایش داده میشه.

[p4yman]

آهان، این که آره خودش خودکار می افته.
من فکر کردم میخوای از سایت آمار بازدید شده توسط برنامه رو گزارش گیری کنی.
شما وقتی صفحه سایت رو باز میکنی بازدید شما تو دیتابیس ثبت میشه بعد صفحه نمایش داده میشه.

خب بدون استفاده از وب بروزر چطور میشه؟
الان این هدر که به سمت سایت ارسال میشه تو آمار سایت یا آمار گیر سایت نمی افته پطور باید بیفته؟

[p4yman]

تا اینجاش اومدید از اینجا به بعدشم کمک کنید دیگه
الان این هدر که به سمت سایت ارسال میشه تو آمار سایت یا آمار گیر سایت نمی افته چطور باید بیفته؟