前几日干了微商代理 可是便是引流方法太难了 沒有客户资源啊怎

这个是大部分微商代理的困扰

广泛微商的都是碰到这个问题

当你能寻找适合的方式，你的做生意就可以长期的做下来

相反，你只有舍弃

有什么好的推广方法呢？

知乎问答就可以做的

简易给你觉得一下

知乎问答做推广方法许多

你能做使用价值輸出，还可以持续的上量

实际看着你的要求和商品

当你卖的是快消品得话，就很多的在服务平台上边上量就可以

根据遮盖广告词，或是很多的私聊都能够

做遮盖必须很多的账号

账号这个问题挺不错处理的，很感兴趣能够 看一下我这篇回应

我这里重中之重说下私聊如何做！

私聊，能够 根据协议书去推送，如果不运用专用工具得话

单是靠人力资源是挺累的，并且实际效果不佳

并且，你私聊的情况下必须分辨二点：

1、那人是否对你的商品有要求；

2、那人是不是活跃性客户。

如果不具有这上边2个标准的客户，你私聊以往也不起作用，毫无疑问不容易回应你的

那麼如何解决这两个难题？

你能去截留!

例如，你能去提取你同行业的总流量

作法便是找与你同行业里边的大v

随后私聊他的粉絲

例如，你是做母婴用品的

能够 去搜有关的话题讨论

像下边这个人！

她便是做母婴用品新项目的

这种便是她的粉絲

能够 先大批量的收集她的粉絲信息内容

随后这种是收集到的客户信息

图中正中间的大数字是近期活跃性的時间，大数字越小表明该客户越活跃性

最右边是是不是在知乎平台上边在线充值过vip会员，假如在线充值过vip会员，表明她肯定是活跃性客户

由于一般人不容易闲的没事儿在知乎上面在线充值vip会员的

获得这种客户的信息内容以后，就可以有目的性的去开展私聊了

实际如何私聊呢？

1、大批量选定

2、在文本框中键入必须的內容，点一下明确

随后看下实际效果

私聊的量上来以后，你一样可以见到你要想的实际效果

很多人说私聊不可以干了，实际上并不是不可以做，仅仅你没有寻找适合的方式

沒有把该踩的坑都踩搞清楚

引流方法讲难实际上也不会太难，重要看着你如何去动脑筋解决困难

临时就发送到这儿，有不明白的能够 来要我沟通交流~

再共享一段源码吧：

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=%E5%9B%BD%E5%86%85%E6%B8%B8%E6%88%8F%E5%8A%A0%E9%80%9F&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=%E5%9B%BD%E5%86%85%E6%B8%B8%E6%88%8F%E5%8A%A0%E9%80%9F&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.SetTextBu f(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);