vb6如何输出text里的内容到指定的文本文档里？

Question

我想做一个exe的程序，里面有两个text，一个按钮。在两个text里面输入文字后点击按钮就会把这两个text里面的内容保存到指定的文本文档里，请问如何实现？详细点。把这个程序放到其他电脑也可以保存在我的电脑指定的文本文档里吗？

Answer 1

sub command1_click()
open "D:\1.txt" for output as #1 '这里的路径和文件名是一个示例
print #1, "text1=" & text1.text
print #1, "text2=" & text2.text
close #1
end sub

在别人电脑上怎么可能直接存到你的电脑里呢？不要做梦了

追问

其实我是想弄个钓鱼软件，发 邮 箱 的方法应该可以吧，代码应该怎么样？ 详细点。

追答

Sub Waiting()
Dim PauseTime, Start
PauseTime = 30
Start = Timer
Do While Timer < Start + PauseTime And Not Answerf
DoEvents
Loop
Answerf = False
End Sub

Function MyAsc(OneChar)
If OneChar = "" Then MyAsc = 0 Else MyAsc = Asc(OneChar)
End Function

后面太长了这里写不下

太长了写不下，我分成4段话百度hi给你了，看一下，有问题再问