วิธีใช้ VB VBA เพื่อทำการทดสอบ Ping

เนื้อหา

• คำสั่ง
• สิ่งที่คุณต้องการ

โดยอัตโนมัติกระบวนการ ping ของที่อยู่ที่แตกต่างกันโดยใช้ Virtual Basic สำหรับ Applications (VBA) คุณสามารถประหยัดเวลาได้มากโดยเฉพาะเมื่อคุณต้องการ ping ที่อยู่หลายแห่ง ส่ง Ping ไปยังที่อยู่หมายถึงการใช้การทดสอบและการพิจารณาว่าที่อยู่สามารถเข้าถึงได้บนเครือข่ายอินเทอร์เน็ต VBA นั้นคล้ายกับ VB และคุณสามารถใช้กับแอปพลิเคชัน Microsoft Office ใด ๆ เช่น Excel ในการ ping โฮสต์คุณต้องใช้ตัวแปรบางตัวเพื่อเรียกใช้สคริปต์คำสั่งโดยใช้ "Windows Scripting" คุณสามารถใช้วิธีนี้เพื่อตรวจสอบที่อยู่ของ "โฮสต์" เพื่อให้แน่ใจว่าที่อยู่นั้นทำงานได้ โปรแกรม VBA อาจสร้างข้อผิดพลาดในกรณีที่โฮสต์ไม่ตอบสนอง

คำสั่ง

สร้างฟังก์ชั่นใหม่ใน Excel โดยใช้ VBA (รูปภาพ Comstock / Comstock / Getty)

1. เปิด Microsoft Excel คลิกที่แท็บ "นักพัฒนา" และคลิกที่ "Visual Basic" เพื่อเปิดหน้าต่างตัวแก้ไข VBA คลิกเมนู "แทรก" และ "แก้ไข" เพื่อป้อนรหัสการปรับใหม่

2. คัดลอกและวางรหัสต่อไปนี้เพื่อสร้างขั้นตอนที่จะเรียกว่า "myPingFunction" (ฟังก์ชั่น ping ของฉัน) และมันจะแสดงผลการ ping สำหรับ "google.com" ผ่านกล่องข้อความ:

   Sub Sub callPingFunction () MsgBox myPingFunction ("google.com") Sub Sub

3. แก้ไข "google.com" จากขั้นตอนก่อนหน้าและป้อน "โฮสต์" ที่คุณต้องการ ping

4. คัดลอกและวางฟังก์ชันต่อไปนี้เพื่อ ping ที่อยู่ "โฮสต์" ที่คุณส่งไปยังฟังก์ชันและส่งคืนผลลัพธ์ไปยังขั้นตอนการโทร:

   ฉันกำลังพยายามสร้างสคริปต์ที่จะใช้ในการสร้างสคริปต์ที่จะใช้ในการสร้างสคริปต์ ) sFilename = FSObj.GetTempName shellObj.Run "cmd / c ping" & hostAddress & ">" & sFilename, 0, True Set tmpFileObj = FSObj.OpenTextFile (sFilename, 1) Readline myPingFunction = myPingFunction & Trim (sLine) วน tmpFileObj.Close FSObj.DeleteFile (sFilename) ฟังก์ชันสิ้นสุด

   
   

5. คลิกภายในโพรซีเดอร์ "callPingFunction" (ฟังก์ชั่นโทร ping) และกด "F5" เพื่อดำเนินการ ผลการ ping จะแสดงผ่านกล่องข้อความ

สิ่งที่คุณต้องการ

• Microsoft Office