I have a windows 10 pc and Im trying to create an automatic solving in calculator with a simple worded question (example: What is 45 x 53 ?). thou I cant make the select...Case...EndSelect statement work, here is my code
#include <AutoItConstants.au3>
HotKeySet("{F4}", "ExitProg")
Func ExitProg()
Exit 0
EndFunc
MouseClick($MOUSE_CLICK_LEFT, 417, 659, 2, 1)
Send("^c")
Func valData()
$Chek = "What "
If ClipGet() == $Chek Then
Check()
Else
Do
MouseClick($MOUSE_CLICK_LEFT, 417, 659, 2, 3)
Send("^c")
Sleep(500)
Until ClipGet() == $Chek
EndIf
EndFunc
Func Check()
$Chek2 = "?"
c1()
c2()
c3()
c4()
c5()
c6()
c7()
Select
Case c1() = $Chek2
;two
MouseClick($MOUSE_CLICK_LEFT, 453, 645, 2, 1)
Send("^c")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
Send("^v")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 474, 645, 2, 1)
Send("^c")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
Send("*")
Send("^v")
Send("{NUMPADENTER}")
Case c2() = $Chek2
;three
MouseClick($MOUSE_CLICK_LEFT, 453, 645, 2, 1)
Send("^c")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
Send("^v")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 482, 645, 2, 1)
Send("^c")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
Send("*")
Send("^v")
Send("{NUMPADENTER}")
Case c3() = $Chek2
;four
MouseClick($MOUSE_CLICK_LEFT, 453, 645, 2, 1)
Send("^c")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
Send("^v")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 487, 645, 2, 1)
Send("^c")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
Send("*")
Send("^v")
Send("{NUMPADENTER}")
Case c4() = $Chek2
;five
MouseClick($MOUSE_CLICK_LEFT, 453, 645, 2, 1)
Send("^c")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
Send("^v")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 495, 645, 2, 1)
Send("^c")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
Send("*")
Send("^v")
Send("{NUMPADENTER}")
Case c5() = $Chek2
;six
MouseClick($MOUSE_CLICK_LEFT, 453, 645, 2, 1)
Send("^c")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
Send("^v")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 495, 645, 2, 1)
Send("^c")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
Send("*")
Send("^v")
Send("{NUMPADENTER}")
Case c6() = $Chek2
;seven
MouseClick($MOUSE_CLICK_LEFT, 453, 645, 2, 1)
Send("^c")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
Send("^v")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 509, 645, 2, 1)
Send("^c")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
Send("*")
Send("^v")
Send("{NUMPADENTER}")
Case c7() = $Chek2
;eight
MouseClick($MOUSE_CLICK_LEFT, 453, 645, 2, 1)
Send("^c")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
Send("^v")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 509, 645, 2, 1)
Send("^c")
Sleep(150)
MouseClick($MOUSE_CLICK_LEFT, 1347, 197, 1, 1)
Send("*")
Send("^v")
Send("{NUMPADENTER}")
Case Else
Exit
EndSelect
EndFunc
Func c1()
MouseClick($MOUSE_CLICK_LEFT, 485, 643, 2, 1)
Send("^c")
EndFunc
Func c2()
MouseClick($MOUSE_CLICK_LEFT, 493, 644, 2, 1)
Send("^c")
EndFunc
Func c3()
MouseClick($MOUSE_CLICK_LEFT, 498, 645, 2, 1)
Send("^c")
EndFunc
Func c4()
MouseClick($MOUSE_CLICK_LEFT, 508, 647, 2, 1)
Send("^c")
EndFunc
Func c5()
MouseClick($MOUSE_CLICK_LEFT, 514, 645, 2, 1)
Send("^c")
EndFunc
Func c6()
MouseClick($MOUSE_CLICK_LEFT, 523, 645, 2, 1)
Send("^c")
EndFunc
Func c7()
MouseClick($MOUSE_CLICK_LEFT, 530, 645, 2, 1)
Send("^c")
EndFunc
valData()
MouseClick($MOUSE_CLICK_LEFT, 1349, 196, 1, 1) ;clicking the answer in calc
Send("^c")
Send("{DEL}")
MouseClick($MOUSE_CLICK_LEFT, 499, 706, 1, 1)
Send("^v")
Exit