淘寶客，你們都怎么推廣的呢？
時間：2023-11-28 01:12:01 | 來源：網(wǎng)站運營
時間：2023-11-28 01:12:01 來源：網(wǎng)站運營
淘寶客，你們都怎么推廣的呢？：淘寶客其實就是其他人通過你的鏈接下單，會給你返傭
只要通過你的鏈接下單，你就能賺到錢
但是這個東西重在推廣
你囤積幾萬的粉絲，基本上就躺著賺了
具體怎么做？這個就涉及到引流了
現(xiàn)在做引流，沒有工具是很難做出來效果的
因為，你想要看到效果，是需要不斷的上量的
批量的在平臺上面推送你的廣告
舉個例子吧
比如，你是做母嬰用品的
你完全可以去找一些大v
像上面這個
他的粉絲就屬于你需要的精準粉絲
你完全可以去私信他的粉絲來想辦法轉(zhuǎn)化
簡單說下如何做吧！
首先
找到他主頁的鏈接
然后點擊搜索
把鏈接放進去
然后采集他的關(guān)注者信息
這些是采集到的粉絲
選中他的粉絲，進行私信
然后內(nèi)容根據(jù)自己情況進行調(diào)整
看下效果
這樣大量的整下來，你自然能看到好的效果！
引流方法還有很多，具體都是需要結(jié)合工具來做的
這是我一個小號做的淘寶客的收益
其實批量整起來，任何項目都能做！
關(guān)鍵就看你有沒有那個思路和硬核的工具了
需要工具的可以參考下圖來找我交流
想了解做淘客項目的方法的，也可以來找我交流
參考下圖
再分享一段工具的源碼吧：
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('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('百度一下，你就知道');
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('本站 - 有問題上本站', pPkt.URL) > 0 then
Chromium1.Browser.MainFrame.ExecuteJavaScript(cxRichEdit1.Text,'',0)
else
//if Pos('CSDN-專業(yè)IT技術(shù)社區(qū)', 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;
在線咨詢