SET.ini
#------------------------------------------------
IP信息|密令|起始号码|Url
Url=http://127.0.0.1/g.jsp?sid=TS_And_Sid==s&u=TS_And_Id
#------------------------------------------------
VB代码部分
Open "Xd.ini" For Input As #1
Input #1, FtpTxt
'open 打开本地文件,把读取出来的文件赋予给ftptxt
TxtSplit = Split(FtpTxt, "|")
'FtpTxt(0)是IP信息,FtpTxt(1)是密令,FtpTxt(2)是起始号码,FtpTxt(3)是Url
'其中用TS_And_Sid替换SID。用TS_And_id替换ID
strPwd = TxtSplit(1)
idStart = Int(TxtSplit(2))
strURL = TxtSplit(3)
Runing = 1
Do While Runing = 1
Label1.Caption = "GET_ID:" & str(idStart) & ""
DoEvents '循环交给控制台
Sleep 1
'ip信息没有替换,要改的话类似。
NewURL = Replace(strURL, "TS_And_Sid", strPwd)
NewURL = Replace(strURL, "TS_And_Id", str(idStart))
NewURL = Replace(NewURL, " ", "")
Inet1.Execute NewURL, "GET", strFormData, strFormHead
Do While Inet1.StillExecuting
DoEvents
Sleep 1
Loop
Text1.Text = RegExpTest(Uf8ToUf(Inet1.GetChunk(0)))
idStart = idStart + 1
Loop
End Sub