vb.net写服务端 VBNet

vb.net编的web程序如何生成并且发布在sever2003服务器上并且用IE浏览器访问

什么IIS架构。晕～～～

创新互联公司于2013年开始，是专业互联网技术服务公司，拥有项目成都网站制作、网站设计网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元石台做网站,已为上家服务,为石台各地企业和个人服务,联系电话:13518219792

1.首先正式版本的发布你必须要Release，不要直接把Debug程序放上去。

2.将所有的.cs文件删除。vs.net有一个很方便的工具，“项目——复制项目”就ok了。

3.windows server2003上一定要安装了"Internet 信息服务(IIS)管理器",如果没有安装的话可以到“控制面板——添加或删除程序——添加\删除WINDOWS组件——应用程序服务器”如果“应用程序服务器”没有构选的话钩上，放入windows 2003的系统盘安装。

4.安装完成之后把项目靠到服务器上。简单一点的方法是右键点击项目文件夹，Web共享——共享文件夹。此时就算发布成功了。不过还有一些细节需要注意。如：IIS匿名访问等。那就是另外的问题了。呵呵。IIS设置很简单，可以在网上找些资料。

关于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)

用VB.NET写CS架构的程序，多用户数的网络版，需要写服务端吗？服务端具体都做那些工作呢？

这个不一定，看具体是做什么用，如果只是简单的数据库做服务器端 就不用。但是如果是复杂的就需要。

如果只是读写数据库就不用socket ，软件本身和数据库就有通道连接。除非想在数据库和软件之间增加一个自己的中间层

vb.net TCP协议服务端ip怎么写才能使客户端能通过公网连接进来？

需要出口设备进行映射内部地址；或使用打洞技术穿透NAT,但使用TCP打洞非常困难。

参考

穿透NAT是非常困难的，因为NAT的过程中在出口路由器上的Port已经不是你定义的iPort了，具体是多少也不固定

VB.NET 服务器与客户端数据交互问题？

客户端简单代码：

Imports System.Net.Sockets

Imports System.IO

Private Output As NetworkStream

Private Writer As BinaryWriter

Private Reader As BinaryReader

Dim StrSend As String

Dim client As New TcpClient '

client.Connect(servIP, 2006)

Output = client.GetStream

Writer = New BinaryWriter(Output)

Reader = New BinaryReader(Output)

StrSend = "字符串"

System.Threading.Thread.Sleep(100)

Writer.Write(StrSend)

Try

Message = Reader.ReadString

If Message = "OK" Then

LBinfo.Text = "成功！" '测试

Else

LBinfo.Text = "失败！"

End If

System.Threading.Thread.Sleep(100)

Catch ex As Exception

MessageBox.Show("Client Application Closing!")

Finally

Writer.Close()

Reader.Close()

Output.Close()

client.Close()

End Try

服务器端

用线程

Imports System.Net.Sockets

Imports System.IO

Imports System.Threading

Imports System.Windows.Forms

Private Connection As Socket

Private readThread As Thread

Private SocketStream As NetworkStream

Private Writer As BinaryWriter

Private Reader As BinaryReader

Public Sub New()

MyBase.New()

'该调用是 Windows 窗体设计器所必需的。

InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

readThread = New Thread(AddressOf RunServer)

readThread.Start()

End Sub

Public Sub RunServer()

Dim Listener As TcpListener

Try

Listener = New TcpListener(Net.IPAddress.Parse("192.168.1.16"), 2006)

Listener.Start()

While True

Connection = Listener.AcceptSocket 'accept an incoming connection

SocketStream = New NetworkStream(Connection) 'create networkstream object associated with socket

Writer = New BinaryWriter(SocketStream) 'create object for transferring data across stream

Reader = New BinaryReader(SocketStream) 'read string data sent from client

Try

Do

strIncept = Reader.ReadString

strIncept = DataDisp(strIncept) '此处插入数据处理程序()

SendInfoToClient(strIncept) 'send to client

Loop While Connection.Connected

Catch ex As Exception

MsgBox(ex.ToString)

Finally

Writer.Close()

Reader.Close()

SocketStream.Close()

End Try

End While

Catch ex As Exception

MsgBox(ex.ToString)

End Try

End Sub

Public Sub SendInfoToClient(ByVal Info As String)

'Send to client

Try

If Connection.Connected Then

Writer.Write(Info)

Connection.Close()

End If

Catch ex As SocketException

MessageBox.Show(ex.ToString)

End Try

End Sub

整个过程都有了

vb.net怎样实现多客户端与服务器端通信

'Private Sub DataGrid1_Click()

' If DataGrid1.Row  0 Then

' dwbhTXT.Text = DataGrid1.Columns(0).Value

' Text1.Text = DataGrid1.Columns(1).Value

' Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  App.Path  "\ktcms.mdb;Jet OLEDB:Database Password=701109"

' Adodc2.RecordSource = "select * from consumer where 用户编号="  dwbhTXT.Text

' Adodc2.Refresh

' If Adodc2.Recordset.RecordCount  0 Then

'   Combo1.Text = Adodc2.Recordset.Fields("省份").Value

' End If

' End If

'End Sub