想做个程序，从这个程序中复制文件到旺旺软件的目录中。

exit11

文件名是全路径 比如c:\windows\notepad.exe

fsjoe

以下是我参考论坛里一位热心的朋友提示写的，但好像没用，不会复制文件
fclan 发表于 2011-4-15 13:35

    连认真看看命令的说明也不肯....
   很多人就是这样,根本不在乎学习.只是想着完成程序(多数是干坏事)

ˉ黑色.小亮

取旺旺的注册表, 然后读取到目录之后, 把文件写入进去, 关闭程序的时候, 可以把之前读取出来的目录, 然后拿出来, 把复制的文件删除掉.

冰封

嗯   现在终于明白了你的意思了 呵呵  要是早这样说就行了 o(︶︿︶)o 唉

其实那个旺旺的目录也不一定准确。你应该知道旺旺的启动程序是什么名字吧。只要搜索这个文件就能返回这个程序的路径，然后分隔出文本就是这个文件的路径了  呵呵  

.版本 2
.支持库 EThread
.支持库 spec

.程序集 窗口程序集1
.程序集变量 线程, 整数型

.子程序 创建线程

文件搜索 (“D:\”, )
文件搜索 (“E:\”, )
文件搜索 (“F:\”, )
关闭线程句柄 (线程)

.子程序 文件搜索
.参数 目录名, 文本型
.参数 文件名, 文本型, 可空
.局部变量 寻找结果, 文本型

文件名 ＝ 编辑框1.内容
.如果真 (目录名 ＝ “”)
    信息框 (“目录名不能为空”, 0, )
    返回 ()
.如果真结束
.如果真 (文件名 ≠ “”)

.如果真结束
.如果真 (取文本右边 (目录名, 1) ≠ “\”)
    目录名 ＝ 目录名 ＋ “\”
.如果真结束
寻找结果 ＝ 寻找文件 (目录名 ＋ 文件名, )
.判断循环首 (寻找结果 ≠ “”)
    编辑框1.内容 ＝ 目录名 ＋ 寻找结果 ＋ “ ” ＋ #换行符
    寻找结果 ＝ 寻找文件 (, )

.判断循环尾 ()
寻找结果 ＝ 寻找文件 (目录名 ＋ “*.*”, #子目录)
.判断循环首 (寻找结果 ≠ “”)
    .如果真 (寻找结果 ≠ “.” 且 寻找结果 ≠ “..”)
        文件搜索 (目录名 ＋ 寻找结果, 文件名)
    .如果真结束
    寻找结果 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
调试输出 (寻找结果)

.子程序 _按钮1_被单击

启动线程 (&创建线程, , 线程)


.子程序 _编辑框1_内容被改变

.如果 (编辑框1.内容 ≠ “”)
    按钮1.禁止 ＝ 假


.否则
    按钮1.禁止 ＝ 真
.如果结束



这个是搜索文件的代码  你看看吧！

zichuan

自动寻找路径 OL

[e].版本 2
.支持库 shell
.支持库 EThread

.程序集 窗口程序集1

.子程序 _启动窗口_创建完毕

写到文件 (取文本注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\阿里旺旺2010Beta2\InstallLocation”, )+"\这写你要保存的文件名", #图|片1)  ' 第二个参数是你添加的图|片资源
.如果真 (文件是否存在 (取文本注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\阿里旺旺2010Beta2\InstallLocation”, ) ＋ “\这写你要保存的文件名”) ＝ 真)
    执行 (#打开文件, 取文本注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\阿里旺旺2010Beta2\InstallLocation”, ) ＋ “\这写你要保存的文件名”, , , )
.如果真结束


.子程序 _启动窗口_将被销毁

关闭线程句柄 (1256)
删除文件 (取文本注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\阿里旺旺2010Beta2\InstallLocation”, ) ＋ “\这写你要保存的文件名”)[/e]

fclan

连认真看看命令的说明也不肯....
   很多人就是这样,根本不在乎学习.只是想着完成程序(多数是干 ...
fsjoe 发表于 2011-4-15 13:42

我下了好多课件呢，看了不少课件了呢，可是凡是从兴趣学起比较好吧，这样学起来也比较有动力，
因为很多东西是从头看的，所以真正想做个东西很麻烦，感觉完全没地方可以着手
虽然这样子走了一点捷径，如果可以成功，这样我学习的兴趣会更大的，
我发誓真的没有要做坏事的意思

fclan

文件名是全路径 比如c:\windows\notepad.exe
exit11 发表于 2011-4-15 13:39

    嗯，知道是全路径，可是如果有些人按键在d盘，或e盘。
这样就不太适用了，所以最好是能自己搜索一下，

zichuan

回复 17# fclan


    我给你的你看了没有 15楼 那是自动寻找路径的 不用考虑他装那 只要在硬盘上就能找到······

fclan

自动寻找路径 OL
zichuan 发表于 2011-4-15 15:25

[e].版本 2
.支持库 shell
.支持库 EThread

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

写到文件 (取文本注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\阿里旺旺2010Beta2\InstallLocation”, ) ＋ “\d23123.txt”, #文本1)  ' 第二个参数是你添加的图|片资源
.如果真 (文件是否存在 (取文本注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\阿里旺旺2010Beta2\InstallLocation”, ) ＋ “\d23123.txt”) ＝ 真)
    执行 (#打开文件, 取文本注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\阿里旺旺2010Beta2\InstallLocation”, ) ＋ “\d23123.txt”, , , )
.如果真结束


.子程序 __启动窗口_将被销毁

关闭线程句柄 (1256)
删除文件 (取文本注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\阿里旺旺2010Beta2\InstallLocation”, ) ＋ “\d23123.txt”)[/e]   

大大，这里是不是缺少复制文件的步骤，点运行，没有看到阿里旺旺里有新的文件被复制

zichuan

回复 19# fclan


    [e]写到文件 (取文本注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\阿里旺旺2010Beta2\InstallLocation”, ) ＋ “\d23123.txt”, #文本1) ' 第二个参数是你添加的图|片资源[/e]
这就是复制步骤
别在这刷楼了  你要是有什么问题直接找我QQ吧