net编程实例

❶ 关于vb.net中socket编程实例：服务器端的一些问题

Socket类连接后 可以通过类中的 RemoteEndPoint 来获取远程IP和端口信息.
要注意的是.需要将它强制转化为 IPEndPoint类型 然后通过 IPEndPoint.Address以及IPEndPoint.Port来获取对应的IP及端口

例:
Dim REV_SCK As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
'这里创建一个UDP Socket连接的实例 TCP也是一样的

'省略SOCKET连接的代码 当SOCKET连接成功后 可以用下面的语句获取远程信息
Dim IP as string ,Port as integer
'定义IP和Port变量 用来保存地址及端口
IP = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Address.ToString())
Port = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Port)

❷ 400分求vb.net,求一个socket的编程实例，详细见问题补充：

至少需要
ImportsSystem
ImportsSystem.Net
ImportsSystem.Net.Sockets
ImportsSystem.Threading
ImportsSystem.Text
还要了解异步与委托
简单点的话
subtcplisten()'监听过程
ConstLPortAsInteger=6850'本地监听端口
DimIPaddAsIPAddress=Dns.GetHostEntry(Dns.GetHostName()).AddressList(1)’本地IP
'addresslist里面包括IPV6和IPV4
DimIPEPAsNewIPEndPoint(IPadd,LPort)'结点
基亏TCPL=NewTcpListener(IPEP)’建立监听实例
TCPL.Start()'开始监听
掘碧IfTCPL.Pending=TrueThen'如果有连接接入
DimTCPLXAsNewSocket(AddressFamily.InterNetwork,SocketType.Stream,ProtocolType.Tcp)'建立一个新的SOCKET
TCPLX=TCPL.Accept()’将第一个接入挂起的连接传给新建SOCKET，因为监听的SOCKET还要继续监听
dimRipepasnewipendpoint=TCPLX.RemoteEndPoint'此时获得远程的ip与端口号
listbox.add(ripep.ip)
dimbuffasbyte()
buff=TCPLX.Receive()'listen>accept>recieve这时候可以接受判锋举数据了
dimsasstring=Encoding.Default.GetString(buff)'转换成文本
msg"s"
TCPLX.send(buff)'这个是发送
endif
EndSub
长时间没写，可能有点小错误，你自己调试调试，大概步骤就是listen>accept>recieve，最好看看msdn，那个学起来才系统

❸ C# .net 多进程编程的例子

Thread t1 = null;
Thread t2 = null;
private void Form1_Load(object sender, EventArgs e)
{
t1 = new Thread(new ThreadStart(T1));
t1.Start();
t2 = new Thread(new ThreadStart(T2));
t2.Start();
}

private void button1_Click(object sender, EventArgs e)
{
if (t1.ThreadState == ThreadState.Aborted||t1.ThreadState==ThreadState.Stopped)
{
MessageBox.Show("线程1结束了");
t1.Abort();
}
if (t2.ThreadState == ThreadState.Aborted||t1.ThreadState==ThreadState.Stopped)
{
MessageBox.Show("线程2结束了");
t2.Abort();
}
}
private void T1()
{
MessageBox.Show("进程1");

}
private void T2()
{
MessageBox.Show("进程2");

}

❹ VB.NET 拖动无边框窗体编程实例

Imports System Drawing Imports System Windows Forms 裂搭手 ****************************************** Private oOriginalRegion As Region = Nothing 用于窗体移动 Private bFormDragging As Boolean = False Private oPointClicked As Point ****************************************** Private Sub Form _MouseDown(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseDown Me bFormDragging = True Me oPointClicked = New Point(e X e Y) End Sub ****************************************** Private Sub Form _MouseUp(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseUp Me bFormDragging = False End Sub ****************************************** Private Sub Form _MouseMove(ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs) Handles MyBase MouseMove If Me bFormDragging Then Dim oMoveToPoint As Point 以当前鼠标肆嫌位置为基础 找出目标位置 oMoveToPoint = Me PointToScreen(New Point(e X e Y)) 枝兄 根据开始位置作出调整 oMoveToPoint Offset(Me oPointClicked X * _ (Me oPointClicked Y + _ SystemInformation CaptionHeight + _ SystemInformation BorderSize Height) * ) 移动窗体 Me Location = oMoveToPoint End If