易截截图软件、单文件、免安装、纯绿色、仅160KB

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

郁闷,我使用的这个空间的IDC商竟然每隔一段时间就要检测绑定的域名是否再未提交备案列表中,如果是就删除,但是却不检测我是否提交了备案,按照他们说法删除域名一天后才能再次绑定,否则这一天内绑定了到下次检测就会再删除。这样我就不停的在后台看,看是否被删除,如果被删除,就再把域名绑定上去,;(很受伤!
于是用VB做了个程序,自动登录检测,看域名是否被删除,删除则自动添加域名上去,每10秒检测一次。主要用到了WebBrowser
新建窗体FORM1,在窗体上建个WebBrowser和TIMER就可以了,TIMER间隔设置为10000。
以下是代码
Private Sub Form_Load()
WebBrowser1.Navigate "http://**************/hostadm/subhostname1.asp?id=****"
End Sub
Private Sub Timer1_Timer()
WebBrowser1.Refresh
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
turl = WebBrowser1.LocationURL
If turl <> "http://**************/hostadm/subhostname1.asp?id=****" Then
    If turl <> "http://**************/user/default.asp" Then
        If turl <> "http://**************/user/logininfo.asp" And turl <> "http://**************/user/hostadm.asp" And turl <> "http://**************/hostadm/selfhostmodify.asp" Then
        WebBrowser1.Navigate "http://**************/user/default.asp"
        ElseIf turl = "http://**************/hostadm/selfhostmodify.asp" Then
        WebBrowser1.Navigate "http://**************/hostadm/subhostname1.asp?id=****"
        ElseIf turl = "http://**************/user/hostadm.asp" Then
        WebBrowser1.Navigate "http://**************/user/hosta


相关文档:

VB中删除数组重复元素

Option Explicit
Function Delete3(Arr As Variant) As Variant
Dim i As Integer
For i = LBound(Arr) To UBound(Arr)
If i > UBound(Arr) Then Exit For
If Arr(i) = 3 Then
Do
Dim j As Integer
For j = i To UBound(Arr) - 1
......

VB 取得指定exe文件版本号

【函数】  
  GetFileVersionInfo  
   
  【操作系统】  
  Win9X:Yes  
  WinNT:Yes  
   
  【声明】  
  GetFileVersionInfo   Lib   "version.dll"     Alias   "GetFileVersionInfoA" &n ......

vb在数据库中储存图片并显示出来

 '**************************读图片文件**************************************  
  Sub   GetPicfromDB(cn   As   ADODB.Connection)  
          On   Error   Resume   Next  
          Dim   ......

vb 连接oracle数据库

         
    Dim cn As ADODB.Connection
    Dim rs     As ADODB.Recordset
    Set cn = New ADODB.Connection
    cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info= ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号