如何註冊知乎小號，利用知乎一天引流超高轉化精準粉
今天我從技術角度分析下，如何利用知乎大量去註冊小號
玩過營銷的朋友都知道，
知乎的流量是非常好，而且是非常有質量的 。但是很多做營銷的朋友缺不知道如何去註冊大量的小號
然後做知乎引流矩陣 ，為自己的產品引流 ，
微信 huiniquan，自己搜尋加下，有什麼不明白，需要諮詢的
首先我們先要分析下 ，知乎是如何防止你作弊的
一：註冊IP限制
IP這個非常容易解決 ，我們可以通過 http://192.168.1.1
進入自己的路由器 ，去切換IP
每次斷線，就可以切換一次IP ，
現在我們拉網線的時候，一般都會送手機號，而且是無限使用流量的 。
這個時候我們也可以利用wifi熱點 ，共享waifi熱點 ，
不懂可以看這個帖子
然後電腦連結進去就可以了 。這樣你就有大量的Ip可以使用了,
很多人說用vpn，這個我不建議你用，你被封也不是因為你ip問題，而且用vpn極度不穩定
非常多人在用，這個封你就非常快了 ，絕對不能用vpn。
二：電腦唯一識別符號限制
電腦唯一標識是那些呢？？
上圖這些就是你是否違規的判斷標註，當然你看不懂的 ，這個需要有技術背景分析的，
我大概列舉下幾個因素 ：
1：機器碼 ，這個一般人是模擬不出來的，只有用工具才能模擬出來
2：UserAgent 這個很容易解決，網上可以搞到手
3：mac地址 這個用工具可以搞，手工沒有技術背景的人很難
四：瀏覽記錄，瀏覽痕跡等等。
這裡為何要說瀏覽記錄，很多朋友看網上的文章，說清楚瀏覽器cookie 可以，
其實是誤導你，而且這個人一定沒有真正做過知乎營銷，做過就知道一定是行不通的 。
一個長期使用的賬號，客戶端會記錄有很多的資訊 ，比如你平時訪問了那些東西，
看了那些文章，每個文章你都閱讀了多久， 這些都在本地快取裡面
你清除了緩衝，那就意味著 你每次登陸都是一個新號，一次別人不管你，
如果你每次都是這樣，一定會封你 。 因為你這個不符合常理。
小結下： 不管你是做知乎，還是做其他的平臺，比如 天涯，微博，貼吧，知道，
都需要大量的賬號，賬號越多，覆蓋面越廣，那麼你引流的效果也就越好。
那麼哪裡搞來大量的 手機號碼呢？？
這個非常簡單
專門的打碼平臺，無數的手機號碼可以用 ，。
一個好的工具+打碼平臺，你就有無數的 知乎賬號用了，拿著這些號 ，
大量覆蓋，效果槓槓的，流量就源源不斷的來了，有流量自然就有錢了。
接下來分享下原始碼，有需要找我
procedure TMainForm.FormCreate(Sender: TObject);
begin //4ECC6AFD57F9 // 4DEC6AFD57F9 // 3EFF6AFD57F9
readloadTime:=GetCurrentTime;
Chromium1.Browser.GetMainFrame.loadURL(StrPas(pPkt.URL));
moveWidth:=Chromium1.Width; moveHeight:= 500;
Randomize; fromPoint.X:=RandomRange(0,moveWidth); fromPoint.Y:=RandomRange(0,moveHeight); toPoint.X:=RandomRange(0,moveWidth); toPoint.Y:=RandomRange(0,moveHeight);
//'&oq=%25E5%259B%25BD%25E5%2586%2585%25E6%25B8%25B8%25E6%2588%258F%25E5%258A%25A0%25E9%2580%259F&rsv_pq=e448c3fd0'+ //'000828f&rsv_t=3869NJGeOPATuebCnPtO3aBCNbRbrKltqpUuUtGw3tVu4quC5Etfz34nbEo&rqlang=cn&rsv_enter=1&inputT=652&rsv_sug'+ //'3=157&rsv_sug1=80&rsv_sug7=100&rsv_sug2=0&rsv_sug4=653');
//Chromium1.Browser.GetMainFrame.loadURL('chrome://inspect/#devices');
end;
procedure TMainForm.dxBarButton3Click(Sender: TObject); begin Chromium1.Browser.GoBack; end;
procedure TMainForm.dxBarButton4Click(Sender: TObject); begin Chromium1.Browser.GoForward; end;
procedure TMainForm.dxBarButton5Click(Sender: TObject); begin Chromium1.Browser.GetMainFrame.loadURL('https://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&rsv_idx=1&tn=baidu&wd=ip'+ '&oq=%25E5%259B%25BD%25E5%2586%2585%25E6%25B8%25B8%25E6%2588%258F%25E5%258A%25A0%25E9%2580%259F&rsv_pq=e448c3fd0'+ '000828f&rsv_t=3869NJGeOPATuebCnPtO3aBCNbRbrKltqpUuUtGw3tVu4quC5Etfz34nbEo&rqlang=cn&rsv_enter=1&inputT=652&rsv_sug'+ '3=157&rsv_sug1=80&rsv_sug7=100&rsv_sug2=0&rsv_sug4=653'); end;
procedure TMainForm.dxBarButton6Click(Sender: TObject); begin Chromium1.Browser.GetMainFrame.loadURL(StrPas(pPkt.URL)); end;
procedure TMainForm.dxBarButton1Click(Sender: TObject); begin //Chromium1.Browser.GetMainFrame.loadURL('https://www.baidu.com'); Clipboard.SetTextBuf(pPkt.username); end;
procedure TMainForm.dxBarButton2Click(Sender: TObject); begin
Clipboard.SetTextBuf(pPkt.psw);
end;
procedure TMainForm.dxBarButton7Click(Sender: TObject); var wresult:String; begin
//wresult:=getResultByIdHttp(pPkt.zhihujson1); //if wresult <> '' then if Pos('zhihu.com', pPkt.URL) > 0 then Chromium1.Browser.MainFrame.ExecuteJavaScript(cxRichEdit1.Text,'',0) else //if Pos('csdn.net', pPkt.URL) > 0 then //Chromium1.Browser.MainFrame.ExecuteJavaScript(cxRichEdit2.Text,'',0)
end;
procedure TMainForm.Chromium1Jsdialog(Sender: TObject; const browser: ICefBrowser; const originUrl, acceptLang: ustring; dialogType: TCefJsDialogType; const messageText, defaultPromptText: ustring; callback: ICefJsDialogCallback; out suppressMessage, Result: Boolean); begin
//Chromium1.Browser.MainFrame.LoadUrl(messageText); //ShowMessage(messageText); //suppressMessage:=False; //Result:=False; end;
procedure TMainForm.tmrListionTimer(Sender: TObject);
begin if (GetCurrentTime - readloadTime)> 60000*3 then begin readloadTime:= GetCurrentTime; dxBarButton6.Click; Exit; end; WHEELHwnd:=FindWindowEx(Chromium1.Handle,0,nil,nil); //獲取滾輪控制代碼 WHEELHwnd:=FindWindowEx(WHEELHwnd,0,nil,nil); //獲取滾輪控制代碼 MOUSEHwnd:= FindWindowEx(WHEELHwnd,0,nil,nil); //獲取滑鼠訊息
PostMessage(WHEELHwnd,WM_mouseWHEEL,$FF880000,$019D0263); PostMessage(WHEELHwnd,WM_mouseWHEEL,$FF880000,$019D0263); PostMessage(WHEELHwnd,WM_mouseWHEEL,$FF880000,$019D0263);
mySleep(100);
RandMoveMouse(MOUSEHwnd);
// Randomize; // if RandomRange(1,4) = 2 then // dxBarButton7.Click; //cxRichEdit3.Lines.Add('鍵盤滑鼠模擬');
end;
procedure TMainForm.MoveMouseToWhere(mouseHWnd:Cardinal;fromX, fromY, toX, toY: Integer); var rect:TRect; begin while (fromX <>toX) or (fromY<> toY) do begin if (fromX<> toX ) and (fromX> toX) then fromX := fromX-1; if (fromX<> toX ) and (fromX< toX) then fromX:= fromX+1;
if (fromY<> toY ) and (fromY> toY) then fromY := fromY-1; if (fromY<> toY ) and (fromY< toY) then fromY:= fromY+1;
//GetWindowRect(Chromium1.Handle,rect); //SetCursorPos(rect.Left+ fromX,rect.Top+ fromY);
PostMessageA(mouseHWnd, WM_MOUSEMOVE, 1, MakeLong(fromX, fromY)); Sleep(1); PostMessageA(mouseHWnd, WM_MOUSEMOVE, 0, MakeLong(fromX, fromY));
//GetWindowRect(Chromium1.Handle,rect); //DrawPointToScreen(rect.Left+ fromX,rect.Top+ fromY);
Application.ProcessMessages; end;
//if RandomRange(1,4) = 2 then begin PostMessageA(mouseHWnd, WM_LBUTTONDOWN,1, MakeLong(fromX, fromY)); Sleep(1); PostMessageA(mouseHWnd, WM_LBUTTONUP, 0, MakeLong(fromX, fromY)); end; //if RandomRange(0,6) = 1 then //dxBarButton7.Click; end;
procedure TMainForm.RandMoveMouse(mouseHWnd:Cardinal); var randTime,times:Integer; begin
Randomize; randTime:= Random(3); //隨機5次 times:=0; while True do begin fromPoint.X := toPoint.X; fromPoint.Y := toPoint.Y; //備份原來的座標
toPoint.X := Random(moveWidth); //採用新的座標 toPoint.Y:= Random(moveHeight);
MoveMouseToWhere(mouseHWnd,fromPoint.X,fromPoint.Y,toPoint.X,toPoint.Y);
if times>= randTime then Break; Inc(times); end;
//PostMessageA(mouseHWnd, WM_LBUTTONDOWN,0, 0); //Sleep(1); //PostMessageA(mouseHWnd, WM_LBUTTONUP, 0, 0);
end;
procedure TMainForm.dxBarButton8Click(Sender: TObject); begin
tmrListion.Enabled:=True; Timer1.Enabled:=True; Caption:='掛機中....'; readloadTime:=GetCurrentTime; end;
procedure TMainForm.Timer1Timer(Sender: TObject); begin while True do begin //cxRichEdit3.Lines.Add('開始清空窗體'); chromeHwnd:= FindWindowA(PAnsiChar('CefBrowserWindow'),''); if chromeHwnd >0 then begin PostMessageA(chromeHwnd,WM_CLOSE,0,0); Sleep(100); Application.ProcessMessages; end else Break; end; end;
procedure TMainForm.cxTextEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = vk_return then //cxTextEdit1 Chromium1.Browser.GetMainFrame.loadURL(cxTextEdit1.Text); end;
procedure TMainForm.Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; httpStatusCode: Integer); begin
cxTextEdit1.Text:=browser.GetMainFrame.Url;
end;