网站 › 『 编程之美 』 › 本期编程专题——论坛宠物插件外挂的编写

fonge 发表于 2007-10-8 19:31:17

LevelStr := Edit3.Text;
webAddress := 'https://www.chinapyg.com/pet.php?index=petpknpc&mapid=' + LevelStr;
WebBrowser1.Navigate(webAddress);如果连续出现怪物攻小于自己防1000时X次后，levelstr=IntToStr(StrToInt(levelstr)+1)
即跳到下一地方去打，如果在某一张表逃跑N次，levelstr=IntToStr(StrToInt(levelstr)-1)
返回上一张表

fonge 发表于 2007-10-9 11:27:57

老虎程序是异常来源是：
网页还没有完全打开，
strHtml:=RightStr(strHtml,Length(strHtml)-Pos('名称',strHtml)-8);
这一句执行时strhtml的长度不够，然后Pos(名称）出错

caterpilla 发表于 2007-10-9 11:58:30

原帖由 fonge 于 2007-10-9 11:27 发表 https://www.chinapyg.com/images/common/back.gif
老虎程序是异常来源是：
网页还没有完全打开，
strHtml:=RightStr(strHtml,Length(strHtml)-Pos('名称',strHtml)-8);
这一句执行时strhtml的长度不够，然后Pos(名称）出错
delphi写的啊，赞一个！！！！:lol: :lol: :lol:

Gue 发表于 2007-10-9 12:36:19

可以检测一下strhtml的长度,如果不在可以接受的范围内就等一下..然后对于长时间都得不到正确长度的数据进行下处理,应该可以解决这个问题

caterpilla 发表于 2007-10-9 13:10:50

原帖由 fonge 于 2007-10-9 11:27 发表 https://www.chinapyg.com/images/common/back.gif
老虎程序是异常来源是：
网页还没有完全打开，
strHtml:=RightStr(strHtml,Length(strHtml)-Pos('名称',strHtml)-8);
这一句执行时strhtml的长度不够，然后Pos(名称）出错
可以试试判断HTTP状态返回码来决定是否传输成功。

fonge 发表于 2007-10-9 20:31:57

是长度不够，下载的字节还没有到达‘名称’那里...

笨鸟我先飞 发表于 2007-10-11 11:06:02

现在老虎的源码在什么地方啊？

caterpilla 发表于 2007-10-11 11:53:40

原帖由 笨鸟我先飞 于 2007-10-11 11:06 发表 https://www.chinapyg.com/images/common/back.gif
现在老虎的源码在什么地方啊？
没见过，同问下。:lol: :lol: :lol:

fonge 发表于 2007-10-12 21:11:27

在我这里,从他第一个版本来现在的极大功能版本，
不过好像最新的还在他手里...

黑夜彩虹 发表于 2007-10-13 19:44:11

最新版本在我这里，/:017

查看完整版本: 本期编程专题——论坛宠物插件外挂的编写