Monthly: 四月 2013
ASP实例:是否支持XmlHttp组件的判断
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论坛
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部分。大家 阅读全文...