A Semi automated way to note the IP addresses of things viewing us

**DocAElstein** · 06-25-2025, 02:01 PM

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 Get this info semi automatically.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