2 Attachment(s)
A Semi automated way to note the IP addresses of things viewing us
https://www.excelfox.com/forum/showt...ngs-viewing-us
Post #1 #post25053 https://www.excelfox.com/forum/showt...ll=1#post25053
A Semi automated way to note the IP addresses of things viewing us
Semi automated, - meaning you need to do a
Ctrl+a
, then
Ctrl+c
, on each users online page
( https://i.postimg.cc/x1RJj8Ch/users-on-line.jpg
https://i.postimg.cc/TYn5SCXR/Who-s-Online-pages.jpg )
, then run the macro
In other words I want to get the information you get here (using the links such as http://www.excelfox.com/forum/online.php
https://www.excelfox.com/forum/onlin...&pp=20&page=11
https://www.excelfox.com/forum/onlin...rder=asc&pp=20
https://www.excelfox.com/forum/onlin...c&pp=20&page=2 ),
https://i.postimg.cc/D0XwGDd3/Get-th...omatically.jpg Attachment 6214
https://i.postimg.cc/D0XwGDd3/Get-th...omatically.jpg
, and then manipulate the got data to get some record of it , in a way that helps to see who what where is going on
The macro will be crap and inefficient, - it will be a simple adding to a spreadsheet record type thing,
Before we start, Lets have a quick look at what ends up in the (windows) clipboard.
Firstly just do the copy
, (Ctrl+a on a page to select it all, then Ctrl+c to copy)
, then paste in a text file, just to initially get the general idea of what we have –
Page 1 Top
Code:
Excel, Access, PowerPoint and Word VBA Macro Automation Help - Powered by vBulletin
Log Out
Settings
My Profile
Notifications: 1
Welcome, DocAElstein
Forum
Forum HomeNew PostsPrivate MessagesFAQCalendarCommunityForum ActionsQuick Links
What's New?
Zero Reply Posts
Senden
Advanced Search
HomeWho's Online
1 members and 897 guests
Most users ever online was 81968, 06-16-2025 at 11:54 AM.
Page 1 of 4512311...NextLastLast
Who's Online
User Name Reverse Sort Order
Last Activity
Location
IP Address
Instant Messaging
DocAElstein* 11:50 AM /forum/online.php?order=asc&sort=username&pp=20&page=1Viewing Who's Online 80.136.200.74
Guest 11:42 AM showthread.php?t=2772Viewing Thread
You are subscribed to this thread Some Date Notes and Tests
Page 1 Middel
Code:
Guest 11:37 AM /forum/tags.php?amp;tag=.pdfViewing Tag List 113.172.178.50
Guest 11:50 AM forumdisplay.php?f=30Viewing Forum
ETL PQ Tips and Tricks
8.210.10.143
BingBot Spider 11:46 AM showthread.php?t=2985Viewing Thread
You are subscribed to this thread VBA USERFORM NOT LOADING dISPLAYING ERROR MESSAGE
207.46.13.92
Guest 11:44 AM showthread.php?t=2903Viewing Thread
PQ - multiple replacement using List.Generate()
43.134.109.11
Guest 11:50 AM showthread.php?t=2355&page=8Viewing Thread
You are subscribed to this thread Tests and Notes on Range Referrencing
101.32.254.77
Page 1 Bottom
Code:
Guest 11:42 AM showthread.php?t=610Viewing Thread
Macro to check values based on certain text
124.156.200.172
Page 1 of 4512311...NextLastLast
Quick Navigation Who's Online Top
Icon Legend
+User is on your contact list*User is invisible to othersViewing 'Forum Closed' MessageViewing 'Forum Closed' MessageViewing 'No Permission' MessageViewing 'No Permission' MessageViewing Error MessageViewing Error Message
Who's Online Options
Display:
All
User Agent:
No
Per Page:
20
-- Default Style
Contact Us Excel, Access, PowerPoint and Word Help Admin Mod Archive Top
All times are GMT +2. The time now is 11:51 AM.
Powered by vBulletin® Version 4.2.5
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.
ExcelFox is Not Associated With Microsoft®
Last page Top Bit
Code:
Excel, Access, PowerPoint and Word VBA Macro Automation Help - Powered by vBulletin
Log Out
Settings
My Profile
Notifications: 1
Welcome, DocAElstein
Forum
Forum HomeNew PostsPrivate MessagesFAQCalendarCommunityForum ActionsQuick Links
What's New?
Zero Reply Posts
Senden
Advanced Search
HomeWho's Online
1 members and 964 guests
Most users ever online was 81968, 06-16-2025 at 11:54 AM.
Page 49 of 49FirstFirstPrevious...39474849
Who's Online
User Name Reverse Sort Order
Last Activity
Location
IP Address
Instant Messaging
Guest 12:04 PM showthread.php?t=345Viewing Thread
LookUp Value and Concatenate All Found Results
43.134.16.138
Last page Middle Bit
Code:
Guest 12:00 PM showthread.php?t=539Viewing Thread
Remove UserForm's TitleBar And Frame
43.134.26.191
Guest 11:53 AM showthread.php?t=1982Viewing Thread
Link Chart
43.134.48.88
Guest 12:05 PM showthread.php?t=1172Viewing Thread
Message To Cross Posters
43.133.43.227
Last page Last Bit
Code:
Guest 12:04 PM showthread.php?t=2824&page=12Viewing Thread
You are subscribed to this thread Tests Copying, Pasting, API Cliipboard issues. and Rough notes on Advanced API stuff
57.141.0.13
Page 49 of 49FirstFirstPrevious...39474849
Quick Navigation Who's Online Top
Icon Legend
+User is on your contact list*User is invisible to othersViewing 'Forum Closed' MessageViewing 'Forum Closed' MessageViewing 'No Permission' MessageViewing 'No Permission' MessageViewing Error MessageViewing Error Message
Who's Online Options
Display:
All
User Agent:
No
Per Page:
20
-- Default Style
Contact Us Excel, Access, PowerPoint and Word Help Admin Mod Archive Top
All times are GMT +2. The time now is 12:07 PM.
Powered by vBulletin® Version 4.2.5
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.
ExcelFox is Not Associated With Microsoft®
To look at those parts of the data pasted into the text files in more detail we can bring the text files into VBA as a long simple string , using coding from about here
https://www.excelfox.com/forum/showt...age9#post16632
, then feed that string into my function for looking at what is in a string
https://pastebin.com/eutzzxHv
https://www.excelfox.com/forum/showt...ll=1#post15524
Here is a typical coding to look at the first text file
Code:
Option Explicit
Sub GetTextFromTxtFiles()
' Rem 1 Get the text file as a long single string
Dim FileNum As Long: Let FileNum = FreeFile(1) ' https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/freefile-function
Dim PathAndFileName As String, TotalFile As String
Let PathAndFileName = ThisWorkbook.Path & Application.PathSeparator & "Who s Online Page 1 CtrlA CtrlC Top Bit.txt" '
Open PathAndFileName For Binary As #FileNum 'Open Route to data. Binary is a fundamental type data input...
' Let TotalFile = Space(LOF(FileNum)) '....and wot receives it has to be a string of exactly the right length
'Get #FileNum, , TotalFile
' Or http://www.eileenslounge.com/viewtopic.php?p=295782&sid=f6dcab07c4d24e00e697fe4343dc7392#p295782
Let TotalFile = Input(LOF(FileNum), FileNum)
Close #FileNum
' Rem 2 What is in Text File ' https://excelfox.com/forum/showthread.php/2302-quot-What%e2%80%99s-in-a-String-quot-VBA-break-down-Loop-through-character-contents-of-a-string?p=15524&viewfull=1#post15524
'Sub WtchaGot_Unic_NotMuchIfYaChoppedItOff(ByVal strIn As String, Optional ByVal FlNme As String) '
Call WtchaGot_Unic_NotMuchIfYaChoppedItOff(TotalFile)
End Sub
Various outputs are given and some of them are looked at in the next post, (and a few are in the uploaded file)
Note we will still be just looking at what we pasted into a text file, for a quick look, but our final goal is to bypass that and look directly at the text in the clipboard. We are just trying to get an initial idea of the structure of the complete text: Initially a text file is OK, but we cannot be too sure about exactly what "invisible" characters for example like Tabs and new line making characters
2 Attachment(s)
Start looking at all characters in the clipboard, including " invisible ones "
To get a more exact detailed look at the text we can use a clumsy function I wrote some time ago. We already noted this in the first post, and used it already in the second post
https://pastebin.com/eutzzxHv
https://www.excelfox.com/forum/showt...ll=1#post15524
We could do it again, this time directly on a string from the clipboard ( so we wold have needed to first done the
Ctrl+a
, then
Ctrl+c
, on a users online page )
A coding like this would get me various detailed outputs.
Code:
Sub QuickWotchaGot()
Rem 1 Get text from clipboard
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ' http://web.archive.org/web/20200124185244/http://excelmatters.com/2013/10/04/late-bound-msforms-dataobject/ ' https://www.eileenslounge.com/viewtopic.php?f=27&t=39784
Dim StringBack As String ' This is for the entire text held for the range in the windows clipboard after a .Copy
.GetFromClipboard: Let StringBack = .GetText()
End With
Rem 3 WachaGot
Call WtchaGot_Unic_NotMuchIfYaChoppedItOff(MainString)
End Sub
One of the outputs useful is a text file that starts a new line whenever it sees a typical line separator combination vbCr & vbLf . This output is often useful as using the vbCr & vbLf is often a good way to divide up information, since typically we Humans like to look at, and have given to us in User interfaces presented to us, this sort of well structured, List / Lines type thing
That text file, (one of a few that my function makes), will look then something like this. (An example of an actual text file is also uploaded)
The point of this text file is that it is simply easier to look at and analyse than a long continuous text that you would have to horizontally scroll along to see all the same information
I know this is all getting a bit confusing with different views of the text file. These are just my notes for now. Maybe later I will start again, and even do a shorter customised version of my function specific for this work. Or maybe not. What will be will be….
Code:
"Excel" & "," & " Access" & "," & " PowerPoint and Word VBA Macro Automation Help " & "-" & " Powered by vBulletin" & vbCr & vbLf
"Log Out" & vbCr & vbLf
"Settings" & vbCr & vbLf
"My Profile" & vbCr & vbLf
"Notifications" & ":" & " 1" & vbCr & vbLf
"Welcome" & "," & " DocAElstein" & vbCr & vbLf
"Forum" & vbCr & vbLf
"Forum HomeNew PostsPrivate MessagesFAQCalendarCommunityForum ActionsQuick Links" & vbCr & vbLf
"What" & "'" & "s New" & "?" & vbCr & vbLf
"Zero Reply Posts" & vbCr & vbLf
"Senden" & vbCr & vbLf
"Advanced Search" & vbCr & vbLf
"HomeWho" & "'" & "s Online" & vbCr & vbLf
"1 members and 1736 guests" & vbCr & vbLf
"Most users ever online was 81968" & "," & " 06" & "-" & "16" & "-" & "2025 at 11" & ":" & "54 AM" & "." & vbCr & vbLf
vbCr & vbLf
"Page 16 of 87FirstFirstPrevious" & "." & "." & "." & "614151617182666" & "." & "." & "." & "NextLastLast" & vbCr & vbLf
"Who" & "'" & "s Online" & vbCr & vbLf
"User Name Reverse Sort Order" & vbCr & vbLf
"Last Activity" & vbCr & vbLf
"Location" & vbCr & vbLf
"IP Address" & vbCr & vbLf
"Instant Messaging" & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "45 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "917Viewing Thread" & vbCr & vbLf
"Populate Ribbon Controls On Load Dynamically Through VBA Variables" & vbCr & vbLf
"43" & "." & "134" & "." & "69" & "." & "90" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "34 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "1641Viewing Thread" & vbCr & vbLf
"Office RibbonX " & "-" & " Large SubMenu Items Within A Dynamic Menu" & vbCr & vbLf
"43" & "." & "134" & "." & "41" & "." & "39" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "42 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "720Viewing Thread" & vbCr & vbLf
"Workbook Event running VBA question" & vbCr & vbLf
"150" & "." & "109" & "." & "24" & "." & "245" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "39 AM" & vbTab & "member" & "." & "php" & "?" & "u" & "=" & "16225Viewing User Profile" & vbCr & vbLf
"AlisaCooperEB" & vbCr & vbLf
"34" & "." & "116" & "." & "22" & "." & "65" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "42 AM" & vbTab & "/" & "forum" & "/" & "tags" & "." & "php" & "?" & "amp" & ";" & "tag" & "=" & "." & "pdfViewing Tag List" & vbTab & "222" & "." & "255" & "." & "48" & "." & "202" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "43 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "1378Viewing Thread" & vbCr & vbLf
"15 US Dollars For Macro To Merge And Aggregate Data For Same Row Headers" & vbCr & vbLf
"43" & "." & "133" & "." & "38" & "." & "100" & vbTab & vbCr & vbLf
"Google Spider" & vbTab & "11" & ":" & "36 AM" & vbTab & "member" & "." & "php" & "?" & "u" & "=" & "12210Viewing User Profile" & vbCr & vbLf
"jadilok" & vbCr & vbLf
"66" & "." & "249" & "." & "66" & "." & "193" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "45 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "2601Viewing Thread" & vbCr & vbLf
"Excel VBA Macro to Extract Outlook GAL Email Address Using Alias" & vbCr & vbLf
"43" & "." & "134" & "." & "99" & "." & "61" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "44 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "2944Viewing Thread" & vbCr & vbLf
"You are subscribed to this thread How to recover an MS Word Document Deleted From The Disk" & "?" & vbCr & vbLf
"43" & "." & "134" & "." & "41" & "." & "2" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "47 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "424Viewing Thread" & vbCr & vbLf
"Size limitation on Uploads" & vbCr & vbLf
"43" & "." & "134" & "." & "75" & "." & "217" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "44 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "893Viewing Thread" & vbCr & vbLf
"How To Use Frequency Function In Excel" & vbCr & vbLf
"43" & "." & "163" & "." & "8" & "." & "75" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "47 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "1059Viewing Thread" & vbCr & vbLf
"Add Digital Signature To PDF Using VBA" & vbCr & vbLf
"119" & "." & "28" & "." & "105" & "." & "111" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "46 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "539Viewing Thread" & vbCr & vbLf
"Remove UserForm" & "'" & "s TitleBar And Frame" & vbCr & vbLf
"43" & "." & "134" & "." & "73" & "." & "181" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "37 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "2988Viewing Thread" & vbCr & vbLf
"You are subscribed to this thread FORMULA EXPLAIN" & vbCr & vbLf
"150" & "." & "109" & "." & "25" & "." & "235" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "43 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "2860" & "&" & "page" & "=" & "11Viewing Thread" & vbCr & vbLf
"You are subscribed to this thread Notes tests" & "," & " string" & "," & " manipulation of text files and string manipulations" & vbCr & vbLf
"129" & "." & "226" & "." & "92" & "." & "236" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "47 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "2329Viewing Thread" & vbCr & vbLf
"How to Modify Header having table" & vbCr & vbLf
"43" & "." & "134" & "." & "69" & "." & "90" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "40 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "1579Viewing Thread" & vbCr & vbLf
"You are subscribed to this thread Test Whether A Point Is In A Polygon Or Not" & vbCr & vbLf
"124" & "." & "156" & "." & "200" & "." & "172" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "45 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "50Viewing Thread" & vbCr & vbLf
"You are subscribed to this thread Test copy Activate Ribbon Tab In Excel 2007 2010 " & Chr(42) & vbCr & vbLf
"43" & "." & "133" & "." & "62" & "." & "221" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "34 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "1028Viewing Thread" & vbCr & vbLf
"10" & "$" & " For VBA Code Split Data To Multiple Workbook Based On Unique Values In A Column" & vbCr & vbLf
"43" & "." & "134" & "." & "118" & "." & "145" & vbTab & vbCr & vbLf
"Guest" & vbTab & "11" & ":" & "41 AM" & vbTab & "showthread" & "." & "php" & "?" & "t" & "=" & "2566Viewing Thread" & vbCr & vbLf
"You are subscribed to this thread Testing Image Links" & vbCr & vbLf
"43" & "." & "134" & "." & "41" & "." & "39" & vbTab & vbCr & vbLf
"Page 16 of 87FirstFirstPrevious" & "." & "." & "." & "614151617182666" & "." & "." & "." & "NextLastLast" & vbCr & vbLf
"Quick Navigation Who" & "'" & "s Online Top" & vbCr & vbLf
"Icon Legend" & vbCr & vbLf
"+" & "User is on your contact list" & Chr(42) & "User is invisible to othersViewing " & "'" & "Forum Closed" & "'" & " MessageViewing " & "'" & "Forum Closed" & "'" & " MessageViewing " & "'" & "No Permission" & "'" & " MessageViewing " & "'" & "No Permission" & "'" & " MessageViewing Error MessageViewing Error Message" & vbCr & vbLf
"Who" & "'" & "s Online Options" & vbCr & vbLf
"Display" & ":" & vbCr & vbLf
"All" & vbCr & vbLf
"User Agent" & ":" & vbCr & vbLf
"No" & vbCr & vbLf
"Per Page" & ":" & vbCr & vbLf
"20" & vbCr & vbLf
vbCr & vbLf
"-" & "-" & " Default Style" & vbCr & vbLf
"Contact Us Excel" & "," & " Access" & "," & " PowerPoint and Word Help Admin Mod Archive Top" & vbCr & vbLf
"All times are GMT " & "+" & "2" & "." & " The time now is 11" & ":" & "48 AM" & "." & vbCr & vbLf
"Powered by vBulletin" & Chr(174) & " Version 4" & "." & "2" & "." & "5" & vbCr & vbLf
"Copyright " & Chr(169) & " 2025 vBulletin Solutions" & "," & " Inc" & "." & " All rights reserved" & "." & vbCr & vbLf
"ExcelFox is Not Associated With Microsoft" & Chr(174)
