189 8069 5689
s=trim(command())
创新互联公司"三网合一"的企业建站思路。企业可建设拥有电脑版、微信版、手机版的企业网站。实现跨屏营销，产品发布一步更新，电脑网络+移动网络一网打尽，满足企业的营销需求！创新互联公司具备承接各种类型的网站设计、网站制作项目的能力。经过十年的努力的开拓，为不同行业的企事业单位提供了优质的服务，并获得了客户的一致好评。
'取得命令行参数
应该是这个形式:FastCopy.exe
网络目录名，文件名
's的返回值是
网络目录名，文件名
如:“\\liang\,myadd.exe"
'然后为了区分开目录名和文件名,就查找","号
p=instr(1,s,",")
'如果找到就分别取“,”前面的目录和后面的应用程序名。
ADO控件与数据库连接代码如下Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Command1_Click() '插入数据： If rs.State adStateClosed Then '检查记录集状态 rs.Close End If rs.Open "insert into T_user(name,age) values('" txtname.Text "'," txtage ")", conn, adOpenDynamic, adLockBatchOptimistic If rs.State adStateClosed Then rs.Close End If '更新DataGrid1数据 rs.Open "select * from T_user", conn, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = rs End Sub Private Sub Form_Load() conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\hb\桌面\db1.mdb;Persist Security Info=False" conn.CursorLocation = adUseClient '游标放在客户端 rs.CursorLocation = adUseClient rs.Open "select * from T_user", conn, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = rs End Sub Private Sub Form_Unload(Cancel As Integer) rs.Close '释放 conn.Close Set rs = Nothing Set conn = Nothing End Sub
微软有 Smart Device 这个东西——好像是叫这个吧。
它好像是通过 WebService 去查询最新版本，然后需要的时候下载。
vb.net生成的exe文件要在没有安装vb的电脑上运行是可以的，但有条件：
1.
要安装
.net
framework2.0或以上版本，然后就可以直接运行exe
2.
利用vb打包项目，生成可安装的exe文件或绿色直接可执行的exe文件
3.
不喜欢vb6可以删除之，但必须再安装同类型的.net的ide产品后也可以
我自己写过一个这样的程序，但是由于我有商业用途，不方便给你源代码，给你点思路吧。
1、在你的网站上放一个可以存放文件版本信息的txt文件。
2、当打开你的程序时，先下载这个文件（这个步骤在网上搜索一下，很多这方面的资料）
3、读取该文件中的版本信息，如果与当前本机版本信息不符，启动中间升级程序，用第二步中的方法下载新的exe文件。并且记得关闭你正在运行时的vb程序，为了后面替换用。
4、检查新下载的文件完整性，然后替换该文件。