[求助-软件问题]VB问题 会编程的帮个忙  谢谢~ [复制链接]

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为密令,

建议你和专业人士好好谈谈

可以去找找专业的编程论坛

上这个论坛逛逛吧

也许收获不少的

http://www.programbbs.com/bbs/forum21-1.htm

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