1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

How To Make Remote Desktop With Vb.Net

الموضوع في 'المواضيع المُكرّرة والمُخالفة' بواسطة Gharibe007, بتاريخ ‏2 أغسطس 2014.

كاتب الموضوع : Gharibe007 المشاهدات : 163 الردود : 1 ‏2 أغسطس 2014
حالة الموضوع:
مغلق
  1. غير متصل

    Gharibe007
    rank
    Developer

    عضو منذ:
    ‏3 يوليو 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    الإقامة:

    How To Make Remote Desktop With Vb.Net

    [​IMG]
    Download Video


    Code You Need

    كود PHP:
    Imports System.Net.Sockets 
    Imports System
    .Threading 
    Imports System
    .Drawing 
    Imports System
    .Runtime.Serialization.Formatters.Binary 
     
     
    Public Class Form2 
        Dim client 
    As New TcpClient 
        Dim port 
    As Integer 
        Dim server 
    As TcpListener 
        Dim ns 
    As NetworkStream 
        Dim listening 
    As New Thread(AddressOf listen
        
    Dim getimage As New Thread(AddressOf ReceiveImage
     
        Private 
    Sub ReceiveImage() 
            
    Dim bf As New BinaryFormatter 
            
    While client.Connected True 
                ns 
    client.GetStream 
                PictureBox1
    .Image bf.Deserialize(ns
     
            
    End While 
        
    End Sub 
     
     
        
    Private Sub listen() 
            While 
    client.Connected False 
                server
    .Start() 
                
    client server.AcceptTcpClient 
     
            End 
    While 
            
    getimage.Start() 
        
    End Sub 
     
     
        
    Private Sub Form2_Load(sender As ObjectAs EventArgsHandles MyBase.Load 
            port 
    Integer.Parse(Form1.TextBox1.Text
            
    server = New TcpListener(port
            
    listening.Start() 
        
    End Sub 
     
        
    Private Sub PictureBox1_Click(sender As ObjectAs EventArgsHandles PictureBox1.Click 
     
        End Sub 
    End 
    Class  
    كود PHP:
    Imports System.Net.Sockets 
    Imports System
    .Threading 
    Imports System
    .Drawing 
    Imports System
    .Runtime.Serialization.Formatters.Binary 
     
    Public Class Form1 
        Dim client 
    As New TcpClient 
        Dim ns 
    As NetworkStream 
        Dim port 
    As Integer 
     
        
    Public Function Desktop() As Image 
            Dim bounds 
    As Rectangle Nothing 
            Dim screenhost 
    As System.Drawing.Bitmap Nothing 
            Dim graph 
    As Graphics Nothing 
            bounds 
    Screen.PrimaryScreen.Bounds 
            screenhost 
    = New Bitmap(bounds.Widthbounds.HeightSystem.Drawing.Imaging.PixelFormat.Format32bppArgb
            
    graph Graphics.FromImage(screenhost
            
    graph.CopyFromScreen(bounds.Xbounds.Y00bounds.SizeCopyPixelOperation.SourceCopy
            Return 
    screenhost 
        End 
    Function 
     
        Private 
    Sub sendDesktop() 
            
    Dim bf As New BinaryFormatter 
            ns 
    client.GetStream 
            bf
    .Serialize(nsDesktop
     
     
        
    End Sub 
     
        
    Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click 
            port 
    Integer.Parse(TextBox2.Text
     
            Try 
                
    client.Connect(TextBox1.Textport
                
    MsgBox("client connected 1"
            Catch 
    ex As Exception 
                MsgBox
    ("Failed to connect ..."
            
    End Try 
        
    End Sub 
     
        
    Private Sub Button2_Click(sender As ObjectAs EventArgsHandles Button2.Click 
            Timer1
    .Start() 
        
    End Sub 
     
        
    Private Sub Timer1_Tick(sender As ObjectAs EventArgsHandles Timer1.Tick 
            sendDesktop
    () 
        
    End Sub 
     
    End 
    Class  

     


    جاري تحميل الصفحة...
  2. غير متصل

    ~`•MR.®aSh•`~
    V • I • P

    عضو منذ:
    ‏24 يوليو 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    17
    نقاط الجائزة:
    الوظيفة:
    Design
    الإقامة:

    رد: How To Make Remote Desktop With Vb.Net

    مشكور اخي
     


الوسوم:
حالة الموضوع:
مغلق

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

جاري تحميل الصفحة...