Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/linq/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Browser 修改AutoIt脚本以使用其他浏览器_Browser_Bots_Autoit - Fatal编程技术网
Fatal编程技术网
  • browser/
  • Browser 修改AutoIt脚本以使用其他浏览器

Browser 修改AutoIt脚本以使用其他浏览器

browser bots

Browser 修改AutoIt脚本以使用其他浏览器,browser,bots,autoit,Browser,Bots,Autoit,我需要一个用AutoIt制作的Twitter reporter机器人的帮助。它使用Internet Explorer，我的坏了，所以我想把它换成Google Chrome #NoTrayIcon #include <MsgBoxConstants.au3> #include <IE.au3> #include <String.au3> #include <INet.au3> #include <GUIConstantsEx.au3> #

我需要一个用AutoIt制作的Twitter reporter机器人的帮助。它使用Internet Explorer，我的坏了，所以我想把它换成Google Chrome

#NoTrayIcon
#include <MsgBoxConstants.au3>
#include <IE.au3>
#include <String.au3>
#include <INet.au3>
#include <GUIConstantsEx.au3>
#Include <GuiEdit.au3>
#include <MsgBoxConstants.au3>

Global $o = 'opparis'
Global $n = 'TweetHollande'
Global $op_sr = 'optools.anonops.com'
Global $showie = True

$ans = MsgBox(4,"Twitter Reporter (#OpParis) - AO Tools (v.1.0.1)","Would you like to show Internet Explorer during operation? (Recommended: Yes)")
Select
    Case $ans = 6
        $showie = True
    Case $ans = 7
        $showie = False
EndSelect

$gui = GUICreate("Twitter Reporter (#OpParis) - AO Tools (v.1.0.1)", 310, 340, 200, 150)
Global $editctrl = GUICtrlCreateEdit("", 10, 10, 300, 330)
GUISetState(@SW_SHOW)
Opt("GUIOnEventMode", 1)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEButton")

Func CLOSEButton()
    _IEQuit($i)
    Exit
EndFunc

loggin("Twitter Reporter (#OpParis) - AO Tools (v.1.0.0)"&@CRLF&@CRLF)
loggin("Starting up! Close this window at anytime to stop."&@CRLF&@CRLF)

Func updateTarget($t)
  $tg = _INetGetSource("http://"&$op_sr&"/twUpdateTarget.php?o="&$o&"&t="&$t)

  If $tg == "" OR $tg == "0" OR StringInStr($tg,"Website is offline") OR StringInStr($tg,"Checking your browser") Then
    If $showie == True Then
      $zz = _IECreate("http://"&$op_sr&"/twUpdateTarget.php?o="&$o&"&t="&$t)
    Else
      $zz = _IECreate ("http://"&$op_sr&"/twUpdateTarget.php?o="&$o&"&t="&$t,0,0)
    EndIf
    _IELoadWait($zz)
    $tg = _IEBodyReadText($zz)
    If StringInStr($tg,"Checking your browser") Then
      sleep(6000)
      $tg = _IEBodyReadText($zz)
    EndIf
    _IEQuit($zz)
  EndIf

  If $tg == "Target removed!" Then
    loggin("~ Target Removed: "&$t&" ~"&@CRLF)
  EndIf
EndFunc

Func loggin($message)
  ConsoleWrite($message)
  _GUICtrlEdit_AppendText($editctrl,$message)
EndFunc

If $showie == True Then
  Global $i = _IECreate ("https://twitter.com/login")
Else
  Global $i = _IECreate ("https://twitter.com/login",0,0)
EndIf
_IELoadWait($i)

$url = _IEPropertyGet($i,"locationurl")
If $url == "https://twitter.com/" Then
  loggin("****"&@CRLF&"WARNING: Already logged in to Twitter in IE!"&@CRLF&@CRLF&"Dont want to use the logged-in account?"&@CRLF&"Then Please:"&@CRLF&"1.) Close this application"&@CRLF&"2.) Open Internet Explorer"&@CRLF&"3.) Logout of Twitter"&@CRLF&"4.) Restart this Application"&@CRLF&@CRLF&"***"&@CRLF)
  loggin(@CRLF&"Sleeping 30 seconds for a chance for an action..."&@CRLF&@CRLF)
  Sleep(30000)
