کانکشن هوشمند ساکس

[Dastanjahan]

با سلام میخواستم کمی به من کمک کنید تا با ویژوال بیسیک یکی از این کانکشنهای هوشمند ساکس رو بسازم اگه به این سایت برید منظورم رو میفهمید
http://arvand.tk

[Ghoghnus]

با سلام میخواستم کمی به من کمک کنید تا با ویژوال بیسیک یکی از این کانکشنهای هوشمند ساکس رو بسازم اگه به این سایت برید منظورم رو میفهمید
http://arvand.tk

سلام
با کدوم قسمتش مشکل دارید؟

[rap0661]

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

[Ghoghnus]

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

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

[rap0661]

خوب چرا اسچم میدی نمیتونی کمک کنی یا نموه سورس بزاری اسپم هم نده این دیگه چه کاریه میکنی دمت گرم

[Ghoghnus]

خوب چرا اسچم میدی نمیتونی کمک کنی یا نموه سورس بزاری اسپم هم نده این دیگه چه کاریه میکنی دمت گرم

کمک میکنیم اما برنامه کامل برای کسی نمینویسم

[rap0661]

d:

خوب مشکلی نیست کمک را هم نکن d:

اینطور برنامه های را باید اول سرور داشته باشی برای چک کردن پسورد ها و یوزرها بعد از اون هم باید یکم محکم کاری بشه که کسی نتونه بکشه بیذون اونها رو
اما با وب بروز میشه و اما سرعت سوکت بالاتر هستش حالا ابسته به خود شما هم داره

[Payman62]

خوب چرا اسچم میدی نمیتونی کمک کنی یا نموه سورس بزاری اسپم هم نده این دیگه چه کاریه میکنی دمت گرم

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

[mahmoodgh]

نوشتن اینجور چیزا از چیزی که فکرش رو هم میکنید راحت تره :

1-از پیوست فایل های مورد نیاز رو دانلود کنید و یه جا ذخیره کنیدشون :

  Proxifier (Portable).zip (اندازه: 2.57 MB / تعداد دفعات دریافت: 447)
2-در پوشه ی Profiles فایلی به نام Default.ppx وجود دارد که محل ذخیره سازی پسور ، آدرس ، پورت ، و یوزنیم و دیگر آپشن هاست.حالا اینا رو توضیح میدم :

اگه فایل قید شده رو باز کنیم(با Notepad ) تگ هایی میبینم ، و اگه تگ ها رو بررسی کنید به مقادیر زیر میرسیم :

1-

کد php:

<prxoy id="100" type="HTTPS"> 


در قسمت type ما مشخص می کنیم که پ/ر/وک/سی ما از چه نوعی هست ،HTTPS ، SOCKS5 یا SOCKS4

2-

کد php:

<Address>0.00.000.000</Address> 


بین تگ آدری ما باید آدرس پ/رو/کسی رو بنویسیم ، مثلا 85.185.145.12

3-

کد:

<Port>443</Port>

اینجا هم باید پورت رو بنویسیم ، که 443 قرار داده شده.

4-

کد php:

<Username>Mahmood</Username>
<Password>Gharibi Joybari</Password> 


این دوتا تگ هم که معلومه ،یوز mahmood هست و پسورد gharibi joybari .


خب حالا ما باید تو نرم افزار چه کنیم ؟ جواب خیلی راحته ، ما باید فایل Default.ppx رو تو ویژوال بیسیک باز نویسی کنیم و مقادیر خودمون رو جایگزین کنیم و بعد ذخیره کنیم و بعد با دستور Shell فایل Proxifier.exe رو فراخوانی کنیم.

خداییش سخت بود ؟ این همه اسپم دادن داشت ؟

[babyy]

دوستمون نحوه ساخت با ویژوال بیسیک میخواستن!

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

[mahmoodgh]

اگه توجه کرده باشین ایشون کانکشنی شبیه کانکشن های سایت زیر خواستن که همونطور که عرض کردم روششون اینه ، یعنی تمام کانکشن های هوشمند رو همینطوری میسازن(کلک رشتی میزنن ؛ از قابلیت های Proxifier استفاده میکنن)

کد:

http://arvand.tk

اما اگه بخوایم پروسکی رو خودمون روی مرورگرهامون Set کنیم می تونیم از کد زیر استفاده کنیم و تنها مشکلش اینه که یوزنیم و پسورد قبول نمیکنه :| ولی برای تغییر آیپی جواب میده ، با سا/کس 5 و 4 تست شده ولی HTTPS رو تست نکردم روش :

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

کد:

'Edit By Mahmood Gharibi :)
    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 prxoy
    
    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 prxoy name.
        options(1).dwOption = INTERNET_PER_CONN_PROXY_SERVER
        abProxyServer() = StrConv(proxy_full_addr & vbNullChar, vbFromUnicode)
        options(1).dwValue1 = VarPtr(abProxyServer(0))  '//"http://prxoy:80"
    
        ' Set prxoy 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 prxoy
    
    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 کردن روی اینترنت اکسپلورر (تمام ورژن ها):

کد:

'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

)

و برای غیرفعال کردن :

کد:

Call DisableConnectionProxy(conn_name)