Hi, ich möchte aus den Gelben Seiten bestimmte Branchen auslesen und diese in mein Adressbuch übertragen.
Dazu habe ich bis jetzt das angehängte gemacht,aber das Skript endet nach dem Submit im Nirvana.
Sprich es ist noch im Speicher aber es geht nicht weiter.
Warum nicht,es sollte mich danach nach der Trefferzahl fragen tut es aber nicht
#include <IE.au3>
Dim $answer
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
$answer = 1
$sUrl = "http://www.gelbeseiten.de/yp/quick.yp"
$oIE = _IECreate ($sUrl,0,1,1,0)
$oHWND = _IEPropertyGet($oIE, "hwnd")
WinSetState ($oHWND, "", @SW_MAXIMIZE )
$oForm = _IEFormGetCollection ($oIE, 0)
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc
$sLocation = InputBox("Ortsabfrage", "Wo soll gesucht werden ?", "Karlsruhe", "", _
-1, -1, 0, 0)
$sGesuchtes = InputBox("Branche", "Welche Branche soll gesucht werden ?", "Motorradshop", "", _
-1, -1, 0, 0)
if StatusbarGetText( "GelbeSeiten - Branchenbuch - Shopping - SMS Auskunft - Stadtplan - Microsoft Internet Explorer", "Fertig") Then
[/autoit][autoit][/autoit][autoit]$oLocation = _IEFormElementGetObjByName ($oForm, "location")
$oGesuchtes = _IEFormElementGetObjByName ($oForm, "subject")
_IEFormElementSetValue ($oLocation, $sLocation)
_IEFormElementSetValue ($oGesuchtes, $sGesuchtes)
_IEFormSubmit ($oForm)
EndIf
[/autoit][autoit][/autoit][autoit]$Treffer = InputBox("Trefferfrage", "Wieviele Treffer ergab die suche ?", "1", "", _
-1, -1, 0, 0)
Wäre klasse wenn mir da jemand auf die Sprünge helfen könnte.
mfg