[Iska]

cinstaller, пробуйте:

Скрытый текст

Код:

Option Explicit

Const ForAppending = 8
Const strPreviousIPList = "PreviousIPList.txt"

Dim strIP
Dim boolIPExists


With WScript.CreateObject("Microsoft.XMLHTTP")
	.open "GET", "http://ifconfig.me/ip", False
	.send
	
	strIP = Replace(.responseText, vbLf, "")
End With

boolIPExists = False

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strPreviousIPList) Then
		With .OpenTextFile(strPreviousIPList)
			Do Until .AtEndOfStream
				If Split(.ReadLine())(0) = strIP Then
					boolIPExists = True
					
					Exit Do
				End If
			Loop
			
			.Close
		End With
	End If
	
	If boolIPExists Then
		MsgBox "IP exists", vbOKOnly + vbExclamation, "IP exists"
	Else
		With .OpenTextFile(strPreviousIPList, ForAppending, True)
			.WriteLine strIP & " " & DateTimeNowFormat()
			
			.Close
		End With
		
		MsgBox "IP [" & strIP & "] append", vbOKOnly + vbInformation, "IP append"
	End If
End With

WScript.Quit 0

Function DateTimeNowFormat()
	Dim dtNow
	
	dtNow = Now()
	
	DateTimeNowFormat = _
		"(" & _
			DigitPad(Day(dtNow), 2) & "." & DigitPad(Month(dtNow), 2) & "." & DigitPad(Year(dtNow), 4) & _
			" / " & _
			DigitPad(Hour(dtNow), 2) & ":" & DigitPad(Minute(dtNow), 2) & _
		")"
End Function

Function DigitPad(intValue, intZeroCount)
	DigitPad = Right(String(intZeroCount, "0") & CStr(intValue), intZeroCount)
End Function

[cinstaller]

Iska »

Большое вам спасибо!

[cinstaller]

Здравствуйте, Iska. У вас золотые руки! Мне очень сильно помог ваш скрипт, еще раз большое спасибо! Скажите пожалуйста, как можно реализовать, что бы скрипт узнавал IP адреса через браузер Google Chrome ? Дело в том, что в данном браузере установлено расширение VPN и я хочу перебрать все IP адреса и уникальные занести в ТХТ документ.

Скрытый текст

Код:

Option Explicit

Const ForAppending = 8
Const strPreviousIPList = "PreviousIPList.txt"

Dim strIP
Dim boolIPExists


With WScript.CreateObject("Microsoft.XMLHTTP")
	.open "GET", "http://ifconfig.me/ip", False
	.send
	
	strIP = Replace(.responseText, vbLf, "")
End With

boolIPExists = False

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strPreviousIPList) Then
		With .OpenTextFile(strPreviousIPList)
			Do Until .AtEndOfStream
				If Split(.ReadLine())(0) = strIP Then
					boolIPExists = True
					
					Exit Do
				End If
			Loop
			
			.Close
		End With
	End If
	
	If boolIPExists Then
		MsgBox "IP exists", vbOKOnly + vbExclamation, "IP exists"
	Else
		With .OpenTextFile(strPreviousIPList, ForAppending, True)
			.WriteLine strIP & " " & DateTimeNowFormat()
			
			.Close
		End With
		
		MsgBox "IP [" & strIP & "] append", vbOKOnly + vbInformation, "IP append"
	End If
End With

WScript.Quit 0

Function DateTimeNowFormat()
	Dim dtNow
	
	dtNow = Now()
	
	DateTimeNowFormat = _
		"(" & _
			DigitPad(Day(dtNow), 2) & "." & DigitPad(Month(dtNow), 2) & "." & DigitPad(Year(dtNow), 4) & _
			" / " & _
			DigitPad(Hour(dtNow), 2) & ":" & DigitPad(Minute(dtNow), 2) & _
		")"
End Function

Function DigitPad(intValue, intZeroCount)
	DigitPad = Right(String(intZeroCount, "0") & CStr(intValue), intZeroCount)
End Function

Я не разбираюсь в программирование, но примерно понимаю, что ваш скрипт на данный момент узнает IP адреса таким способом:

Скрытый текст

Код:

With WScript.CreateObject("Microsoft.XMLHTTP")
	.open "GET", "http://ifconfig.me/ip", False
	.send
	
	strIP = Replace(.responseText, vbLf, "")
End With

Но вот вопрос, можно или нельзя реализовать проверку именно через браузер Google Chrome с включенным расширением VPN ?

[Iska]

Ответ простой — никак. Google Chrome не предоставляет класса Automation.