Search the Community
Showing results for tags 'save files'.
-
My Script can't work on this part of Saving export file. I tried many script like send ("{TAB}{ENTER}") but nothing happen, when I press Enter on my keyboard the exporting file is proceed. What is wrong, can you help me.? Func QExport() Local $oExport = _IEGetObjById ($oIE, "ext-gen40") ;_IEFormElementOptionSelect($oExport, "Export", 1, "byText") _IEAction ($oExport, "click") Sleep (100) Local $oExport = _IEGetObjById ($oIE, "ext-gen108") ; _IEFormElementOptionSelect($oExport, "Export All", 1, "byText") _IEAction ($oExport, "click") EndFunc Func sSave() ; here you should search content on the website ; Register the function MyAdLibFunc() to be called every 250ms (default). AdlibRegister("MyAdLibFunc") ; here you need to click _IEAction($o...., 'click') to popup FileSaveDialog ; Unregister the function MyAdLibFunc() from being called every 250ms. AdlibUnRegister("MyAdLibFunc") EndFunc ;==>Example Func MyAdLibFunc() Local $oInputs = _IETagNameGetCollection($oIE, "input") Local $sTxt = "" For $oInput In $oInputs $sTxt &= $oInput.type & @CRLF Next MsgBox($MB_SYSTEMMODAL, "Form Input Type", "Form: " & $oInput.form.name & @CRLF & @CRLF & " Types :" & @CRLF & $sTxt) ConsoleWrite("OK" & @CRLF) Send($oIE, "{TAB}{ENTER}") ; here you need to put your FILE SAVE DIALOG Management function $hWND = WinWait("[CLASS:DirectUIHWND; INSTANCE:1]") WinActivate($hWnd) ControlClick("[CLASS:DirectUIHWND; INSTANCE:1]", "", "[CLASS:Button; INSTANCE:1]") Send("my77soft.com needs some information", "{ENTER}") ;name the file, cursor should already be there WinWaitClose($hWnd) EndFunc