2009年02月_tuzi_xz

原创 vb socket通信大文件端口上传（2）

今天我们来分享一下通过winsock控件，端口传输文件，以及如何确定传输完成标志。文件传输完成标志的确定是通过三次握手来确定的，首先，客户端现将文件的长度发送给服务器端，当服务器端受到文件长度之后，进入接受文件状态，同时返回一个“ｓｅｎｄ”信号给客户端。当客户端受到“ｓｅｎｄ”后，再将文件发送服务器。服务器通过接收数据的大小来计算文件是否发送完毕。下面让我们来看一下代码吧。服务

2009-02-18 11:07:00 1077

原创 vb socket通信大文件端口上传（1）

今天我们来分享一下通过winsock控件，端口传输文件，以及如何确定传输完成标志。文件传输完成标志的确定是通过三次握手来确定的，首先，客户端现将文件的长度发送给服务器端，当服务器端受到文件长度之后，进入接受文件状态，同时返回一个“ｓｅｎｄ”信号给客户端。当客户端受到“ｓｅｎｄ”后，再将文件发送服务器。服务器通过接收数据的大小来计算文件是否发送完毕。下面让我们来看一下代码吧。客户端：Pr

2009-02-18 10:58:00 2918

原创 vb socket通信 1服务器N客户端(服务器使用同一端口)（2）

vb socket通信 1服务器N客户端(服务器使用同一端口)（2）我们共享一下客户端程序，客户端程序比较简单，连接一下就可以了，呵呵客户端：Private Sub cmdConnect_Click()sckclient.RemoteHost = Trim(txtServerIP.Text) 服务IPsckclient.RemotePort = 6005 服务端口sckclie

2009-02-18 10:46:00 2223

原创 vb socket通信 1服务器N客户端(服务器使用同一端口)（1）

最近写了一个通过socket通信程序，要求1服务器N客户端(服务器使用同一端口)，下面把代码贴出来，大家分享一下：服务器端：定义常量Const BUSY As Boolean = FalseConst FREE As Boolean = True定义连接状态Dim ConnectState() As BooleanPrivate Sub Form_Load()ReDim Preser

2009-02-18 10:34:00 3507

原创如何删除文件及文件夹下的所有文件 vb

1 删除文件Kill 语句示例本示例使用 Kill 语句将磁盘中的文件删除。假设 TESTFILE是一数据文件。Kill "TestFile" 删除。将当前目录下所有 *.TXT 文件全部删除。Kill "*.TXT" kill "这里显示你要删除的文件"呵呵，简单吧。。。2 删除文件夹中的所有文件MyPath = target & "/

2009-02-17 16:26:00 7916 1

原创 sql server组无项目但sql服务可以用问题

一次系统意外关机，或不小心操作，使SQL 企业管理器下servers组下无项目，也就是说原来的服务器管理无法进行，如下图：虽然sql 企业管理器显示“无项目”但是其他人员仍然能上SQL服务器，客户端软件也能正常使用。下面就来说说如何处理。　　其实只要重新注册SQL服务就可以了（在选择服务器时选择local即可），点击上图中操作菜单，选择新建SQL server注册，出

2009-02-17 16:15:00 2871 1

filesystemobject对象不是vb内置对象，使用前必须首先选择[工程]→[引用]，在出现的窗口中选择“microsoft scripting runtime”，然后利用filesystemobject的fileexists方法来判断文件是否存在。示例程序代码如下： private sub command1_click() ′引用filesystemobject对象 dim fs as n

2009-02-17 14:43:00 1166

tuzi_xz的专栏