【【【求助】】】如何向服务器中的111.txt写文件?

yunok 2004-06-16 08:40:19
最近写了一个反弹木马,利用了www.weesky.com/111.txt来做中转。读取这个txt的时候我使用WebBrowser1控件来读取。用
Text1.Text = WebBrowser1.Document.All(i).innerText 来实现。速度很快。

现在的问题是:我不知道如何向www.weesky.com/111.txt中快速写入文字。(要快速!)不要Ftp上传一个111.txt覆盖。
不知各位大侠可有好的方法。请您指点。非常感谢!
(另外,如果有更快的显示 /111.txt中内容的方法,也请您指点。^_^ )
...全文
146 点赞 收藏 26
写回复
26 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yunok 2004-06-16
就这样了,谢谢啦。揭贴
回复
yunok 2004-06-16
Option Explicit
Dim FSO As New FileSystemObject
Private Sub Form_Load()
Dim f
Set f = FSO.OpenTextFile("\\www.weesky.com\Sample.txt", forreading, -2)
Text1.Text = f.readall
f.Close
End Sub
哦??不会吧哥哥。可是我这里却是报Path not found 啊!
回复
online 2004-06-16
没有问题啊
这是文件内容
adsf33434555
回复
yunok 2004-06-16
龙卷风兄,我这个程序写完后会公布源代码,我出些时间加点注释整理。感谢您的帮助。:)
回复
yunok 2004-06-16
龙卷风兄,还有一点点问题:
Option Explicit
Dim FSO As New FileSystemObject
Private Sub Form_Load()
Dim f
Set f = FSO.OpenTextFile("\\www.weesky.com\Sample.txt", forreading, -2)
Text1.Text = f.readall
f.Close
End Sub
仍然出错,文件未发现。您试试看。
而 Set f = FSO.OpenTextFile("c:\222.txt", forreading, -2) 就没问题,不知道我哪里写错了
回复
online 2004-06-16
fso解决的????
顺便贴一些代码,整理一下
回复
yunok 2004-06-16
哦,还有一点点,
Option Explicit
Dim FSO As New FileSystemObject
Private Sub Form_Load()
Dim f
Set f = FSO.OpenTextFile("\\www.weesky.com\Sample.txt", forreading, -2)
Text1.Text = f.readall
f.Close
End Sub
仍然出错,文件未发现。您试试看。
回复
weesky 2004-06-16
呵呵。揭贴了。再次感谢!
回复
weesky 2004-06-16
龙卷风兄,非常感谢。很好用的。
回复
weesky 2004-06-16
Thanks!问题解决了。
回复
online 2004-06-16
呵呵
我建议你先把asp程序运行一下,熟悉熟悉看看怎样提交的
回复
online 2004-06-16
不知您说的“把要写得内容作为asp的参数传递过去”,不知道您是怎样做的。
<FORM Action=EditDsp2.asp Method=POST>
就是这种提交到editdsp.asp,然后这个文件作处理

试试
Set f = FSO.OpenTextFile("\\www.weesky.com\111.txt", forreading,-2)
Set f = FSO.OpenTextFile("\\192.168.0.1\111.txt", forreading,-2)




回复
weesky 2004-06-16
哦,pigpag兄,你说的是把Sample.txt读出后当成参数传给EditDsp2.asp是吗?
可是我还是不太明白,和程序的要求仍然不符啊
回复
weesky 2004-06-16
pigpag(噼里啪啦 - 小pig:FAQ没了,大家踊跃提交啊) 兄:
不知您说的“把要写得内容作为asp的参数传递过去”,不知道您是怎样做的。

龙卷风兄:
Set f = FSO.OpenTextFile("\\www.weesky.com\\111.txt", forreading) 始终告诉我文件没有找到。晕死。
回复
weesky 2004-06-16
唔.......
我再试试看。Thanks 2位仁兄。
回复
online 2004-06-16
没有测试
使用FSO对象,和访问本地文件没有什么区别
用Microsoft Scripting Runtime
Option Explicit
Dim FSO As New FileSystemObject
Private Sub Form_Load()
dim f
set f=FSO.OpenTextFile("\\www.weeksky.com\\file",forreading)
text1.text=f.readall
f.close
nd sub

回复
pigpag 2004-06-16
支不支持就看你对Internet来宾帐号的权限设定。直接通过http写文件的做法是没有的。用asp是个好办法。你把要写得内容作为asp的参数传递过去,让asp在那边本地读写。
回复
weesky 2004-06-16
龙卷风兄,你的方法是很不错。但您等于是完全使用了asp来操作读写的,我写的这个木马是由服务端发出请求,连接www.weesky.com的主机,并向111.txt写东西的。您这样用asp写的话,我想不能达到我想做的目的。 况且,主机要是不支持Fso呢?
回复
frankwong 2004-06-16
to online:能否使用windows应用程序直接读写主页空间上的文本文件,我之前发了一个贴,你的回答也是这样,不过我觉得不适合我,请指教,谢谢
回复
weesky 2004-06-16

我试试看先。谢谢龙卷风兄。:)
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告