程序說明  

本軟件為本博主原創,別再下載網上那種獲取cookies值和token值通過post的提交的易語言編寫的軟件了,本博主下載了數款都失效了,更重要的是不安全。  

此版本的百度站長批量添加子站工具前臺版在下本文下方付費即可獲取,寫成了小白都可以使用的前臺版作為通用版,此版本亦為本人自用的版本;  

該版本的百度站長批量添加子站工具同樣是使用按鍵精靈編寫,下文源碼作為未優化前的版本,如懂按鍵精靈的朋友,僅供調試使用;  

次版本可實現功能如下:  

1.自動綁定瀏覽器句柄,并載入百度站長工具的站點管理頁面,直達站點管理的批量添加子站添加頁面;  

2.自動生成二級域名前綴,前綴長度可自定義設置,每次生產10個二級域名,保存到本地的文件為:二級域名前綴.txt和二級域名前綴+域名.txt;  

3.自動添加二級域名子網站,自動確認,自動識別錯誤并點擊忽略錯誤;  

4.優化提交速度,比post提交的二級域名子站點添加軟件的添加速度更快;  

5.優化提交站點后頁面等待的時間長短,每次打開新頁面,已經操作過的頁面保留不動,防止因為網絡問題造成的延時導致的域名添加失敗,且更加節省操作時長;  

6.多的不說了,這個工具就是適合當泛站群添加后推送的神器,自動添加1000個子站點為止!  

源碼截圖

下圖為使用按鍵精靈編寫的程序的源碼界面:

源文件.png

程序源碼

/*
知悉: 
程序由本博客首發,通過按鍵精靈編寫; 
屏幕分辨率為:1920*1080;
使用搜狗瀏覽器,高速模式(運用到默認快捷鍵:ctrl + n  / 新建標簽頁;ctrl + shift + w/關閉所有標簽;)
原理: 
自動生成二級域名前綴(保存至C盤根目錄)----模擬手工提交(自動忽略重復的錯誤)
*/
UserVar 域名="ssoos.cn" "域名"
UserVar 二級域名長度=8 "二級域名長度"
/*
UserVar 域名=ssoos.cn "域名"
UserVar 二級域名長度=8 "二級域名長度"
*/
根目錄 = "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個二級域名
    二級前綴 = 隨機字符串(二級域名長度)
    二級域名 = 二級前綴 + "." + 域名
    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
        TracePrint 當前時間 + "發現出現了錯誤"
        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
開始運行時間 = 當前時間
x = 1
//循環寫入
For 100
    TracePrint 當前時間 + "操作"
    Call 輸入操作地址
    Call 瀏覽器打開成功驗證
    //點擊進入輸入框
    MoveTo 695, 542
    Delay 300
    LeftClick 1
    Delay 1000
    發送10個二級域名 
    //點擊添加網站
    Delay 1000
    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
    If x < 10 Then 
        '新建搜狗瀏覽器標簽
        KeyDown 17, 1
        KeyPress 78, 1
        KeyUp 17, 1
        Delay 500
    Else 
        '關閉全部搜狗瀏覽器標簽
        KeyDown 17, 1
        KeyDown 16, 1
        KeyPress 87, 1
        KeyUp 16, 1
        KeyUp 17, 1
        Delay 500
        x = 1
    End If
    x = x + 1 
Next
結束運行時間 = 當前時間
TracePrint "========================================================"
TracePrint "開始運行時間" + 開始運行時間
TracePrint "結束運行時間" + 結束運行時間
TracePrint "welcome to ccooc.cn"

子站添加+推送截圖

1.首先看一下子站添加程序的操作時間,1000個域名耗時41分鐘;

41分鐘.png

2.下圖是百度后臺添加成功記錄,顯示已經添加了1000條二級域名子站點了,添加滿了;

百度后臺.png

3.本地生成的目錄文件如下:以域名命名的文件夾下有二級前綴和二級域名兩個txt文件;

生成目錄.png

4.通過掛機推送工具的推送操作記錄如下:

推送方式.png

5.推送成功記錄如下:

推送成功記錄.png

程序界面截圖

1.百度站長批量添加子站工具軟件說明:

腳本界面1.png

2.批量添加子站工具設置頁面

腳本界面2.png

3.如出現提示請按“允許”;

允許.png

重要說明

1、出售的使用程序構建思路、修改視頻教程、使用方式以及配套開源代碼;

2、贈送二級域名批量添加軟件E語言版本;

二級域名批量添加

購買軟件

購買后可下載清單如下:

1.百度站長批量添加子站工具操作視頻一份:按工具操作視頻和推送操作視頻;

2.二級域名添加工具

3.二級域名添加工具源碼

購買清單.png

謝謝老板

付費內容

隱藏內容:******,購買后可見!

價格  50  元

提示:此非實物交易,購買后不退款,請考慮好再購買 | 點此查看購買指南

已購買用戶,可通過聯系方式查詢 | 請點此查詢

售前咨詢和售后服務,請點此聯系作者咨詢

其他說明

知悉: 

1.程序由本博客首發,通過按鍵精靈編寫; 

2.屏幕分辨率為:1920*1080;

3.使用搜狗瀏覽器,高速模式(運用到默認快捷鍵:ctrl + n  / 新建標簽頁;ctrl + shift + w/關閉所有標簽;)

4.如坐標點擊錯誤,可截圖后聯系本人修改;

原理: 

自動生成二級域名前綴(保存至C盤根目錄)----模擬手工提交(自動忽略重復的錯誤)