PDA

نسخه کامل مشاهده نسخه کامل : چگونگی خواندن یک سکتور با استفاده از Vb



hamidfarid
29-04-2007, 12:46
سلام
من یک فایل روی هارد دارم که بعد از End of file آن چیزی نوشته شده اما با دستورات معمول VB نمیشه اونو خواند شما دستوری سراغ دارید که بی خیالend of file بشه و سکتور تا آخر بخونه؟

Soda
30-04-2007, 23:46
بيشتر توضيح بده

شما اندازه اون فايل رو به بايت نداري مگه ؟
خوب وقتي ميخوني ببين همون اندازست يا نه
فكر نكنم دستورات معمول وي بي چيزي رو جابندازن و همه چي رو درست ميخونن

SILWESTER
01-05-2007, 00:39
سلام! منم فکر کنم فقط با استفاده ار توابع stpi و aspi بتونید یه سکتور را با مخلفاتش بخوننین.

Soda
01-05-2007, 08:41
نه اين دوستمون از دستش دررفت گفت سكتور
فكر كنم منظورش همون خوندن كامل فايل بود ؟

SILWESTER
01-05-2007, 11:42
احتمالا چنین منظوری هم داشته!
فقط منم یه سوال دارم. دستوری که برای read sector در scsi استفاده میشه چیه! منظورم دستور متعارفی است که سکتور را حتی در حالت illegal structure بدون نقص میخونه. من یه مدتی با دوستم رو scsi command ها کار کردیم مشکل این بود که هر سی دی درایوی به دستور درست جواب نمیداد یعنی در بعضی از مدل ها میتونست یه بدسکتور را بخونه و در بعضی دیگر نه؟ احتمالا به خاطر تفاوت در ساختار framware اوناست!
ولی من فکر میکنم یه دستور کلی تر باشه که چنین مشکلی رو رد کنه و جواب بده
نمونشم crack master یا stopcopy یا سایر پراتک شنهای مبتنی بر aspi read sector?
فکر کنم شما جواب رو بدونین:20: اینو یادم بود
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] 28#

Elfin-D
01-05-2007, 19:32
منتقل شد....

vmtco
04-05-2007, 05:23
از منوی Project , References را انتخاب کن بعد گزینه ی Microsoft Scripting Runtime و داخل General یا Module یک داده از نوع TextStream تعریف کن و یک داده از نوع New FileSystemObject تعریف کن بعد با دستور زیر فایل مورد نظرت رو واردش کن:
dim a as TextStream
dim s as string
dim FSO as new filesystemobject
Set a = FSO.OpenTextFile(Path)
While a.AtEndOfStream <> True
s=a.readline
list1.additem s
Wend
a.close