Beiträge von chip

  • String Formatieren

    [autoit]

    #include <Array.au3>
    $string = '5:01:50 "WRITE: "CD:201:25155521:[65,[65.72,8470.75,0.00134277]]:[]:[]:[]:false:false:1:1:46:0:["X2","amovpercmrunsraswrfldf",42]:0:0::0:" / 2781"'

    [/autoit][autoit][/autoit][autoit]

    $uhrzeit = StringSplit($string,' "',3)
    $final = ";" & $uhrzeit[0]

    [/autoit][autoit][/autoit][autoit]

    $zahlsplit = StringSplit($string,',',3)

    [/autoit][autoit][/autoit][autoit]

    $final = $final & ";;" & StringTrimLeft($zahlsplit[1],1) & "," & $zahlsplit[2]

    [/autoit][autoit][/autoit][autoit]

    $zahl2 = StringSplit($zahlsplit[5],'/ ',3)

    [/autoit][autoit][/autoit][autoit]

    $final = $final & ";;" & StringTrimRight($zahl2[1],1) & ";"

    [/autoit][autoit][/autoit][autoit]

    MsgBox(0,"",$final)

    [/autoit]

  • Wert an autoit script bei laufzeit übergeben

    [autoit]

    $rechner = "PCName"

    [/autoit][autoit][/autoit][autoit]

    $wmiRoot = ObjGet("winmgmts:\\" & $rechner & "\root\CIMV2")
    If @error Then
    MsgBox(48, "Fehler", "Rechner existiert nicht oder Firewall aktiv!")
    Exit
    EndIf

    [/autoit][autoit][/autoit][autoit]

    $wmiColl = $wmiRoot.ExecQuery("Select * FROM Win32_ComputerSystem ")
    For $wmiObj In $wmiColl
    MsgBox(0, "", String($wmiObj.UserName))
    Next

    [/autoit]

  • Smartphone

    Einfach wenn Garantiefall hast orginalrom drauf und Romcounter reseten und schon sieht kein mensch mehr das da jemals eine Customrom drauf war.

  • ISN AutoIt Studio

    Hier mal für Form, analog dann für Button ect. umsetzbar. Mit Regexp sicher aber einfacher zu lösen:

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    #include <File.au3>
    #include <String.au3>
    $file = FileOpenDialog("Source",@DesktopDir & "\","Autoit (*.au3)")
    Dim $array
    _FileReadToArray($file,$array)
    $gui = _ArrayFindAll($array, "GUICreate", 0, 0, 0, 1)

    [/autoit] [autoit][/autoit] [autoit]

    For $element In $gui
    $handle = StringSplit($array[$element], "=", 2)
    IniWrite(@ScriptDir & "\test.isf", "gui", "handle", StringTrimLeft(StringStripWS($handle[0], 8), 1))

    [/autoit] [autoit][/autoit] [autoit]

    $titel = _StringBetween($array[$element], '"', '"')
    IniWrite(@ScriptDir & "\test.isf", "gui", "title", $titel[0])

    [/autoit] [autoit][/autoit] [autoit]

    $core = StringSplit(StringStripWS($handle[1], 8), ",", 2)
    IniWrite(@ScriptDir & "\test.isf", "gui", "breite", $core[1])
    IniWrite(@ScriptDir & "\test.isf", "gui", "hoehe", $core[2])

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    If StringInStr($core[5], "BitOR") Then
    $style = StringTrimLeft($core[5], 6)
    $corpoint = 6
    While 1
    If StringInStr($core[$corpoint], ")") Then
    $style = $style & "+" & StringTrimRight($core[$corpoint], 1)
    IniWrite(@ScriptDir & "\test.isf", "gui", "style", $style)
    ExitLoop
    Else
    $style = $style & "+" & $core[$corpoint]
    EndIf
    $corpoint = $corpoint + 1
    WEnd
    Else
    IniWrite(@ScriptDir & "\test.isf", "gui", "style", $core[5])
    $exstylepoint = 6
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    If StringInStr($core[$exstylepoint], "BitOR") Then
    $exstyle = StringTrimLeft($core[$exstylepoint], 6)
    $exstylepoint = $exstylepoint + 1
    While 1
    If StringInStr($core[$exstylepoint], ")") Then
    $exstyle = $exstyle & "+" & StringTrimRight($core[$exstylepoint], 1)
    IniWrite(@ScriptDir & "\test.isf", "gui", "exstyle", $exstyle)
    ExitLoop
    Else
    $exstyle = $exstyle & "+" & $core[$exstylepoint]
    EndIf
    $exstylepoint = $exstylepoint + 1
    WEnd
    Else
    IniWrite(@ScriptDir & "\test.isf", "gui", "exstyle", $core[$exstylepoint])
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    If UBound($core) > $exstylepoint Then
    IniWrite(@ScriptDir & "\test.isf", "gui", "parent", StringTrimRight($core[$exstylepoint + 1],1))
    EndIf
    Next

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

  • Java starten

    Man kann beider Versionen für Java paralle installiert haben. Ist z.b. sinnvoll wenn man auf einem 64 bit Rechner auch 32 bit Javaanwendungen schreiben will.

    Meines wissens nach wird aber schon direkt 64bit java bevorzugt.

  • Bot zum ändern der Ton Einstellungen

    User will das ganze zum Bau eines ganz anderen Bots nutzen Zitat aus der SB:

    Zitat

    [Heute, 10:29] Hallo: ja hab ich total vergessen, das das hier im forum so schlimm ist, ich kucke bei autoitbot.de die antworten schnell und haben gegen nichts was, auch zb captcha cracking, falls du weißt was das is
    [Heute, 10:30] Hallo: huch xD sollte privatchat sein

    vote 4 close

  • AutoIt.de Client 1.1 - Forum und Shoutboxclient mit neuem Gesicht

    Zitat von Raupi

    D
    Übrigens dein SB verursacht im Schlimmsten Fall 20 mal soviel Traffic wie die Original SB im Browser.
    Das liegt daran, das du immer alle SB einträge liest. Man kann die XML auch gezielt auslesen.
    Gezieltes Abrufen geht so: http://www.autoit.de/index.php?page=ShoutboxEntryXMLList&entryID=41739 , bei dem Beispiel werden nur Eintrage nach 41739 gelesen. ;)
    Wenn du das aber umsetzen willst, mußt du deine SB-Anzeige vollkommen umbauen und den zuletzt gelesenen Eintrag merken.
    Genauso sieht es auch aus, wenn du postest, die ganze SB wird gelesen.

    Meine Rede aber er will oder kann es ja nicht verstehen.

  • rechteckigen Bereich für Screenshot per Maus auswählen

    Kannst mit GDI+ machen:

    Spoiler anzeigen
    [autoit]

    #include <GDIPlus.au3>
    #include <WinAPI.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_Startup()
    HotKeySet("{ESC}", "_Exit")

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $hDummy = GUICreate("")
    $hGUI = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TRANSPARENT), $hDummy)
    GUISetBkColor(0xABCDEF, $hGUI)
    _WinAPI_SetLayeredWindowAttributes($hGUI, 0xABCDEF, 255)

    [/autoit] [autoit][/autoit] [autoit]

    $hPen = _GDIPlus_PenCreate(0xFFFF0000, 4)
    $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGUI)
    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    _GDIPlus_GraphicsDrawRect($hGraphics, 100, 100, 200, 200, $hPen)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    While Sleep(100)
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _Exit()
    _GDIPlus_GraphicsDispose($hGraphics)
    _GDIPlus_PenDispose($hPen)
    GUIDelete($hGUI)
    GUIDelete($hDummy)
    Exit
    EndFunc ;==>_Exit

    [/autoit]

  • Raspberry Pi

    Kleiner Tipp, wer nicht 17 Wochen oder länger warten will der schaut mal bei Ebay rein, da sind immer wieder Raspberry Pi B welche genausoviel kosten wie wenn man bei element14 oder rs-online bestellt nur ohne die lange Lieferzeit.

  • FF.au3 Frame-Quelltext auslesen

    Zitat von iczcrash


    Ich scheitere momentan nur am Login. Es handelt sich um ein Browsergame.

    Tja und wieder war mein riecher richtig als ich direkt nach URL der Seite gefragt gabe.

    Forenregeln lesen:

    Zitat

    - Programme, die einem Spieler bei jeglicher Art von Computerspiel (auch Einzelspieler) einen Vorteil verschaffen ("Bots")

    Und Vote 4 close.

  • Problem bei der Zeitmessung

    Zitat von Jason

    Es liegt an der CPU selbst, angeblich (noch nicht getestet) liegt es daran das Timerinit() mit Ticks arbeitet die bei jeder CPU unterschiedlich sind. Wenn man jetzt seine CPU unter / übertaktet, kann es zu einem Fehler in der Berechnung kommen (zu niedrig / zu hoch). Kann man auch beobachten das bei solchen Systemen die Uhrzeit verkehrt läuft (zu langsam / zu schnell).

    Bei meinen Rechner ist die CPU grundsätzlich übertaktet. Aber das da die Uhrzeit verkehrt läuft hab ich noch nie erlebt O.o