سوال در مورد انجام یک کار با وب بروزر وی بی

[سید حمید حق پرست]

یک سورس لازم داشتم س-اک-س 5 دیگه میدونید چی هست و فرقش با س-اک-س معمولی اینه که س-اک-س 5 فقط آی پی و پورت داره ولی س-اک-س بجز این دو تا یوزر و پس هم داره
حالا فرض کنیم 3 تا تکست باکس و یک وب بروزر در فرم وارد کردیم که یکیش برای آی پی و یکیش برای پورت س-اک-س 5 هست . حالا در سومی ادرس یک وب سایت وارد میکنیم و میخوام با اون ای پی و پورت وارد سایت بشه . یه چیزی مثل اون اسپمرهای یاهو با این فرق که من میخوام وببروزر استفاده کنم
ممنون میشم جواب بدهید

یا علی (ع)

[_behnam_]

یک سورس لازم داشتم س-اک-س 5 دیگه میدونید چی هست و فرقش با س-اک-س معمولی اینه که س-اک-س 5 فقط آی پی و پورت داره ولی س-اک-س بجز این دو تا یوزر و پس هم داره
یا علی (ع)
س-اک-س ورژن 5 هست و 4 ، این نیست که ورژن 5 بدون یوزر و پسورد هست، فقط بستگی به ارائه دهنده داره.



حالا فرض کنیم 3 تا تکست باکس و یک وب بروزر در فرم وارد کردیم که یکیش برای آی پی و یکیش برای پورت س-اک-س 5 هست . حالا در سومی ادرس یک وب سایت وارد میکنیم و میخوام با اون ای پی و پورت وارد سایت بشه . یه چیزی مثل اون اسپمرهای یاهو با این فرق که من میخوام وببروزر استفاده کنم
ممنون میشم جواب بدهید
یا علی (ع)
باید تنظیمات اینترنت اکسپلورر رو تنظیم کنید.

[سید حمید حق پرست]

س-اک-س ورژن 5 هست و 4 ، این نیست که ورژن 5 بدون یوزر و پسورد هست، فقط بستگی به ارائه دهنده داره.


باید تنظیمات اینترنت اکسپلورر رو تنظیم کنید.
س-اک-س 5 و بدون پس هستن ولی س-اک0-س 4 هم بدون پس داره هم یوزر و پسورد
ممنون تو تنظیمات میدونم اما میخوام تو وی بی اینکارو انجام دهم و توی تکست باکسها هر ایپی و پورتی وارد کردم تو وببروزر بی ست شه
ممنون میشم راهنمایی کنید

یا علی ()ع

[_behnam_]

دوست عزیز داری برعکس میگی . ورژن 4 یوزر و پسورد نمیخواد اما ورژن 5 اختیاری هست دست ارائه دهنده است.
تمامی این س.ا.ک.س هایی که الان واسه پ.ر.و.ک.س.ی فیر استفاده میشه ورژن 5 هست که با c.c.P.r.o.x.y روی ویندوز اراءه میشه. اما ورژن 4 اکثر روی میکروتیک هست واسه همین یوزر و پسورد نمیخواد.
خارج از بحث نشیم.
جواب شما :

ماژول


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

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

نحوه فراخوانی

ست کردن

Dim conn_name As String, proxy_full_addr As String
conn_name = ""
proxy_full_addr = "167.35.217.71:8080"
Call SetConnectionOptions(conn_name, proxy_full_addr)


حذف کردن
Dim conn_name As String
conn_name = ""
Call DisableConnectionProxy(conn_name)

[niksalehi]

یه مشکل اساسی داره ایم ماژول، اینکه باید اسم کانکشن رو بدی به سورس!

[سید حمید حق پرست]

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

یا علی (ع)

[سید حمید حق پرست]

یه مشکل اساسی داره ایم ماژول، اینکه باید اسم کانکشن رو بدی به سورس!
کدوم کانکشن میفرماید.

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


یا علی (ع)

[_behnam_]

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

[سید حمید حق پرست]

سلام
بله منم رفتم ست شده بود ولی وقتی رفتم یه سایت نمایش ای پی دیدم ای پی خودم نوشت و ای پی پ-ر-و-ک-س-ی نبود
مشکل از چیه به نظرتون

یا علی (ع)

[niksalehi]

کدوم کانکشن میفرماید.

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


یا علی (ع)

اسم کانکشن اینترنت رو میگم، همونطور که میبینید موقع ست و دیسیبل کردن : Dim conn_name As String هستش!
اسم کانکشن رو بدید هم ست میکنه و هم ایپی رو عوض میکنه، من تست کردم!
به فرض ما اسم کانکشن رو دستی دادیم به برنامه، اما وقتی میخوایم رو ی سیستم دیگه برنامه رو اجرا کنیم چطوری باید اسم کانکشن اینترنتش رو پیدا کنیم؟!!!

