2012 年 5月 2 日随笔档案 - luyichuan_123

vb webbrowser不弹出新窗口,且在原窗口打开新链接

摘要： vb webbrowser不弹出新窗口,且在原窗口打开新链接代码1：Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Dim frm As Form1Set frm = New Form1frm.Visible = TrueSet ppDisp = frm.WebBrowser1.objectEnd Sub 代码2：Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Cancel = TrueWebBrowser1 阅读全文

posted @ 2012-05-02 16:58 luyichuan_123 阅读(1299) 评论(0) 推荐(0) 编辑

vb如何获取百度验证码图片

摘要：本工程需要Microsoft Internet Transfer Control 6.0控件'-----------------------窗体上一个inet、一个picture、一个commandPrivate Sub Command1_Click() Dim Buff() As Byte Inet1.URL = "https://passport.baidu.com/?verifypic" Buff() = Inet1.OpenURL(, icByteArray) p = App.Path + "\temp.jpg" Open p For B 阅读全文

posted @ 2012-05-02 16:57 luyichuan_123 阅读(761) 评论(0) 推荐(0) 编辑

2012年5月2日

公告