Question : Converti C# ? à VB/à vb.script

A pu le somone svp convertir le manuscrit sur la solution de la question ci-dessous en VB /vb.script.   je dois faire la même chose mais dans le vb. Aider svp ! href= " http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_21718367.html?sfQueryTermInfo=1+alert+javascript+stop " du thanks

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


 class= de

Réponse : Converti C# ? à VB/à vb.script

L'ok, voici quelque chose pour que vous essayiez pour la taille : (tout qu'il prend est une peu de recherche et vous pourriez avoir proposé la réponse !)


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 :

Faible IE
Faibles manuscrits
Faible script_text

'Placer IE = CreateObject (« InternetExplorer.Application »)
Placer IE = WScript.CreateObject (« InternetExplorer.Application », « IE_ »)
Avec l'IE
        .left=200
        .top=200
        .height=480
        .width=600
        .menubar=1
        .toolbar=1
        .statusBar=1
        '
        'Le code à cette page jettera une erreur.
        '
        .navigate « http://www.delphicommunity.com/teststop.html »        
        .visible=1
Extrémité avec

'Ne pas avoir besoin de la boucle parce que nous employons les événements
Tandis que 1 : WSH.Sleep 1000 : Wend

Placer IE = rien
WScript.Quit (0)

Substrater IE_DocumentComplete (pDisp de ByVal, l'URL)
  Événement de MsgBox le « DocumentComplete a augmenté pour l'URL :  » Et URL
  Avec IE.Document
          Placer les manuscrits = l'ie.document.all.tags (le « manuscrit »)
          Pour x = 0 à scripts.length-1
             le script_text = scripts (x).text
             S'InStr (script_text, « alerte ») > 0 puis
               manuscrits (x).text = « stopError de fonction () {de retour rectifier ;}window.onerror = stopError ;  »       
             Finir si
             le script_text = scripts (x).text
             MsgBox (script_text)
          Après
  Extrémité avec
Sous-marin d'extrémité

IE_OnQuit secondaire ()
  MsgBox « IE stoppe »
  WSH.Quit
Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us