论坛风格切换
正版合作和侵权请联系 sd173@foxmail.com
 
  • 帖子
  • 日志
  • 用户
  • 版块
  • 群组
帖子
购买邀请后未收到邀请联系sdbeta@qq.com
  • 2643阅读
  • 4回复

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

上一主题 下一主题
离线依然
 
发帖
*
今日发帖
最后登录
1970-01-01
只看楼主 倒序阅读 使用道具 楼主  发表于: 2009-10-29 14:25:35
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为密令,
离线王者
发帖
*
今日发帖
最后登录
1970-01-01
只看该作者 沙发  发表于: 2009-11-05 09:35:07
Re:VB问题 会编程的帮个忙 谢谢~
建议你和专业人士好好谈谈
离线加贝518

发帖
26274
今日发帖
最后登录
2015-10-24
只看该作者 板凳  发表于: 2009-11-05 11:05:27
Re:VB问题 会编程的帮个忙 谢谢~
可以去找找专业的编程论坛

离线加贝518

发帖
26274
今日发帖
最后登录
2015-10-24
只看该作者 地板  发表于: 2009-11-05 11:07:10
Re:VB问题 会编程的帮个忙 谢谢~
上这个论坛逛逛吧

也许收获不少的

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

发帖
1894
今日发帖
最后登录
2020-07-28
只看该作者 地下室  发表于: 2009-11-05 13:24:47
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