Questione : Convertito C#? a VB/vb.script

Ha potuto il somone convertire prego lo scritto sulla soluzione della domanda sotto in VB /vb.script.   devo fare la stessa cosa ma nel vb. Aiutare prego! href= " http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_21718367.html?sfQueryTermInfo=1+alert+javascript+stop " del thanks

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


 class= del

Risposta : Convertito C#? a VB/vb.script

L'approvazione, qui è qualcosa affinchè provi sopra per il formato: (tutta che prenda è una poca ricerca e potreste fornire la risposta!)


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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

IE fioco
Scritti fiochi
Script_text fioco

'Regolar IE = CreateObject (“InternetExplorer.Application„)
Regolar IE = WScript.CreateObject (“InternetExplorer.Application„, “IE_„)
Con lo IE
        .left=200
        .top=200
        .height=480
        .width=600
        .menubar=1
        .toolbar=1
        .statusBar=1
        '
        'Il codice a questa pagina getterà un errore.
        '
        .navigate “http://www.delphicommunity.com/teststop.html„        
        .visible=1
Estremità con

'Non avere bisogno del ciclo perché stiamo usando gli eventi
Mentre 1: WSH.Sleep 1000: Wend

Regolar IE = niente
WScript.Quit (0)

Sub IE_DocumentComplete (pDisp di ByVal, URL)
  L'evento di MsgBox “DocumentComplete si è alzato per il URL: „ & URL
  Con IE.Document
          Regolare gli scritti = ie.document.all.tags (“scritto„)
          Per x = 0 a scripts.length-1
             lo script_text = scripts (x).text
             Se InStr (script_text, “allarme„) > 0 allora
               scritti (x).text = “stopError di funzione () {di ritorno allineare;}window.onerror = stopError; „       
             Concluder se
             lo script_text = scripts (x).text
             MsgBox (script_text)
          Dopo
  Estremità con
Sommergibile dell'estremità

IE_OnQuit secondario ()
  MsgBox “IE rinuncia„
  WSH.Quit
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us