Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub Command1_Click() Dim objMSWord As Word.Application Dim myDoc As Word.Document Set objMSWord = CreateObject("Word.Application") Set myDoc = objMSWord.Documents.Open("C:\111114.txt") For Each p In myDoc.Paragraphs If InStr(p.Range.Text, "BlockedIP") > 0 Then 'Skipping - found text Else p.Range.Delete End If Next myDoc.SaveAs ("c:\Users\Me\Desktop\052214_2.txt") myDoc.Close Set myDoc = Nothing objMSWord.Quit End Sub
|Macro which automatically sends attachment to Outlook||14||78|
|Convert VB6 MSXML2.ServerXMLHTTP process to C#||2||59|
|vb6 - Transfer from MSHFlexgrid1 to xls issue||8||56|
|How can I retrieve an image(png/gif/...) stored in SQL (Byte Array) with VBS and convert to BASE64||3||46|