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

    Gharibe007 Developer

    الأنتساب:
    ‏3 يوليو 2014
    المشاركات:
    22
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    1
    الإقامة:
    Iran
    How To Make Remote Desktop With Vb.Net

    [​IMG]
    Download Video

    [DOWNLOAD]
    http://www.mediafire.com/download/89...4_1364x768.rar
    [/DOWNLOAD]
    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•`~

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

    الأنتساب:
    ‏24 يوليو 2014
    المشاركات:
    1,140
    الإعجابات المتلقاة:
    20
    نقاط الجائزة:
    38
    الوظيفة:
    Design
    الإقامة:
    سورية - دمشق
    رد: How To Make Remote Desktop With Vb.Net

    مشكور اخي
     
حالة الموضوع:
مغلق

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