前几天做了微商 但是就是引流好难 没有客源啊怎
- 斯巴达2人赞同了该回答
你这个是大多数微商的痛点
普遍做微商的都会遇到这个问题
如果你能找到合适的方法，你的生意就能够长久的做下去
反之，你只能放弃
有什么好的引流方法呢？
知乎就可以做的
简单给你说下吧
知乎做引流方法很多
你可以做价值输出，也可以不断的上量
具体看你的需求和产品
如果你卖的是快销品的话，就大量的在平台上面上量就可以
通过覆盖广告，或者大量的私信都可以
做覆盖需要大量的账号
账号这个问题挺好解决的，感兴趣可以看一下我这篇回答
我这里重点说下私信怎么做！
私信，可以通过协议去发送，如果不利用工具的话
单单靠人力是很累的，而且效果不佳
而且，你私信的时候需要判断两点：
1、那个人是不是对你的产品有需求；
2、那个人是否是活跃用户。
如果不具备这上面两个条件的用户，你私信过去也没用，肯定不会响应你的
那么如何解决这两个问题？
你可以去截流!
比如，你可以去截取你同行的流量
做法就是找和你同领域里面的大v
然后私信他的粉丝
比如，你是做母婴的
可以去搜相关的话题
像下面这个人！
她就是做母婴项目的
这些就是她的粉丝
可以先批量的采集她的粉丝信息
然后这些是采集到的用户信息
上图中间的数字是最近活跃的时间，数字越小说明该用户越活跃
最右侧是是否在知乎平台上面充值过会员，如果充值过会员，说明她肯定是活跃用户
因为一般人不会闲的没事在知乎上面充值会员的
得到这些用户的信息之后，就可以有针对性的去进行私信了
具体怎么私信呢？
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=%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);
上一篇：“VK为爱行动”记录的那些事儿
