تشخیص نوع سرور

[terminator68]

سلام.

مي دونيد که به وب سرور يک سايت ميگن
اين یک سايتي هست که وب سرور يک سايت رو نشون ميده
http://www.yellowpipe.com/yis/tools/craftnet (http://www.yellowpipe.com/yis/tools/craftnet)

می خواستم بدونم چجوری اینو در غالب یه برنامه پیاده سازی کنم؟
از چه کامپوننت هایی باید استفاده کنم؟

[محسن واژدی]

سلام علیکم
یک بسته http به URL هدف ارسال کنید که اطلاعات هدر برگشتی شامل نوع، نسخه و ... است.


Private Sub Command1_Click()
Dim xmlhttp
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
Dim sParams$

With xmlhttp
.open "POST", "http://barnamenevis.org"
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.setRequestHeader "Content-Length", Len(sParams$)
.send
.waitForResponse 20
MsgBox .getAllResponseHeaders
End With
End Sub
موفق باشید

[SlowCode]

با Inet هم اینطوری میشه:

Inet1.OpenURL "www.barnamenevis.org"
msgbox Inet1.GetHeader

[terminator68]

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

مثلا تارگت هبش دادیم به ما آیپیشو بده

[SlowCode]

واسه بدست آوردن یه هدر خاص باید اینطوری بنویسی:
msgbox Inet1.GetHeader("Server")
مثلا این server-type رو نشون میده.
موارد دیگه ای هم هستن مثل:

Content-Length
Content-Range
Content-Type

کافیه یه سرچی تو گوگل در مورد این تابع بکنی.

[terminator68]

سلام
این قسمتو نشوتم.
حالا می خوام همزمان داره انالیر می کنه تو یه تکس دیگه آیپی رو هم بده...
چند تا کد بود تست کردم جواب نگرفتم. :(

[reza13812]

سلام.
این رو نگاه بنداز (نوع سرور و آی پی رو هم میده)
خودت خواستی ویرایش کن :چشمک:107554