Giena22
05-10-2009, 15:29
как зделать чтоб скрипт сканировал покеты с указонава IP и при нахождении нужного пакета отправлял другой покет!!!
вот скрипт для отправки!!!
$Hex = "47 45 54 20 20 68 74 74 70 3A 2F 2F 64 61 76 61 69 5F 66 72 61 67 6F 72 69 73 6B 69 65 5F 64 61 6E 6E 69 2E 68 74 6D 6C 20 48 54 54 50 2F 31 2E 30 0D 0A 0D 0A 63 31 64 66 34 33 38 32 34 30 65 64 33 63 31 37 35 66 37 65 38 32 31 36 30 38 35 36 35 66 63 61 43 48 53 4D 0A 0A 32 0A 3C 53 50 41 4E 3E 74 65 73 74 3C 2F 53 50 41 4E 3E 0A 30 01 "
$Str = StringSplit($Hex," ")
$Hex = ''
For $x = 1 to $Str[0]
If $Str[$x] Then
$Hex &= Chr((Dec($Str[$x])))
EndIf
Next
MsgBox(0, "", "Отправить покет!!!")
$ReturnTCPStartup = TCPStartup()
$IP = TCPNameToIP("217.69.142.6")
$Socket = TCPConnect($IP,80)
TCPSend($Socket,$Hex)
MsgBox(0, "", "IP: " & $IP & @CRLF & "TCPStartup return: " & $ReturnTCPStartup & @CRLF & "Connected: " & $Socket & @CRLF & "Message: " & $Hex)
подскажите как зделать поиск покетов!
вот скрипт для отправки!!!
$Hex = "47 45 54 20 20 68 74 74 70 3A 2F 2F 64 61 76 61 69 5F 66 72 61 67 6F 72 69 73 6B 69 65 5F 64 61 6E 6E 69 2E 68 74 6D 6C 20 48 54 54 50 2F 31 2E 30 0D 0A 0D 0A 63 31 64 66 34 33 38 32 34 30 65 64 33 63 31 37 35 66 37 65 38 32 31 36 30 38 35 36 35 66 63 61 43 48 53 4D 0A 0A 32 0A 3C 53 50 41 4E 3E 74 65 73 74 3C 2F 53 50 41 4E 3E 0A 30 01 "
$Str = StringSplit($Hex," ")
$Hex = ''
For $x = 1 to $Str[0]
If $Str[$x] Then
$Hex &= Chr((Dec($Str[$x])))
EndIf
Next
MsgBox(0, "", "Отправить покет!!!")
$ReturnTCPStartup = TCPStartup()
$IP = TCPNameToIP("217.69.142.6")
$Socket = TCPConnect($IP,80)
TCPSend($Socket,$Hex)
MsgBox(0, "", "IP: " & $IP & @CRLF & "TCPStartup return: " & $ReturnTCPStartup & @CRLF & "Connected: " & $Socket & @CRLF & "Message: " & $Hex)
подскажите как зделать поиск покетов!