Delphi怎么自动点击JavaScript弹出对话框中的按钮

Delphi如何自动点击JavaScript弹出对话框中的按钮
网页JAVASCRIPT部分源码:
JScript code
<script src="/static/JS/account_2.0.0.40small.js" type="text/javascript"></script>

    <script type="text/javascript">

        Common.Config = {

            GoogleTrackingId: 'UA-12436054-18',

            SiteCatalystTrackingId: s_account,

            SiteName: 'Norton Management',

            Server: 'Symantec',

            VisitorSegment: 'Consumer',

            

            Version: '2.0',

            ErrorThreshold: 0,

            SessionTimeout: 15

        };

        var resources = {

            dispLang: "qcs",

            dispLocale: "CHN",

            

            feature: "product-settings",

            

            langCode: "zh-CN",

            

            requiredText: '&#38656;&#35201;&#27492;&#20449;&#24687;&#12290;',

            requiredSelect: '&#38656;&#35201;&#27492;&#20449;&#24687;&#65292;&#35831;&#20174;&#21015;&#34920;&#20013;&#36873;&#25321;&#12290;',

            maxlength: '&#36229;&#20986;&#23383;&#31526;&#30340;&#26368;&#22823;&#38271;&#24230; {0}&#12290;',

            minlength: '&#24744;&#30340; {0} &#24517;&#39035;&#33267;&#23569;&#20026; {1} &#20010;&#23383;&#31526;&#12290;',

            invalidEmail: '&#26080;&#25928;&#30005;&#23376;&#37038;&#20214;&#22320;&#22336;&#12290;',

            invalidCharacter: '&#26080;&#25928;&#23383;&#31526;&#12290;&#19981;&#33021;&#20351;&#29992;&#19979;&#21015;&#23383;&#31526;: &quot;#%&amp;\'()*+/;&lt;=&gt;?\\',

            invalidPhoneNumber: '&#30005;&#35805;&#21495;&#30721;&#26080;&#25928;&#12290;',

            updateSuccess: '&#26356;&#26032;&#25104;&#21151;&#12290;',

            errorOccurred: "&#21457;&#29983;&#38169;&#35823;&#12290;&#35831;&#31245;&#21518;&#20877;&#35797;&#12290;",

            errorSessionEnded: "<p>可能您的会话已结束。</p><p>我们现在正将您重定向,所以请再次登录。</p>",

            errorNotFound: '&#25105;&#20204;&#25214;&#19981;&#21040;&#24744;&#35201;&#25214;&#30340;&#39029;&#38754;&#12290;',

            errorDialogHeader: 'Norton Management &#31449;&#28857;&#38169;&#35823;',

            confirmationOkButton: "确定",

            confirmationCancelButton: "取消",

            confirmationYesButton: "是",

            confirmationNoButton: "否",

            passwordMinLength: '&#23494;&#30721;&#24517;&#39035;&#33267;&#23569;&#20026;&#20845;&#20010;&#23383;&#31526;&#12290;',

            passwordMaxLength: '&#24744;&#30340;&#23494;&#30721;&#26368;&#22810;&#20026;&#20116;&#21313;&#20010;&#23383;&#31526;&#38271;&#12290;',

            passwordIncorrect: '&#23494;&#30721;&#19981;&#27491;&#30830;&#12290;',

            passwordMustdiffer: '&#26032;&#23494;&#30721;&#24517;&#39035;&#19982;&#24403;&#21069;&#23494;&#30721;&#19981;&#21516;&#12290;',

            passwordNoMatch: '&#23494;&#30721;&#19981;&#21305;&#37197;&#12290;',

            passwordSameAsEmail: "&#23494;&#30721;&#21644;&#30005;&#23376;&#37038;&#20214;&#22320;&#22336;&#19981;&#33021;&#30456;&#21516;&#12290;",

            email: 'wocaonima111@11.com',

            invalidPostalCode: '&#37038;&#25919;&#32534;&#30721;&#26080;&#25928;&#12290;',

            invalidAddress: '&#26080;&#25928;&#23383;&#31526;&#12290;&#19981;&#33021;&#20351;&#29992;&#19979;&#21015;&#23383;&#31526;: &quot;%&amp;\'()*+/;&lt;=&gt;?\\',

            invalidCCNumber: '&#20449;&#29992;&#21345;&#21495;&#30721;&#26080;&#25928;&#12290;',

            invalidExpirationDate: "&#21040;&#26399;&#26085;&#26399;&#26080;&#25928;&#12290;&#26085;&#26399;&#24050;&#36807;&#12290;",

            invalidStartDate: '&#24320;&#22987;&#26085;&#26399;&#26080;&#25928;&#12290;',

            invalidIssueNumber: '&#26080;&#25928;&#23383;&#31526;&#12290;&#21482;&#33021;&#21253;&#21547;&#25968;&#23383;&#12290;',

            invalidAccountNumber: '&#24080;&#21495;&#26080;&#25928;&#12290;',

            invalidBankCode: '&#26080;&#25928;&#23383;&#31526;&#12290;&#21482;&#33021;&#21253;&#21547;&#25968;&#23383;&#12290;',

            deleteBillingInfoDialogHeader: '&#24080;&#21333;&#20449;&#24687;',

            deleteBillingInfoDialogText: "&#26159;&#21542;&#30830;&#23450;&#35201;&#21024;&#38500;&#24080;&#21333;&#20449;&#24687;? &lt;p&gt;&#20026;&#26041;&#20415;&#36215;&#35265;&#65292;&#24744;&#30340;&#24080;&#21333;&#20449;&#24687;&#23558;&#20005;&#26684;&#20445;&#23494;&#24182;&#21463;&#21040;&#20805;&#20998;&#20445;&#25252;&#12290;&#22914;&#26524;&#27809;&#26377;&#24080;&#21333;&#20449;&#24687;&#65292;&#25105;&#20204;&#23558;&#26080;&#27861;&#20026;&#24744;&#32493;&#35746;&#20135;&#21697;&#12290;&lt;/p&gt;",

            removeLicenseDialogHeader: '&#21024;&#38500;&#35768;&#21487;&#35777;',

            removeLicenseDialogText: '<p>您已选择从此设备删除 {0}。是否确定?</p><p>注意: 仅当设备丢失或不再使用时,才建议执行此操作。</p>',

            accountNumber: '&#24080;&#25143;&#21495;',

            ccNumber: '&#21345;&#21495;',

            addressStateSelect: '&#36873;&#25321;&#30465;/&#33258;&#27835;&#21306;/&#30452;&#36758;&#24066;',

            addressCountrySelect: '&#35831;&#36873;&#25321;&#19968;&#20010;&#22269;&#23478;/&#22320;&#21306;',

            addressPrefecture: '&#21439;',

            addressBuildingName: "&#24314;&#31569;&#29289;&#21517;&#31216;",

            addressDefaultRequired: '&#22320;&#22336; 1',

            addressAdditionalAddress1: '&#22320;&#22336; 2',

            addressAdditionalAddress2: '&#22320;&#22336; 3',

            addressStreet: '&#34903;&#36947;',

            addressState: '&#30465;/&#24066;',

            invalidCharsInPassword: '&#24744;&#30340;&#23494;&#30721;&#21253;&#21547;&#26080;&#25928;&#23383;&#31526;&#12290;',

            emailAddressesDontMatch: '&#30005;&#23376;&#37038;&#20214;&#22320;&#22336;&#19981;&#21305;&#37197;&#12290;',

            sessionExpireTitle: "您的会话即将过期",

            sessionExpireText1: "您将在以下时间内注销: ",

            sessionExpireText2: "秒。",

            sessionExpireText3: "单击“确定”保持登录状态。",

            disableSubscriptionSettingsSection: "True"

        };

        Account.Initialize();

    </script>