نمایش نتایج 1 تا 10 از 10

نام تاپیک: بازدید اتوماتیک از سایت؟

  1. #1
    کاربر دائمی آواتار niksalehi
    تاریخ عضویت
    شهریور 1389
    محل زندگی
    neverland
    پست
    287

    بازدید اتوماتیک از سایت؟

    سلام دوستان گل

    یه سوالی تو ذهنمه چن وقته به جواب نمیرسم
    http://www.uploade.ir/images/13cqhzk5wfi51afawca.png

    از اونجایی که میدونم برنامه با vb6 نوشته شده اینجا تاپیک زدم ( جای بهتری بود؟ )
    این عکس رو ببینید!
    چطوری میشه همچین کاری کرد؟
    البته نه دقیقا مثل این برنامه ها!
    این برنامه با سا**کس هایی که میدیم بهش، به ادرس سایت یا وبلاگی که بهش میدیم کانکت میشه و بازدید سایت رو بالا میبره! ( با ایپی های مختلف)
    میخواستم ببینم از چه ابزاری استفاده شده؟
    نحوه کارش چطوره یا ...

  2. #2

    نقل قول: بازدید اتوماتیک از سایت؟

    نقل قول نوشته شده توسط niksalehi مشاهده تاپیک
    سلام دوستان گل

    یه سوالی تو ذهنمه چن وقته به جواب نمیرسم
    http://www.uploade.ir/images/13cqhzk5wfi51afawca.png

    از اونجایی که میدونم برنامه با vb6 نوشته شده اینجا تاپیک زدم ( جای بهتری بود؟ )
    این عکس رو ببینید!
    چطوری میشه همچین کاری کرد؟
    البته نه دقیقا مثل این برنامه ها!
    این برنامه با سا**کس هایی که میدیم بهش، به ادرس سایت یا وبلاگی که بهش میدیم کانکت میشه و بازدید سایت رو بالا میبره! ( با ایپی های مختلف)
    میخواستم ببینم از چه ابزاری استفاده شده؟
    نحوه کارش چطوره یا ...
    سلام عليکم

    شما اگه ميخواين بازديد سايت يا وبلاگ زياد بشه،کاري نداره نياز به يه Webbrowser و Timer دارين.تو گوگل جستجو کنيد،فکر کنم سورسش باشه.


    موفق باشيد

  3. #3
    کاربر دائمی آواتار niksalehi
    تاریخ عضویت
    شهریور 1389
    محل زندگی
    neverland
    پست
    287

    نقل قول: بازدید اتوماتیک از سایت؟

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

  4. #4

    Cool نقل قول: بازدید اتوماتیک از سایت؟

    نقل قول نوشته شده توسط niksalehi مشاهده تاپیک
    بله این برنامه رو که میفرمایید نوشتم
    فقط خواستم طرز کار این برنامه که عکسش رو گذاشتم بدونم!
    بیا دوست عزیز اگه نفمیدی توضیح بدم

    Dim x As Integer
    Private Sub Command1_Click()
    WebBrowser1.Navigate2 (Text1.Text)
    Timer1.Enabled = True
    End Sub
    Private Sub Command2_Click()
    WebBrowser1.Stop
    Timer1.Enabled = False
    End Sub

    Private Sub Timer1_Timer()
    x = x + 1
    If x = 15 Then
    WebBrowser1.Refresh
    x = 0
    End If
    End Sub

  5. #5
    کاربر دائمی آواتار niksalehi
    تاریخ عضویت
    شهریور 1389
    محل زندگی
    neverland
    پست
    287

    نقل قول: بازدید اتوماتیک از سایت؟

    ممنونم اما فکر کنم منظورمو بد رسوندم!

    این برنامه سرعتش خیلی بیشتر از لود کردن وب براوزر هستش!
    کارش اینه که بهش لیست س-ا-ک-س میدیم و یه ادرس میدیم، میاد با اون ایپی هایی که بهش دادیم از ادرس مورد نظر دیدن میکنه!
    این کار رو خیلی سخت میشه با وب براوزر انجام داد که هر بازدید حدود 30 ثانیه طول میکشه شایدم بیشتر...
    میخوام ببینم تو این نرم افزار طریقه کار چطوره؟ قطعا وب براوزر نیست!

  6. #6

    نقل قول: بازدید اتوماتیک از سایت؟

    نقل قول نوشته شده توسط niksalehi مشاهده تاپیک
    ممنونم اما فکر کنم منظورمو بد رسوندم!

    این برنامه سرعتش خیلی بیشتر از لود کردن وب براوزر هستش!
    کارش اینه که بهش لیست س-ا-ک-س میدیم و یه ادرس میدیم، میاد با اون ایپی هایی که بهش دادیم از ادرس مورد نظر دیدن میکنه!
    این کار رو خیلی سخت میشه با وب براوزر انجام داد که هر بازدید حدود 30 ثانیه طول میکشه شایدم بیشتر...
    میخوام ببینم تو این نرم افزار طریقه کار چطوره؟ قطعا وب براوزر نیست!
    اتفاقا فکر کنم کار با WebBrowser فکر کنم باشه. چون هم راحت تر میشه ساکس رو بهش تزریق کرد و هم راحت تر میشه رفت به مقصد. در مورد سرعت هم WebBrowser بر حسب تجربه ای که دارم شاید در بازدید اول و دوم کمی سرعتش پایین باشه اما وقتی که چند بار اینکار رو انجام بده هربار سرعتش بیشتر میشه.

  7. #7
    کاربر دائمی آواتار niksalehi
    تاریخ عضویت
    شهریور 1389
    محل زندگی
    neverland
    پست
    287

    نقل قول: بازدید اتوماتیک از سایت؟

    ممنونم از توجهتون
    یعنی winsock یا inet نیست؟
    با این دو ابزار میشه همچین کاری کرد؟

  8. #8

    نقل قول: بازدید اتوماتیک از سایت؟

    نقل قول نوشته شده توسط niksalehi مشاهده تاپیک
    ممنونم از توجهتون
    یعنی winsock یا inet نیست؟
    با این دو ابزار میشه همچین کاری کرد؟
    به نقل از یکی از دوستان :

    اضافه شدن آمار وبلاگ ناشی از ارجاع شدن یک لینک به آمارگیر وبگذر بعد از باز شدن وبلاگ هست (فرم آمارگیر Iframe است)، که در نتیجه آن یک شماره به آمار اضافه میشود، اما وینساک صرفا درخواستی را به url ارسال و نتیجه را دریافت میکنه، در این حالت هیچ تصویر و اسکریتی پردازش نمیشه و هیچ لینکی هم ارجاع داده نمیشه
    برای افزایش آمار باید درخواست را به لینکی آمار ارسال کنین
    پیشنهاد بنده همون استفاده از WebBrowser هست. من یکی ی دونه واسه خودم نوشتم. البته WebBrowser مشکلات خاص خودش رو هم داره. مثلا کمی کنده ولی در خیلی از زمینه ها عالیه. مثلا برای Set کردن پروکسی روش کافیه از کد زیر استفاده کنی :

    این کد رو تو Module بنویس :

        'Module
    Option Explicit

    Private Type INTERNET_PER_CONN_OPTION
    dwOption As Long
    dwValue1 As Long
    dwValue2 As Long
    End Type
    Private Type INTERNET_PER_CONN_OPTION_LIST
    dwSize As Long
    pszConnection As Long
    dwOptionCount As Long
    dwOptionError As Long
    pOptions As Long
    End Type
    Private Const INTERNET_PER_CONN_FLAGS As Long = 1
    Private Const INTERNET_PER_CONN_PROXY_SERVER As Long = 2
    Private Const INTERNET_PER_CONN_PROXY_BYPASS As Long = 3
    Private Const PROXY_TYPE_DIRECT As Long = &H1
    Private Const PROXY_TYPE_PROXY As Long = &H2
    Private Const INTERNET_OPTION_REFRESH As Long = 37
    Private Const INTERNET_OPTION_SETTINGS_CHANGED As Long = 39
    Private Const INTERNET_OPTION_PER_CONNECTION_OPTION As Long = 75
    Private Declare Function InternetSetOption _
    Lib "wininet.dll" Alias "InternetSetOptionA" ( _
    ByVal hInternet As Long, ByVal dwOption As Long, _
    lpBuffer As Any, ByVal dwBufferLength As Long) As Long

    ' Set Proxy

    Public Function SetConnectionOptions(ByVal conn_name As String, ByVal proxy_full_addr As String) As Boolean
    ' conn_name: active connection name. (LAN = "")
    ' proxy_full_addr : eg "193.28.73.241:8080"
    Dim list As INTERNET_PER_CONN_OPTION_LIST
    Dim bReturn As Boolean
    Dim dwBufSize As Long
    Dim options(0 To 2) As INTERNET_PER_CONN_OPTION
    Dim abConnName() As Byte
    Dim abProxyServer() As Byte
    Dim abProxyBypass() As Byte

    dwBufSize = Len(list)

    ' Fill out list struct.
    list.dwSize = Len(list)

    ' NULL == LAN, otherwise connection name.
    abConnName() = StrConv(conn_name & vbNullChar, vbFromUnicode)
    list.pszConnection = VarPtr(abConnName(0))

    ' Set three options.
    list.dwOptionCount = 3

    ' Set flags.
    options(0).dwOption = INTERNET_PER_CONN_FLAGS
    options(0).dwValue1 = PROXY_TYPE_DIRECT Or PROXY_TYPE_PROXY

    ' Set proxy name.
    options(1).dwOption = INTERNET_PER_CONN_PROXY_SERVER
    abProxyServer() = StrConv(proxy_full_addr & vbNullChar, vbFromUnicode)
    options(1).dwValue1 = VarPtr(abProxyServer(0)) '//"http://proxy:80"

    ' Set proxy override.
    options(2).dwOption = INTERNET_PER_CONN_PROXY_BYPASS
    abProxyBypass() = StrConv("local" & vbNullChar, vbFromUnicode)
    options(2).dwValue1 = VarPtr(abProxyBypass(0))

    list.pOptions = VarPtr(options(0))
    ' Make sure the memory was allocated.
    If (0& = list.pOptions) Then
    ' Return FALSE if the memory wasn't allocated.
    Debug.Print "Failed to allocate memory in SetConnectionOptions()"
    SetConnectionOptions = 0
    End If

    ' Set the options on the connection.
    bReturn = InternetSetOption(0, INTERNET_OPTION_PER_CONNECTION_OPTION, list, dwBufSize)

    ' Free the allocated memory.
    Erase options
    Erase abConnName
    Erase abProxyServer
    Erase abProxyBypass
    dwBufSize = 0
    list.dwOptionCount = 0
    list.dwSize = 0
    list.pOptions = 0
    list.pszConnection = 0
    Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, ByVal 0&, 0)
    Call InternetSetOption(0, INTERNET_OPTION_REFRESH, ByVal 0&, 0)
    SetConnectionOptions = bReturn
    End Function


    ' Disable Proxy

    Public Function DisableConnectionProxy(ByVal conn_name As String) As Boolean
    ' conn_name: active connection name. (LAN = "")
    Dim list As INTERNET_PER_CONN_OPTION_LIST
    Dim bReturn As Boolean
    Dim dwBufSize As Long
    Dim options(0) As INTERNET_PER_CONN_OPTION
    Dim abConnName() As Byte

    dwBufSize = Len(list)

    ' Fill out list struct.
    list.dwSize = Len(list)

    ' NULL == LAN, otherwise connectoid name.
    abConnName() = StrConv(conn_name & vbNullChar, vbFromUnicode)
    list.pszConnection = VarPtr(abConnName(0))

    ' Set three options.
    list.dwOptionCount = 1

    ' Set flags.
    options(0).dwOption = INTERNET_PER_CONN_FLAGS
    options(0).dwValue1 = PROXY_TYPE_DIRECT

    list.pOptions = VarPtr(options(0))
    ' Make sure the memory was allocated.
    If (0 = list.pOptions) Then
    ' Return FALSE if the memory wasn't allocated.
    Debug.Print "Failed to allocate memory in DisableConnectionProxy()"
    DisableConnectionProxy = 0
    End If

    ' Set the options on the connection.
    bReturn = InternetSetOption(0, INTERNET_OPTION_PER_CONNECTION_OPTION, list, dwBufSize)

    ' Free the allocated memory.
    Erase options
    Erase abConnName
    dwBufSize = 0
    list.dwOptionCount = 0
    list.dwSize = 0
    list.pOptions = 0
    list.pszConnection = 0
    Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, ByVal 0&, 0)
    Call InternetSetOption(0, INTERNET_OPTION_REFRESH, ByVal 0&, 0)
    DisableConnectionProxy = bReturn
    End Function


    برای فعال کردن پروکسی کد زیر :

    'Set Porxy to IE WebBrowser :D
    Dim conn_name As String, proxy_full_addr As String
    conn_name = ""
    proxy_full_addr = "89.218.65.38:3128"
    Call SetConnectionOptions(conn_name, proxy_full_addr)

    که بجای 89.218.65.38:3128 باید آدرس پروکسی موردنظر خودتون رو بزارید.

    برای غیرفعال کردنش هم از کد زیر استفاده کنید :

    Dim conn_name As String
    conn_name = ""
    Call DisableConnectionProxy(conn_name)

  9. #9
    کاربر دائمی آواتار aradrobo
    تاریخ عضویت
    تیر 1391
    محل زندگی
    ایران سرای من است
    پست
    569

    نقل قول: بازدید اتوماتیک از سایت؟

    نقل قول نوشته شده توسط MahmoodGH مشاهده تاپیک
    به نقل از یکی از دوستان :
    ......
    .....
    Call DisableConnectionProxy(conn_name)[/VB]
    آیا میشه بگی در سی شارپ چطور میشه اینکار رو انجام داد ؟

  10. #10

    نقل قول: بازدید اتوماتیک از سایت؟

    نقل قول نوشته شده توسط MahmoodGH مشاهده تاپیک
    به نقل از یکی از دوستان :



    پیشنهاد بنده همون استفاده از WebBrowser هست. من یکی ی دونه واسه خودم نوشتم. البته WebBrowser مشکلات خاص خودش رو هم داره. مثلا کمی کنده ولی در خیلی از زمینه ها عالیه. مثلا برای Set کردن پروکسی روش کافیه از کد زیر استفاده کنی :

    این کد رو تو Module بنویس :

        'Module
    Option Explicit

    Private Type INTERNET_PER_CONN_OPTION
    dwOption As Long
    dwValue1 As Long
    dwValue2 As Long
    End Type
    Private Type INTERNET_PER_CONN_OPTION_LIST
    dwSize As Long
    pszConnection As Long
    dwOptionCount As Long
    dwOptionError As Long
    pOptions As Long
    End Type
    Private Const INTERNET_PER_CONN_FLAGS As Long = 1
    Private Const INTERNET_PER_CONN_PROXY_SERVER As Long = 2
    Private Const INTERNET_PER_CONN_PROXY_BYPASS As Long = 3
    Private Const PROXY_TYPE_DIRECT As Long = &H1
    Private Const PROXY_TYPE_PROXY As Long = &H2
    Private Const INTERNET_OPTION_REFRESH As Long = 37
    Private Const INTERNET_OPTION_SETTINGS_CHANGED As Long = 39
    Private Const INTERNET_OPTION_PER_CONNECTION_OPTION As Long = 75
    Private Declare Function InternetSetOption _
    Lib "wininet.dll" Alias "InternetSetOptionA" ( _
    ByVal hInternet As Long, ByVal dwOption As Long, _
    lpBuffer As Any, ByVal dwBufferLength As Long) As Long

    ' Set Proxy

    Public Function SetConnectionOptions(ByVal conn_name As String, ByVal proxy_full_addr As String) As Boolean
    ' conn_name: active connection name. (LAN = "")
    ' proxy_full_addr : eg "193.28.73.241:8080"
    Dim list As INTERNET_PER_CONN_OPTION_LIST
    Dim bReturn As Boolean
    Dim dwBufSize As Long
    Dim options(0 To 2) As INTERNET_PER_CONN_OPTION
    Dim abConnName() As Byte
    Dim abProxyServer() As Byte
    Dim abProxyBypass() As Byte

    dwBufSize = Len(list)

    ' Fill out list struct.
    list.dwSize = Len(list)

    ' NULL == LAN, otherwise connection name.
    abConnName() = StrConv(conn_name & vbNullChar, vbFromUnicode)
    list.pszConnection = VarPtr(abConnName(0))

    ' Set three options.
    list.dwOptionCount = 3

    ' Set flags.
    options(0).dwOption = INTERNET_PER_CONN_FLAGS
    options(0).dwValue1 = PROXY_TYPE_DIRECT Or PROXY_TYPE_PROXY

    ' Set proxy name.
    options(1).dwOption = INTERNET_PER_CONN_PROXY_SERVER
    abProxyServer() = StrConv(proxy_full_addr & vbNullChar, vbFromUnicode)
    options(1).dwValue1 = VarPtr(abProxyServer(0)) '//"http://proxy:80"

    ' Set proxy override.
    options(2).dwOption = INTERNET_PER_CONN_PROXY_BYPASS
    abProxyBypass() = StrConv("local" & vbNullChar, vbFromUnicode)
    options(2).dwValue1 = VarPtr(abProxyBypass(0))

    list.pOptions = VarPtr(options(0))
    ' Make sure the memory was allocated.
    If (0& = list.pOptions) Then
    ' Return FALSE if the memory wasn't allocated.
    Debug.Print "Failed to allocate memory in SetConnectionOptions()"
    SetConnectionOptions = 0
    End If

    ' Set the options on the connection.
    bReturn = InternetSetOption(0, INTERNET_OPTION_PER_CONNECTION_OPTION, list, dwBufSize)

    ' Free the allocated memory.
    Erase options
    Erase abConnName
    Erase abProxyServer
    Erase abProxyBypass
    dwBufSize = 0
    list.dwOptionCount = 0
    list.dwSize = 0
    list.pOptions = 0
    list.pszConnection = 0
    Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, ByVal 0&, 0)
    Call InternetSetOption(0, INTERNET_OPTION_REFRESH, ByVal 0&, 0)
    SetConnectionOptions = bReturn
    End Function


    ' Disable Proxy

    Public Function DisableConnectionProxy(ByVal conn_name As String) As Boolean
    ' conn_name: active connection name. (LAN = "")
    Dim list As INTERNET_PER_CONN_OPTION_LIST
    Dim bReturn As Boolean
    Dim dwBufSize As Long
    Dim options(0) As INTERNET_PER_CONN_OPTION
    Dim abConnName() As Byte

    dwBufSize = Len(list)

    ' Fill out list struct.
    list.dwSize = Len(list)

    ' NULL == LAN, otherwise connectoid name.
    abConnName() = StrConv(conn_name & vbNullChar, vbFromUnicode)
    list.pszConnection = VarPtr(abConnName(0))

    ' Set three options.
    list.dwOptionCount = 1

    ' Set flags.
    options(0).dwOption = INTERNET_PER_CONN_FLAGS
    options(0).dwValue1 = PROXY_TYPE_DIRECT

    list.pOptions = VarPtr(options(0))
    ' Make sure the memory was allocated.
    If (0 = list.pOptions) Then
    ' Return FALSE if the memory wasn't allocated.
    Debug.Print "Failed to allocate memory in DisableConnectionProxy()"
    DisableConnectionProxy = 0
    End If

    ' Set the options on the connection.
    bReturn = InternetSetOption(0, INTERNET_OPTION_PER_CONNECTION_OPTION, list, dwBufSize)

    ' Free the allocated memory.
    Erase options
    Erase abConnName
    dwBufSize = 0
    list.dwOptionCount = 0
    list.dwSize = 0
    list.pOptions = 0
    list.pszConnection = 0
    Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, ByVal 0&, 0)
    Call InternetSetOption(0, INTERNET_OPTION_REFRESH, ByVal 0&, 0)
    DisableConnectionProxy = bReturn
    End Function


    برای فعال کردن پروکسی کد زیر :

    'Set Porxy to IE WebBrowser :D
    Dim conn_name As String, proxy_full_addr As String
    conn_name = ""
    proxy_full_addr = "89.218.65.38:3128"
    Call SetConnectionOptions(conn_name, proxy_full_addr)

    که بجای 89.218.65.38:3128 باید آدرس پروکسی موردنظر خودتون رو بزارید.

    برای غیرفعال کردنش هم از کد زیر استفاده کنید :

    Dim conn_name As String
    conn_name = ""
    Call DisableConnectionProxy(conn_name)
    ببخشید میشه این سورس رو به سی شارپ هم تبدیل کنید !؟ خیلی احتیاج دارم . ممنون

