با سلام خدمت اساتید محترم
دراین فایل پیوستی من می خوام ip از ردیف اول فایل txt گرفته بشه بعد از ping یا timed out بره خط دوم وهمینطوری الی آخر
ممنون میشم اگه راهنمایی بفرمایید
خب تو مثال که خودتون از پلاگین COM برای Ping استفاده کرده بودید
با کد زیر هر خط از فایل که یک IP هست رو استخراج میکنیم:
کد:
File$ = '<SrcDir>\IP.txt'
NumOfLines = NOL(File$)
For i=1 To NumOfLines
IP$ = StrFromFile(File$,i,1)
** COMPlugin PingHost
Next i
خب ما هرخط رو در یک حلقه میخونیم، آدرس IP در متغیر $IP ذخیره میشه.
خط بعد رو که من کامنت گذاشتم، کدهای مربوط به COMPlugin رو بنویسید. همون کدهایی که خودتون در مثال نوشته بودید (البته کدهای مربوط به Handler رو نیاز نیست، اگر نیاز هست فقط یکبار در شروع برنامه اجراشون کنید)
ضمن اینکه توصیه می کنم از نسخه ی 2 پلاگین استفاده کنید.
