вызов функции javascript из vbscript

Question

Запись приложения hta для загрузки данных с веб-страницы на основе php в форму oracle. Необходимо использовать sendkeys и его недоступность в любой js-среде (не в селене также). Вот почему я смешиваю jquery с vbscript. Это просто, но не работает

<script language="VBScript"> 
    Function startDataLoad() 
     MsgBox ("Starting Data Load") 
     DataLoad 
    End Function 

    Sub DataLoad() 
     Dim objShell, WshShell 
     Set objShell = CreateObject("WScript.Shell") 
     objShell.AppActivate ("Oracle Applications - DEV ") 
     Dim dteWait 

     Dim dataArray 
     dataArray = find_all_selected() 

     For Each x In dataArray 
     objShell.SendKeys (x) 
     If (x = "^s") Then 
     dteWait_l = DateAdd("s", 0.03, Now()) 
     Do Until (Now() > dteWait_l) 
     Loop 
     End If 
     Next 

     objShell.SendKeys ("^s") 

    End Sub 
</script> 

<script language="javascript"> 
    function find_all_selected() { 
     var data_loader_a = []; 
     $('body').find('input:checked').each(function() { 
      current_data = $(this).closest('.parent ').find('li.data_loader_val').data('data_loader').split('|'); 
      data_loader_a.push(current_data); 
     }); 
     return data_loader_a; 
    } 
</script> 

Любая помощь ценится

Последний вопрос

• 1.
• 2.
• 3.
• 4.
• 5.
• 6.
• 7.
• 8.
• 9.
• 10.

 Смежные вопросы

• 1.
• 2.
• 3.
• 4.
• 5.
• 6.
• 7.
• 8.
• 9.
• 10.