عکس رو ببینید، این کانکشن رو میگم:
عکــــــــــــــس (http://upcity.ir/images/76410402914929925211.png)

[سید حمید حق پرست]

سلام علیکم
ممنون از شما
اما با وارد کردن نام کانکشن پ-ر.وک-س-ی رو در خود کانکشن وارد نکرد بلکه در قسمت LAN Syttings وارد میکند . الان مشکل من اینه که بعد از وارد شدن پ-ر.وک-س-ی در مرورگر به سایت نمایش دهنده ای پی که میروم ای پی خودمو نشون میده و مال پ-ر.وک-س-ی نشون نمیده
دوستان میشه راهنمایی کنید چیکار کنم

[سید حمید حق پرست]

کسی نیست مارو راهنمایی کمنه که چه کنیم؟

یا علی (ع)

[niksalehi]

جناب حق پرست والا من میزنم بعد از اینکه ست میکنه، ایپی رو هم عوض میکنه بدون مشکل! :-؟
دوستان نظری ندارن؟

[سید حمید حق پرست]

جناب حق پرست والا من میزنم بعد از اینکه ست میکنه، ایپی رو هم عوض میکنه بدون مشکل! :-؟
دوستان نظری ندارن؟

سلام والا نمیدونم چشه . پ-ر-و-ک--س--ی ست میشه اما با اون ای پی از سایتها بازدید نمیکنه بلکه با ای پی اصلی . میدونم مشکل کجاست . شما اسم کانکشن چجوری نوشتید؟

یا علی (ع)

[niksalehi]

اینطوری:


Dim conn_name As String, proxy_full_addr As String
conn_name = "broadband connection0"
proxy_full_addr = "167.35.217.71:8080"
Call SetConnectionOptions(conn_name, proxy_full_addr)






http://upcity.ir/images/01517386481742745358.jpg

[oYaMaa]

جناب حق پرست والا من میزنم بعد از اینکه ست میکنه، ایپی رو هم عوض میکنه بدون مشکل! :-؟
دوستان نظری ندارن؟

دوست عزیز شما مطمئنی آی پی سیستمت عوض میشه؟
با همین پ_ر_و_کسی توی سورس میزنی؟ یا یکی دیگه دارید؟
آخه من فکر نمیکنم دیگه تو ایران بشه از پورت 8080 استفاده کرد.الان دیگه همه سا_کس ها هم با پورت 443 کار میکنن.

من حتی با یه پرو_کسی که پورت 443 داشت هم امتحان کردم ولی آی پی سیستمم عوض نشد.:متفکر:

[niksalehi]

دوست عزیز شما مطمئنی آی پی سیستمت عوض میشه؟
با همین پ_ر_و_کسی توی سورس میزنی؟ یا یکی دیگه دارید؟
آخه من فکر نمیکنم دیگه تو ایران بشه از پورت 8080 استفاده کرد.الان دیگه همه سا_کس ها هم با پورت 443 کار میکنن.

من حتی با یه پرو_کسی که پورت 443 داشت هم امتحان کردم ولی آی پی سیستمم عوض نشد.:متفکر:

نه این مثال بود، وگرنه این پروکسی که اصلا کار نمیکنه الان! من پروکسی رو ست میکنم و با وب بروزر میرم سایت: whatismyipaddress.com و ایپیم عوض میشه!

[oYaMaa]

نه این مثال بود، وگرنه این پروکسی که اصلا کار نمیکنه الان! من پروکسی رو ست میکنم و با وب بروزر میرم سایت: whatismyipaddress.com و ایپیم عوض میشه!
منظور از مثال چیه؟
اگه ممکنه پرو_کسی که ست میکنید رو اینجا قرار بدید تا ما هم تست کنیم.پورتش چنده؟ 443؟
و منظور از وب بروزر چیه؟ وب بروزر توی وی بی یا internet explorer?
اگه واسع وی بی، لطفا با IE هم تست کنید و نتیجه رو اعلام کنید.چون من با IE تست کردم.

ممنون!

[niksalehi]

مثال یعنی یه پروکسی گذاشتم فقط واسه اینکه اقای حق پرست بفهمه من اسم کانکشن رو چطوری مینویسم! :)
هم توی IE :
http://upcity.ir/images/16596154352771268516.jpg
و هم توی vb با کامپونت webbrowser:
http://upcity.ir/images/00890868727944013996.jpg

پرو*ک*سی:202.71.101.59
پورت: 3128

موفق باشید!

[oYaMaa]

بله درسته واسه منم عمل کرد و آی پی عوض شد.پس مشکل از پرو+کسی هایی بود که من تهیه میکردم.شما این رو از چه سایتی گرفتید؟

[سید حمید حق پرست]

سلام علیکم
بله برای منم عمل کرد اسم کانکشن اشتباه زده بودم
ممنون از دوستان ولی یه مشکل اساسی داره این سورس که اگر برنامه یکی دیگه استفاده کنه مطمئنن براش کار نمیکنه چون شاید کاربر اسم کانکشنش یه چیز دیگه باشه و پرو*ک*سی ست نمیشه
آیا راه حلی برای این مشکل بلدید؟ . ممنون میشم راهنمایی کنید

یا علی (ع)

[niksalehi]

بله درسته واسه منم عمل کرد و آی پی عوض شد.پس مشکل از پرو+کسی هایی بود که من تهیه میکردم.شما این رو از چه سایتی گرفتید؟

از سایت www.freeproxylists.net