從vbscript調用javascript函數

Question

編寫一個hta應用程序來將數據從基於php的網頁加載到oracle表單。需要使用sendkeys，並且它在任何js框架中都不可用（也不在selenium中）。這就是我將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.