VB自动登录检测并添加域名

郁闷，我使用的这个空间的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提交到搜索引擎，可不希望蜘蛛来爬的时候是域名未绑定哦。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!