none
vba to close popup window(Java script) of browser RRS feed

  • Question

  • Hi,

    I need a code to stop javascript functions

    I am using

    Sub GetDataXML()

    Dim strPostText As String, strResponse As String
    Dim Pressure As Double, Temperature As Double
    Dim XMLrequest As Object

    Pressure
    = CDbl(InputBox("Enter the Pressure"))
    Temperature
    = CDbl(InputBox("Enter the Temperature"))

    strPostText
    = "lang=english&calc=standard&druck=" & Pressure & "&druckunit=1&temperatur=" & Temperature & "&tempunit=1&Submit=Calculate"

    Set XMLrequest = CreateObject("MSXML2.XMLHTTP")

    With XMLrequest
       
    .Open "POST", "http://www.peacesoftware.de/einigewerte/calc_co2.php5", False
       
    .setRequestHeader "Content-type", "application/x-www-form-urlencoded"
       
    .send (strPostText)
       
    Do: DoEvents: Loop Until .readyState = 4
        strResponse
    = .responseText
       
    .abort
    End With

    Debug
    .Print strResponse

    End Sub

    I am using above code but I am not getting the required result can you please help


    hi

    Monday, September 15, 2014 3:35 PM

All replies

  • Maybe this similar thread can help you out by specifying the specific JavaScript div to disable it.

    stop javascript

    hope this helps,


    Daniel van den Berg | Washington, USA | "Anticipate the difficult by managing the easy"

    Please vote an answer helpful if they helped. Please mark an answer(s) as an answer when your question is being answered.

    Monday, September 15, 2014 7:37 PM
    Moderator