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

[sattar2111]

با سلام خدمت تمامی دوستان
بنده برای بدست اوردن یوزر , پسورد و شماره اتصال به اینترنت در وی بی از کد زیر استفاده کردم
.
.
bkh
For i = 0 To c - 1
Text1.Text = Text1.Text & _
vbCrLf & "User Name = " & AllPass(i).User & _
vbCrLf & "Password = " & AllPass(i).Pass & _
vbCrLf & "Tel Number= " & AllPass(i).Tel & vbCrLf
Next
.
.
اما در اجرا دچار یک مشکل اساسی شدم
و ان اینکه این کد فقط می تواند اطلاعات اولین اکانت را درج کند و حال انکه بنده به نام و اطلاعات تمام اکانت ها احتیاج دارم مخصوصا شماره اتصال (بله درست دیدید شماره اتصال!!!)
.
برای بنده سوالاتی پیش امده که از دوستان تقاضای کمک سریع دارم:
1-چگونه تعداد و نام تمام اکانت ها را بدست بیاورم
2-چگونه اطلاعات اکانتی که هم اکنون به اینترنت وصل است را بدست بیاورم نه اطلاعات اکانت اول
.
در ضمن اگر دوستان را ساده تری برای فهمیدن شماره اتصال سراغ دارند لطفا راهنمایی کنند
.
با تشکر فراوان از تمام دوستان
saty