http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_Tutorial%2FSocket_Network%2FChat
VB.Net Tutorial/Socket Network/Chat - История изменений
2026-04-05T06:01:36Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net_Tutorial/Socket_Network/Chat&diff=3546&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:30Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VB.Net_Tutorial/Socket_Network/Chat&diff=3547&oldid=prev
Admin: 1 версия
2010-05-26T12:55:56Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Chat Tool==<br />
<br />
<br />
<br />
<source lang="vbnet">Imports System<br />
Imports System.Net<br />
Imports System.Net.Sockets<br />
Imports System.Threading<br />
Imports System.Text<br />
Imports System.Windows.Forms<br />
public class ChatTool<br />
public Shared Sub Main<br />
Application.Run(New Form1)<br />
End Sub<br />
End class<br />
Public Class Form1<br />
Inherits System.Windows.Forms.Form<br />
Public Sub New()<br />
MyBase.New()<br />
InitializeComponent()<br />
End Sub<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing Then<br />
If Not (components Is Nothing) Then<br />
components.Dispose()<br />
End If<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
Private components As System.ruponentModel.IContainer<br />
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox<br />
Friend WithEvents Label1 As System.Windows.Forms.Label<br />
Friend WithEvents Label2 As System.Windows.Forms.Label<br />
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox<br />
Friend WithEvents Label3 As System.Windows.Forms.Label<br />
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox<br />
Friend WithEvents Button1 As System.Windows.Forms.Button<br />
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
Me.TextBox1 = New System.Windows.Forms.TextBox<br />
Me.Label1 = New System.Windows.Forms.Label<br />
Me.Label2 = New System.Windows.Forms.Label<br />
Me.TextBox2 = New System.Windows.Forms.TextBox<br />
Me.Label3 = New System.Windows.Forms.Label<br />
Me.TextBox3 = New System.Windows.Forms.TextBox<br />
Me.Button1 = New System.Windows.Forms.Button<br />
Me.SuspendLayout()<br />
"<br />
"TextBox1<br />
"<br />
Me.TextBox1.Location = New System.Drawing.Point(88, 16)<br />
Me.TextBox1.Name = "TextBox1"<br />
Me.TextBox1.Size = New System.Drawing.Size(136, 20)<br />
Me.TextBox1.TabIndex = 0<br />
Me.TextBox1.Text = ""<br />
"<br />
"Label1<br />
"<br />
Me.Label1.Location = New System.Drawing.Point(32, 16)<br />
Me.Label1.Name = "Label1"<br />
Me.Label1.Size = New System.Drawing.Size(48, 24)<br />
Me.Label1.TabIndex = 1<br />
Me.Label1.Text = "Message"<br />
"<br />
"Label2<br />
"<br />
Me.Label2.Location = New System.Drawing.Point(0, 64)<br />
Me.Label2.Name = "Label2"<br />
Me.Label2.Size = New System.Drawing.Size(80, 24)<br />
Me.Label2.TabIndex = 2<br />
Me.Label2.Text = "Target IP"<br />
"<br />
"TextBox2<br />
"<br />
Me.TextBox2.Location = New System.Drawing.Point(88, 64)<br />
Me.TextBox2.Name = "TextBox2"<br />
Me.TextBox2.Size = New System.Drawing.Size(136, 20)<br />
Me.TextBox2.TabIndex = 3<br />
Me.TextBox2.Text = ""<br />
"<br />
"Label3<br />
"<br />
Me.Label3.Location = New System.Drawing.Point(8, 104)<br />
Me.Label3.Name = "Label3"<br />
Me.Label3.Size = New System.Drawing.Size(72, 24)<br />
Me.Label3.TabIndex = 4<br />
Me.Label3.Text = "Record"<br />
"<br />
"TextBox3<br />
"<br />
Me.TextBox3.AutoSize = False<br />
Me.TextBox3.Location = New System.Drawing.Point(80, 104)<br />
Me.TextBox3.Name = "TextBox3"<br />
Me.TextBox3.Size = New System.Drawing.Size(184, 136)<br />
Me.TextBox3.TabIndex = 5<br />
Me.TextBox3.Text = ""<br />
"<br />
"Button1<br />
"<br />
Me.Button1.Location = New System.Drawing.Point(232, 16)<br />
Me.Button1.Name = "Button1"<br />
Me.Button1.Size = New System.Drawing.Size(56, 24)<br />
Me.Button1.TabIndex = 6<br />
Me.Button1.Text = "Send"<br />
"<br />
"Form1<br />
"<br />
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
Me.ClientSize = New System.Drawing.Size(292, 266)<br />
Me.Controls.Add(Me.Button1)<br />
Me.Controls.Add(Me.TextBox3)<br />
Me.Controls.Add(Me.Label3)<br />
Me.Controls.Add(Me.TextBox2)<br />
Me.Controls.Add(Me.Label2)<br />
Me.Controls.Add(Me.Label1)<br />
Me.Controls.Add(Me.TextBox1)<br />
Me.ResumeLayout(False)<br />
End Sub<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
Dim bytes(200) As Byte<br />
Dim MyIP As IPAddress<br />
Dim RemoteIP As IPAddress<br />
Dim str As String<br />
RemoteIP = IPAddress.Parse(TextBox2.Text)<br />
MyIP = IPAddress.Parse("912.168.1.100")<br />
Dim Port1 As Integer = 8080<br />
Dim port2 As Integer = 8081<br />
Dim myLocal As New IPEndPoint(MyIP, Port1)<br />
Dim myRemote As New IPEndPoint(RemoteIP, port2)<br />
Dim receive1 As New UdpClient(myRemote)<br />
Dim send1 As New UdpClient(myLocal)<br />
Try<br />
bytes = System.Text.Encoding.ASCII.GetBytes(TextBox1.Text.ToUpper)<br />
send1.Send(bytes, bytes.Length, myRemote)<br />
str = System.Text.Encoding.ASCII.GetString(bytes)<br />
TextBox3.Text = TextBox3.Text & vbCrLf & str<br />
bytes = receive1.Receive(myLocal)<br />
str = System.Text.Encoding.ASCII.GetString(bytes)<br />
TextBox3.Text = TextBox2.Text & vbCrLf & str<br />
<br />
Catch ex As Exception<br />
Console.WriteLine("")<br />
End Try<br />
send1.Close()<br />
receive1.Close()<br />
End Sub<br />
End Class</source></div>
Admin