tinder账号购买批发

当前位置:蝙蝠账号tinder账号购买批发 > tinder账号购买批发 >

前几天做了微商 但是就是引流好难 没有客源啊怎

当前栏目:tinder账号购买批发|更新时间:2020-12-30|浏览:
求实用点的 谢谢啦知乎用户回答
斯巴达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);