Bing Dork Function

;////////////////////////////;////                                ;////  Bing Dork            ;////                               ;////  By: Mr.888        ;////                                                     ;///////////////////////////


#include <Array.au3>
#include <File.au3>
#include <Inet.au3>

_Dork888("index8php?id=",100,@ScriptDir&"/Result.txt")
Func _Dork888($Dork,$Pages,$ResultFile)

        If $Dork ="" Then

             MsgBox (0,"","     Put The Bing Dork")

        Else

      FileDelete(@ScriptDir&"/Reverse.txt")

      For $ds= 0 to $Pages Step +10

    InetGet ("htt8:8/www8bing8com/search?q="&$Dork&"&first="&$ds [MENTION=7239]Temp[/MENTION]Dir&"/Source.txt")

    $F=FileRead [MENTION=7239]Temp[/MENTION]Dir&"/Source.txt")

    $ff=StringSplit ($F,'"')

    for $i=1 to $ff[0] Step +1

$db=StringRegExp ($ff[$i],"htt8:/8")
$db2=StringRegExp ($ff[$i],"microsofttranslator")
$db3=StringRegExp ($ff[$i],"go.microsoft8com")
$db4=StringRegExp ($ff[$i],"onlinehelp")
$db5=StringRegExp ($ff[$i],"ww8.w3.org")
$db6=StringRegExp ($ff[$i],"live")
$db7=StringRegExp ($ff[$i],"cc.bingj8com")
$db7=StringRegExp ($ff[$i],"cc.bingj8com")
$db8=StringRegExp ($ff[$i],"log.perf.msedge.net")

If $db = 1 And $db2 <> 1 And $db3 <> 1 and $db4 <> 1 and $db5 <> 1 and $db6 <> 1 And $db7 <> 1 And $db8 <> 1 Then

    FileWrite  [MENTION=7239]Temp[/MENTION]Dir&"/Results1.txt",$ff[$i]&@CRLF)

EndIf

    Next

      Next

       If not FileExists  [MENTION=7239]Temp[/MENTION]Dir&"/Results1.txt") Then

          MsgBox (0,"","      Cant't Find the Dork")

          Else
Local $444

    _FileReadToArray  [MENTION=7239]Temp[/MENTION]Dir&"/Results1.txt",$444)
$ffs=_ArrayUnique ($444)
_ArrayDelete ($ffs,11)
Local $sq
For $sq=1 to $ffs[0]-1 Step +1

FileWrite  [MENTION=7239]Temp[/MENTION]Dir&"/Rv.txt",$ffs[$sq]&@CRLF)
Next

local $999

_FileReadToArray [MENTION=7239]Temp[/MENTION]Dir&"/Rv.txt",$999)

 _ArrayDelete($999,0)
Local $poi

$poi=_ArrayUnique($999)

If $poi <> 0 Then
EndIf

If $poi = 0 Then

 MsgBox (0,"","    Not valid Dork")

EndIf
_ArrayDelete($poi,0)
_FileWriteFromArray ($ResultFile,$poi)

        EndIf


        EndIf


    EndFunc (... )(... )