程序說明  

上一個版本是昨天晚上寫的,這個版本是今天早上在昨天寫的版本的基礎上增加的:  

1.調試時輸出當前時間,方便看哪里出了問題延時時間比較長,并可以記錄程序運行的總時間;  

2.綁定搜狗的窗口句柄,在地址欄寫入網址;  

3.隨機生成二級域名的前綴與二級域名,并保存在本地C盤目錄下;  

4.優化識別域名重復錯誤時的"忽略錯誤"的點擊;  

程序截圖 

二級域名批量添加.png

這個版本的二級域名添加工函數對會多一些;

程序源碼  

域名 = "eeooe.cn"
根目錄 = "C:\" 
//下面是程序正文===================================================
保存文件夾路徑 = 根目錄 + "=================" + 域名
二級前綴路徑 = 保存文件夾路徑 + "\二級前綴.txt"
二級域名路徑 = 保存文件夾路徑 + "\二級域名.txt"
'獲取當前時間
Function 當前時間
    當前時間 = Plugin.Sys.GetDateTime() & " "
End Function
Randomize //初始化隨機數生成器
'1.檢測文件夾是否存在,如不存在則新建
Function  檢測文件夾(文件夾)   
    Set fso = CreateObject("Scripting.FileSystemObject")
    IsFile = fso.FolderExists(文件夾)
    If IsFile = 0 Then
        Call Plugin.File.CreateFolder(文件夾)
    Else 
        //TracePrint 文件夾&" 存在"
    End If
End Function
'2.檢測文件是否存在,如不存在則新建
Function 檢測文件(文件)
    IsFile = Plugin.File.IsFileExit(文件)
    If IsFile = false Then
        Call Plugin.File.WriteFileEx(文件, "")
    Else 
        //TracePrint 文件&" 存在"
    End If
End Function
Function 生成路徑
    檢測文件夾(保存文件夾路徑)
    檢測文件 (二級前綴路徑)
    檢測文件 (二級域名路徑)
    TracePrint "路徑生成完畢"
End Function
Function 搜狗瀏覽器定位
    '1.綁定推薦軟件
    瀏覽器 = Plugin.Window.Find( "SE_SogouExplorerFrame",0)
    '2.激活、還原、最大化瀏覽器
    Call Plugin.Window.Active(瀏覽器)
    Delay 300
    Call Plugin.Window.Restore(瀏覽器)
    Delay 300
    Call Plugin.Window.Max(瀏覽器)
    Delay 300
    '3.下面這句是得到窗口句柄的客戶區大小   
    sRect = Plugin.Window.GetClientRect(瀏覽器)
    Delay 300
    dim MyArray   
    MyArray = Split(sRect, "|")   
    L = Clng(MyArray(0)): T = Clng(MyArray(1))   
    R = Clng(MyArray(2)) : B = Clng(MyArray(3))
    Delay 500
    '4.搜狗瀏覽器地址欄
    鼠標按下位置X = L + 240
    鼠標按下位置Y = T + 35
End Function
Function 瀏覽器打開成功驗證
    i=0
    If i < 5 Then 
        '通過坐標顏色識別網頁是否成功打開
        IfColor 596, 299, "FC823F", 0 Then 
            i = 5	
        Else 
            '循環四次打不開則重新打開
            If i = 4 Then 
                Call 搜狗瀏覽器定位
                Call 輸入操作地址
            End If
            Delay 5000
            i = i + 1
        End If
    End If 
End Function
Function 輸入操作地址
    '1.1點擊站點管理
    MoveTo 鼠標按下位置X, 鼠標按下位置Y
    Delay 300
    LeftClick 1
    Delay 1000
    '1.2輸入地址
    操作鏈接 ="https://ziyuan.baidu.com/site/batchadd?mainsite=http://www." + 域名 
    SayString 操作鏈接
    Delay 300
    KeyPress "Enter", 1
    Delay 1000
End Function
Function 隨機字符串(位數)
    Dim i,位置,字符串,字母
    字母="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
    字符串=""
    For i=0 To 位數 - 1
        位置 = Int((Len(字母) * Rnd()) + 1)
        字符串 = 字符串 & Mid(字母,位置,1)
    Next
    隨機字符串 = 字符串
End Function 
生成路徑
Call 搜狗瀏覽器定位
Function 生成1個二級域名
    二級前綴 = 隨機字符串(8)
    二級域名 = 二級前綴 + "." + 域名
    Call Plugin.File.WriteFileEx(二級前綴路徑,二級前綴)
    Call Plugin.File.WriteFileEx(二級域名路徑,二級域名)
End Function
Function 發送10個二級域名
    For 10
        生成1個二級域名
        SayString 二級域名
        Delay 100 
        KeyPress "Enter", 1
        Delay 100   
    Next  
End Function
Function 識別是否有重復
    IfColor 603, 480, "CF", 0 Then
        FindColorEx 720,400,900,960,"FC823F",0,0.9,忽略錯誤X坐標,忽略錯誤Y坐標
        //以下是條件判斷;如果返回的坐標大于0,那么就說明找到了。
        If 忽略錯誤X坐標 > 0 And 忽略錯誤Y坐標 > 0 Then 
            //如果出現錯誤則忽略
            MoveTo 忽略錯誤X坐標, 忽略錯誤Y坐標
            Delay 300
            LeftClick 1
            TracePrint 當前時間 + "點擊忽略錯誤"
            Delay 5000
        End If
    Else 
        '網絡延遲,沒有錯誤
        Delay 100
    End If
End Function
開始運行時間 = 當前時間
//循環寫入
For 100
TracePrint 當前時間 + "操作"
    Call 輸入操作地址
    Call 瀏覽器打開成功驗證
    //點擊進入輸入框
    MoveTo 695, 542
    Delay 300
    LeftClick 1
    Delay 1000
    發送10個二級域名 
    //點擊添加網站
    MoveTo 672, 730
    Delay 300
    LeftClick 1
    Delay 1000
    //點擊確定
    MoveTo 869, 645
    Delay 300
    LeftClick 1
    Delay 3000
    TracePrint 當前時間 + "確定添加"
    //判斷是否添加成功
    IfColor 604, 227, "333333", 0 Then
        //添加成功,執行下一步
        TracePrint 當前時間 + "添加成功"
        Delay 500
    Else 
        Delay 5000
        識別是否有重復
        Delay 5000
    End If
Next
結束運行時間 = 當前時間
TracePrint "========================================================"
TracePrint "開始運行時間" + 開始運行時間
TracePrint "結束運行時間" + 結束運行時間

存在的問題  

子站點確定提交之后,有時會卡住,需要足夠的時間讓它慢慢上傳。  

可以使用ctrl+n新建標簽頁,新建一個上傳子站點的頁面,然后再運用第一個版本中的最后一個方法,關閉所有頁面。