Telefonterror tool

[wowa]

lässt das Telefon klingeln mit unbekannte Nummer.
funktioniert immer noch über branchen-info.net





Download

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include<String.au3>
#include <Array.au3>
#include <File.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Terror by wowa", 345, 128, 192, 124)
$Label1 = GUICtrlCreateLabel("Telefon terror by wowa", 32, 0, 280, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$Button = GUICtrlCreateButton("Start terror", 225, 55, 90, 40)
$Labe4 = GUICtrlCreateLabel("Vorwahl:", 32, 50, 100, 17)
$Tel = GUICtrlCreateInput("", 32, 70, 55, 21)
$Labe2 = GUICtrlCreateLabel("Nummer:", 95, 50, 100, 17)
$Tel2 = GUICtrlCreateInput("", 95, 70, 70, 21)
$Label2 = GUICtrlCreateLabel("Bitte nur Festnetznummer eingeben!", 32, 110, 173, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $Button
            _Main()

        Case $Form1
    EndSwitch
WEnd



Func _Main()

$oIE = _IECreate("http://www.branchen-info.net/kostenlos_anrufen/",0,0,1)
$oForm = _IEFormGetObjByName($oIE, "f")

Local $oQuery = _IEFormElementGetObjByName($oForm, "c_vorwahl")
_IEFormElementSetValue($oQuery, GUICtrlRead($Tel))

Local $oQuery = _IEFormElementGetObjByName($oForm, "c_telefon")
_IEFormElementSetValue($oQuery, GUICtrlRead($Tel2))
_IEFormSubmit($oForm)

$HTML = _IEBodyReadHTML($oIE)
$String = _StringBetween($HTML,'onclick="window.open(','width=650')
_FileWriteFromArray(@TempDir & "\string.txt", $String, 1)

Local $file = FileOpen(@TempDir & "\string.txt", 0)
   $line = FileReadLine($file)
   $result = StringTrimLeft($line, 1)
   $result2 = StringTrimRight($result, 11)
FileClose($file)
_IEQuit($oIE)

; 2 aktion

$oIE = _IECreate($result2,0,0,1)
$oForm = _IEFormGetObjByName($oIE, "f")

Local $oQuery = _IEFormElementGetObjByName($oForm, "VORWAHL")
_IEFormElementSetValue($oQuery, GUICtrlRead($Tel))

Local $oQuery = _IEFormElementGetObjByName($oForm, "RUFNUMMER")
_IEFormElementSetValue($oQuery, GUICtrlRead($Tel2))

_IEFormSubmit($oForm)
_IEQuit($oIE)
MsgBox(262144,"dgwv2 terror","Telefon sollte jetzt klingeln",0)

Endfunc