Else
  Local $lUser = InputBox("Login", "Enter Twitter Username", "")
  $n = $lUser
  Local $lPass = InputBox("Login", "Enter Twitter Password.", "", "*")
  $f = _IEFormGetCollection($i, 2)
  $u = _IEFormElementGetCollection ($f, 1)
  $p = _IEFormElementGetCollection ($f, 2)
  _IEFormElementSetValue ($u, $lUser)
  _IEFormElementSetValue ($p, $lPass)
  _IEFormSubmit ($f)
  _IELoadWait($i)
  sleep(1000)
EndIf

$url = _IEPropertyGet($i,"locationurl")
If $url <> "https://twitter.com/" Then
  MsgBox($MB_SYSTEMMODAL, "Login", "Twitter Login Invalid")
  _IEQuit($i)
  Exit
EndIf

While 1

  $tg = _INetGetSource("http://"&$op_sr&"/twGetTarget.php?o="&$o&"&n="&$n)

  If $tg == "" OR $tg == "0" OR StringInStr($tg,"Website is offline") OR StringInStr($tg,"Error") OR StringInStr($tg,"Checking your browser") OR StringInStr($tg,"Cloudflare") Then
    If $showie == True Then
      $iz = _IECreate("http://"&$op_sr&"/twGetTarget.php?o="&$o&"&n="&$n)
    Else
      $iz = _IECreate ("http://"&$op_sr&"/twGetTarget.php?o="&$o&"&n="&$n,0,0)
    EndIf
    _IELoadWait($iz)
    $tg = _IEBodyReadText($iz)
    If StringInStr($tg,"Checking your browser") Then
      sleep(6000)
      $tg = _IEBodyReadText($iz)
    EndIf
    _IEQuit($iz)
   EndIf

   ; check for cloudflare and other errors
   $res = StringRegExp($tg,"%20", 3)
   If @error Then
           $nbOccurences = 0
   Else
           $nbOccurences = UBound($res)
   Endif

  If $nbOccurences > 2 OR $tg == "noassignment" OR $tg == "" OR $tg == "0" OR StringInStr($tg,"Error") OR StringInStr($tg,"Website is offline") OR StringInStr($tg,"Checking your browser")  OR StringInStr($tg,"Cloudflare") Then
    loggin("No Assignment"&@CRLF)
    Sleep(10000)
  Else
    loggin("* Target: "&$tg)

    _IENavigate($i,"https://twitter.com/"&$tg)
    _IELoadWait($i)
    $txt = _IEBodyReadText ($i)
    sleep(1000)
    If StringInStr($txt,'Sorry, that page doesn’t exist!') Then
      loggin(" - Does not exist"&@CRLF)
      updateTarget($tg)
    ElseIf StringInStr($txt,'Account suspended')  Then
      loggin(" - Account suspended"&@CRLF)
      updateTarget($tg)
    ElseIf StringInStr($txt,'Tweets are protected.')  Then
      loggin(" - Reporting"&@CRLF)
      Local $oInputs = _IETagNameGetCollection($i, "button")
      For $oInput In $oInputs
        If $oInput.classname == "user-dropdown dropdown-toggle js-dropdown-toggle js-link js-tooltip btn plain-btn" Then _IEAction($oInput, "click")
      Next

      Local $oInputs = _IETagNameGetCollection($i, "button")
      For $oInput In $oInputs
        If $oInput.innerHtml == "Report" Then _IEAction($oInput, "click")
      Next

      sleep(500)
      $fr = _IEFrameGetCollection($i, 1)
      $fm = _IEFormGetCollection($i, 1)
      $oDoc = _IEDocGetObj($fr)
      $oArray = $oDoc.getElementsByTagName("input")
      For $element In $oArray
          If $element.value = "abuse" Then
              _IEAction($element, "click")
          EndIf
      Next

      Local $oInputs = _IETagNameGetCollection($i, "button")
      For $oInput In $oInputs
        If $oInput.innerHtml == "Next" Then _IEAction($oInput, "click")
      Next

      sleep(500)
      $fr = _IEFrameGetCollection($i, 1)
      $fm = _IEFormGetCollection($i, 1)
      $oDoc = _IEDocGetObj($fr)
      $oArray = $oDoc.getElementsByTagName("input")
      For $element In $oArray
          If $element.value = "harassment" Then
              _IEAction($element, "click")
          EndIf
      Next

      Local $oInputs = _IETagNameGetCollection($i, "button")
      For $oInput In $oInputs
        If $oInput.innerHtml == "Next" Then _IEAction($oInput, "click")
      Next

      sleep(500)
      $fr = _IEFrameGetCollection($i, 1)
      $fm = _IEFormGetCollection($i, 1)
      $oDoc = _IEDocGetObj($fr)
      $oArray = $oDoc.getElementsByTagName("input")
      For $element In $oArray
          If $element.value = "Someone_else" Then
              _IEAction($element, "click")
          EndIf
      Next

      Local $oInputs = _IETagNameGetCollection($i, "button")
      For $oInput In $oInputs
        If $oInput.innerHtml == "Next" Then _IEAction($oInput, "click")
      Next

      sleep(500)
      $fr = _IEFrameGetCollection($i, 1)
      $fm = _IEFormGetCollection($i, 1)
      $oDoc = _IEDocGetObj($fr)
      $oArray = $oDoc.getElementsByTagName("input")
      For $element In $oArray
          If $element.value = "violence" Then
              _IEAction($element, "click")
          EndIf
      Next

      Local $oInputs = _IETagNameGetCollection($i, "button")
      For $oInput In $oInputs
        If $oInput.innerHtml == "Next" Then _IEAction($oInput, "click")
      Next
    Else
      loggin(" - Reporting"&@CRLF)
      Local $oInputs = _IETagNameGetCollection($i, "button")
      For $oInput In $oInputs
        If $oInput.classname == "user-dropdown dropdown-toggle js-dropdown-toggle js-link js-tooltip btn plain-btn" Then _IEAction($oInput, "click")
      Next

      Local $oInputs = _IETagNameGetCollection($i, "button")
      For $oInput In $oInputs
        If $oInput.innerHtml == "Report" Then _IEAction($oInput, "click")
      Next

      sleep(500)
      $fr = _IEFrameGetCollection($i, 1)
      $fm = _IEFormGetCollection($i, 1)
      $oDoc = _IEDocGetObj($fr)
      $oArray = $oDoc.getElementsByTagName("input")
      For $element In $oArray
          If $element.value = "abuse" Then
              _IEAction($element, "click")
          EndIf
      Next

      Local $oInputs = _IETagNameGetCollection($i, "button")
      For $oInput In $oInputs
        If $oInput.innerHtml == "Next" Then _IEAction($oInput, "click")
      Next

      sleep(500)
      $fr = _IEFrameGetCollection($i, 1)
      $fm = _IEFormGetCollection($i, 1)
      $oDoc = _IEDocGetObj($fr)
      $oArray = $oDoc.getElementsByTagName("input")
      For $element In $oArray
          If $element.value = "harassment" Then
              _IEAction($element, "click")
          EndIf
      Next

      Local $oInputs = _IETagNameGetCollection($i, "button")
      For $oInput In $oInputs
        If $oInput.innerHtml == "Next" Then _IEAction($oInput, "click")
      Next

      sleep(500)
      $fr = _IEFrameGetCollection($i, 1)
      $fm = _IEFormGetCollection($i, 1)
      $oDoc = _IEDocGetObj($fr)
      $oArray = $oDoc.getElementsByTagName("input")
      For $element In $oArray
          If $element.value = "Someone_else" Then
              _IEAction($element, "click")
          EndIf
      Next

      Local $oInputs = _IETagNameGetCollection($i, "button")
      For $oInput In $oInputs
        If $oInput.innerHtml == "Next" Then _IEAction($oInput, "click")
      Next

      sleep(500)
      $fr = _IEFrameGetCollection($i, 1)
      $fm = _IEFormGetCollection($i, 1)
      $oDoc = _IEDocGetObj($fr)
      $oArray = $oDoc.getElementsByTagName("input")
      For $element In $oArray
          If $element.value = "violence" Then
              _IEAction($element, "click")
          EndIf
      Next

      Local $oInputs = _IETagNameGetCollection($i, "button")
      For $oInput In $oInputs
        If $oInput.innerHtml == "Next" Then _IEAction($oInput, "click")
      Next
    EndIf
    sleep(1000)
  EndIf
