vb问题，会编程的进谢谢~！

显示全部楼层 · 发表于 2009-10-29 13:54:27

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

idStart = Int(TxtSplit(1))
strURL = TxtSplit(2)
Runing = 1
Do While Runing = 1
      Label1.Caption = "GET_ID：" & str(idStart) & ""
      DoEvents '循环交给控制台
   Sleep 1

      NewURL = Replace(strURL, "Ts_Mod", 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

我想问，怎么替换TS_And_Sid为密令,

显示全部楼层 · 发表于 2009-10-29 14:43:10

不懂期待有为高手回答

显示全部楼层 · 发表于 2009-10-31 04:26:34

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

[已解决] vb问题，会编程的进 谢谢~！

[已解决] vb问题，会编程的进谢谢~！