用VB编写自动升级程序.求助

其实要写自动更新程序很简单的。。。我写过几次，这里要看你想写详细的（检测+下载），还是简单的（下载）

原理很简单，不要什么SQL。

既然要用FTP，那么需要一个控件，MSINET.ocx也就是Microsoft

Internet

Transfer

Control

6.0

这个控件的属性protocol设为ICFTP，

首先连接

FTP服务器

：

Inet1.URL

=

"你的FTP地址"

Inet1.UserName

=

"FTP用户名"

Inet1.Password

=

"FTP密码"

下载

配置文件

（检测是否需要更新）

Inet1.Execute

,

"GET

Config.ini

"

&

App.Path

&

"\Config.ini"

'下载配置文件(Config.ini)到本地，然后读取这个文件里面的内容和本地的是否是一样的，或者哪些不一样，需要下载哪些，

然后就下载需要更新的文件

Inet1.Execute

,

"GET

你要下载的文件.exe

"

&

App.Path

&

"\下载到的目录和文件名"

这样就可以实现一个简单的更新了。。。

s=trim(command())

'取得命令行参数

应该是这个形式:FastCopy.exe

网络目录名，文件名

's的返回值是

网络目录名，文件名

如:“\\liang\,myadd.exe"

'然后为了区分开目录名和文件名,就查找","号

p=instr(1,s,",")

'如果找到就分别取“,”前面的目录和后面的应用程序名。

要用HOOK+双进程才行，比较麻烦，菜鸟不合适。

可以用一个简单的办法：

建一个文本文件，叫做a.txt。

然后打开，输入：

Set a = CreateObject("WScript.Shell")

WScript.Sleep 1000

a.SendKeys "1"

保存后，把文件名改为

a.vbs

然后在桌面建一个快捷方式。

修改快捷方式的属性。

在“快捷键”中，按下F3键，然后点“确定”。

这样就实现了：

按下F3之后，1秒之后，按下一次1。

---