伦敦奥运会奖牌榜_2012

蓝天630902

cumulonimbus 发表于 2012-9-19 15:24
蓝天老师，这几个CLASSNAME、标签你是如何找到的？根据英文的意思查找吗？这个难度有点大，英文与按钮的表 ...

<a id="post_reply" href="javascript:;" title="回复"><img src="comiis_19lou/pn_reply.png" alt="回复" /></a>
<a id="newspecial" href="javascript:;" title="发新帖"><img src="comiis_19lou/pn_post.png" alt="发新帖" /></a></div>

上面是源码里面的。
所以就按ｉｄ来点击：
        '.document.getElementByid("post_reply").Click    '回复
        '.document.getElementByid("newspecial").Click   '发新帖

蓝天630902

cumulonimbus 发表于 2012-9-19 14:08
蓝天老师，我怎么找都找不到这4个控件的标签：“回复”、“发贴”、“写好了，发布”及空白文本框的各种操作 ...

至于“写好了，发布”及空白文本框，还是看源码：
<div class="area">
<textarea rows="6" cols="80" name="message" id="fastpostmessage" tabindex="4" class="pt h85 comiis_vpbg"></textarea>
</div>
所以，“空白文本框”就这样写

.document.all.tags("textarea")(0).Value = "写好了，发布、及空白文本框："　　'空白文本框
.document.all("message").Value = "至于“写好了，发布、及空白文本框："       '空白文本框

下面是“写好了，发布”
<button type="submit" name="replysubmit" id="fastpostsubmit" class="comiis_vbtn" value="replysubmit" tabindex="5"><strong>写好了，发布</strong></button>

        '.document.getElementByid("fastpostsubmit").Click   '写好了，发布
        '.document.all("replysubmit").Click   '写好了，发布

cumulonimbus

蓝天630902 发表于 2012-9-19 15:42
至于“写好了，发布”及空白文本框，还是看源码：

谢谢，看来主要还得看源码，真的很考验功力呀。

cumulonimbus

呵呵，学到不少。到现在为止，还不知道如何关闭浮动广告。

cumulonimbus

蓝天老师，在这个网站中http://wenku.baidu.com/topic/kaixueji2012/index.html
有个抽奖，但是我弄了一上午时间都没搞定如何自动点击抽奖。
抽奖机是FLASH，如图：
蓝天老师可否指导一二么？谢谢

cumulonimbus

蓝天630902 发表于 2012-9-19 15:33
上面是源码里面的。
所以就按ｉｄ来点击：
        '.document.getElementByid("post_reply").Cl ...

蓝天老师，我的电脑有两个浏览器，一个360（默认浏览器），一个IE8，我运行如下代码
Set IE = CreateObject("InternetExplorer.Application")
        With IE
            .Visible = True
            .Navigate "http://www.tianya.cn/"
            Do Until .ReadyState = 4
                DoEvents
            Loop

于是老是跑出360浏览器来，有什么办法让代码默认打开IE8吗？谢谢

赵莲

{:soso_e191:}好贴顶上去大家学习

蓝天630902

cumulonimbus 发表于 2012-10-11 19:48
蓝天老师，我的电脑有两个浏览器，一个360（默认浏览器），一个IE8，我运行如下代码
Set IE = CreateObj ...

http://zhidao.baidu.com/question/164356845.html&__bd_tkn__=71a5593d71219d2e4b15a436a4a03ca1961780e78078338d51fed8133ea5c69d362ad36bb4bcda3b39bb3949f6bbe47087ac3af56e60b1f4e7eb6015795af9319861a1fc5b0f03de01252708d643c97b3906e9707b5dcc89a13d470b742f4720c5610d343abdabdce80d8aaccbdc8d02c23024ff4fab

cumulonimbus

蓝天630902 发表于 2012-10-11 20:29
http://zhidao.baidu.com/question/164356845.html&__bd_tkn__=71a5593d71219d2e4b15a436a4a03ca1961780e ...

谢谢老师，如果我不想改变默认浏览器，但是在运行代码中却自动开启的是另一个浏览器，代码要如何写呢？谢谢
Set IE = CreateObject("InternetExplorer.Application")
        With IE
            .Visible = True
            .Navigate "http://www.tianya.cn/"
            Do Until .ReadyState = 4
                DoEvents
            Loop

huntquasi

文件能否用vba下载??
又麻烦大师傅啦!!!
谢谢