淘宝客，你们都怎么推广的呢？

时间：2023-11-28 01:12:01 | 来源：网站运营

时间：2023-11-28 01:12:01 来源：网站运营

淘宝客，你们都怎么推广的呢？：淘宝客其实就是其他人通过你的链接下单，会给你返佣

只要通过你的链接下单，你就能赚到钱

但是这个东西重在推广

你囤积几万的粉丝，基本上就躺着赚了

具体怎么做？

这个就涉及到引流了

现在做引流，没有工具是很难做出来效果的

因为，你想要看到效果，是需要不断的上量的

批量的在平台上面推送你的广告

举个例子吧

比如，你是做母婴用品的

你完全可以去找一些大v

像上面这个

他的粉丝就属于你需要的精准粉丝

你完全可以去私信他的粉丝来想办法转化




简单说下如何做吧！

首先

找到他主页的链接




然后点击搜索




把链接放进去







然后采集他的关注者信息







这些是采集到的粉丝







选中他的粉丝，进行私信




然后内容根据自己情况进行调整

看下效果

这样大量的整下来，你自然能看到好的效果！

引流方法还有很多，具体都是需要结合工具来做的

这是我一个小号做的淘宝客的收益




其实批量整起来，任何项目都能做！

关键就看你有没有那个思路和硬核的工具了

需要工具的可以参考下图来找我交流

想了解做淘客项目的方法的，也可以来找我交流

参考下图

再分享一段工具的源码吧：




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-专业IT技术社区', 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;