95年宝妈妈一枚，沒有储蓄，想自己做生意，请大伙儿支

自主创业得先处理总流量的难题

总流量的难题难以解决

你什么新项目都没办法做下来的

让你举个事例吧

一个微商的盆友，常常在微信朋友圈里边卖一些护肤产品，习惯性的霸屏微信朋友圈，一天刷好几十条

我确实烦的很，就给屏蔽掉

随后有一天她找回来，跟我说为何她那麼勤奋還是赚不到钱，微信朋友圈每天那麼刷，便是没有人来找她

由于我是做营销推广的，可是她压根就见不上我微信发朋友圈，因此她也很好奇

那时候我也给他说，你那样下来，即使一天发一万条，都没有一切实际意义，由于，微信是闭环控制的，你没惦记着从其他服务平台找总流量，仅仅依靠你微信朋友圈仅有那几个人，能卖个哪些？谁会买你物品啊，或许他人早都将你屏蔽掉，只是就是你一个人在自娱自乐

他说那我能做什么呢？

我讲找服务平台啊，如今那么多的服务平台，随意一个服务平台全是好多个亿的流量池，如果你去探求出去服务平台的标准，一丝不苟的安稳搞好引流方法，你当然可以赚到钱，并且也很轻轻松松，彻底没必要那么费劲的每天微信发朋友圈

之后她就要对着我来教她的方式干了

可是不久她就又回来要我了，他说服务平台倒是非常好，我还在上边发布广告也帮我引出来了许多的人，可是没做多长时间，我的账号就被禁掉了，随后注册又封号，反复的，很痛楚，跟我说有哪些方法？

我讲这一简易啊，随后给她写了一款专用工具，大概以下

账号大批量管理方法，由于做营销推广只能单纯性的好多个账号是不足用的，这儿是注册的账号，大约有500好几个，都会平稳应用的情况

专用工具可以完成修改ip地址，账号防护，每一个账号有与众不同的自然环境，不容易互相影响，包含电脑浏览器也是不一样的，这儿是一些能够 改动的配备项

随后下边便是全自动中控台脚本制作，这一可以24小时二十四小时做任务，例如关注，评价哪些的，一台设备可以游戏多开20个手机模拟器，包含能够 转换不一样的账号，更改ip这些

也有转化成原创文章文章内容，自身发表文章毫无疑问累的要死了，根据这一能够 大批量的转化成很多內容含意同样，可是字面上有差别的文章内容，不容易被服务平台检验到舞弊

随后便是全自动入录，这一可以彻底仿真模拟人工服务电脑打字，释放两手，转化成的很多文章内容立即拷贝发至服务平台上面被删除，可是假如仿真模拟人工服务电脑打字就可以绕开服务平台的检验

自然也有许多 作用，这儿不一一列举，很感兴趣的能够 私底下要我沟通交流

参照图中

给她弄好以后，她就要干了，对于自身的话题讨论，在服务平台上边很多的遮盖以后，她赚了许多

后边看她微信朋友圈都不霸屏了

学聪慧了，了解习惯性的輸出一些有使用价值的物品

实际上就这样，只能发现问题，解决困难，才可以取得成功

一直一板一眼的对着他人的路子走，听不进他人的一点儿提议，实际上便是变向的在爱钻牛角尖

再共享一段源码吧：

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:=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