Nicht angemeldet.
Hier können Sie Ihre eigenen Skripte und UDF's veröffentlichen undanderen zum Download anbieten oder von anderen herunterladen
Zitat von »w0uter« when i tried to use the _INetGetSource() UDF on google.com/search? it got mad at me for violating the rules. (some stuff about no bot searches). so i made this. it return the first 10 (unless you specified diff @ google) links about the search param's ex usage $array = _Google('autoitscript') $array[0] = number of links. $array[1-10] = links.
Func _Google($s_q) ;locals Local $s_temp, $s_IE, $o_IE, $as_ret = '' $o_IE = ObjCreate ("InternetExplorer.Application") $o_IE.Navigate ('http://www.google.com/search?q=' & $s_q) While $o_IE.busy Sleep(10) WEnd $s_IE = $o_IE.document.body.innerHTML $s_IE = StringRegExp($s_IE, "<A(.*?)>", 3) For $i_count = 0 To UBound($s_IE) - 1 $s_temp = StringLeft($s_IE[$i_count], StringInStr($s_IE[$i_count], '"', 0, -1) - 1) $s_temp = StringReplace(StringTrimLeft($s_temp, StringInStr($s_temp, '"', 0, -1)), '&', '&') If StringLeft($s_temp, 1) = '/' Or StringInStr($s_temp, 'google') Or StringInStr($s_temp, 'cache') Then ContinueLoop $as_ret &= $s_temp & '&*|&%' Next $as_ret = StringTrimRight($as_ret, 5) $as_ret = StringSplit($as_ret, '&*|&%', 1) Return $as_ret EndFunc ;==>_Google
Dauerhaft angemeldet bleiben?