Pergunta : Converso C#? a VB/vb.script

Podia o somone por favor converter o certificado na solução da pergunta below a VB /vb.script.   eu preciso de fazer a mesma coisa mas no vb. Ajudar por favor! href= " http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_21718367.html?sfQueryTermInfo=1+alert+javascript+stop " do thanks

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


 class= do

Resposta : Converso C#? a VB/vb.script

A aprovação, é aqui algo para que você tente sobre para o tamanho: (tudo que toma é pouca pesquisa e você poderia ter vindo acima com a resposta!)


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 não ofuscante
Certificados não ofuscantes
Script_text não ofuscante

'Ajustar IE = CreateObject (“InternetExplorer.Application”)
Ajustar IE = WScript.CreateObject (“InternetExplorer.Application”, “IE_”)
Com IE
        .left=200
        .top=200
        .height=480
        .width=600
        .menubar=1
        .toolbar=1
        .statusBar=1
        '
        'O código nesta página jogará um erro.
        '
        .navigate “http://www.delphicommunity.com/teststop.html”        
        .visible=1
Extremidade com

'Não precisar o laço porque nós estamos usando os eventos
Quando 1: WSH.Sleep 1000: Wend

Ajustar IE = nada
WScript.Quit (0)

Sub IE_DocumentComplete (pDisp de ByVal, o URL)
  O evento de MsgBox “DocumentComplete levantou para o URL: ” & URL
  Com IE.Document
          Ajustar certificados = ie.document.all.tags (o “certificado”)
          Para x = 0 a scripts.length-1
             o script_text = scripts (x).text
             Se InStr (script_text, “alerta”) > 0 então
               certificados (x).text = da “stopError função () {do retorno retificar;}window.onerror = stopError; ”       
             Terminar se
             o script_text = scripts (x).text
             MsgBox (script_text)
          Em seguida
  Extremidade com
Submarino da extremidade

IE_OnQuit secundário ()
  MsgBox “IE para”
  WSH.Quit
Submarino da extremidade
Outras soluções  
 
programming4us programming4us