CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums
Results 1 to 3 of 3

Thread: VB script to pull malicious ip

  1. #1
    Join Date
    Nov 2018

    VB script to pull malicious ip


    pls share a program to pull the list of malicious ip, the program may have a button, when i click the button, it will go to datasource (a external web, which provide the list of malicious ip every day) and pull the data, refreshed in my excel sheet.

  2. #2
    Arjay's Avatar
    Arjay is offline Moderator / EX MS MVP Power Poster
    Join Date
    Aug 2004

    Re: VB script to pull malicious ip

    Does such a website exist? If it even did exist, don't you think the daily list of IPs would be more than an Excel spreadsheet could handle?

  3. #3
    Join Date
    Jun 2009

    Re: VB script to pull malicious ip

    There does appear to be several websites that have this data, but most of them charge for getting an XML stream, and sites like Google's recommend if you download the whole lot then to use a database, so I agree with Arjay that a spreadsheet might not have the capacity for it all.
    I'll leave you to the intricacies of adapting this to your particular feed, but this reads an XML datastream from and populates a spreadsheet, as requested:
    REM URL to read data from - here an XML file
    Const strFileURL = ""
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") "GET", strFileURL, false
    If objXMLHTTP.Status = 200 Then
    REM Display the XML as text
    	WScript.Echo objXMLHTTP.responseText
    	Set objXML =  objXMLHTTP.responseXML
    REM Here we're getting the CD nodes
    	Set colCDs = objXML.selectNodes("//CATALOG/CD")
    	i = 2
    	Set objExcel = CreateObject("Excel.Application")
    	objExcel.Visible = True
    	Set objWorkbook = objExcel.Workbooks.Add()
    	Set objWorksheet = objWorkbook.Worksheets(1)
    REM Make the first title row
    	objWorksheet.Cells(1, 1).Value = "Title"
    	objWorksheet.Cells(1, 2).Value = "Artist"
    	For Each objCD In colCDs
    REM Loop through the collection of nodes getting the title and artist
    		objWorksheet.Cells(i, 1).Value = objCD.selectSingleNode("TITLE").text
    		objWorksheet.Cells(i, 2).Value = objCD.selectSingleNode("ARTIST").text
    		i = i + 1
    End If

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Windows Mobile Development Center

Click Here to Expand Forum to Full Width

On-Demand Webinars (sponsored)