WEnd

#非彩虹图标
#包括
#包括
#包括
#包括
#包括
#包括
#包括
全局$o='opparis'
全球$n='TweetHollande'
全局$op_sr='optools.anonops.com'
全局$showie=True
$ans=MsgBox（4，“Twitter Reporter（#OpParis）-AO工具（v.1.0.1）”，“您想在运行期间显示Internet Explorer吗？（建议：是）”
挑选
案例$ans=6
$showie=True
案例$ans=7
$showie=False
结束选择
$gui=GUICreate（“推特记者（OpParis）-AO工具（v.1.0.1）”，310340200150）
全局$editctrl=GUICtrlCreateEdit（“、10、10、300、330）
GuiseState（@SW_SHOW）
选项（“GUIOnEventMode”，1）
GUISetOnEvent（$GUI\u事件\u关闭，“关闭按钮”）
Func CLOSEButton（）
_IEQuit（一美元）
出口
EndFunc
loggin（“推特记者（OpParis）-AO工具（v.1.0.0）”&@CRLF&@CRLF）
loggin（“启动！随时关闭此窗口以停止。”&@CRLF&@CRLF）
Func updateTarget（$t）
$tg=_INetGetSource（“http://”和$op_sr&“/twUpdateTarget.php？o=“&$o&”&t=“&$t”）
如果$tg==“”或$tg==“0”或StringInStr（$tg，“网站处于脱机状态”）或StringInStr（$tg，“检查浏览器”），则
如果$showie==True，则
$zz=_IECreate（“http://”和$op_sr&“/twUpdateTarget.php？o=“&$o&“&t=“&$t”）
其他的
$zz=_IECreate（“http://”和$op_sr&“/twUpdateTarget.php？o=“&$o&“&t=”&$t，0,0）
恩迪夫
_IELoadWait（$zz）
$tg=\u IEBodyReadText（$zz）
如果StringInStr（$tg，“检查浏览器”），那么
睡眠（6000）
$tg=\u IEBodyReadText（$zz）
恩迪夫
_IEQuit（$zz）
恩迪夫
如果$tg==“目标已删除！”则
日志记录（“~目标已删除：&$t&”~“&@CRLF）
恩迪夫
EndFunc
Func loggin（$message）
控制台写入（$message）
_GUICtrlEdit_AppendText（$editctrl，$message）
EndFunc
如果$showie==True，则
全局$i=\u IECreate（“https://twitter.com/login")
其他的
全局$i=\u IECreate（“https://twitter.com/login",0,0)
恩迪夫
_IELoadWait（一美元）
$url=\u IEPropertyGet（$i，“locationurl”）
如果$url==”https://twitter.com/”“那么
loggin（“****”&@CRLF&“警告：已经在IE中登录到Twitter！”&@CRLF&@CRLF&“不想使用登录的帐户？”&@CRLF&“那么请：&@CRLF&“1.）关闭此应用程序”&@CRLF&“2.）打开Internet Explorer”&@CRLF&“3.）注销Twitter”&@CRLF&“4.）重新启动此应用程序”&@CRLF&@CRLF&@CRLF&“CRLF&”&“***”和@CRLF）
loggin（@CRLF&“睡眠30秒以获得行动机会…”&@CRLF&@CRLF）
睡眠（30000）
其他的
本地$lUser=InputBox（“登录”，“输入Twitter用户名”，“登录”）
$n=$lUser
本地$lPass=InputBox（“登录”、“输入Twitter密码”）、“”、“*”）
$f=\u IEFormGetCollection（$i，2）
$u=\u IEFormElementGetCollection（$f，1）
$p=\u IEFormElementGetCollection（$f，2）
_IEFormElementSetValue（$u，$lUser）
_IEFormElementSetValue（$p，$lPass）
_IEFormSubmit（f美元）
_IELoadWait（一美元）
睡眠（1000）
恩迪夫
$url=\u IEPropertyGet（$i，“locationurl”）
如果$url“https://twitter.com/”“那么
MsgBox（$MB_SYSTEMMODAL，“登录”，“Twitter登录无效”）
_IEQuit（一美元）
出口
恩迪夫
而1
$tg=_INetGetSource（“http://”和$op_sr&“/twGetTarget.php？o=“&$o&“&n=”&$n）
如果$tg==“或$tg==“0”或StringInStr（$tg，“网站脱机”）或StringInStr（$tg，“错误”）或StringInStr（$tg，“检查浏览器”）或StringInStr（$tg，“Cloudflare”），则
如果$showie==True，则
$iz=_IECreate（“http://”和$op_sr&“/twGetTarget.php？o=“&$o&“&n=“&$n”）
其他的
$iz=_IECreate（“http://”和$op_sr&“/twGetTarget.php？o=“&$o&“&n=”&$n，0,0）
恩迪夫
_IELoadWait（$iz）
$tg=\u IEBodyReadText（$iz）
如果StringInStr（$tg，“检查浏览器”），那么
睡眠（6000）
$tg=\u IEBodyReadText（$iz）
恩迪夫
_IEQuit（$iz）
恩迪夫
; 检查cloudflare和其他错误
$res=StringRegExp（$tg，“%20”，3）
如果@error那么
$nboccurrences=0
其他的
$nboccurrences=UBound（$res）
恩迪夫
如果$NBOccurrencess>2或$tg==“noassignment”或$tg==“0”或StringInStr（$tg，“错误”）或StringInStr（$tg，“网站脱机”）或StringInStr（$tg，“检查浏览器”）或StringInStr（$tg，“Cloudflare”），则
loggin（“无分配”和@CRLF）
睡眠（10000）
其他的
loggin（“*目标：&$tg）
_伊纳维盖特（$i，”https://twitter.com/“&$tg）
_IELoadWait（一美元）
$txt=\u IEBodyReadText（$i）
睡眠（1000）
如果StringInStr（$txt，'对不起，该页面没有€™“不存在！”）那么
loggin（“-不存在”&@CRLF）
updateTarget（$tg）
ElseIf StringInStr（$txt，'Account suspended'），然后
日志记录（“-账户暂停”和@CRLF）
updateTarget（$tg）
ElseIf StringInStr（$txt，“Tweets受保护”）
日志（“-报告”和@CRLF）
本地$oInputs=\u IETagNameGetCollection（$i，“按钮”）
对于$oInputs，输入$oInputs
如果$oInput.classname==“用户下拉切换js下拉切换js链接js工具提示btn普通btn”，则_IEAction（$oInput，“单击”）
下一个
本地$oInputs=\u IETagNameGetCollection（$i，“按钮”）
对于$oInputs，输入$oInputs
如果$oInput.innerHtml==“报告”，则_IEAction（$oInput，“单击”）
下一个
睡眠（500）
$fr=\u IEFrameGetCollection（$i，1）
$fm=\u IEFormGetCollection（$i，1）
$oDoc=\u IEDocGetObj（$fr）
$oArray=$oDoc.getElementsByTagName（“输入”）
对于$oArray中的$element
如果$element.value=“滥用”，则
_IEAction（$元素，“单击”）
恩迪夫
下一个
本地$oInputs=\u IETagNameGetCollection（$i，“按钮”）
对于$oInputs，输入$oInputs
如果$oInput.innerHtml==“下一步”，则_IEAction（$oInput，“单击”）
下一个
睡眠（500）
$fr=\u IEFrameGetCollection（$i，1）
$fm=\u IEFormGetCollection（$i，1）
$oDoc=\u IEDocGetObj（$fr）
$oArray=$oDoc.getElementsByTagName（“输入”）
对于$oArray中的$element
如果$element.value=“骚扰”，则
_IEAction（$元素，“单击”）
恩迪夫
下一个

@echo off
start chrome *website*
start firefox *website*



Run("*name of you bat file*.bat")