Pytanie : Konwertyta C#? VB/vb.script

Móc somone konwertyta the pismo na the /vb.script pytanie rozwiązanie VB /vb.script.   i potrzebować the ten sam rzecz ale w vb. Zadawalać pomoc! thanks

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

Odpowiedź : Konwertyta C#? VB/vb.script

Ok, tutaj być, dla ty dalej dla rozmiar: (brać ono brać być troszkę badawczy i ty móc z the odpowiedź!)


(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:

Ciemnawy IE
Ciemnawy pismo
Ciemnawy script_text

'Set IE = CreateObject ("InternetExplorer.Application")
Set IE = WScript.CreateObject ("InternetExplorer.Application", "IE_")
Z IE
        .left=200
        .top=200
        .height=480
        .width=600
        .menubar=1
        .toolbar=1
        .statusBar=1
        '
        'The kod na ten strona Rzucać błąd.
        '
        .navigate "http://www.delphicommunity.com/teststop.html"        
        .visible=1
Końcówka Z

'Potrzebować the pętla ponieważ my używać the wydarzenie
Podczas Gdy (1): WSH.Sleep 1000: Wend

Ustawiać IE = Nic
WScript.Quit ((0))

Okręt podwodny IE_DocumentComplete (ByVal pDisp, URL)
  MsgBox "DocumentComplete wydarzenie podnosić dla URL: " & URL
  Z IE.Document
          Ustalony pismo = ie.document.all.tags ("pismo")
          Dla x = (0) scripts.length-1
             script_text = pismo (x) .text
             Jeżeli InStr (script_text, "ostrzeżenie") > (0) Wtedy
               pismo (x) .text = "funkcja stopError () {powrót prawdziwy;}window.onerror = stopError; "       
             Kończyć Jeżeli
             script_text = pismo (x) .text
             MsgBox (script_text)
          Następnie
  Końcówka Z
Końcówka Okręt podwodny

Okręt podwodny IE_OnQuit ()
  MsgBox "IE rezygnować"
  WSH.Quit
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us