主题：关于网页中信息的应用问题

参考

 

http://blog.csdn.net/hyholine/article/details/7313287

 

大红袍老师

 

你这个方法可行。试过可以进去。后面就是研究怎么输入密码了。多谢！

你可以用快捷键输入密码，如

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=74048&skin=0

 

大红袍老师

 

手动操作只要输入密码的控件能够获得焦点，是可以用键盘输入的。现在就是在研究怎么才能用代码，使密码输入框能够得到焦点。网页的源码如下：

 

<form id="form2" name="form2" method="post" class="loginForm">
             <p class="clearfix"><label>用户名</label><input type="text" name="UserBox" id="UserBox" class="text" value="卡号/身份证号/用户名"  style="ime-mode:inactive" /></p>
    <p class="clearfix hidden2"><label></label><span id="usernamev" class="noNull">用户名不能为空</span></p>
                <p class="clearfix fl"><label>密&nbsp;&nbsp;&nbsp;&nbsp;码</label>
           <div id="PowerEnterDiv" class="fl">
                                  <script>writePassObjectOrg("powerpass_ie",{"softkbdType":0,"accepts":"[A-Za-z0-9-]{1,30}","width":270,"height":32,"textColor":"#0000FF","backColor":"#FFFFFF","borderColor":"#cccdcc","maxLength":30,"minLength":6});</script>  
           </div>
                               <input type="hidden" name="pwdField"/><span id="EEE" style="display:none"></span>
                <a href="#" class="forgetPsdLink">忘记登录密码？</a></p>
    <p class="clearfix hidden2"><label></label><span id="passwordv" class="noNull">登录密码长度为6~30位</span></p>
                <p class="clearfix">

 

能帮忙看一下吗？多谢！

 试试

 

web.Document.getElementByID('PowerEnterDiv').focus()

 

 或者是，先让用户名获得焦点，再模拟按键输入tab把焦点移动到密码框。

大红袍老师

 

多谢！经过测试。完解决这个问题。现在只要填一下登陆码就可以了。还想请教个问题。

如果我想把网页上面那个登陆图片另存为在指定目录，要如何操作比较好，手动是可以的。但我查了很多资料，用代码都没有这个方法？

我手上有个识别图片的方法，但我要先把图片下载下来才行。

汗，试了几种方法，只能用这种笨笨的方法才行，参考

 

mark 网页截图

 

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://passport.csdn.net/account/mobileregister?action=mobileRegister")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

'取数据
Dim Img = web.Document.GetElementById("yanzheng")
Dim temp As String = Img.Style
img.style = "position: absolute; z-index: 9999; top: 0px; left: 0px"
Dim b = new Bitmap(cint(img.ClientRectangle.Width)+20, cint(img.ClientRectangle.Height))
web.DrawToBitmap(b, new Rectangle(0,0,b.width, b.height))
b.save("d:\test.gif")
img.style = temp

大红袍老师

 

可不可以把IE全屏后，用代码移动鼠标到指定的位置，然后再按鼠标右键，然后选择另存为的菜单，然后按左键选定，然后出的文件框用键盘操作就可以了。

 

有没有用代码操作鼠标的资料啊？多谢！

 不能。看17楼代码。

大红袍老师

 

你给的代码没问题，但是银行网站一定要用IE 所以，我把你的代码改了，但会报错，帮忙看一下，多谢！

 

Dim OjbIe As Object = CreateObject("InternetExplorer.Application")
With OjbIe
    .Visible = 1
    .Navigate("https://easyabc.95599.cn/SelfBank/netBank/zh_CN/entrance/logonSelf.aspx")
    Application.DoEvents
    Do While .Busy
        Application.DoEvents
    Loop
    Dim DoM As Object = .Document
    With DoM
        Dim Img = .GetElementById("img2")
        Dim temp As String = Img.Style

        img.style = "position: absolute; z-index: 9999; top: 0px; left: 0px"
        Dim b = new Bitmap(cint(img.ClientRectangle.Width)+20, cint(img.ClientRectangle.Height))
        .DrawToBitmap(b, new Rectangle(0,0,b.width, b.height))
        b.save("d:\test.gif")
        img.style = temp     
    End With
End With

测试了一下，是这句报错：Dim temp As String = Img.Style

 

 

此主题相关图片如下：2cy)wi(5xam4n1o_e8ofz8.png