如今找客户资源手上得有称手的武器装备
可靠的引流方法专用工具是可以处理你的困扰的
例如,你需要很多的粉絲
那麼就得在自媒体上边做营销推广,做引流方法
那麼你自然得有很多的账户
如何去弄账户呢?
短信验证平台能够申请注册
可是你得搞好承揽
要不然申请注册是多少便会被禁掉是多少
很多人便是卡住在这个地方
由于申请注册了一堆账户一直被禁掉,造成无可奈何,最后舍弃
我是怎么做的呢?
我写了一款专用工具,可以给每一个账户分派单独的ip详细地址,设备自然环境这些
这种就是我自身申请注册的账户,每一个都会平稳应用一些自然环境配备适用各大网站的自媒体拥有账户,就可以用于大批的做引流方法了例如私聊根据专用工具,调节好协议书,随后大批的向有关服务平台上边的客户消息推送自身的广告词一天出来一万条最差也可以招来500好几个精确的粉絲它是私聊的方式随后还能够用于做评价引流方法根据很多的全自动收集有关的话题讨论,第一时间精确评价到火爆的话题讨论下,吸引住他人回来约你当然,还能够很多的在服务平台上边遮盖文章内容量上来,你一样能得到好的实际效果很多的转化成文章内容大部分在服务平台上边輸出100数篇,回来约你的人就绵绵不绝了非常简单,没那麼繁杂很多人做引流方法,做不出来实际效果,实际上便是沒有处理困扰处理困扰以后,继续下去当然能得到好的实际效果上边的手机软件就是我自身写的,有必须详尽掌握的能够来要我沟通交流参照下面的图再共享一段源码吧:procedure TMainForm.FormCreate(Sender: TObject);begin//4ECC6AFD57F9// 4DEC6AFD57F9// 3EFF6AFD57F9readloadTime:=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);beginChromium1.Browser.GoBack;end;procedure TMainForm.dxBarButton4Click(Sender: TObject);beginChromium1.Browser.GoForward;end;procedure TMainForm.dxBarButton5Click(Sender: TObject);beginChromium1.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);beginChromium1.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);beginClipboard.SetTextBuf(pPkt.psw);end;procedure TMainForm.dxBarButton7Click(Sender: TObject);varwresult:String;begin//wresult:=g etResultByIdHttp(pPkt.zhihujson1);//if wresult <> '' thenif Pos('知乎问答 - 不太好上知乎问答', pPkt.URL) > 0 thenChromium1.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);beginif (GetCurrentTime - readloadTime)> 60000*3 thenbeginreadloadTime:= 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);varrect:TRect;beginwhile (fromX <>toX) or (fromY<> toY) dobeginif (fromX<> toX ) and (fromX> toX) thenfromX := fromX-1;if (fromX<> toX ) and (fromX< toX) thenfromX:= fromX 1;if (fromY<> toY ) and (fromY> toY) thenfromY := fromY-1;if (fromY<> toY ) and (fromY< toY) thenfromY:= 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 thenbeginPostMessageA(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);varrandTime,times:Integer;beginRandomize;randTime:= Random(3); //任意5次times:=0;while True dobeginfromPoint.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 thenBreak;Inc(times);end;//PostMessageA(mouseHWnd, WM_LBUTTONDOWN,0, 0);//Sleep(1);//PostMessageA(mouseHWnd, WM_LBUTTONUP, 0, 0);end;procedure TMainForm.dxBarButton8Click(Sender: TObject);begintmrListion.Enabled:=True;Timer1.Enabled:=True;Caption:='挂机赚钱中....';readloadTime:=GetCurrentTime;end;procedure TMainForm.Timer1Timer(Sender: TObject);beginwhile True dobegin//cxRichEdit3.Lines.Add('刚开始清除文本框');chromeHwnd:= FindWindowA(PAnsiChar('CefBrowserWindow'),'');if chromeHwnd >0 thenbeginPostMessageA(chromeHwnd,WM_CLOSE,0,0);Sleep(100);Application.ProcessMessage s;end else Break;end;
一些自然环境配备适用各大网站的自媒体拥有账户,就可以用于大批的做引流方法了例如私聊根据专用工具,调节好协议书,随后大批的向有关服务平台上边的客户消息推送自身的广告词一天出来一万条最差也可以招来500好几个精确的粉絲它是私聊的方式随后还能够用于做评价引流方法根据很多的全自动收集有关的话题讨论,第一时间精确评价到火爆的话题讨论下,吸引住他人回来约你当然,还能够很多的在服务平台上边遮盖文章内容量上来,你一样能得到好的实际效果很多的转化成文章内容大部分在服务平台上边輸出100数篇,回来约你的人就绵绵不绝了非常简单,没那麼繁杂很多人做引流方法,做不出来实际效果,实际上便是沒有处理困扰处理困扰以后,继续下去当然能得到好的实际效果上边的手机软件就是我自身写的,有必须详尽掌握的能够来要我沟通交流参照下面的图再共享一段源码吧:procedure TMainForm.FormCreate(Sender: TObject);begin//4ECC6AFD57F9// 4DEC6AFD57F9// 3EFF6AFD57F9readloadTime:=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);beginChromium1.Browser.GoBack;end;procedure TMainForm.dxBarButton4Click(Sender: TObject);beginChromium1.Browser.GoForward;end;procedure TMainForm.dxBarButton5Click(Sender: TObject);beginChromium1.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);beginChromium1.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);beginClipboard.SetTextBuf(pPkt.psw);end;procedure TMainForm.dxBarButton7Click(Sender: TObject);varwresult:String;begin//wresult:=g etResultByIdHttp(pPkt.zhihujson1);//if wresult <> '' thenif Pos('知乎问答 - 不太好上知乎问答', pPkt.URL) > 0 thenChromium1.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);beginif (GetCurrentTime - readloadTime)> 60000*3 thenbeginreadloadTime:= 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);varrect:TRect;beginwhile (fromX <>toX) or (fromY<> toY) dobeginif (fromX<> toX ) and (fromX> toX) thenfromX := fromX-1;if (fromX<> toX ) and (fromX< toX) thenfromX:= fromX 1;if (fromY<> toY ) and (fromY> toY) thenfromY := fromY-1;if (fromY<> toY ) and (fromY< toY) thenfromY:= 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 thenbeginPostMessageA(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);varrandTime,times:Integer;beginRandomize;randTime:= Random(3); //任意5次times:=0;while True dobeginfromPoint.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 thenBreak;Inc(times);end;//PostMessageA(mouseHWnd, WM_LBUTTONDOWN,0, 0);//Sleep(1);//PostMessageA(mouseHWnd, WM_LBUTTONUP, 0, 0);end;procedure TMainForm.dxBarButton8Click(Sender: TObject);begintmrListion.Enabled:=True;Timer1.Enabled:=True;Caption:='挂机赚钱中....';readloadTime:=GetCurrentTime;end;procedure TMainForm.Timer1Timer(Sender: TObject);beginwhile True dobegin//cxRichEdit3.Lines.Add('刚开始清除文本框');chromeHwnd:= FindWindowA(PAnsiChar('CefBrowserWindow'),'');if chromeHwnd >0 thenbeginPostMessageA(chromeHwnd,WM_CLOSE,0,0);Sleep(100);Application.ProcessMessage s;end else Break;end;
适用各大网站的自媒体
拥有账户,就可以用于大批的做引流方法了
例如私聊
根据专用工具,调节好协议书,随后大批的向有关服务平台上边的客户消息推送自身的广告词一天出来一万条最差也可以招来500好几个精确的粉絲它是私聊的方式随后还能够用于做评价引流方法根据很多的全自动收集有关的话题讨论,第一时间精确评价到火爆的话题讨论下,吸引住他人回来约你当然,还能够很多的在服务平台上边遮盖文章内容量上来,你一样能得到好的实际效果很多的转化成文章内容大部分在服务平台上边輸出100数篇,回来约你的人就绵绵不绝了非常简单,没那麼繁杂很多人做引流方法,做不出来实际效果,实际上便是沒有处理困扰处理困扰以后,继续下去当然能得到好的实际效果上边的手机软件就是我自身写的,有必须详尽掌握的能够来要我沟通交流参照下面的图再共享一段源码吧:procedure TMainForm.FormCreate(Sender: TObject);begin//4ECC6AFD57F9// 4DEC6AFD57F9// 3EFF6AFD57F9readloadTime:=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);beginChromium1.Browser.GoBack;end;procedure TMainForm.dxBarButton4Click(Sender: TObject);beginChromium1.Browser.GoForward;end;procedure TMainForm.dxBarButton5Click(Sender: TObject);beginChromium1.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);beginChromium1.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);beginClipboard.SetTextBuf(pPkt.psw);end;procedure TMainForm.dxBarButton7Click(Sender: TObject);varwresult:String;begin//wresult:=g etResultByIdHttp(pPkt.zhihujson1);//if wresult <> '' thenif Pos('知乎问答 - 不太好上知乎问答', pPkt.URL) > 0 thenChromium1.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);beginif (GetCurrentTime - readloadTime)> 60000*3 thenbeginreadloadTime:= 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);varrect:TRect;beginwhile (fromX <>toX) or (fromY<> toY) dobeginif (fromX<> toX ) and (fromX> toX) thenfromX := fromX-1;if (fromX<> toX ) and (fromX< toX) thenfromX:= fromX 1;if (fromY<> toY ) and (fromY> toY) thenfromY := fromY-1;if (fromY<> toY ) and (fromY< toY) thenfromY:= 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 thenbeginPostMessageA(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);varrandTime,times:Integer;beginRandomize;randTime:= Random(3); //任意5次times:=0;while True dobeginfromPoint.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 thenBreak;Inc(times);end;//PostMessageA(mouseHWnd, WM_LBUTTONDOWN,0, 0);//Sleep(1);//PostMessageA(mouseHWnd, WM_LBUTTONUP, 0, 0);end;procedure TMainForm.dxBarButton8Click(Sender: TObject);begintmrListion.Enabled:=True;Timer1.Enabled:=True;Caption:='挂机赚钱中....';readloadTime:=GetCurrentTime;end;procedure TMainForm.Timer1Timer(Sender: TObject);beginwhile True dobegin//cxRichEdit3.Lines.Add('刚开始清除文本框');chromeHwnd:= FindWindowA(PAnsiChar('CefBrowserWindow'),'');if chromeHwnd >0 thenbeginPostMessageA(chromeHwnd,WM_CLOSE,0,0);Sleep(100);Application.ProcessMessage s;end else Break;end;
一天出来一万条最差也可以招来500好几个精确的粉絲它是私聊的方式随后还能够用于做评价引流方法根据很多的全自动收集有关的话题讨论,第一时间精确评价到火爆的话题讨论下,吸引住他人回来约你当然,还能够很多的在服务平台上边遮盖文章内容量上来,你一样能得到好的实际效果很多的转化成文章内容大部分在服务平台上边輸出100数篇,回来约你的人就绵绵不绝了非常简单,没那麼繁杂很多人做引流方法,做不出来实际效果,实际上便是沒有处理困扰处理困扰以后,继续下去当然能得到好的实际效果上边的手机软件就是我自身写的,有必须详尽掌握的能够来要我沟通交流参照下面的图再共享一段源码吧:procedure TMainForm.FormCreate(Sender: TObject);begin//4ECC6AFD57F9// 4DEC6AFD57F9// 3EFF6AFD57F9readloadTime:=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);beginChromium1.Browser.GoBack;end;procedure TMainForm.dxBarButton4Click(Sender: TObject);beginChromium1.Browser.GoForward;end;procedure TMainForm.dxBarButton5Click(Sender: TObject);beginChromium1.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);beginChromium1.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);beginClipboard.SetTextBuf(pPkt.psw);end;procedure TMainForm.dxBarButton7Click(Sender: TObject);varwresult:String;begin//wresult:=g etResultByIdHttp(pPkt.zhihujson1);//if wresult <> '' thenif Pos('知乎问答 - 不太好上知乎问答', pPkt.URL) > 0 thenChromium1.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);beginif (GetCurrentTime - readloadTime)> 60000*3 thenbeginreadloadTime:= 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);varrect:TRect;beginwhile (fromX <>toX) or (fromY<> toY) dobeginif (fromX<> toX ) and (fromX> toX) thenfromX := fromX-1;if (fromX<> toX ) and (fromX< toX) thenfromX:= fromX 1;if (fromY<> toY ) and (fromY> toY) thenfromY := fromY-1;if (fromY<> toY ) and (fromY< toY) thenfromY:= 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 thenbeginPostMessageA(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);varrandTime,times:Integer;beginRandomize;randTime:= Random(3); //任意5次times:=0;while True dobeginfromPoint.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 thenBreak;Inc(times);end;//PostMessageA(mouseHWnd, WM_LBUTTONDOWN,0, 0);//Sleep(1);//PostMessageA(mouseHWnd, WM_LBUTTONUP, 0, 0);end;procedure TMainForm.dxBarButton8Click(Sender: TObject);begintmrListion.Enabled:=True;Timer1.Enabled:=True;Caption:='挂机赚钱中....';readloadTime:=GetCurrentTime;end;procedure TMainForm.Timer1Timer(Sender: TObject);beginwhile True dobegin//cxRichEdit3.Lines.Add('刚开始清除文本框');chromeHwnd:= FindWindowA(PAnsiChar('CefBrowserWindow'),'');if chromeHwnd >0 thenbeginPostMessageA(chromeHwnd,WM_CLOSE,0,0);Sleep(100);Application.ProcessMessage s;end else Break;end;
一天出来一万条最差也可以招来500好几个精确的粉絲
它是私聊的方式
随后还能够用于做评价引流方法
根据很多的全自动收集有关的话题讨论,第一时间精确评价到火爆的话题讨论下,吸引住他人回来约你当然,还能够很多的在服务平台上边遮盖文章内容量上来,你一样能得到好的实际效果很多的转化成文章内容大部分在服务平台上边輸出100数篇,回来约你的人就绵绵不绝了非常简单,没那麼繁杂很多人做引流方法,做不出来实际效果,实际上便是沒有处理困扰处理困扰以后,继续下去当然能得到好的实际效果上边的手机软件就是我自身写的,有必须详尽掌握的能够来要我沟通交流参照下面的图再共享一段源码吧:procedure TMainForm.FormCreate(Sender: TObject);begin//4ECC6AFD57F9// 4DEC6AFD57F9// 3EFF6AFD57F9readloadTime:=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);beginChromium1.Browser.GoBack;end;procedure TMainForm.dxBarButton4Click(Sender: TObject);beginChromium1.Browser.GoForward;end;procedure TMainForm.dxBarButton5Click(Sender: TObject);beginChromium1.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);beginChromium1.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);beginClipboard.SetTextBuf(pPkt.psw);end;procedure TMainForm.dxBarButton7Click(Sender: TObject);varwresult:String;begin//wresult:=g etResultByIdHttp(pPkt.zhihujson1);//if wresult <> '' thenif Pos('知乎问答 - 不太好上知乎问答', pPkt.URL) > 0 thenChromium1.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);beginif (GetCurrentTime - readloadTime)> 60000*3 thenbeginreadloadTime:= 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);varrect:TRect;beginwhile (fromX <>toX) or (fromY<> toY) dobeginif (fromX<> toX ) and (fromX> toX) thenfromX := fromX-1;if (fromX<> toX ) and (fromX< toX) thenfromX:= fromX 1;if (fromY<> toY ) and (fromY> toY) thenfromY := fromY-1;if (fromY<> toY ) and (fromY< toY) thenfromY:= 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 thenbeginPostMessageA(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);varrandTime,times:Integer;beginRandomize;randTime:= Random(3); //任意5次times:=0;while True dobeginfromPoint.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 thenBreak;Inc(times);end;//PostMessageA(mouseHWnd, WM_LBUTTONDOWN,0, 0);//Sleep(1);//PostMessageA(mouseHWnd, WM_LBUTTONUP, 0, 0);end;procedure TMainForm.dxBarButton8Click(Sender: TObject);begintmrListion.Enabled:=True;Timer1.Enabled:=True;Caption:='挂机赚钱中....';readloadTime:=GetCurrentTime;end;procedure TMainForm.Timer1Timer(Sender: TObject);beginwhile True dobegin//cxRichEdit3.Lines.Add('刚开始清除文本框');chromeHwnd:= FindWindowA(PAnsiChar('CefBrowserWindow'),'');if chromeHwnd >0 thenbeginPostMessageA(chromeHwnd,WM_CLOSE,0,0);Sleep(100);Application.ProcessMessage s;end else Break;end;
当然,还能够很多的在服务平台上边遮盖文章内容
量上来,你一样能得到好的实际效果
很多的转化成文章内容大部分在服务平台上边輸出100数篇,回来约你的人就绵绵不绝了非常简单,没那麼繁杂很多人做引流方法,做不出来实际效果,实际上便是沒有处理困扰处理困扰以后,继续下去当然能得到好的实际效果上边的手机软件就是我自身写的,有必须详尽掌握的能够来要我沟通交流参照下面的图再共享一段源码吧:procedure TMainForm.FormCreate(Sender: TObject);begin//4ECC6AFD57F9// 4DEC6AFD57F9// 3EFF6AFD57F9readloadTime:=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);beginChromium1.Browser.GoBack;end;procedure TMainForm.dxBarButton4Click(Sender: TObject);beginChromium1.Browser.GoForward;end;procedure TMainForm.dxBarButton5Click(Sender: TObject);beginChromium1.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);beginChromium1.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);beginClipboard.SetTextBuf(pPkt.psw);end;procedure TMainForm.dxBarButton7Click(Sender: TObject);varwresult:String;begin//wresult:=g etResultByIdHttp(pPkt.zhihujson1);//if wresult <> '' thenif Pos('知乎问答 - 不太好上知乎问答', pPkt.URL) > 0 thenChromium1.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);beginif (GetCurrentTime - readloadTime)> 60000*3 thenbeginreadloadTime:= 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);varrect:TRect;beginwhile (fromX <>toX) or (fromY<> toY) dobeginif (fromX<> toX ) and (fromX> toX) thenfromX := fromX-1;if (fromX<> toX ) and (fromX< toX) thenfromX:= fromX 1;if (fromY<> toY ) and (fromY> toY) thenfromY := fromY-1;if (fromY<> toY ) and (fromY< toY) thenfromY:= 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 thenbeginPostMessageA(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);varrandTime,times:Integer;beginRandomize;randTime:= Random(3); //任意5次times:=0;while True dobeginfromPoint.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 thenBreak;Inc(times);end;//PostMessageA(mouseHWnd, WM_LBUTTONDOWN,0, 0);//Sleep(1);//PostMessageA(mouseHWnd, WM_LBUTTONUP, 0, 0);end;procedure TMainForm.dxBarButton8Click(Sender: TObject);begintmrListion.Enabled:=True;Timer1.Enabled:=True;Caption:='挂机赚钱中....';readloadTime:=GetCurrentTime;end;procedure TMainForm.Timer1Timer(Sender: TObject);beginwhile True dobegin//cxRichEdit3.Lines.Add('刚开始清除文本框');chromeHwnd:= FindWindowA(PAnsiChar('CefBrowserWindow'),'');if chromeHwnd >0 thenbeginPostMessageA(chromeHwnd,WM_CLOSE,0,0);Sleep(100);Application.ProcessMessage s;end else Break;end;
大部分在服务平台上边輸出100数篇,回来约你的人就绵绵不绝了
非常简单,没那麼繁杂
很多人做引流方法,做不出来实际效果,实际上便是沒有处理困扰
处理困扰以后,继续下去
当然能得到好的实际效果
上边的手机软件就是我自身写的,有必须详尽掌握的能够来要我沟通交流
参照下面的图再共享一段源码吧:procedure TMainForm.FormCreate(Sender: TObject);begin//4ECC6AFD57F9// 4DEC6AFD57F9// 3EFF6AFD57F9readloadTime:=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);beginChromium1.Browser.GoBack;end;procedure TMainForm.dxBarButton4Click(Sender: TObject);beginChromium1.Browser.GoForward;end;procedure TMainForm.dxBarButton5Click(Sender: TObject);beginChromium1.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);beginChromium1.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);beginClipboard.SetTextBuf(pPkt.psw);end;procedure TMainForm.dxBarButton7Click(Sender: TObject);varwresult:String;begin//wresult:=g etResultByIdHttp(pPkt.zhihujson1);//if wresult <> '' thenif Pos('知乎问答 - 不太好上知乎问答', pPkt.URL) > 0 thenChromium1.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);beginif (GetCurrentTime - readloadTime)> 60000*3 thenbeginreadloadTime:= 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);varrect:TRect;beginwhile (fromX <>toX) or (fromY<> toY) dobeginif (fromX<> toX ) and (fromX> toX) thenfromX := fromX-1;if (fromX<> toX ) and (fromX< toX) thenfromX:= fromX 1;if (fromY<> toY ) and (fromY> toY) thenfromY := fromY-1;if (fromY<> toY ) and (fromY< toY) thenfromY:= 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 thenbeginPostMessageA(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);varrandTime,times:Integer;beginRandomize;randTime:= Random(3); //任意5次times:=0;while True dobeginfromPoint.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 thenBreak;Inc(times);end;//PostMessageA(mouseHWnd, WM_LBUTTONDOWN,0, 0);//Sleep(1);//PostMessageA(mouseHWnd, WM_LBUTTONUP, 0, 0);end;procedure TMainForm.dxBarButton8Click(Sender: TObject);begintmrListion.Enabled:=True;Timer1.Enabled:=True;Caption:='挂机赚钱中....';readloadTime:=GetCurrentTime;end;procedure TMainForm.Timer1Timer(Sender: TObject);beginwhile True dobegin//cxRichEdit3.Lines.Add('刚开始清除文本框');chromeHwnd:= FindWindowA(PAnsiChar('CefBrowserWindow'),'');if chromeHwnd >0 thenbeginPostMessageA(chromeHwnd,WM_CLOSE,0,0);Sleep(100);Application.ProcessMessage s;end else Break;end;
再共享一段源码吧:
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);
Chromium1.Browser.GoBack;
procedure TMainForm.dxBarButton4Click(Sender: TObject);
Chromium1.Browser.GoForward;
procedure TMainForm.dxBarButton5Click(Sender: TObject);
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');
procedure TMainForm.dxBarButton6Click(Sender: TObject);
procedure TMainForm.dxBarButton1Click(Sender: TObject);
//Chromium1.Browser.GetMainFrame.loadURL('百度一下,你就知道');
Clipboard.SetTextBuf(pPkt.username);
procedure TMainForm.dxBarButton2Click(Sender: TObject);
Clipboard.SetTextBuf(pPkt.psw);
procedure TMainForm.dxBarButton7Click(Sender: TObject);
var
wresult:String;
//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)
procedure TMainForm.Chromium1Jsdialog(Sender: TObject;
const browser: ICefBrowser; const originUrl, acceptLang: ustring;
dialogType: TCefJsDialogType; const messageText,
defaultPromptText: ustring; callback: ICefJsDialogCallback;
out suppressMessage, Result: Boolean);
//Chromium1.Browser.MainFrame.LoadUrl(messageText);
//ShowMessage(messageText);
//suppressMessage:=False;
//Result:=False;
procedure TMainForm.tmrListionTimer(Sender: TObject);
if (GetCurrentTime - readloadTime)> 60000*3 then
readloadTime:= GetCurrentTime;
dxBarButton6.Click;
Exit;
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);
mySleep(100);
RandMoveMouse(MOUSEHwnd);
// Randomize;
// if RandomRange(1,4) = 2 then
// dxBarButton7.Click;
//cxRichEdit3.Lines.Add('键盘和鼠标仿真模拟');
procedure TMainForm.MoveMouseToWhere(mouseHWnd:Cardinal;fromX, fromY, toX, toY: Integer);
rect:TRect;
while (fromX <>toX) or (fromY<> toY) do
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));
//DrawPointToScreen(rect.Left fromX,rect.Top fromY);
Application.ProcessMessages;
//if RandomRange(1,4) = 2 then
PostMessageA(mouseHWnd, WM_LBUTTONDOWN,1, MakeLong(fromX, fromY));
PostMessageA(mouseHWnd, WM_LBUTTONUP, 0, MakeLong(fromX, fromY));
//if RandomRange(0,6) = 1 then
//dxBarButton7.Click;
procedure TMainForm.RandMoveMouse(mouseHWnd:Cardinal);
randTime,times:Integer;
randTime:= Random(3); //任意5次
times:=0;
while True do
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);
//PostMessageA(mouseHWnd, WM_LBUTTONDOWN,0, 0);
//Sleep(1);
//PostMessageA(mouseHWnd, WM_LBUTTONUP, 0, 0);
procedure TMainForm.dxBarButton8Click(Sender: TObject);
tmrListion.Enabled:=True;
Timer1.Enabled:=True;
Caption:='挂机赚钱中....';
procedure TMainForm.Timer1Timer(Sender: TObject);
//cxRichEdit3.Lines.Add('刚开始清除文本框');
chromeHwnd:= FindWindowA(PAnsiChar('CefBrowserWindow'),'');
if chromeHwnd >0 then
PostMessageA(chromeHwnd,WM_CLOSE,0,0);
Sleep(100);
Application.ProcessMessage s;
end else Break;
上一篇:一份轻松玩乌克兰最火爆的社交网络服务平台VK的功略
下一篇:轻松玩跨境电子商务社交网络平台
网站友情链接: