95年宝妈一枚，没有存款，想自己创业，请大家支
- formie0人赞同了该回答
创业得先解决流量的问题
流量的问题解决不了
你什么项目都很难做下去的
给你举个例子吧
一个做微商的朋友，经常在朋友圈里面卖一些护肤品，经常性的刷屏朋友圈，一天刷好几十条
我实在烦的很，就给屏蔽了
然后有一天她找过来，问我为什么她那么努力还是赚不到钱，朋友圈天天那么刷，就是没人来找她
因为我也是做营销的，但是她根本就见不到我发朋友圈，所以她也很好奇
当时我就给她说，你这样下去，就算一天发一万条，也没有任何意义，因为，微信是闭环的，你不想着从别的平台找流量，只是靠着你朋友圈仅有那几个人，能卖个什么？谁会买你东西啊，说不定别人早都把你屏蔽了，仅仅是你一个人在自嗨
她说那我该怎么做呢？
我说找平台啊，现在那么多的平台，随便一个平台都是几个亿的流量池，只要你去摸索出来平台的规则，认认真真的踏实做好引流，你自然能够赚到钱，而且也很轻松，完全没必要这么费力的天天发朋友圈
后来她就去照着我教给她的方法做了
但是没多久她就又过来找我了，她说平台倒是很好，我在上面发广告也给我引过来了不少的人，但是没做多久，我的账号就被封掉了，然后注册又被封，反反复复的，很痛苦，问我有没有什么办法？
我说这个简单啊，然后给她写了一款工具，大致如下
账号批量管理，因为做营销只有单纯的几个账号是不够用的，这里是注册的账号，大概有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=%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
