ping

[vahid1352]

با سلام خدمت اساتيد محترم
ايا ميشه به mmb برنامه ساخت كه يك سرور را ping كنه واگر ping شد يك پيام يا شكلي را نشان بده وبرعكس
لطفا راهنمايي بفرماييد ممنون

 

[michelangelo]

شما میتونید با استفاده از cmd این کار رو بکنید.
یعنی روی یک دکمه کلیک کنید و بعد دستورات cmd اجرا شود
من یه نمونه براتون پیوست کردم
در ضمن میتونید از پلاگین ComPlugin استفاده کنید که درون انجمن نمونه هاش هست.

 

[vahid1352]

سلام دوست عزيز michelangelo
ميشه همين ping را به يك فايل txt منتقل كرد؟ ممنون از راهنمايي تون

 

[michelangelo]

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

دریافت کد ها از text
​

 

[loo30fer]

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

تاپیکی که شما لینکش رو قرار دادین ارتباطی با جواب ایشون نداشت.

ميشه همين ping را به يك فايل txt منتقل كرد؟

بله میتونید بدین شکل عمل کنید:

param$ = 'HIDE,WAIT /C Ping 209.191.122.70 > C:\Ping.txt'
Run("Cmd.exe","param$")

 

[michelangelo]

جناب آقای loo30fer چه طور میشه همین نوشته های ping در mmb نمایش داده شه؟

 

[MahmoodM30]

جناب آقای loo30fer چه طور میشه همین نوشته های ping در mmb نمایش داده شه؟

با اجازه محمد عزیز

تو نمونه ای که محمد قرار داده با استفاده از کد زیر به راحتی میتونید توی یه شئ Paragraph نشون بدید

param$ = 'HIDE,WAIT /C Ping 209.191.122.70 > C:\Ping.txt'
Run("Cmd.exe","param$")
LoadText("Paragraph","C:\Ping.txt")

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

param$='HIDE,WAIT /C Ping 209.191.122.70 >"<Temp>\Ping.txt"'
Run("cmd","param$")
OpenFile$='<Temp>\Ping.txt'
SongListReset()
ListBoxAddItem("SongList","RESET")
SongListLoad("OpenFile$","")
ListBoxAddItem("SongList","<List>")

 

[SainaGroup]

سلام میدونم تاپیک قدیمی هست ولی چند سوال دارم
1- امکانش هست روند انجام ping را انجام ندهد و فقط قسمتی که Receved و lost را نمایش میدهد را در برنامه داشته باشم
2- امکان داره چند آی پی را به کمک inputtext به برنامه بدیم و برنامه پینگ کند و نتیجه reseved , lost را نشان دهد
3- امکان داره صفحه CMD را برنامه نشون نده
4-به همین روش امکان اجرا دستور های مختلف CMD هست ؟

با تشکر

 

[MahmoodM30]

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