|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur man använder VB VBA för att utföra ett ping-test

    Automatisera processen att pinga olika adresser med Visual Basic for Applications ( VBA ) kan spara dig mycket tid , speciellt när man har att pinga flera adresser . Att pinga en adress innebär att köra ett test och bestämma om adressen är åtkomlig via nätverket . VBA är mycket lik VB och du kan använda den i alla Microsoft Office- program, till exempel Excel . Pinga en värd , måste du använda ett fåtal objekt variabler att exekvera ett skript kommando använder " Windows Scripting . " Du kan använda den här metoden för att kontrollera värdadresser kontinuerligt för att se till att de är igång . Din VBA program kan generera ett fel vid en värd svarar inte . Saker du behöver
    Microsoft Office
    Visa fler instruktioner
    1

    Launch Microsoft Word , klicka på " Utvecklare " fliken och klicka på " Visual Basic " för att starta VBA editorn fönster . Klicka på " Infoga " -menyn och klicka på " modul " för att infoga en ny kod modul .
    2

    Kopiera och klistra in följande kod för att skapa det förfarande som kommer att kalla den " myPingFunction " och visa ping resultaten för " google.com " genom en meddelanderuta :

    Private Sub callPingFunction ( ) MsgBox myPingFunction ( " google.com " ) End Sub
    3

    Redigera " Google . com " i föregående steg och skriv in värden som du vill pinga .
    4

    Kopiera och klistra in följande funktion för att pinga den mottagande adress du skickade till funktionen och returnera resultatet till den anropande proceduren :

    Funktion myPingFunction ( hostaddress As String ) Som StringDim FSObj Som ObjectDim shellObj Som ObjectDim tmpFileObj Som ObjectDim Sline Som StringDim sFileName Som StringSet FSObj = CreateObject ( " Scripting.FileSystemObject " ) Set shellObj = CreateObject ( " Wscript . Shell " ) sFileName = FSObj.GetTempNameshellObj.Run " cmd /c ping " & hostaddress & " > " & sFileName , 0 , TrueSet tmpFileObj = FSObj.OpenTextFile ( sFileName , 1 ) Do While tmpFileObj . AtEndOfStream < > TruesLine = tmpFileObj.ReadlinemyPingFunction = myPingFunction & Trim ( Sline ) LooptmpFileObj.CloseFSObj.DeleteFile ( sFileName ) End Function
    5

    Klicka i " callPingFunction " proceduren och tryck på " F5 " för att köra den . Ping Resultaten kommer att visas genom en meddelanderuta .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man skapar en ny databasfil med Adox i VB6
    ·Hur Skärmmeddelande i Visual Basic
    ·Hur man lägger in User- datatyper i Visual Basic
    ·VBS Script Tutorial
    ·Hur man gör en vetenskaplig kalkylator i Visual Basic
    ·Hur man lägger in en Sub program i Visual Basic 6.0
    ·Lägga till ListView
    ·Hur skugga varannan rad i Visual Basic 6
    ·Hur man använder MSFlexGrid i VB6
    ·Hur man programmerar alternativknappar i Vb.Net
    Utvalda artiklarna
    ·Så här skapar du en tabell från en annan tabell i My…
    ·Skillnad mellan kontrollerade och okontrollerade Undant…
    ·Hur man sätter in en bränna i VBA Databas
    ·En Process Explorer Script
    ·Hur man använder VBA för att skydda ritobjekt
    ·Hur man lär sig Java 6
    ·Visual Basic Databas självstudie
    ·Hur man interagerar med SharePoint Från VBA
    ·Hur man gör en kumulativ funktionsgraf på GDC Calcula…
    ·Hur man tar bort dubbletter från en ArrayList
    Copyright © Dator Kunskap http://www.dator.xyz