check_autoit/wikisearch.au3 at master · NETWAYS/check_autoit · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.1
 Author:         myName

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
$ConfigINI = $CMDLine[1]
$SearchString1 = $CMDLine[2]
$SearchString2 = $CMDLine[3]
$ScriptTitle = ("Wiki-Search")


$URLHome = IniRead($ConfigINI, "wiki", "urlhome", "www.heise.de")


#include <ie.au3>

; start Timeline
$timeline = TimerInit()

$oIE = _IECreate ($URLHome)
If IsObj($oIE) Then
_IELoadWait($oIE)
$oForm = _IEFormGetObjByName($oIE, "quick-search")
$IESearch = _IEFormElementGetObjByName($oForm, "quick-search-query")
_IEFormElementSetValue($IESearch, $SearchString1)
$IESend = _IEFormElementGetObjByName($oForm, "quick-search-submit")
;_IEFormElementSetValue($oPasswd, $Passwort)
_IEFormSubmit($oForm)
_IELoadWait($oIE)
$oForm = _IEFormGetObjByName($oIE, "quick-search")
$IESearch = _IEFormElementGetObjByName($oForm, "quick-search-query")
_IEFormElementSetValue($IESearch, $SearchString2)
$IESend = _IEFormElementGetObjByName($oForm, "quick-search-submit")
;_IEFormElementSetValue($oPasswd, $Passwort)
_IEFormSubmit($oForm)
_IELoadWait($oIE)


WinClose($oIE)


Else

ConsoleWriteError("ERROR!!! No Internet Explorer Task startet")
exit(3)
EndIf


$dif = TimerDiff($timeline) / 1000
$result = StringLeft($dif, 5)
;ConsoleWrite("" & $result)
exit("" & $result)