Monthly: 四月 2013

ASP实例:是否支持XmlHttp组件的判断

ggp asp 2013-04-10 393 次浏览
ASP实例:是否支持XmlHttp组件的判断 <% On Error Resume Next Response.Write "<h3>服务XmlHttp组件支持情况:</h3>" oxml=array("Msxml2.ServerXMLHTTP.6.0","Msxml2.ServerXMLHTTP.5.0","Msxml2.ServerXMLHTTP.4.0", "Msxml2.ServerXMLHTTP.3.0","Msxml2.ServerXMLHTTP","Msxml2.XMLHTTP.6.0","Msxml2.XMLHTTP.5.0", "Msxml2.XMLHTTP.4.0","Msxml2.XMLHTTP.3.0","Msxml2.XMLHTTP") for i=0 to ubound(oxml) Set getxmlhttp = Server.CreateObject(oxml(i)) If Err Then Err.Clear Response.Write oxml(i)&" 阅读全文...

VB自动登录discuz论坛

ggp 程序 2013-04-01 487 次浏览
Private Sub Command1_Click() WebBrowser1.Navigate "http://www.xxx.com/logging.php?action=login" ’这里是登陆页面 End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Set doc = WebBrowser1.Document Dim i As Integer ’设置一个长度未知变量 For i = 0 To doc.All.length - 1’给i赋值 If UCase(doc.All(i).tagname) = "INPUT" Then’寻找input部分 Set Item = doc.All(i) If Item.Type = "text" Or Item.Type = "password" Then’在input部分里寻找type问text或者type为password部分。大家 阅读全文...
回顶部