谁能提供一个局域网内用的类似留言板的程序，好的话加分
什么意思啊~
这样的应用程序如果实体操作的话，只能是本机
可以用
远程桌面
在其他机器上操作
或者，破解~！
WinSockServer.dpr服务端
program WinSockServer;
uses
Windows,
WinSock,
Share in 'Share.pas';
var
WinSockData:WSADATA;
Server : TSocket;
Result:Cardinal;
Service : sockaddr_in;
AcceptSocket : TSocket;
RecvStr : array[0..255] of char;
SendStr : array[0..255] of char;
BytesRecv : Integer;
begin
//初始化 WinSock
Result := WSAStartup(2,&WinSockData);
if Result <> NO_ERROR then MessageBox(0,'WSAStartup ERROR','Server',MB_OK);
//建立 Socket，协议为TCP
Server := Socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
if Server = INVALID_SOCKET then begin
MessageBox(0,PChar('Error at socket():'+Str(WSAGetLastError)),'Server',MB_OK);
WSACleanup();
end;
//绑定 Socket
Service.sin_family := AF_INET;
Service.sin_port := 9956;
Service.sin_addr.S_addr := inet_addr('127.0.0.1');
If Bind(Server, Service, SizeOf(service)) = Socket_ERROR then begin
MessageBox(0,PChar('Error at Bind()'),'Server',MB_OK);
CloseSocket(Server);
Exit;
end;
//监听 Socket
If Listen(Server,1) = Socket_ERROR then
MessageBox(0,PChar('Error listening on socket.'),'Server',MB_OK);
//接受连接
MessageBox(0,PChar('等待连接……'),'Server',MB_OK);
while True do begin
AcceptSocket := SOCKET_ERROR;
AcceptSocket := Accept(Server, nil, nil );
If AcceptSocket <> SOCKET_ERROR then begin
MessageBox(0,PChar('客户端已连接'),'Server',MB_OK);
Server := AcceptSocket;
break;
end;
end;
//接收数据
SendStr := '服务端返回消息';
Send(Server,SendStr,Length(SendStr),0);
While True do begin
Sleep(100);
BytesRecv := Recv(Server,RecvStr,Length(RecvStr),0);
//If BytesRecv = 0 Then begin
// Messagebox(0,PChar('连接中断'),'',MB_OK);
// Break;
//end;
if BytesRecv < 0 then begin
Messagebox(0,PChar('连接中断'),'Server',MB_OK);
Break;
end;
Messagebox(0,PChar('服务端接收数据：'+RecvStr),'Server',MB_OK);
end;
end.
客户端：
program WinSockClient;
uses
Windows,
WinSock,
Share in 'Share.pas';
var
WinSockData:WSADATA;
Client : TSocket;
Result:Cardinal;
ClientSvr : sockaddr_in;
RecvStr : array[0..255] of char;
SendStr : array[0..255] of char;
BytesRecv : Integer;
begin
//初始化 WinSock
Result := WSAStartup(2,&WinSockData);
if Result <> NO_ERROR then MessageBox(0,'WSAStartup ERROR','Client',MB_OK);
//建立 Socket，协议为TCP
Client := Socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
if Client = INVALID_SOCKET then begin
MessageBox(0,PChar('Error at socket():'+Str(WSAGetLastError)),'Client',MB_OK);
WSACleanup;
end;
//连接到服务器
ClientSvr.sin_family := AF_INET;
ClientSvr.sin_port := 9956;
ClientSvr.sin_addr.S_addr := inet_addr('127.0.0.1');
If Connect(Client, ClientSvr, SizeOf(ClientSvr)) = Socket_ERROR then begin
Sleep(100);
MessageBox(0,PChar('Error at Connect()'),'Client',MB_OK);
WSACleanup;
Exit;
end;
//发送并接受
SendStr := '客服端已正确连接';
Send(Client,SendStr,Length(SendStr),0);
While True do begin
Sleep(100);
BytesRecv := Recv(Client,RecvStr,Length(RecvStr),0);
// If BytesRecv = 0 Then begin
// Messagebox(0,PChar('连接中断'),'',MB_OK);
// Break;
// end;
if BytesRecv < 0 then begin
Messagebox(0,PChar('连接中断'),'Client',MB_OK);
Break;
end;
Messagebox(0,PChar('客户端接收数据：'+RecvStr),'Client',MB_OK);
end;
end.
共用文件Share.pas，其实就是SysUtils单元截取出的两个函数
unit Share;
interface
function Str(Value: Integer): string;
procedure CvtInt;
implementation
function Str(Value: Integer): string;
// FmtStr(Result, '%d', [Value]);
asm
PUSH ESI
MOV ESI, ESP
SUB ESP, 16
XOR ECX, ECX // base: 0 for signed decimal
PUSH EDX // result ptr
XOR EDX, EDX // zero filled field width: 0 for no leading zeros
CALL CvtInt
MOV EDX, ESI
POP EAX // result ptr
CALL System.@LStrFromPCharLen
ADD ESP, 16
POP ESI
end;
procedure CvtInt;
{ IN:
EAX: The integer value to be converted to text
ESI: Ptr to the right-hand side of the output buffer: LEA ESI, StrBuf[16]
ECX: Base for conversion: 0 for signed decimal, 10 or 16 for unsigned
EDX: Precision: zero padded minimum field width
OUT:
ESI: Ptr to start of converted text (not start of buffer)
ECX: Length of converted text
}
asm
OR CL,CL
JNZ @CvtLoop
@C1: OR EAX,EAX
JNS @C2
NEG EAX
CALL @C2
MOV AL,'-'
INC ECX
DEC ESI
MOV [ESI],AL
RET
@C2: MOV ECX,10
@CvtLoop:
PUSH EDX
PUSH ESI
@D1: XOR EDX,EDX
DIV ECX
DEC ESI
ADD DL,'0'
CMP DL,'0'+10
JB @D2
ADD DL,('A'-'0')-10
@D2: MOV [ESI],DL
OR EAX,EAX
JNE @D1
POP ECX
POP EDX
SUB ECX,ESI
SUB EDX,ECX
JBE @D5
ADD ECX,EDX
MOV AL,'0'
SUB ESI,EDX
JMP @z
@zloop: MOV [ESI+EDX],AL
@z: DEC EDX
JNZ @zloop
MOV [ESI],AL
@D5:
end;
end.
Winsock是个很简单的东西，相信你只要把这段代码看一遍就能明白，起作用的Winsock函数不超过10个~
至于留言板，有了例子楼主就自行开发吧。想走捷径也可以，搜索下“网络留言板 源代码”，估计例子一抓一大把，这里也不好贴出来，楼主好自为之吧
C++还是PHP?
怎么才能让手机和电脑在同个局域网里?
1. **使用同一Wi-Fi网络**：最简单直接的方法是将手机和电脑都连接到同一个Wi-Fi网络。这样，它们就会自动处于同一个局域网内，可以相互访问和共享资源。2. **使用手机热点**：如果电脑没有Wi-Fi功能或所在环境没有Wi-Fi网络，可以开启手机的热点功能，让电脑通过手机的移动网络接入互联网。此时，...
电脑能不能上同一个局域网?
一、根据范围判断：一般情况下，同一个网吧或者同一个房间，属于一个局域网。二、根据所连设备：一般情况下，电脑之间连得同一个路由器，或者同一个交换机，或者同一个集线器，那么他们同属于一个局域网。三、根据工作组：打开电脑上的“网络”图标。如果在里面都能看到对方的计算机名称。那么两台电脑...
如何设置路由器才能让局域网内的电脑可以互相访问?
先把路由器的WAN连接网线拔出。电脑分别登录路由器，进入LAN接口设置，把DHCP由原来的打开状态关闭。把LAN默认接口IP地址做调整。如果光猫的LAN接口地址是192.168.1.1，则路由器1要改为192.168.1.2，路由器2要改为192.168.1.3。就是不让这三个地址一样。不然，会引起冲突，无法正常连接。以上...
有线和无线网络连接能组建成同一个局域网吗?
是可以组建的。网上邻居看不到，是因为缺协议。台式机和笔记本通过LAN口时，台式机和笔记本的有线网卡安装了协议，所以可以看到，而无线网卡没有安装协议，因为看不到。对了，这个协议是TCP\/IP之外的，NETBEUI、NOVELL的IPX\/SPX协议。
为什么在同一个局域网内,我的电脑不能上网,别人的电脑就可以上网_百 ...
需要说明的是，通常SOHO级的路由器会有一个WAN（广域网）接口，3-6个LAN（局域网）接口。WAN口用来连接服务商提供的线路，比如ADSL MODEN，小区宽带的线路等等。LAN口用来连接需要上网的多台机器。配置的时候要把网线接在LAN口上。下面我们来看WAN设置。这里有三种选择，如果你用ADSL拨号的方式，则要...
同一个路由器下能不能连成局域网
可以连成一个局域网，查看工作组提示你没有权限是因为你和路由器不是在一个网段内。把你们几家连到路由器上的机器的IP地址全部更改为和路由器一个网段，这样既不妨碍上网，也可以共享
电脑安装了双网卡,一个内网一个外网,但是不能同时使用,只能通一个IP...
对于大多数中小型企业来说，要实现整个局域网内的机器共享上网，比如接入ADSL，就需要在服务器上安装双网卡：一块网卡用于外部ADSL接入(可以称之为外网卡)，一块用于内部局域网的互联(可以称之为内网卡)。当然，不单是共享ADSL，共享ISDN、DDN上网都可以。再比如，大家都知道连接一个最小的仅有两台机器...
为什么同一个局域网内,我的电脑不能上网,别的都可以
可能是IP地址设置错误或IP地址冲突或自动分配的IP地址与实际IP地址不在同一网段所致。需要正确配置IP地址，操作如下：A、以WINXP设置为例：（1）点击 “网上邻居”——“本地连接”——“属性”；（2）点击本地连接属性窗口中的“Internet协议 （TCP\/IP）——属性”；（3）在“常规”选项卡配置好IP...
路由器上的LAN口上的电脑和交换机上的电脑能组成一个局域网吗?
无线路由器其实是路由器和交换机的集合，WAN口是路由器，LAN口和无线都是交换机，所以不论连LAN口还是无线，都是在同一个局域网，但是要设置好IP，TCP\/IP协议会根据IP和掩码来判断是否处于同一局域网
XP系统如何在局域网内共享文件
修改此安全级别的方法如下:运行 Regedit.exe 编辑注册表,定位到子健 HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Lsa 上将此子健中的值 restrictanonymous 由不安全的 0值 修改为安全级别高一些值 1 或 2。注意:此安全级别如果提高的话有可能造成本计算机在局域网内无法被访问到。2、当禁用了TIP\/IP高级...
尚殃马来： 可以的,不用申请域名 但别人访问这个留言版的话,就要涉及到局域网中有无DNS服务器配置,如果没有DNS服务器,就需要用你这个留言板服务器的IP或主机名来访问,一般推荐IP访问 看你这个局域网的环境怎么构架的了,是工作组还是域 不过,一般excel很少用来当数据库的 局域网用的话,用 Asp.net + Access + IIS 好了
镇安县15545858891： 在局域网内建立BBS或者留言板 - ？
尚殃马来： 1.找个配置好点的台式机.安装一个win2003 企业版,,固定一个局域网ip,安装好IIS 2.上网下载一个小程序,BBS 程序很多. 3.配置一个web站点,就是利用IIS 建立站点. 4.设置WEB 站点,将固定IP 作为网站的IP . 5.有什么不懂,给我留言.
镇安县15545858891： 谁有好用的局域网群发消息的软件,借小弟一用.？
尚殃马来： 系统都自己带着有.... win98里好象叫popup或者是winpop.... xp和2000里可以这样. 开始-运行,输入cmd这样会出现一个类似dos的窗口 输入 net send [对方IP或机器名] {发送的消息内容] 例如net send 10.10.1.1 收到请回答! 但前提条件是对方和自己的机器要开Messenger服务. 不行的话就用freeicq.... 有服务端和客户端,安装上和qq一样使用.... 可以试一试!!!
镇安县15545858891： 比飞秋更好用的局域网沟通软件? - ？
尚殃马来： 看下内网通.飞秋早就不提供更新维护了.内网通是一款类似QQ的局域网聊天传送文件的即时通讯软件,基于 TCP/IP(UDP).而且兼容的飞鸽传书通讯协议,具有局域网内文件传输速度快,操作简便,并且拥有QQ的很多功能,如建群、语音、远程协助、表情、截图、共享文件等功能.我们现在办公室禁外网,我们内部都使用这一通讯工具,非常方便.
镇安县15545858891： 局域网聊天软件 - ？
尚殃马来： 推荐你用 active messenger 吧,系统可以 群发,离线发,消息有回执,有人员组织等 而且可以与你的 应用程序集成
镇安县15545858891： 如果在自己的网吧搞一个 内部流言版 方便上网者留言 - ？
尚殃马来： 很简单.. 网吧有自己的服务器撒 一般最老的也是WIN2000 或都WIN 2003 的服务器系统.. 你在服务器上把IIS 安装好..然后去网上DOWN一个ASP 的留言板程式.就OK了..这个局域网的用户就能访问了.. 介意你最好去网上找怎么架设WEB服务器.方面的..其实很简单..
镇安县15545858891： 用Java做一个类似于QQ空间留言板的功能... - ？
尚殃马来： 不用数据库也能实现. 及时性的罢了;要是数据库的话:方法一(用于有条件性的,比如只显示对方发的信息) 1 user表 id , use 两列 2 messages表 id , message , message_person , use_id (外键) 四列 方法二(双方都用select * form messages查询所有信息) 1 messages表 id , message 两列
镇安县15545858891： 用asp.net和sql2008怎么做类似论坛的留言板系统 - ？
尚殃马来： 数据库建表方面给你点建议吧,数据交互想清楚了,你自己应该就能想清楚该怎么做.留言表 留言表应该具备的基本信息,用户的ID,留言主题,留言内容,留言时间.(其余字段根据你的系统来定) 回复表(这个表一般用作管理员对留言的回复) 回复表应该具备的基本信息,回复者ID,回复内容,回复时间(其余字段同上) 最简单的留言版就只需要这些字段就足够了,顺便在UI方面,推荐使用服务器分页,毕竟留言多了,客户端分页效率太低
镇安县15545858891： 局域网内要弄个asp空间,怎么搞?？
尚殃马来： 果断是新手.鉴于是新手我只说操作吧涉及编程说多了你头晕.1、安装IIS(WIN7在控制面版里自代有添加就可以了,其它要下载安装)2、网上找现成留言板(代数据库的)放到C盘相应目录3、在管理工具里启动iis服务器.输入你IP就可以访问了
镇安县15545858891： 求局域网内控制(监视)的软件? - ？
尚殃马来： 老板通,全名叫老板通员工实时监控系统. 《老板通》主要功能: 监视功能 实时监视**------可以实现对员工电脑屏幕进行实时监视,就象看自己的电脑屏幕. 九画/四画实时监视**------老板通独有的电视墙技术可以实现一屏显示九画或四画;这...
