Question

您好我正在尝试通过此UI完成某项工作。

我对Vbscript有基本知识，所以我选择了。

我创建了IntenetExplorer对象，VB代码如下= UPPPER VB代码

                set WshShell=CreateObject("WScript.Shell") 
            Dim UserName,PassWord
            dim uv 
            uv = GetUservalue( "entered value:" ) 
            Function GetUservalue( myPrompt ) 
            Dim blnFavoritesBar, blnLinksExplorer, objIE, strHTML, strRegValFB, strRegValLE, wshShell 
            Set objIE = CreateObject( "InternetExplorer.Application") 
            ' specify some of the IE window's settings 
            objIE.Navigate "about:blank" 
            objIE.AddressBar     = False 
            objIE.Resizable      = False 
            objIE.StatusBar      = False 
            objIE.ToolBar        = False 
            objIE.Width          = 580 
            objIE.Height         = 520 
            ' Center the dialog window on the screen 
            With objIE.Document.parentWindow.screen 
            objIE.Left = (.availWidth  - objIE.Width ) \ 2 
            objIE.Top  = (.availheight - objIE.Height) \ 2 
            End With 
            ' Wait till IE is ready 
            Do While objIE.Busy 
            WScript.Sleep 200
            Loop 
                objIE.Document.body.innerHTML=

现在我使用＆＃34;＆＃34;正确分配了以下HTML代码

请查看我使用多个空格的问题

        <html>  <head> 
                BOOTSTRA LOADLED
            <body background-color="black"> 
                <form class="form-horizontal" margin-top="15000" id="Tool"> 

                          USER DETAILS..!


                    <!--MY PROBLEM IS HERE HOW CAN I USE THE PROCEED BUTTON SO THAT FOLLOWING CONDITION WILL BE TRUE AND IT WILL PERFORM REST OF THE OPEATION-->
                    <!--   I HAVE USE FOLLOWING LINES PREVIOUSLY AND WORKING FINE BUT THIS TIME I WANT TO USE BUTTON WITH CSS-->
                            "<input type=""hidden"" id=""OK"" name=""OK"" value=""0"">" 
                            "<input type=""submit"" value="" OK "" onClick=""VBScript:OK.value=1"">" 





                    <!-- I WANT TO USE THIS BUTTON SO THAT IT PROCEEDS TO FOLLWING VBScript CODE Its Not working FOR ME -->
                    <button class="button" id = "ProceedButton" onClick="VBScript:ProceedButton.value=1"  type="submit" value="Proceed"  style="vertical-align:middle"><span>SUBMIT </span></button>

                <style> BUTTON CSS      #ProceedButton {display: inline-block;border-radius: 4px;border: 1px solid #000000;background-color: #3ec116;color: #FFFFFF;text-align: center;font-size: 18px;padding: 0.3cm 0.3cm;width: 120px;transition: all 0.5s;cursor: pointer;margin: 5px;} 
                </style> 
            </body> 
        </html>

点击执行按钮后执行的VB代码的剩余部分

            objIE.Document.body.style.overflow = "auto" 
                objIE.Visible = True 
                ' Set focus on input field 
                objIE.Document.all.LoginName.focus 
                objIE.Document.all.UserValue.focus 

            ' Hide the scrollbars 
            objIE.Document.body.style.overflow = "auto" 
            ' Make the window visible 
            objIE.Visible = True 
            ' Set focus on password input field 
            objIE.Document.all.Password.focus 





            ' Wait till the OK button has been clicked 
            On Error Resume Next 
                Do While objIE.Document.all.ProceedButton.value = 0  
                WScript.Sleep 200 



             THIS CONDITION IS NOT WORKING



            Loop 

                GetPassword = objIE.Document.all.Password.value 
             PassWord =   GetPassword  
            ' Terminate the IE object 

                objIE.Quit 
            End Function

我已经执行了网络操作，检索所有数据并传递给另一个应用程序。

请在这里帮助我，一旦用户点击继续，我怎么能进一步采取行动。你也可以帮我设置activex控件并禁用vbscript本身的activex控件，它通过第三方网站禁用我的点击计数器HTML。

是否还有其他方法可以在此方法中设置html代码的长行objIE.Document.body.innerHTML =

提前致谢

Vbscript循环无法使用提交按钮值

0 个答案: