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: '需要此信息。',            requiredSelect: '需要此信息，请从列表中选择。',            maxlength: '超出字符的最大长度 {0}。',            minlength: '您的 {0} 必须至少为 {1} 个字符。',            invalidEmail: '无效电子邮件地址。',            invalidCharacter: '无效字符。不能使用下列字符: "#%&\'()*+/;<=>?\\',            invalidPhoneNumber: '电话号码无效。',            updateSuccess: '更新成功。',            errorOccurred: "发生错误。请稍后再试。",            errorSessionEnded: "<p>可能您的会话已结束。</p><p>我们现在正将您重定向，所以请再次登录。</p>",            errorNotFound: '我们找不到您要找的页面。',            errorDialogHeader: 'Norton Management 站点错误',            confirmationOkButton: "确定",            confirmationCancelButton: "取消",            confirmationYesButton: "是",            confirmationNoButton: "否",            passwordMinLength: '密码必须至少为六个字符。',            passwordMaxLength: '您的密码最多为五十个字符长。',            passwordIncorrect: '密码不正确。',            passwordMustdiffer: '新密码必须与当前密码不同。',            passwordNoMatch: '密码不匹配。',            passwordSameAsEmail: "密码和电子邮件地址不能相同。",            email: 'wocaonima111@11.com',            invalidPostalCode: '邮政编码无效。',            invalidAddress: '无效字符。不能使用下列字符: "%&\'()*+/;<=>?\\',            invalidCCNumber: '信用卡号码无效。',            invalidExpirationDate: "到期日期无效。日期已过。",            invalidStartDate: '开始日期无效。',            invalidIssueNumber: '无效字符。只能包含数字。',            invalidAccountNumber: '帐号无效。',            invalidBankCode: '无效字符。只能包含数字。',            deleteBillingInfoDialogHeader: '帐单信息',            deleteBillingInfoDialogText: "是否确定要删除帐单信息? <p>为方便起见，您的帐单信息将严格保密并受到充分保护。如果没有帐单信息，我们将无法为您续订产品。</p>",            removeLicenseDialogHeader: '删除许可证',            removeLicenseDialogText: '<p>您已选择从此设备删除 {0}。是否确定？</p><p>注意: 仅当设备丢失或不再使用时，才建议执行此操作。</p>',            accountNumber: '帐户号',            ccNumber: '卡号',            addressStateSelect: '选择省/自治区/直辖市',            addressCountrySelect: '请选择一个国家/地区',            addressPrefecture: '县',            addressBuildingName: "建筑物名称",            addressDefaultRequired: '地址 1',            addressAdditionalAddress1: '地址 2',            addressAdditionalAddress2: '地址 3',            addressStreet: '街道',            addressState: '省/市',            invalidCharsInPassword: '您的密码包含无效字符。',            emailAddressesDontMatch: '电子邮件地址不匹配。',            sessionExpireTitle: "您的会话即将过期",            sessionExpireText1: "您将在以下时间内注销: ",            sessionExpireText2: "秒。",            sessionExpireText3: "单击“确定”保持登录状态。",            disableSubscriptionSettingsSection: "True"        };        Account.Initialize();    </script>