Vraag : Zet C# om? aan VB/vb.script

Kon somone het manuscript op de oplossing van de onderstaande vraag in VB /vb.script alstublieft omzetten.   ik moet het zelfde ding maar in vb doen. Gelieve te helpen! thanks

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

Antwoord : Zet C# om? aan VB/vb.script

O.k., hier is iets voor u om voor grootte te proberen: (allen het is wat onderzoek neemt en u kon met het antwoord op de proppen gekomen zijn!)


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:

Verduister D.W.Z.
Verduister manuscripten
Verduister script_text

'Plaats D.W.Z. = CreateObject („InternetExplorer.Application“)
Reeks D.W.Z. = WScript.CreateObject („InternetExplorer.Application“, „IE_“)
Met D.W.Z.
        .left=200
        .top=200
        .height=480
        .width=600
        .menubar=1
        .toolbar=1
        .statusBar=1
        '
        De 'code inzake deze pagina zal een fout werpen.
        '
        .navigate „http://www.delphicommunity.com/teststop.html“        
        .visible=1
Eind met

'Vereis niet de lijn omdat wij de gebeurtenissen gebruiken
Terwijl 1: WSH.Sleep 1000: Wend

Reeks D.W.Z. = niets
WScript.Quit (0)

Sub IE_DocumentComplete (ByVal pDisp, URL)
  Gebeurtenis van DocumentComplete van MsgBox de „voor URL wordt opgeheven die: “ & URL
  Met IE.Document
          Vastgestelde manuscripten = ie.document.all.tags („manuscript“)
          Voor x = 0 tot scripts.length-1
             script_text = manuscripten (x) .text
             Als InStr (script_text, „alarm“) > 0 toen
               manuscripten (x) .text = „functiestopError () {ware terugkeer;}window.onerror = stopError; “       
             Eind als
             script_text = manuscripten (x) .text
             MsgBox (script_text)
          Daarna
  Eind met
Sub van het eind

Sub IE_OnQuit ()
  MsgBox „D.W.Z. houdt met“ op
  WSH.Quit
Sub van het eind
Andere oplossingen  
 
programming4us programming4us