Ako používať VB VBA vykonať ping test

Automatizácia procesu ping rôzne adresy pomocou jazyka Visual Basic for Applications ( VBA ) vám môže ušetriť veľa času , najmä keď máte ping veľa adries . Ping adresy znamená spustiť test a zistiť , či je adresa dostupná v sieti . VBA je veľmi podobný VB a môžete ho použiť v ľubovoľnej aplikácii balíka Microsoft Office , ako je Excel . Ping na hostiteľa , musíte použiť niekoľko objektov premenných vykonať príkaz skriptu pomocou " Windows Scripting . " Môžete použiť túto metódu , aby priebežne kontrolovať adresy hostiteľa , aby sa uistil , že sú v prevádzke . Váš program VBA možno generovať chybu v prípade , hostiteľ nereaguje . Veci , ktoré budete potrebovať v Microsoft Office
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Word , kliknite na kartu " Vývojár " a kliknite na " Visual Basic " pre spustenie editora VBA okno . Kliknite na " Vložiť " menu a kliknite na " modul " vložiť nový kód modulu .
2

Skopírujte a vložte nasledujúci kód vytvoriť procedúru, ktorá bude volať " myPingFunction " a zobrazí výsledky ping pre " google.com " cez okno so správou : Google

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

Edit " . com " v predchádzajúcom kroku a zadajte hostiteľa , ktorý chcete pomocou príkazu ping .
4

skopírujte a vložte nasledujúci funkcie ping na hostiteľa adresu , ktorú poslal do funkcie a vrátiť výsledky volania procedúry :

Funkcia myPingFunction ( hostAddress As String ) Ako StringDim FSObj Ako ObjectDim shellObj Ako ObjectDim tmpFileObj Ako ObjectDim slín Ako StringDim sFileName Ako StringSet FSObj = CreateObject ( " Scripting.FileSystemObject " ) Set shellObj = CreateObject ( " WScript . Shell " ) sFileName = FSObj.GetTempNameshellObj.Run " cmd /c ping " a hostAddress a " > " a sFileName , 0 , TrueSet tmpFileObj = FSObj.OpenTextFile ( sFileName , 1 ) Do While tmpFileObj . AtEndOfStream < > TruesLine = tmpFileObj.ReadlinemyPingFunction = myPingFunction & Trim ( sliny ) LooptmpFileObj.CloseFSObj.DeleteFile ( sFileName ) End Function
5

Kliknite do postupu " callPingFunction " a stlačte " F5 " ho spustiť . Výsledky ping budú zobrazené prostredníctvom okne so správou .

• Predchádzajúca strana: Ako Traverse cez Výsledky v VB.Net prístupe 
• Ďalšia strana: Ako si vyrobiť vlastný zavádzač Bot