sharpdavilewi的部落格

Sub 取得IP位址虛無00()

   Shell "YOUR PATH\ＷＩＮ７抓與紀錄ＩＰ.EXE"

  '============ 延時10秒非常重要.不然無法完成查詢與複製

   Application.Wait Now + TimeValue("00:00:10")

    Call 寫入EXCELＡ1欄

    Call 關WIN7抓與紀錄IP

End Sub

Sub 關WIN7抓與紀錄IP()

  'Application.Wait Now + TimeValue("00:00:10")

   Shell " YOUR PATH \關ＷＩＮ７抓與紀錄ＩＰ.BAT"

  'Application.Wait Now + TimeValue("00:00:10")

End Sub

'關WIN7抓與紀錄IP.BAT

'@echo off

'taskkill /f /im ＷＩＮ７抓與紀錄ＩＰ.exe

'EXIT

Sub 寫入EXCELA1欄()

   Sheets("您的工作表").Select

   Range("A1").Select

    ActiveSheet.Paste

   Application.CutCopyMode = False

  End Sub