Fråga : Omvänd C#? till VB/vb.script

Kunde somonen behaga omvänden skriva på nedanföra frågans lösning till VB /vb.script.   jag behöver att göra det samma tinget men i vb. Behaga hjälp! href= " http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_21718367.html?sfQueryTermInfo=1+alert+javascript+stop " för thanks

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


 " klar "

Svar : Omvänd C#? till VB/vb.script

Oken är här något för dig försök för storleksanpassar på: (allt som den tar, är lite en forskning, och du kunde ha kommit upp med svaret!),


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:

Dunkel IE
Dunkelt skrivar
Dunkel script_text

'Uppsättning IE = CreateObject (”InternetExplorer.Application”)
Uppsättning IE = WScript.CreateObject (”InternetExplorer.Application”, ”IE_”)
Med IE
        .left=200
        .top=200
        .height=480
        .width=600
        .menubar=1
        .toolbar=1
        .statusBar=1
        ',
        'Kodifiera på detta sida SKA kast ett fel.
        ',
        .navigate ”http://www.delphicommunity.com/teststop.html”,        
        .visible=1
Avsluta med

'Behöv inte kretsa, därför att vi använder händelserna
Stunder 1: WSH.Sleep 1000: Wend

Uppsättning IE = ingenting
WScript.Quit (0)

UnderIE_DocumentComplete (ByVal pDisp, URL)
  Den MsgBox ”DocumentComplete händelsen lyftte för URL: ” & URL
  Med IE.Document
          Uppsättningen skrivar = ie.document.all.tags (”skriva”),
          För x = 0 till scripts.length-1
             script_text = skrivar (x) .text
             Om InStr (script_text, ”larmar”), > 0 därefter
               skrivar (x) .text = ”fungerar den återgång stopErroren () {true;},window.onerror = stopError; ”,       
             Avsluta om
             script_text = skrivar (x) .text
             MsgBox (script_text)
          Därefter
  Avsluta med
Avsluta suben

Sub IE_OnQuit ()
  MsgBox ”IE avslutar”,
  WSH.Quit
Avsluta suben
Andra lösningar  
 
programming4us programming4us