Ergebnis 1 bis 1 von 1
  1. #1
    Trojaner Avatar von wowa
    Registriert seit
    31.05.2009
    Beiträge
    73

    Standard Telefonterror tool

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





    Download


    Code:
    #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
    Play with the Best, and Fuck the Rest

  2. Folgende Benutzer haben sich für diesen Beitrag bedankt:

    hoschi111 (13.04.2015), Shadowgamer (14.04.2015)

Ähnliche Themen

  1. Telefonterror O2
    Von peppy im Forum Biete Tutorials
    Antworten: 10
    Letzter Beitrag: 24.12.2010, 08:53
  2. TelefonTerror
    Von FrozenIron im Forum Mobile Devices
    Antworten: 36
    Letzter Beitrag: 23.11.2008, 20:12
  3. Telefonterror
    Von FrozenIron im Forum Mobile Devices
    Antworten: 31
    Letzter Beitrag: 27.08.2008, 09:31

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •