this.webBrowser1.ObjectForScripting = this; this.webBrowser1.DocumentText = "" + ""; this.webBrowser1.Document.InvokeScript("getUin");2.WebBrowser常用属性
.Navigate(new Uri(address)); //打开链接
.Refresh();//刷新 .GoBack();//后退 .GoForward();//前进 .Dock = DockStyle.Fill; //完全停靠在父容器中 .ScriptErrorsSuppressed = true ; //关闭错误显示 Uri a = new Uri(WebBrowser.Document.ActiveElement.GetAttribute("href"));//获取点击中的链接地址 3、WebBrowser常用事件处理 .Navigated += new WebBrowserNavigatedEventHandler(WebBrowser_Navigated);//加载中处理事件 .DocumentCompleted += new WebBrowserDocumentCompletedEventHandler(WebBrowser _DocumentCompleted);//页面加载完成处理事件 .NewWindow += new CancelEventHandler(WebBrowser _NewWindow);//新的窗口中打开页面 4、事件处理函数 5.打开新连接// Navigates to the given URL if it is valid. private void Navigate(WebBrowser web,String address) { if (String.IsNullOrEmpty(address)) return; if (address.Equals("about:blank")) return; if (!address.StartsWith("http://")) address = "http://" + address; try { WebBrowser.Navigate(new Uri(address)); } catch (System.UriFormatException) { return; } // Updates the URL in TextBoxAddress upon navigation. private void webBrowser1_Navigated(object sender, WebBrowserNavigatedEventArgs e) { toolStripTextBox1.Text = WebBrowser.Url.ToString(); } }6、新窗口处理
private void WebBrowser_NewWindow(object sender, CancelEventArgs e) { WebBrowser webb = new WebBrowser(); WebBrowser = WebBrowsers[webtab.SelectedIndex]; webb.Name = "webb" + webtab.TabCount; Uri a = new Uri(WebBrowser.Document.ActiveElement.GetAttribute("href")); webb.Url = a; webb.Dock = DockStyle.Fill; TabPage p = new TabPage(); p.Controls.Add(webb); webtab.TabPages.Add(p); webtab.SelectedTab = p; webb.NewWindow += new CancelEventHandler(WebBrowser_NewWindow); e.Cancel = true;//取消在默认浏览器中打开 }7、用户自动登陆处理
#region 用户自动登陆private void WebBrowser_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e){ HtmlDocument log_auto = WebBrowser.Document; HtmlElement log_btn = null; foreach (HtmlElement em in log_auto.All) //轮循 { string str = em.Name; string id = em.Id; if ((str == "username") || (str == "password") || (str == "submit")) //减少处理 { switch (str) { case "username": em.SetAttribute("value", usernamexml); break; //赋用户名 case "password": em.SetAttribute("value", userpasswordxml ); break; //赋密码 case "submit": log_btn = em; break; //获取submit按钮 default: break; } } } log_btn.InvokeMember("click"); //触发submit事件 }#endregion public static Image GetRegCodePic(WebBrowser wbMail) { HtmlElement yy = (HtmlElement)wbMail.Document.Body.DomElement; HTMLDocument doc = (HTMLDocument)wbMail.Document.DomDocument; HTMLBody body = (HTMLBody)doc.body; IHTMLControlRange rang = (IHTMLControlRange)body.createControlRange(); int m = GetPicIndex(wbMail, "getimage"); if (m != -1) { IHTMLControlElement img = (IHTMLControlElement)wbMail.Document.Images[m].DomElement; rang.add(img); rang.execCommand("Copy", false, null); Image RegImg = Clipboard.GetImage(); Clipboard.Clear(); return RegImg; } else { return null; } } public static int GetPicIndex(WebBrowser wbMail, string Src) { int imgnum = -1; for (int i = 0; i < wbMail.Document.Images.Count; i++) //获取所有的Image元素 { IHTMLImgElement img = (IHTMLImgElement)wbMail.Document.Images[i].DomElement; MessageBox.Show(img.src); if (img.src.Contains(Src)) return i; } return imgnum; }
c#操作excel:
vs2010操作Excel
要求将数据显示在Excel表中,并且要设好数据格式。虽说如此,真正实现了自己的功能,还是费了不少时间。相信还是有很多与我相似的人需要实现这种功能。那就做个小结吧。不妥之处,请指正哦。 1.添加引用--com---microsoft excel 11.0 object library 2在需要访问excel的过程中定义 dim exapp as excel.application '定义excel应用程序 dim exbook as excel.workbook ‘定义工作簿 dim exsheet as excel.worksheet ‘定义工作表 dim exrange as excel.range '定义工作区域 3.有了上面的定义,基本上excel的操作就手到擒来了 exapp.visible=true '显示excel 程序 exbook=exapp.workbooks.add '添加新工作簿 或exbook=exapp.workbooks.open("薄名") / 打开已在工作薄 exsheet=exbook.sheets(n) '获得第n个工作表的控制句柄,后面就由它处理了 exsheet.cells(row,col)=值 '对指定单元格赋值,这个操作大量出现哦 exsheet.range(cells,cells).font '这个属性也常用到,设置格式就是它了: exsheet.range(cells,cells).font.colorindex=3 '设置颜色 exsheet.range(cells,cells).Borders.LineStyle=1'设边框线 exsheet.range(cells,cells).EntireColumn.AutoFit '自动列宽 /可以改为自动行高哦 exsheet.range(cells,cells).merge '合并单元格,复杂的表格这个也用的多哦 exsheet.range(cells,cells).HorizontalAlignment=3 '水平居中 ,当然也可以改为垂直的 exSheet.PageSetup.Orientation = 2 '页面横向 熟练以上这些,基本上就可以实现一些要求了。 4。最后是保存文件 exsheet.saveas("文件名") 或 exbook.save 5.清理变量 exsheet=nothing exbook.close exbook=nothing exapp.quit exapp=nothing