lässt das Telefon klingeln mit unbekannte Nummer.
funktioniert immer noch über branchen-info.net
http://www0.xup.in/exec/ximg.php?fid=50937426
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
