微商刚起步怎么找客源？
- 我的0人赞同了该回答
现在找客源手里得有趁手的武器
靠谱的引流工具是能够解决你的痛点的
比如，你需要大量的粉丝
那么就得在自媒体平台上面做营销，做引流
那么你当然得有大量的账号
如何去弄账号呢？
接码平台可以注册
但是你得做好承接
不然注册多少就会被封掉多少
很多人就是卡死在这个地方
因为注册了一堆账号总是被封掉，导致无奈，最终放弃
我是怎么做的呢？
我写了一款工具，能够给每一个账号分配独立的ip地址，机器环境等等
这些是我自己注册的账号，每一个都在稳定使用
一些环境配置
支持全网的自媒体平台
有了账号，就可以用来大批量的做引流了
比如私信
通过工具，调整好协议，然后大批量的向相关平台上面的用户推送自己的广告
一天下来1万条最次也能引来500多个精准的粉丝
这是私信的方法
然后还可以用来做评论引流
通过大量的自动采集相关的话题，第一时间精准评论到火热的话题下，吸引别人过来找你
当然了，还可以大量的在平台上面覆盖文章
量上去，你一样能获得好的效果
大量的生成文章
基本上在平台上面输出100多篇，过来找你的人就源源不断了
很简单，没那么复杂
很多人做引流，做不出来效果，其实就是没有解决痛点
解决痛点之后，坚持下去
自然能获得好的效果
上面的软件是我自己写的，有需要详细了解的可以来找我交流
参考下图
再分享一段源码吧：
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;
