Frage : Bekehrter C#? zu VB/zu vb.script

Konnte somone den Index auf der below Lösung der Frage in VB /vb.script bitte umwandeln.   ich muss die gleiche Sache aber im vb tun. Bitte helfen! thanks

http://www.experts-exchang e.com/Prog ramming/Languages/Pascal/Delphi/Q_21718367.html? sfQueryTermInfo=1+alert+javascript+stop

Antwort : Bekehrter C#? zu VB/zu vb.script

O.K., ist hier etwas, damit Sie an für Größe versuchen: (alle, die es nimmt, ist eine wenig Forschung und Sie konnten mit der Antwort aufgekommen haben!)


1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

Schwaches IE
Schwache Indexe
Schwaches script_text

'Einstellen IE = CreateObject („InternetExplorer.Application“)
Einstellen IE = WScript.CreateObject („InternetExplorer.Application“, „IE_“)
Mit IE
        .left=200
        .top=200
        .height=480
        .width=600
        .menubar=1
        .toolbar=1
        .statusBar=1
        '
        'Der Code auf dieser Seite wirft eine Störung.
        '
        .navigate „http://www.delphicommunity.com/teststop.html“        
        .visible=1
Ende mit

'Die Schleife nicht benötigen, weil wir die Ereignisse verwenden
Während 1: WSH.Sleep 1000: Wend

Einstellen IE = nichts
WScript.Quit (0)

Sub IE_DocumentComplete (ByVal pDisp, URL)
  MsgBox „DocumentComplete Ereignis hob für URL an: “ U. URL
  Mit IE.Document
          Indexe = ie.document.all.tags („Index“) einstellen
          Für x = 0 zu scripts.length-1
             script_text = scripts (x).text
             Wenn InStr (script_text, „Alarm“) > 0 dann
               Indexe (x).text = „Funktion stopError () {Rückhol ausrichten;}window.onerror = stopError; “       
             Beenden wenn
             script_text = scripts (x).text
             MsgBox (script_text)
          Zunächst
  Ende mit
Enden-Unterseeboot

VorIE_OnQuit ()
  MsgBox „IE beendigt“
  WSH.Quit
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us