درخواست نمونه برنامه

[sajjad_india]

سلام به همه شما دوستان

اول از همه تشکر میکنم از آقای xxxxx.xxxxxx که حواب بنده رو دادند

حالا میخواستم اگر امکان داره یه نمونه برنامه که کار کنه در مورد Ping IP برام بزارید ممنون از همه

مرسی از زحمات شما

[mpmsoft]

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

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

[sajjad_india]

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

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

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

ببینید من میخوام همچین برنامه ای بنویسیم به عکس نگاه کنید . برنامه از دو قسمت تشکیل شده
1- سایت رو میگره آدرس آی پی رو میده به ما
2- رنج آی پی میگیره و بعد هر کدوم فعال هست رو به ما نشون میده

میشه راهنمایی کنید

ممنون میشم از همه شما دوستان عزیز

[mpmsoft]

شما این کد رو ببین



Address to Ping: 192.168.1.3
Raw ICMP code: 0
Ping Response Message : Success!
Time : 0 ms

نتیجه اگر کد بالا بود یعنی این آی پی فعال هست

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


Address to Ping: 192.168.1.4
Raw ICMP code: 11010
Ping Response Message : Request Timed Out
Time : 327700 ms

[sajjad_india]

شما این کد رو ببین



Address to Ping: 192.168.1.3
Raw ICMP code: 0
Ping Response Message : Success!
Time : 0 ms
نتیجه اگر کد بالا بود یعنی این آی پی فعال هست

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


Address to Ping: 192.168.1.4
Raw ICMP code: 11010
Ping Response Message : Request Timed Out
Time : 327700 ms

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

قسمت اول برنامه حل شد مرسی
ولی قسمت دوم برنامه رو چی کنم /

[mpmsoft]

منظورتون از قسمت دوم چی هست ؟

اگر منظورت Time out هست می تونید مثل قسمت اول تشخص بدید که این آی پی فعال نیست

[sajjad_india]

منظورتون از قسمت دوم چی هست ؟

اگر منظورت Time out هست می تونید مثل قسمت اول تشخص بدید که این آی پی فعال نیست

شما این برنامه رو ببینید میشه کامل کنید برام . ممنون میشم :لبخندساده:

بهر حال خیلی وقتتون رو گرفتم . اگر اینو برام کامل کنی ممنون میشم . :لبخندساده:

مرسی از زحمات شما :لبخندساده:

[mpmsoft]

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

براتون نحوه چک کردنشو نوشتم



lngSuccess = ping(strIPAddress, 5000, Reply)
If lngSuccess = ICMP_SUCCESS Then
List1.AddItem "OK"
ElseIf lngSuccess = ICMP_STATUS_REQUEST_TIMED_OUT Then
List1.AddItem "Failed"
End If


فقط ICMP_STATUS_REQUEST_TIMED_OUT و ICMP_SUCCESS رو از حالت Private به Public تبدیل کنید

[sajjad_india]

باز هم ممنون که وقتتونو برام میزارین

فقط نمیدونم چطور از شما تشکر کنم

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

مشکل کجاست

[mpmsoft]

توی ساب که نمی تونید از متغیر از نوع Public استفاده کنید

براتون اصلاحش کردم

[sajjad_india]

توی ساب که نمی تونید از متغیر از نوع Public استفاده کنید

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