Fabry Posted July 27, 2007 Share Posted July 27, 2007 (edited) How can I use packetx? Post your code please. Any examples?See down!!!!!▼↓↓▼ Edited August 4, 2007 by Fabry A lan chat (Multilanguage)LanMuleFile transferTank gameTank 2 an online game[center]L'esperienza è il nome che tutti danno ai propri errori.Experience is the name everyone gives to their mistakes.Oscar Wilde[/center] Link to comment Share on other sites More sharing options...
Fabry Posted July 30, 2007 Author Share Posted July 30, 2007 Up. help me please A lan chat (Multilanguage)LanMuleFile transferTank gameTank 2 an online game[center]L'esperienza è il nome che tutti danno ai propri errori.Experience is the name everyone gives to their mistakes.Oscar Wilde[/center] Link to comment Share on other sites More sharing options...
lordofthestrings Posted July 31, 2007 Share Posted July 31, 2007 since packetX is a activeX (Automation) Object you can explore it using ActiveX/COM Inspector. Link to comment Share on other sites More sharing options...
JRSmile Posted August 3, 2007 Share Posted August 3, 2007 just have a look at the wow automation thread, at the example posts section. $a=StringSplit("547275737420796F757220546563686E6F6C75737421","") For $b=1 To UBound($a)+(-1*-1*-1)step(2^4/8);&$b+=1*2/40*µ&Asc(4) Assign("c",Eval("c")&Chr(Dec($a[$b]&$a[$b+1])));''Chr("a")&"HI" Next ;time_U&r34d,ths,U-may=get$the&c.l.u.e;b3st-regards,JRSmile; MsgBox(0x000000,"",Eval("c"));PiEs:d0nt+*b3.s4d.4ft3r.1st-try:-) Link to comment Share on other sites More sharing options...
Fabry Posted August 3, 2007 Author Share Posted August 3, 2007 link me the post A lan chat (Multilanguage)LanMuleFile transferTank gameTank 2 an online game[center]L'esperienza è il nome che tutti danno ai propri errori.Experience is the name everyone gives to their mistakes.Oscar Wilde[/center] Link to comment Share on other sites More sharing options...
AzKay Posted August 3, 2007 Share Posted August 3, 2007 Use search function. I also believe that the packetx installation comes with a helpfile with vbscript, and language examples. It isnt too hard to convert it to autoit either, They are pretty similiar when you look at it :3 # MY LOVE FOR YOU... IS LIKE A TRUCK- # Link to comment Share on other sites More sharing options...
Fabry Posted August 4, 2007 Author Share Posted August 4, 2007 I'm translating from visual basic , the example, but how can I translate this: CODEconst PktXPacketTypePromiscuous = &H0020 and this: CODEIf bByte <= &H0F Then sLine=sLine & "0" End If A lan chat (Multilanguage)LanMuleFile transferTank gameTank 2 an online game[center]L'esperienza è il nome che tutti danno ai propri errori.Experience is the name everyone gives to their mistakes.Oscar Wilde[/center] Link to comment Share on other sites More sharing options...
Fabry Posted August 4, 2007 Author Share Posted August 4, 2007 (edited) I finished to translate example "Capture": expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.4.9 Author: Fabry Script Function: Sniffer fo network #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here ;~ // Constants #include<String.au3> Const $PktXPacketTypePromiscuous = 0x0020 Const $PktXLinkType802_3 = 1 Const $PktXLinkType802_5 = 2 Const $PktXLinkTypeFddi = 3 Const $PktXLinkTypeWan = 4 Const $PktXLinkTypeLocalTalk = 5 Const $PktXLinkTypeDix = 6 Const $PktXLinkTypeArcnetRaw = 7 Const $PktXLinkTypeArcnet878_2 = 8 Const $PktXLinkTypeAtm = 9 Const $PktXLinkTypeWirelessWan = 10 Const $PktXModeCapture = 1 ; Protocol types Const $PktXProtocolTypeEthernet = 1 Const $PktXProtocolTypeIp = 2 Const $PktXProtocolTypeUdp = 3 Const $PktXProtocolTypeTcp = 4 ;~ // Create PackeX object Global $oPktX = ObjCreate("PktX.PacketX") If Not IsObj($oPktX) Then MsgBox(0, "ERROR", "No Object") $EventObject = ObjEvent($oPktX, "PacketX_") ;~ // Display network adapters For $i = 1 To $oPktX.Adapters.Count If $oPktX.Adapters ($i).IsGood Then MsgBox(0, '', "(" & $i & ") " & $oPktX.Adapters ($i).Description) PrintAdapter($oPktX.Adapters ($i)) EndIf Next ; Select network adapter $oPktX.Adapter = $oPktX.Adapters ($oPktX.Adapters.Count) ;~ PrintAdapter($oPktX.Adapter) ; Capture buffer parameters $oPktX.Adapter.BuffSize = 256 * 1024 ; 256 KB $oPktX.Adapter.BuffMinToCopy = 0 ; Hardware filter and capture mode $oPktX.Adapter.HWFilter = $PktXPacketTypePromiscuous $oPktX.Adapter.Mode = $PktXModeCapture ; Start capture $oPktX.Start $begin = TimerInit() While TimerDiff($begin) < 60000 Sleep(1) WEnd $oPktX.Stop PrintStats($oPktX.Adapter) ; Packet event handler Func PacketX_OnPacket($oPacket) PrintHead($oPacket) PrintData($oPacket) EndFunc ;==>PacketX_OnPacket Func PrintAdapter($oAdapter) ConsoleWrite("Device name is " & $oAdapter.Device & @LF) ConsoleWrite("Link type is ") Switch $oAdapter.LinkType Case $PktXLinkType802_3 ConsoleWrite("Ethernet (802.3)" & @LF) Case $PktXLinkType802_5 ConsoleWrite("Token Ring (802.5)" & @LF) Case $PktXLinkTypeFddi ConsoleWrite("FDDI" & @LF) Case $PktXLinkTypeWan ConsoleWrite("WAN" & @LF) Case $PktXLinkTypeLocalTalk ConsoleWrite("LocalTalk" & @LF) Case $PktXLinkTypeDix ConsoleWrite("DIX" & @LF) Case $PktXLinkTypeArcnetRaw ConsoleWrite("ARCNET (raw)" & @LF) Case $PktXLinkTypeArcnet878_2 ConsoleWrite("ARCNET (878.2)" & @LF) Case $PktXLinkTypeAtm ConsoleWrite("ATM" & @LF) Case $PktXLinkTypeWirelessWan ConsoleWrite("NdisWirelessXxx media" & @LF) Case Else ConsoleWrite("Unknown!" & @LF) EndSwitch ConsoleWrite("Link speed is " & $oAdapter.LinkSpeed & " bps" & @LF) ;~ Consolewrite( "Network IP addres is " & $oAdapter.NetIP&@LF) ;~ Consolewrite( "Network mask is " & $oAdapter.NetMask&@LF) ConsoleWrite("HW address is " & $oAdapter.HWAddress & @LF) EndFunc ;==>PrintAdapter Func PrintHead($oPacket) local $type Switch $oPacket.Protocol Case $PktXProtocolTypeEthernet $type='Eth' Case $PktXProtocolTypeIp $type='Ip' Case $PktXProtocolTypeUdp $type='UDP' Case $PktXProtocolTypeTcp $type='TCP' EndSwitch ConsoleWrite("----------------------- Packet Header ---------------------" & @LF) ConsoleWrite("Original size " & $oPacket.OriginalSize & " bytes" & @LF) ConsoleWrite("Capture size " & $oPacket.DataSize & " bytes" & @LF) ConsoleWrite("Capture time " & $oPacket.TimeSec & " (number of seconds from 1/1/1970)" & @LF) ConsoleWrite("Capture microseconds " & $oPacket.TimeUSec & @LF) ConsoleWrite("Capture date " & $oPacket.Date & " (system date and time)" & @LF) ConsoleWrite('Protocol: ' & $type & @LF) ConsoleWrite('From ' & $oPacket.SourceIpAddress & ':' & $oPacket.Sourceport & ' To ' & $oPacket.DestIpAddress & ':' & $oPacket.DestPort & @LF) EndFunc ;==>PrintHead Func PrintData($oPacket) ConsoleWrite("----------------------- Packet Data -----------------------" & @LF) Dim $sline = '' Local $tline = '' For $bByte In $oPacket.Data If StringLen($sline) >= 48 Then ConsoleWrite($sline & @LF) $sline = "" EndIf If $bByte <= Chr(4) Then $tline = $tline & "0" ;~ $sline = $sline & "0" EndIf $sline = $sline & Hex($bByte, 2) & " " $tline = $tline & Hex($bByte, 2) & " " Next If StringLen($sline) > 0 Then Local $wLine = '' Local $hesadecimale = StringSplit($tline, ' ') For $i = 1 To $hesadecimale[0] $wLine &= _HexToString($hesadecimale[$i]) Next ConsoleWrite($sline & @LF) ConsoleWrite($wLine & @LF) Else ConsoleWrite("" & @LF) EndIf EndFunc ;==>PrintData Func PrintStats($oAdapter) ConsoleWrite("------------------- Capture Statistics --------------------" & @LF) ConsoleWrite("Packets received " & $oAdapter.PacketsRecv & @LF) ConsoleWrite("Packets lost " & $oAdapter.PacketsLost & @LF) EndFunc ;==>PrintStats Edited August 4, 2007 by Fabry A lan chat (Multilanguage)LanMuleFile transferTank gameTank 2 an online game[center]L'esperienza è il nome che tutti danno ai propri errori.Experience is the name everyone gives to their mistakes.Oscar Wilde[/center] Link to comment Share on other sites More sharing options...
Bot Posted August 6, 2007 Share Posted August 6, 2007 C:\capture.au3 (30) : ==> Variable must be of type "Object".: For $i = 1 To $oPktX.Adapters.Count For $i = 1 To $oPktX^ ERROR What does this error mean ? Link to comment Share on other sites More sharing options...
AzKay Posted August 12, 2007 Share Posted August 12, 2007 It means you most likely dont have PacketX installed. # MY LOVE FOR YOU... IS LIKE A TRUCK- # Link to comment Share on other sites More sharing options...
Fabry Posted August 14, 2007 Author Share Posted August 14, 2007 Strange, this code allerts you that it doesn't work. If Not IsObj($oPktX) Then MsgBox(0, "ERROR", "No Object");if is not a object then message, you suould exit A lan chat (Multilanguage)LanMuleFile transferTank gameTank 2 an online game[center]L'esperienza è il nome che tutti danno ai propri errori.Experience is the name everyone gives to their mistakes.Oscar Wilde[/center] Link to comment Share on other sites More sharing options...
lordofthestrings Posted August 14, 2007 Share Posted August 14, 2007 with me the messagebox works as expected.. I don't have packetX installed, so I get this popupbox.. will try later with app installed as I'm interested in this functionality too.. good work Fabry! Link to comment Share on other sites More sharing options...
jmaleal Posted August 14, 2007 Share Posted August 14, 2007 i got no error.... just 2 msg with OK button. Link to comment Share on other sites More sharing options...
Ibrahim Posted August 14, 2007 Share Posted August 14, 2007 the script works fine with me so how can i customize an ARP packet from within to different senders and receivers [font="Arial Black"]My Stuff[/font]UPnP Port Forwarding Final.GateWay InformationThe GateWay Watcher(detect speeofing)Rightclick Any file --->Hide/UnhideThe Tip WatcherA PanelShare WatcherThe Arp WatcherThe Online License Checker Link to comment Share on other sites More sharing options...
Ibrahim Posted August 14, 2007 Share Posted August 14, 2007 Check out what i made Guys , I'm Selling this program already got 5 versions sold what i need is how to customize the arp packet and send it from within Autoit not just sending a captured arp packet in a file [font="Arial Black"]My Stuff[/font]UPnP Port Forwarding Final.GateWay InformationThe GateWay Watcher(detect speeofing)Rightclick Any file --->Hide/UnhideThe Tip WatcherA PanelShare WatcherThe Arp WatcherThe Online License Checker Link to comment Share on other sites More sharing options...
Fabry Posted August 15, 2007 Author Share Posted August 15, 2007 i got no error.... just 2 msg with OK button.Have you installed packetX?the msgboxes are about your network cards? A lan chat (Multilanguage)LanMuleFile transferTank gameTank 2 an online game[center]L'esperienza è il nome che tutti danno ai propri errori.Experience is the name everyone gives to their mistakes.Oscar Wilde[/center] Link to comment Share on other sites More sharing options...
JRSmile Posted August 16, 2007 Share Posted August 16, 2007 i changed adapter.count() to adapter(1) or something, i had to try a little until i got the right nic. $a=StringSplit("547275737420796F757220546563686E6F6C75737421","") For $b=1 To UBound($a)+(-1*-1*-1)step(2^4/8);&$b+=1*2/40*µ&Asc(4) Assign("c",Eval("c")&Chr(Dec($a[$b]&$a[$b+1])));''Chr("a")&"HI" Next ;time_U&r34d,ths,U-may=get$the&c.l.u.e;b3st-regards,JRSmile; MsgBox(0x000000,"",Eval("c"));PiEs:d0nt+*b3.s4d.4ft3r.1st-try:-) Link to comment Share on other sites More sharing options...
AzKay Posted August 17, 2007 Share Posted August 17, 2007 Fabry, Have you figured out how to have it Send packets? Like, ReSend captured packets? # MY LOVE FOR YOU... IS LIKE A TRUCK- # Link to comment Share on other sites More sharing options...
jmaleal Posted August 20, 2007 Share Posted August 20, 2007 i would like to use this script in a game i would like to add to my bot script and when someone whisper me something in game...i should do some action i am interested in this script...but i cant help i am too noob ^^ Link to comment Share on other sites More sharing options...
_Kurt Posted August 21, 2007 Share Posted August 21, 2007 This seems really interesting, but unfortunately I'm getting an error at the start:==> The requested action with this object has failed.: For $i = 1 To $oPktX.Adapters.Count For $i = 1 To $oPktX.Adapters^ ERRORIs everyone getting this problem? I have packetx installed and everything.Thanks,Kurt Awaiting Diablo III.. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now