郁闷,我使用的这个空间的IDC商竟然每隔一段时间就要检测绑定的域名是否再未提交备案列表中,如果是就删除,但是却不检测我是否提交了备案,按照他们说法删除域名一天后才能再次绑定,否则这一天内绑定了到下次检测就会再删除。这样我就不停的在后台看,看是否被删除,如果被删除,就再把域名绑定上去,;(很受伤!
于是用VB做了个程序,自动登录检测,看域名是否被删除,删除则自动添加域名上去,每10秒检测一次。主要用到了WebBrowser
新建窗体FORM1,在窗体上建个WebBrowser和TIMER就可以了,TIMER间隔设置为10000。
以下是代码
PrivateSubForm_Load()
WebBrowser1.Navigate"http://**************/hostadm/subhostname1.asp?id=****"
EndSub
PrivateSubTimer1_Timer()
WebBrowser1.Refresh
EndSub
PrivateSubWebBrowser1_DocumentComplete(ByValpDispAsObject,URLAsVariant)
turl=WebBrowser1.LocationURL
Ifturl<>"http://**************/hostadm/subhostname1.asp?id=****"Then
Ifturl<>"http://**************/user/default.asp"Then
Ifturl<>"http://**************/user/logininfo.asp"Andturl<>"http://**************/user/hostadm.asp"Andturl<>"http://**************/hostadm/selfhostmodify.asp"Then
WebBrowser1.Navigate"http://**************/user/default.asp"
ElseIfturl="http://**************/hostadm/selfhostmodify.asp"Then
WebBrowser1.Navigate"http://**************/hostadm/subhostname1.asp?id=****"
ElseIfturl="http://**************/user/hostadm.asp"Then
WebBrowser1.Navigate"http://**************/user/hostadm2.asp?id=****&go=a"
Else
WebBrowser1.Navigate"http://**************/user/hostadm.asp"
EndIf
Else
ForEachyhxInWebBrowser1.Document.All
Ifyhx.tagname="INPUT"Then
Ifyhx.Name="username"Then
yhx.Value="****"
EndIf
Ifyhx.Name="password"Then
yhx.Value="*****"
EndIf
Ifyhx.Type="image"Then
yhx.Click
EndIf
EndIf
Next
EndIf
Else
neirong=WebBrowser1.Document.Body.innerText
IfInStr(neirong,"blog.denglijun.tw")=0Then
ForEachyhxInWebBrowser1.Document.All
Ifyhx.tagname="INPUT"Then
Ifyhx.Name="hostname3"Then
yhx.Value="blog.denglijun.tw"
EndIf
EndIf
Next
WebBrowser1.Document.modhostname.submit
writelog"yes"
EndIf
EndIf
EndSub
PrivateSubwritelog(ByValmylogsAsString)
Setfso=CreateObject("Scripting.FileSystemObject")
Settf=fso.OpenTextFile(App.Path&"/login.log",8,True)
tf.WriteLine(Now()&""&mylogs)
tf.Close
EndSub
其次我要找个电脑一直开着来运行这个程序了,因为我才把BLOG提交到搜索引擎,可不希望蜘蛛来爬的时候是域名未绑定哦。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。