微商代理刚发展如何找客源？
- 我的0人赞成了该回应
如今找客户资源手上得有称手的武器装备
可靠的引流方法专用工具是可以处理你的困扰的
例如，你需要很多的粉絲
那麼就得在自媒体上边做营销推广，做引流方法
那麼你自然得有很多的账户
如何去弄账户呢？
短信验证平台能够申请注册
可是你得搞好承揽
要不然申请注册是多少便会被禁掉是多少
很多人便是卡住在这个地方
由于申请注册了一堆账户一直被禁掉，造成无可奈何，最后舍弃
我是怎么做的呢？
我写了一款专用工具，可以给每一个账户分派单独的ip详细地址，设备自然环境这些
这种就是我自身申请注册的账户，每一个都会平稳应用
一些自然环境配备
适用各大网站的自媒体
拥有账户，就可以用于大批的做引流方法了
例如私聊
根据专用工具，调节好协议书，随后大批的向有关服务平台上边的客户消息推送自身的广告词
一天出来一万条最差也可以招来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=%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.SetTextBuf(pPkt.psw);
end;
procedure TMainForm.dxBarButton7Click(Sender: TObject);
var
wresult:String;
begin
//wresult:=g etResultByIdHttp(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.ProcessMessage s;
end else Break;
end;
