Cuestión : ¿Convertido C#? a VB/a vb.script

Podía el somone convertir por favor la escritura en la solución de la pregunta below a VB /vb.script.   necesito hacer la misma cosa pero en vb. ¡Ayudar por favor! ¿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 de http://www.experts-exchang? sfQueryTermInfo=1+alert+javascript+stop


 class= del

Respuesta : ¿Convertido C#? a VB/a vb.script

La autorización, aquí es algo para que usted intente encendido para el tamaño: (toda lo que toma es una poca investigación y usted habría podido subir con la respuesta!)


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 dévil
Escrituras déviles
Script_text dévil

'Fijar IE = CreateObject (“InternetExplorer.Application”)
Fijar IE = WScript.CreateObject (“InternetExplorer.Application”, “IE_”)
Con el IE
        .left=200
        .top=200
        .height=480
        .width=600
        .menubar=1
        .toolbar=1
        .statusBar=1
        '
        'El código en esta página lanzará un error.
        '
        .navigate “http://www.delphicommunity.com/teststop.html”        
        .visible=1
Extremo con

'No necesitar el lazo porque estamos utilizando los acontecimientos
Mientras que 1: WSH.Sleep 1000: Wend

Fijar IE = nada
WScript.Quit (0)

Sub IE_DocumentComplete (pDisp de ByVal, el URL)
  El acontecimiento de MsgBox “DocumentComplete levantó para el URL: ” Y URL
  Con IE.Document
          Fijar las escrituras = ie.document.all.tags (la “escritura”)
          Para x = 0 a scripts.length-1
             el script_text = scripts (x).text
             Si InStr (script_text, “alarma”) > 0 entonces
               escrituras (x).text = “stopError de la función () {de vuelta verdad;}window.onerror = stopError; ”       
             Terminar si
             el script_text = scripts (x).text
             MsgBox (script_text)
          Después
  Extremo con
Submarino del extremo

IE_OnQuit secundario ()
  MsgBox “IE para”
  WSH.Quit
Submarino del extremo
Otras soluciones  
 
programming4us programming4us