http://blog.sina.com.cn/cnnbmh[订阅]
个人资料
分类
    内容读取中…
评论
读取中...
访客
读取中...
博文
 方法   说明    
         GoBack   相当于IE的“后退”按钮,使你在当前历史列表中后退一项    
           
         GoForward   相当于IE的“前进”按钮,使你在当前历史列表中前进一项    
         GoHome   相当于IE的“主页”按钮,连接用户默认的主页    
         GoSearch   相当于IE的“搜索”按钮,连接用户默认的搜索页面    
         Navigate   连接到指定的URL    
         Refresh   刷新当前页面 &nb
webbrowser:
示例:
For To WebBrowser1.Document.All.length 1
     If WebBrowser1.Document.All(i).tagName 'HTML' Then
        strContent strContent WebBrowser1.Document.All(i).innerHTML
        Exit For
      End If
Next

inet:
示例:
方式一 Inet1.OpenURL(strUrl,   icByteArray)
方式二 Inet1.Execute strUrl, 'GET'
我个人比较倾向使用第二种,虽然麻烦点,但对中文字符的处理以及运行过程中出现的错误都比较容易控制,

xmlhttp:
示例:
Set xmlobject CreateObject('Microsoft.XMLHTTP')
xmlobject.Open 'GET', strURL, False
xmlobject.Send 
If xmlobject.readyState 

<Html>  
  <Head>  
  </Head>  
  <Body>  
  <OBJECT   classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2   height=0   id=WebBrowser   width=0>    
   </OBJECT>    
   <input   onclick=document.all.WebBrowser.ExecWB(1,1)   type=button   value=打开   name=Button1>    
   <input   onclick=document.all.WebBrowser.ExecWB(4,1)   type=button   value=另存为   name=Button2>    
   <input   onclick=document.all.WebBrowser.ExecWB(10,1)   type=button   value=属性   name=Button3>    
   <input   onclick=document.all.WebBrowser.ExecWB(6,1)   type=button   value=打印   name=Button>    
   <input   onclick=document.all.WebBrowse

一、用Webbrowser
代码:Webbrowser.navigate ('http://xxx/1.htm?name=apple&id=001')
二、用Inet (注意数据接收方式是POST还是GET ,具体的方式是在1.htm的<form>...</form>中
代码:(post方式)
1、设定数据头:
strSendHeader = 'POST /hotbuy/myhotbuy.php HTTP/1.1' & vbCrLf
strSendHeader = strSendHeader & 'Content-Type: application/x-www-form-urlencoded ' & vbCrLf
strSendHeader = strSendHeader & 'Content-Length: ' & iSendLength & vbCrLf
2、设定要发的数据:
strsenddata= 'name=apple&id=001'
3、发送地址:
strsendadd='http://xxx/1.htm
3、发送数据:
Inet.execute strsendadd,'POST',strsenddata,strsendHead
Inet (Get方式) GET方式比POST简单的多
代码:
strsenddata = 'http://xxx/1.htm?apple&id=001'
Inet.execute strsenddata,'GE

以摩托罗拉的九月大奖赛为例,下面介绍用 VB实现带校验码的网页表单的自动提交。我们现看看摩托罗拉的投票页面:http://www.motorola.com.cn/news/925/photo.asp?id={525147E1-C4A7-41EE-9190-95800AC81E29}

如果要对用户投票的话就必须先填写验证码!由于验证码是图片,而且是随即的,所以对自动提交数据增加了很大的难度。因此,如果要提交投票就必须先得到验证码!

难点:(1)取得验证码图片并识别成相应数据;(2)提交数据表单。

首先我们来剖析一下本页面的 HTML 源代码,代码如下:

… …
<table>
<form name='form1' method='post' action='photo_vote.asp'>
<input type='hidden' name='id' value='{525147E1-C4A7-41EE-9190-95800AC81E29}'>
<tr>
<td>请输入4位数字验证码: <input type='text' name='CheckCode' size=4>&

10条近期注意事件(2008-10-23 16:56)

1.不要辞职,不要换工作,不要转行,不要创业;

2.多备份几个自己可以去的公司职位;

3.不主动要求老板涨工资,裁员往往会从工资高的裁起;

4.多帮朋友留意工作机会,多介绍,轮到自己找工作时,才会有朋友帮你;

5.存钱,买国债,或者双币存款,别买股票;

6.每月给父母寄钱,经济不好,越穷的人越难过;

7.别买车;

8.危机的后期才最难过;

9.别离婚,别生小孩;

10.别找小三。

ShowModalDialog函数的功能:
打开一个子窗口,并且可与父窗口相互传递数据,它与window.open的最大区别就在于由ShowModalDialog打开子窗口后,父窗口将不能操作。
使用方法:
vReturnValue = window.showModalDialog(sURL [, vArguments] [, sFeatures])
参数说明:
sURL
必选参数,类型:字符串。用来指定对话框要显示的文档的URL。
vArguments
可选参数,类型:变体。用来向对话框传递参数。传递的参数类型不限,包括数组等。对话框通过window.dialogArguments来取得传递进来的参数。
sFeatures
可选参数,类型:字符串。用来描述对话框的外观等信息,可以使用以下的一个或几个,用分号“;”隔开。
        dialogHeight 对话框高度,不小于100px,IE4中dialogHeight 和 dialogWidth 默认的单位是em,而IE5中是px,为方便其见,在定义modal方式的对话框时,用px做单位。
   dialogWidth:

    今晚的CCTV3《欢乐中国行》突然出现好几位美女歌手,还是以前都没有见过的,中国的歌坛怎么一下子出现这么多美女啊,一定是我眼花了吧。

    不过我们的娱乐界是应该多包装一些美女和帅哥,别总是让那些没眼光的哈韩族整天以为高丽棒子的人工霉女就是天下第一了。

完了,要入不敷出了(2008-09-28 20:33)

    昨天局里开会,宣布今年开始年收入比去年减少5万,彻底抓狂,按我现在每月的支出,估计以后就是过着入不敷出的日子了,让我减少开支有点不现实。想想每天这么忙碌的工作还值得不值得,也许该考虑做点其他什么项目了。那些下令减少我们这么多收入的“上层人”也太变态了,物价涨得这么厉害,却要减少我们的薪金。

奶粉也太不象话了(2008-09-17 20:28)

    国产的基本不能吃了,幸好我们家宝宝一直是喝雅培的。今天早上新闻一看,有点不对头啊,中午吃了饭马上赶去商场里,一看发现雅培2阶段的已经卖脱销,1阶段的只剩下7听,再看,我晕死,前天看的1阶段是193多点,今天已经改为205多点,2阶段前天是170多点,今天是193多点了。价格也不管他了,剩下的那1阶段7听我全要了,不然估计就买不到了,我那可怜的宝宝不是要饿肚子了吗。

    中国的乳业算是彻底完了,谁还会相信那些人啊!