تاپیک های مشابه

  1. امار بازدید فقط برای یک مطلب از سایت؟
    نوشته شده توسط mosi2007 در بخش PHP
    پاسخ: 9
    آخرین پست: جمعه 22 اردیبهشت 1391, 12:16 عصر
  2. سوال: شناسایی بازدید اتوماتیک و ماشینی از صفحات سایت
    نوشته شده توسط mnshahab در بخش ASP.NET Web Forms
    پاسخ: 4
    آخرین پست: یک شنبه 20 شهریور 1390, 09:48 صبح
  3. شماره گیری اتوماتیک از درون برنامه
    نوشته شده توسط مهران جمشیدی در بخش کامپوننت های سایر شرکت ها، و توسعه کامپوننت
    پاسخ: 10
    آخرین پست: شنبه 18 آبان 1387, 07:23 صبح
  4. شمارشگر بازدید کنندگان از سایت
    نوشته شده توسط mohammadreza-jam در بخش ASP.NET Web Forms
    پاسخ: 8
    آخرین پست: شنبه 23 مهر 1384, 10:52 صبح
  5. Backupگیر ی اتوماتیک از دیتابیس
    نوشته شده توسط tazekar در بخش Backup & Restore
    پاسخ: 6
    آخرین پست: یک شنبه 09 شهریور 1382, 18:44 عصر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •