VB读入TXT文件的问题
各位老师好，我是一个VB的初学者，问题有点幼稚，望各位赐教
现在想做一个博客的自动评论小程序，在网上找了一下，学着写了一段这样的代码，点一下按钮已经可以发一次评论了。代码如下：
－－－－－－－－－－－－－－－－－－－－－－－－
用了一个Command1和WebBrowser1控件
－－－－－－－－－－－－－－－－－－
Private Sub Command1_Click()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT " Or UCase(vDoc.All(i).tagName) = "TEXTAREA " Then
Set vTag = vDoc.All(i)
If vTag.Name = "oblog_edittext " Then vTag.Value = "好文章 " '这里是评论的内容，要求能从reply.txt随机读取
If vTag.Type = "text " Then
Select Case vTag.Name
Case "strWriter "
vTag.Value = "sanderyly "
'Case "PicDesc "
'vTag.Value = " "
End Select
ElseIf vTag.Type = "password " Then
Select Case vTag.Name
Case "strPassword "
vTag.Value = "012345678 "
End Select
End If
If vTag.Type = "submit " Then '找到发表按钮。
vTag.Select
vTag.Click
End If
End If
Next i
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.newchinablog.com/u/5145/archives/2007/33335.html " '软件一启动就导航到这个地址
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
要求解决的问题：
1、现在想让评论的内容自动从reply.txt文件中读取，reply.txt文件中的评论的内容是以*隔开，如下格式：
好文章*顶一下*顶*好*路过 ……
要求随机调用评论的内容。
2、要求做一个时间段输入框，如输入100－200后，程序就随机从100－200秒之间的时间（如123秒），自动评论一次，如此循环
谢谢
[解决办法]
第二个问题是有关随机函数的使用：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Int((200-100+1)*Rnd+100)就可以生成100到200之间的数了
[解决办法]
产生随机数前要加randomize timer
否则每次产生的随机数都一样
[解决办法]
强贴,蹭分
