Ja schon aber so kann ich auch gleichzeitig weitere Erfahrungen sammeln
Beiträge von sedas19
-
-
es ist Die 2014 version von AutoDesk AutoCAD eine 2D Zeichnung. In der zeichnung sind aber mehrere andere zeichnung noch mit drinne und ich wollte halt ein programm schreiben was die verschiedenen "Blöcke" erkennt und zur auswahl liefert. Und diese ausgewähltem "Elemente" dan exporttiert bzw habe schon ein programm was die xml datein weiterverarbeitet, also die datein dan weitergiebt.
Gruß Michael
-
Hallo leute
ich hatte vor die datein von AutoCAD die im format DWG gespeichert werden auszulesen und in einer xml tabele zu speichern nun stehe ich vor der herrausvorderung diesen code:
Code
Alles anzeigenThe following example is a simple Visual Basic program that reads a DXF file and extracts specific codes and values from a given object in a given section. ' ReadDXF extracts specified code/value pairs from a DXF file. ' This function requires four string parameters, a valid DXF ' file name, a DXF section name, the name of an object in that ' section, and a comma delimited list of codes. ' Function ReadDXF( _ ByVal dxfFile As String, ByVal strSection As String, _ ByVal strObject As String, ByVal strCodeList As String) Dim tmpCode, lastObj As String Open dxfFile For Input As #1 ' Get the first code/value pair codes = ReadCodes ' Loop through the whole file until the "EOF" line While codes(1) <> "EOF" ' If the group code is '0' and the value is 'SECTION' .. If codes(0) = "0" And codes(1) = "SECTION" Then ' This must be a new section, so get the next ' code/value pair. codes = ReadCodes() ' If this section is the right one .. If codes(1) = strSection Then ' Get the next code/value pair and .. codes = ReadCodes ' Loop through this section until the 'ENDSEC' While codes(1) <> "ENDSEC" ' While in a section, all '0' codes indicate ' an object. If you find a '0' store the ' object name for future use. If codes(0) = "0" Then lastObj = codes(1) ' If this object is one you're interested in If lastObj = strObject Then ' Surround the code with commas tmpCode = "," & codes(0) & "," ' If this code is in the list of codes .. If InStr(strCodeList, tmpCode) Then ' Append the return value. ReadDXF = ReadDXF & _ codes(0) & "=" & codes(1) & vbCrLf End If End If ' Read another code/value pair codes = ReadCodes Wend End If Else codes = ReadCodes End If Wend Close #1 End Function ' ReadCodes reads two lines from an open file and returns a two item ' array, a group code and its value. As long as a DXF file is read ' two lines at a time, all should be fine. However, to make your ' code more reliable, you should add some additional error and ' sanity checking. ' Function ReadCodes() As Variant Dim codeStr, valStr As String Line Input #1, codeStr Line Input #1, valStr ' Trim the leading and trailing space from the code ReadCodes = Array(Trim(codeStr), valStr) End Function
irgendwie in autoit zu griegen aber habe da ehr an ein dllcall gedacht da ich aber wenig bis gar nicht bis jetzt damit gearbeitet habe würde es mich sehr freuen wen mir dabei einer behilflich sein könnte -
Hallo Liebe Coder
Ich hätte sehr gerne ein kampfsystem was mir berechnet wer gewonnen hat mit verlusten uzw
ich habe mir das wie folgt vorgestelt:
Angreifer:
Einheit 1
Einheit 2
Einheit 3
...
Verteidiger:
Einheit 1
Einheit 2
Einheit 3
...Zudem muss das system dan auch noch berücksichtigen welche forschungen er auf welches level hat und dan auch noch berechnen wie viele von welcher einheit verloren gegangen sind in großen und ganzen so eine berechnung wie die stämme oder ein andern Strategie browser game:
Bezahlung:
50 € PSC oder mehr je nach demMfg Sedas
Bei Interresse bitte melden.
ICQ:471383872
MSN: sedas18@live.de -
bei mir steht dan zb:
*:\**\***>arp -d 74.123.147.154
The specified entry was not found. -
Hallo liebe user.
Ich wollte ein program schreiben was verbindungen kappen kann.
beispiel:
habe 3 verbindungen:
84.124.15.124
85.145.165.42
74.123.147.154Ich möchte nun die verbindung mit der ip 74.123.147.154 kappen.
Die verbindung geht nicht zu mein tool sondern so ein anderes wie kann ich die verbindung von den kappen.
ohne die andern zu kappen?
ich freue mich über jede antwort -
ich meine doch autoit autoit hat ja eine wincap udf.
-
mach ich nun auch da sich hier ja alle zurückhalten
achja
Spiel.blablabla.Manipulatioon .... blablalbla....hacken.....
xD
Geheimbehörde -
da ist ja mein problem ich kann tcp nicht nutzen da der server sonst ein dc packet sendet.
aber das mit spiel manipulation ist ja lustig.
Mattthias ich hoffe du weist das das dazu diehnen soll Manipulation zu verhindern aber egal^^.
er schreiben dan denken xD -
Für das Spiel Flyff und nein es soll niemanden Schaden sondern schützen es soll ein Packetfilter werden daher verstoße ich gegen keine Regeln.
Sprich ich will ein bestimmtes Packet abfangen damit es nicht mehr den gewünschten Effekt erzielen kann wie eine art Firewall halt
-
alles schon versucht blos der server der sendet wen einer eine tcp connection öffnet ohne ein variablen string der vom client difinert wird
conncetet wird automatisch die verbingung geschlossen also bräuchte ich eine möglichkeit über wincap oder so die ip zu ändern.
bei das mit tcp griege ich erst ein packet dan ca 10 sec später ein dc packet. habe ja schon fast alles durch mir bleibt nur noch die wincap variante blos damit kenne ich mich nicht so gut aus^^ -
könnte mir endlich mal einer helfen ich bin schom am ende mit meinen nerven
-
ich möchte einfach nur ein packet was ich definiere zb:
If StringInStr($sniff, "2F616861") Then
.... ;hier soll das packet weggeleitet werden
Else
....
Endif
also wen das packet "2F616861" in den string ist soll es das packet ableiten.
zur info mein progam läuft client side also soll es das packet abhalten den server zu erreichen.
ich sniffe die packets mit wincap.blos ich finde keine methode um die packets wegzuleiten sagen wir ins lehre oder gleich das packet zu stopen so das es nicht den server erreicht.
-
#push
weis echt keiner eine antwort?
-
Dazu gibt es doch: Organize Includesja danke haben wir da schonmal was behoben bleibt nun nur noch das packet umleiten^^
alle die ich kenne die in autoit coden kennen sich mit wincap nicht so gut aus -
das mit den includes habe ich ja nur so so bin ich sicher das mir nichts fehlt^^
ne blos ich habe ja das problem das ich ohne probleme packets filtern kann aber sie nicht weckleiten kann.
habe auch schon viel probiert aber hat nichts gebracht -
Hallo Liebe Coder
Ich versuche nun schon seit wochen ein gesnifftest packet umzumleiten. ich finde keine lösung ich würde mich auf eine antwort freuen.
Hier mein code:
[autoit]#include<Winpcap.au3>
[/autoit][autoit][/autoit][autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <Guilistview.au3>
#include <Date.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <Timers.au3>
#include <INet.au3>
#include <String.au3>
#include <Constants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$hGui = GUICreate("", 377,94, 319, 239, $WS_POPUP, BitOR($WS_EX_LAYERED,$WS_EX_TOOLWINDOW,$WS_EX_TOPMOST))
GUISetBkColor(0xABCDEF)
_WinAPI_SetLayeredWindowAttributes($hGui, 0xABCDEF, 255)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 377, 73, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL),$WS_EX_TRANSPARENT)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xABCDEF)
$Input1 = GUICtrlCreateInput("", 0, 73, 280, 21)
$Button1 = GUICtrlCreateButton("Send", 280, 73, 97, 21, $WS_GROUP)
_GUICtrlEdit_SetReadOnly($Edit1, True)
$oIE = _IECreateEmbedded ()
GUICtrlCreateObj($oIE, -30, -30, 0, 0)$filter = "tcp port 5400"
[/autoit][autoit][/autoit][autoit]
$winpcap=_PcapSetup()
If ($winpcap=-1) Then
MsgBox(16,"Pcap error !","WinPcap not found !")
exit
EndIf
$pcap_devices=_PcapGetDeviceList()
If ($pcap_devices=-1) Then
MsgBox(16,"Pcap error !",_PcapGetLastError())
exit
EndIf
$int = $pcap_devices[0][0]
$pcap = _PcapStartCapture($int, $filter, 0)
If ($pcap = -1) Then
MsgBox(16, "Pcap error !", _PcapGetLastError())
EndIf
while 1
If IsPtr($pcap) Then
$time0 = TimerInit()
While (TimerDiff($time0) < 500)
$packet = _PcapGetPacket($pcap)
If IsInt($packet) Then ExitLoop
$sniff = sniff($packet[3])
If $sniff <> False Then
$var = StringMid($sniff,1,1)
If $var = "-" Then
ConsoleWrite($sniff&@CRLF)
If StringInStr($sniff, "2F67206720636D64206F6E") Then ; /gg cmd on
GUISetState(@SW_SHOW,$hGui)
WinActivate("[CLASS:D3D Window]")
EndIf
If StringInStr($sniff, "2F67206720636D64206F6666") Then ; /gg cmd off
GUISetState(@SW_HIDE,$hGui)
_GUICtrlEdit_SetText($Edit1, "")
WinActivate("[CLASS:D3D Window]")
EndIf
EndIf
EndIf
WEnd
EndIf
If WinExists("[CLASS:D3D Window]") Then
$size = WinGetPos("[CLASS:D3D Window]")
WinMove ($hGui,"",$size[0]+223,$size[1]+31,377,94)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
If GUICtrlRead($Input1) = "help" Then
GUICtrlSetData($Input1,"")
_GUICtrlEdit_SetText($Edit1, "")
_GUICtrlEdit_AppendText($Edit1, "count -> Count User"&@CRLF)
_GUICtrlEdit_AppendText($Edit1, "ticket -> Open Ticket System"&@CRLF)
_GUICtrlEdit_AppendText($Edit1, "info -> Server Info"&@CRLF)
_GUICtrlEdit_AppendText($Edit1, "class -> Open the Class Ranking"&@CRLF)
_GUICtrlEdit_AppendText($Edit1, "gm -> Show Online GM"&@CRLF)
_GUICtrlEdit_AppendText($Edit1, "gmcount -> GM Count"&@CRLF)
EndIf
;~ If GUICtrlRead($Input1) = "count" Then
;~ $countuser = _INetGetSource("http://atlantia.eu/Game%20Manager/G-OnlineUser.php")
;~ _GUICtrlEdit_SetText($Edit1, "")
;~ _GUICtrlEdit_AppendText($Edit1, "Online User = "&$countuser&@CRLF)
;~ EndIf
Case $GUI_EVENT_CLOSE
ExitEndSwitch
[/autoit][autoit][/autoit][autoit]
Else ; 15
If WinGetState($hGui) = 15 Then
WinSetState($hGui,"",@SW_HIDE)
EndIf
EndIf
WEnd_PcapFree()
[/autoit][autoit][/autoit][autoit]Func sniff($data)
[/autoit][autoit][/autoit][autoit]
Local $ipheaderlen = BitAND(_PcapBinaryGetVal($data, 15, 1), 0xF) * 4
Local $tcpoffset = $ipheaderlen + 14
Local $tcplen = _PcapBinaryGetVal($data, 17, 2) - $ipheaderlen ; ip total len - ip header len
Local $tcpheaderlen = BitShift(_PcapBinaryGetVal($data, $tcpoffset + 13, 1), 4) * 4
Local $tcpsrcport = _PcapBinaryGetVal($data, $tcpoffset + 1, 2)
Local $tcpdstport = _PcapBinaryGetVal($data, $tcpoffset + 3, 2)
Local $tcpsequence = _PcapBinaryGetVal($data, $tcpoffset + 5, 4)
Local $tcpflags = _PcapBinaryGetVal($data, $tcpoffset + 14, 1)
Local $httpoffset = $tcpoffset + $tcpheaderlen + 1
Local $httplen = $tcplen - $tcpheaderlen
$sniff_packet = BinaryMid($data, $httpoffset)If $httplen = 0 Then Return False ; empty tcp packet
[/autoit]
If $tcpsrcport = 5400 Then
Return ">IN:" & $sniff_packet ; server ==> client
EndIf
If $tcpdstport = 5400 Then
Return "-OUT:" & $sniff_packet ; client ==> server
EndIf
EndFunc