Function Ping

[bang1902]

Hi all,

I use function Ping, I have a problem:

Ping IP add: 192.168.1.1 -> result: good

Ping IP add: 192.168.001.001 -> result: not reach able.

I ping 192.168.001.001 because I use Function FileRead ( "filehandle/filename" [, count] ) to get IP add in the text file with count = 15

Help me.

Thanks!

[iamtheky]

this would remove leading zeroes from an IP address

$str = "192.168.001.001"

$strArray = stringsplit($str , "." , 2)

for $i = 0 to ubound($strArray) - 1
If stringleft($strArray[$i] , 1) = "0" Then
$strArray[$i] = stringtrimleft($strArray[$i] , 1)
If stringleft($strArray[$i] , 1) = "0" Then $strArray[$i] = stringtrimleft($strArray[$i] , 1)
Endif
next

$str = $strArray[0] & "." & $strArray[1] & "." & $strArray[2] & "." & $strArray[3]

msgbox (0, '' , $str)

Edited August 13, 2012 by boththose

[UEZ]

Here another method:

$sIP = "192.168.001.001"

MsgBox(0, "Test", ReformatIP($sIP))

Func ReformatIP($sIP)
    Local $aTmp = StringSplit($sIP, ".", 2)
    Return StringFormat("%-0d.%-0d.%-0d.%-0d", $aTmp[0], $aTmp[1], $aTmp[2], $aTmp[3])
EndFunc

Why did you post it here (ActiveX/COM Help and Support (AutoItX))?

Br,

UEZ

Edited August 13, 2012 by UEZ

[bang1902]

this would remove leading zeroes from an IP address

$str = "192.168.001.001"

$strArray = stringsplit($str , "." , 2)

for $i = 0 to ubound($strArray) - 1
If stringleft($strArray[$i] , 1) = "0" Then
$strArray[$i] = stringtrimleft($strArray[$i] , 1)
If stringleft($strArray[$i] , 1) = "0" Then $strArray[$i] = stringtrimleft($strArray[$i] , 1)
Endif
next

$str = $strArray[0] & "." & $strArray[1] & "." & $strArray[2] & "." & $strArray[3]

msgbox (0, '' , $str)

Thanks, I think that you right.

[bang1902]

Here another method:

$sIP = "192.168.001.001"

MsgBox(0, "Test", ReformatIP($sIP))

Func ReformatIP($sIP)
Local $aTmp = StringSplit($sIP, ".", 2)
Return StringFormat("%-0d.%-0d.%-0d.%-0d", $aTmp[0], $aTmp[1], $aTmp[2], $aTmp[3])
EndFunc

Why did you post it here (ActiveX/COM Help and Support (AutoItX))?

Br,

UEZ

Thanks. I will post it later.

[bang1902]

#include <File.au3>

global $line = _FileCountLines("ipadd.txt")

;MsgBox (0, "so dong:", $line)

for $j = 1 to 5 +1

for $k = 1 to $line +1

$str = FileReadLine ("ipadd.txt",$k)

If @error = -1 Then ExitLoop

$strArray = stringsplit($str , "." , 2)

for $i = 0 to ubound($strArray) - 1

If stringleft($strArray[$i] , 1) = "0" Then

$strArray[$i] = stringtrimleft($strArray[$i] , 1)

If stringleft($strArray[$i] , 1) = "0" Then $strArray[$i] = stringtrimleft($strArray[$i] , 1)

Endif

next

$str = $strArray[0] & "." & $strArray[1] & "." & $strArray[2] & "." & $strArray[3]

;msgbox (0, '' , $strArray[4])

Local $var = Ping($str,2500)

If $var Then; also possible: If @error = 0 Then ...

;MsgBox(0, "Status", "Online, roundtrip was:" & $var)

Else

$time = @hour & ":" & @MIN &"---"& @MDAY &"/"& @MON &"/"& @YEAR

local $file

$file = FileOpen ("results.txt", 1)

$data = & "Unreachable to: " $str & "--NE--" & $strArray[4] & " at: " & $time & @CRLF

FileWrite ($file, $data)

FileClose($file)

Beep (3000)

MsgBox(0, "Status", "Unreachable to: " & $str & "--NE--" & $strArray[4] &"---Error: " & @error, 5)

EndIf

Sleep(2000)

Next

Sleep (3000)

Next

This is my code ($strArray[4] added to explain for ip add, this is name of host). Now, I writing GUI for it. And I meet a problem about function button. I'll read more. If I need to help, I question continue.

Edited August 15, 2012 by bang1902

[bang1902]

Hi all, I has a different method:

$strArray[$i] = Number($strArray[$i])

[JohnOne]

I'm still having a bit of trouble relating this thread to Autoitx.