-
-
1VB.NET，C#制作截屏小工具，如何编写代码来显示？ 这里有两种方法，一种是调用系统接口API函数获得句柄，另一种方法则是直接利用Graphic类和bmp图片绘
-
0'关闭窗口时发关退出信息并清理资源 Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs
-
0Private Sub btnDns_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDns.Click Dim myIP As IPAddress = IPAddress.Parse("
-
0Private Sub btnStart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStart.Click myThread = New Thread(AddressOf Liste
-
0'非UI线程调用窗体控件，实现接收信息呈现的核心 Sub AddInfo(ByVal sender As System.Object, ByVal e As System.EventArgs) ListBox1.Items.Add("远
-
0'发送信息 Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click Dim msg As Byte() = En
-
0Public Sub Listen() Dim bytes() As Byte = New [Byte](1024) {} Dim data As String = String.Empty Dim tokens() As String Dim IP As IPAddress =
-
0Imports System.Net Imports System.Net.Sockets Imports System.Threading Imports System.Text Imports System.Diagnostics Public Class frmServer
-
0Private Sub frmClient_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If Is
-
0'发送信息 Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click Dim msg As Byte() = En
-
0Sub ReciveMsg() Dim bytes() As Byte = New Byte(1024) {} Dim data As String = String.Empty Dim tokens() As String While True Dim bytesRec As
-
0Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click Dim IP As IPAddress = Net.
-
0'客户端Socket Dim cliSocket As Socket '连接状态 Dim IsConnected As Boolean = False '接收信息线程 Dim myThread As Thread
-
0Private Sub btnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSend.Click Try wtStream.WriteLine(TxtContent.Text)
-
0Private Sub btnStart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStart.Click Try serverThread = New Thread(Address
-
0Private Sub EndListen() If (Not netStream Is Nothing) Then rdStream.Close() wtStream.Close() netStream.Close() clientSocket.Shutdown(SocketS
-
0Imports System.Net Imports System.Net.Sockets Imports System.IO Imports System.Threading Public Class frmServer Dim serverThread As Thread D
-
0Private Sub TxtContent_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtContent.Click TxtContent.Text = rdStream.ReadLi
-
0Private Sub frmClient_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed wtStream.WriteLine("Exit") wtStream.
-
0Private Sub btnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSend.Click Try wtStream.WriteLine(txtMsg.Text) wtS
-
0Imports System.Net Imports System.Net.Sockets Imports System.Threading Imports System.IO Public Class frmClient Dim clientMsg As String Dim
