|
发表于 2009-5-17 02:12:53
|
显示全部楼层
<div class="msgheader">QUOTE:</div><div class="msgborder"><b>
<p><font face="Verdana">Option Explicit</font></p>
<p><font face="Verdana">Private Sub Command1_Click()<br/> On Error Resume Next<br/> Dim X As Object, ctrlRange As Object, I As String<br/> <br/> For Each X In WebBrowser1.Document.All<br/> I = "": I = X.src<br/> If I = "http://www2.10010.com/getImage.jsp" Then<br/> Set ctrlRange = WebBrowser1.Document.body.createControlRange()<br/> ctrlRange.Add X<br/> Clipboard.Clear<br/> ctrlRange.execCommand "Copy"<br/> Set Picture1.Picture = Clipboard.GetData<br/> Exit For<br/> End If<br/> Next<br/>End Sub</font></p>
<p><font face="Verdana">Private Sub Form_Load()<br/> WebBrowser1.Navigate "http://www2.10010.com/simPwdReset/simPwdResetMain.jsp"<br/>End Sub</font></p></b></div>
<p>一个WEB控件,一个按钮,一个图片,名称都是默认.</p> |
|