1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. BugFix

Beiträge von BugFix

  • Homepage Backup ?

    • BugFix
    • 12. Juni 2007 um 22:47
    Zitat

    mit der tab taste kann man aber nur zwischen den feldern hin und her wechseln nicht jedoch zu dem was in den feldern steht wie eben zum beispiel ordner test

    Klar kann man ;)
    Nimm mal Strg+Tab, sind die auch unter Windows typischen Tastenkombinationen.

  • Hintergrund

    • BugFix
    • 12. Juni 2007 um 22:43

    Du wirst eher Hilfe finden, wenn du dein Skript im Post mit Tags einbindest. Dann schaut schneller mal jemand drauf.
    Ich habe z.B. keine Lust erst eine Datei runter zu laden um mir den Code anzuschauen.

  • stringreplace startwert ?

    • BugFix
    • 12. Juni 2007 um 07:32

    Das war ein Bsp.
    Die eingelesene Web-Site ist vergleichbar mit dem html-codierten Text, den du in deinem Edit-Ctrl erzeugst.
    Wollte nur demonstrieren, dass man html-Code ohne vorher in eine Datei zu schreiben auch als Vorschau sehen kann.

  • stringreplace startwert ?

    • BugFix
    • 11. Juni 2007 um 21:40

    Du kannst schon eine echte Vorschau machen.
    Ich hab hier ein Bsp. gemacht, indem ich die Source einer Website in eine Variable einlese und anschließend in einem Browserfenster wieder ausgebe:

    [autoit]

    #include <IE.au3>
    #include <INet.au3>
    $source = _INetGetSource('http://www.autoitscript.com/autoit3/docs/history.htm')
    $oIE = _IE_Example ("basic")
    _IEPropertySet ($oIE, "innerhtml", $source)

    [/autoit]
  • automatischer zeilenumbruch bei treeview

    • BugFix
    • 11. Juni 2007 um 20:32

    Tipp zur Darstellung des Codes:
    Du bist immer weiter eingerückt um Tab und TabItem abzugrenzen. Ist für die Übersicht auch sinnvoll.
    Da alle Tabs gleichberechtigt sind und nur die TabItems untergeordnet sind, würde ich auch nur diese einrücken.

    Spoiler anzeigen
    [autoit]

    ;create help-GUI
    $helpgui = GUICreate("Information", 600, 400)
    WinSetTrans($helpgui, "", 240)
    $ok4 = GUICtrlCreateButton("OK", 260, 370, 80)
    GUICtrlCreateTab(0,0, 600, 365)
    GUICtrlCreateTabItem("General")
    GUICtrlCreateTab(-1,-1, 600, 365)
    GUICtrlCreateTabItem("CommandLine")
    GUICtrlCreateTab(-1,-1, 600, 365)
    GUICtrlCreateTabItem("ChangeLog")
    GUICtrlCreateTab(-1,-1, 600, 365)
    GUICtrlCreateTabItem("FAQ")
    $MainTree = GUICtrlCreatetreeView(2, 24, 594, 337)
    $1stSubTree = GUICtrlCreatetreeViewItem("Why appears the GUI only one time?", $MainTree)
    GUICtrlCreateTreeViewItem("This GUI only appear on the first start of the program," & _
    " after you did your settings, it creates an *.ini-file, where it stores your personal settings." & _
    " If you want to renew or edit your settings, delete the *.ini-file or use a CommandLine parameter. ", $1stSubTree)
    GUISetState(@SW_Show, $helpgui)

    [/autoit]
  • input plus gui oberfläche

    • BugFix
    • 11. Juni 2007 um 15:09

    Ich hab mal alles eingefügt, du hattest noch nen Fehler. Du wolltest $i senden. $i ist aber das Inputfeld, das muß erst noch ausgelesen werden. Habs korrigiert.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    Dim $szIniName = StringLeft(@ScriptFullPath,StringInStr(@ScriptFullPath,".",0,-1)) & "ini"
    Dim $def = ''
    If FileExists($szIniName) Then $def = IniRead($szIniName,"config","default")

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

    #Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\administrator\desktop\wio_script.kxf
    $Form1 = GUICreate("WIO", 429, 112, 490, 163)
    GUISetBkColor(0x000000)
    $w1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\images.jpg", 0, 0, 140, 52, BitOR($SS_NOTIFY,$WS_GROUP))
    $w2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\images.jpg", 128, 0, 172, 52, BitOR($SS_NOTIFY,$WS_GROUP))
    $w3 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\images.jpg", 296, 0, 132, 52, BitOR($SS_NOTIFY,$WS_GROUP))
    $i1 = GUICtrlCreateInput("http://127.0.0.1", 88, 72, 209, 21)
    If $def <> '' GUICtrlSetData(-1, $def)
    $n1 = GUICtrlCreateLabel("Your No-Ip :", 8, 72, 73, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)
    GUICtrlSetBkColor(-1, 0x000000)
    $b1 = GUICtrlCreateButton("Watch", 336, 72, 75, 25, 0)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor ($b1, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $b1
    send("{lwin}{up}{up}{up}{enter}" & GUICtrlRead($i1) & "{enter}")
    IniWrite($szIniName,"config","default",GUICtrlRead($i1))
    EndSwitch
    WEnd

    [/autoit]
  • input plus gui oberfläche

    • BugFix
    • 11. Juni 2007 um 14:46
    Zitat

    doch wie mache ich das das der send befehl mit druck auf den button ausgelöst wird ?

    s. meinen letzten Post:

    [autoit]

    $OK = GuiCtrlCreateButton( )
    ; ....
    Case $msg = $OK
    Send(...)
    ; ....

    [/autoit]
  • input plus gui oberfläche

    • BugFix
    • 11. Juni 2007 um 14:34

    Ich hab dir mal ein Bsp. mit einem Bild aus dem Web gemacht:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <IE.au3>
    #include <GuiIPAddress.au3>

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

    Dim $picLink = 'http://www.winhelpline.info/forum/attachments/screenshot-galerie/' & _
    '6534-games-convention-2006-world-warcraft-burning-crusade-screenshots-28.jpg' ; 800 x 640

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

    $oIE = _IECreateEmbedded ()
    $gui = GUICreate("WOW", 800, 600, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
    $GUIActiveX = GUICtrlCreateObj($oIE, -1, -1, 840, 670)

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

    $child = GUICreate('IP-Adresse', 260, 40, @DesktopWidth/2 -385, @DesktopHeight/2 -285, $WS_POPUP)
    $label = GUICtrlCreateLabel('IP-Adresse', 10, 13, 60, 17)
    $hIPAddress = _GUICtrlIpAddressCreate ($child, 80, 10, 125, 21)
    $OKip = GUICtrlCreateButton("OK", 215, 10, 30, 21)

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

    GUISetState(@SW_SHOW, $gui)
    GUISetState(@SW_SHOW, $child)
    _IENavigate ($oIE, $picLink)

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $OKip
    $IP = _GUICtrlIpAddressGet($hIPAddress)
    ; was immer du jetzt mit der IP machen willst
    EndSelect
    WEnd

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

    GUIDelete()

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

    Exit

    [/autoit]

    Du kannst aber auch eine GUI mit Hintergrundbild erstellen, wurde hier auch schon mehrfach in der Hilfe besprochen. Einfach mal die Suche benutzen.

  • TCP Send - Hexadezimal Werte

    • BugFix
    • 11. Juni 2007 um 11:08

    Hi,
    ich habe meinen Vorschlag mal im 20 Sekunden Takt über mehrere Stunden laufen lassen.
    Ergebnisse als TrayTip. Lief absolut problemlos.

    Nützt natürlich nichts, sollte die Seite off sein. Ansonsten denke ich, eine gute Alternative.

    Spoiler anzeigen
    [autoit]

    #include <INet.au3>
    Dim $url = 'http://www.rev6.com/index.php?site=servers'
    Dim $pattern = "((?<=bgcolor=#800000>)[\w]*(?=</td><td))"
    Dim $arServer[1][4], $n, $str
    HotKeySet("^+e", "ende") ; Strg+Shift+e zum Beenden

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

    While 1
    $source = _INetGetSource($url)
    $ret = StringRegExp($source, $pattern, 3)
    $n = 0
    $str = ''
    If IsArray($ret) Then
    $anz = UBound($ret)/4
    ReDim $arServer[$anz][4]
    For $i = 0 To UBound($arServer)-1
    $arServer[$i][0] = $ret[$n]
    $n += 1
    $arServer[$i][1] = $ret[$n]
    $n += 1
    $arServer[$i][2] = $ret[$n]
    $n += 1
    $arServer[$i][3] = $ret[$n]
    $n += 1
    If $arServer[$i][1] < $arServer[$i][2] Then _
    $str &= $arServer[$i][0] & @TAB & ' | ' & $arServer[$i][1] & @TAB & _
    ' | ' & $arServer[$i][2] & @LF
    Next
    EndIf
    TrayTip("Freie Server", $str, 5)
    Sleep(5000)
    TrayTip('','',1)
    Sleep(15000)
    WEnd

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

    Func ende()
    Exit
    EndFunc

    [/autoit]

    Edit: Sollte kein freier Server vorhanden sein, erscheint kein TrayTip.

  • stringreplace startwert ?

    • BugFix
    • 11. Juni 2007 um 11:02

    Ich war in der Annahme, dass er den markierten Text nur mit Tags versehen möchte.
    Dann Auslesen und irgendwo wiedergeben, wo die Tags auch in Format umgesetzt werden.
    Sollte die Formatierung tatsächlich innerhalb des Edit-Ctrl gewünscht sein, vielleicht mal mit RichEdit probieren. Weiß aber nicht sicher ob es dort funktioniert.

  • stringreplace startwert ?

    • BugFix
    • 11. Juni 2007 um 10:16

    Verwende doch einfach: _GUICtrlEditReplaceSel( )

    Warum eine Funktion neu erfinden, wenn sie schon existiert. ;)

  • TCP Send - Hexadezimal Werte

    • BugFix
    • 10. Juni 2007 um 22:29

    Lies doch einfach die Website aus, dann hast du alle Serverinformationen.
    Leg das in eine Schleife mit Zeitintervall nach deinem Geschmack.

    [autoit]

    #include <array.au3>
    #include <INet.au3>
    Dim $url = 'http://www.rev6.com/index.php?site=servers'
    Dim $pattern = "((?<=bgcolor=#800000>)[a-zA-Z0-9]*(?=</td><td))"
    Dim $arServer[1][4], $n = 0

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

    $source = _INetGetSource($url)
    $ret = StringRegExp($source, $pattern, 3)
    If IsArray($ret) Then
    $anz = UBound($ret)/4
    ReDim $arServer[$anz][4]
    For $i = 0 To UBound($arServer)-1
    $arServer[$i][0] = $ret[$n]
    $n += 1
    $arServer[$i][1] = $ret[$n]
    $n += 1
    $arServer[$i][2] = $ret[$n]
    $n += 1
    $arServer[$i][3] = $ret[$n]
    $n += 1
    Next
    _ArrayDisplay($arServer)
    EndIf

    [/autoit]
  • TCP Send - Hexadezimal Werte

    • BugFix
    • 10. Juni 2007 um 18:14
    Zitat

    Original von TurboCal

    tut das was zur Sache?

    Damit ermittle ich den Server Traffic.

    LOL

    Ja, tut es. Was ist der Sinn von Packet Sniffern ?? - Traffic ermitteln ? Ich schmeiß mich weg.
    Mag sein, das dies eine Möglichkeit zur Trafficermittlung ist. Aber sicher nicht die einzige und somit die erste die durchs Sieb fällt.

  • String auslesen

    • BugFix
    • 9. Juni 2007 um 15:47

    Dann teste doch vorab, ob das Game überhaupt Befehle von Autoit annimmt.
    Falls in deinem Game eine Hilfefunktion z.B. auf "F1" liegt, schreib ein Skript um zu testen ob "F1" per Autoit angenommen wird.
    z.B.

    [autoit]

    Run("game.exe")
    WinWaitActive("Fenstertitel_wenn_Game_aktiv")
    Sleep(3000) ; nun kannst du mitzählen 3-2-1
    Send("{F1}") ; jetzt müßte deine Hilfe aufpoppen

    [/autoit]
  • hilfe zu regex...

    • BugFix
    • 9. Juni 2007 um 15:36

    Nimm mal das Pattern:

    Code
    "((?<=<a href=).*(?=>Mirror))"
  • String auslesen

    • BugFix
    • 9. Juni 2007 um 15:11

    Schau mal hier:
    Scan Screen - Ergebnis sortiert

    Das solltest du dafür nutzen können.

    Edit: Senden von F-Tasten:

    [autoit]

    Send("{F8}")

    [/autoit]
  • GUI Exit Problem

    • BugFix
    • 6. Juni 2007 um 22:57
    Zitat

    dass das problem die sleep funktion ist, die ich aber brauche!!
    der rechner würde sonst unnötig viel belastet...


    Wenn du mit "GUIGetMsg()" arbeitest, brauchst du das Sleep nicht. Wenn du es verwendest reicht ein Sleep(100), CPU-Last dann bei 8 - 12 %.

  • GUI Exit Problem

    • BugFix
    • 6. Juni 2007 um 22:45

    Probier mal so:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    AutoItSetOption("WinTitleMatchMode", 2)
    GUICreate ( "programm" , 300 , 450)
    $create = GUICtrlCreateButton("Create", 125, 265, 60)
    GUICtrlCreateLabel( "Crashes:" , 100 , 100)
    $i = 0
    $number = GUICtrlCreateLabel( $i , 150 , 100)
    GUISetState (@SW_SHOW)

    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    if not WinExists("titel") or WinExists("teiltitel") then
    if FileExists("programm.exe") Then run("programm.exe")
    $i = $i + 1
    GUICtrlSetData($number, $i)
    EndIf
    Wend

    [/autoit]

    Edit:
    Ist das gewollt:

    [autoit]

    if not WinExists("titel") or WinExists("teiltitel") then

    [/autoit]


    = Wenn "titel" nicht existiert ODER "teiltitel" existiert dann

  • Mal wieder neue Trojaner-Post

    • BugFix
    • 6. Juni 2007 um 22:24
    Zitat

    Ich hab mal in meinen Spam-Ordner geschaut und folgendes entdeckt:

    Wollte ich nur nochmal erwähnen. Das passiert bei mir vollautomatisch. Alles was 'Bank', 'Geld', 'Anwalt', 'Rechnung' u.v.a.m. enthält, wird von meinem Spamordner sofort geschluckt. :D

  • Funktionen Grafisch darstellen

    • BugFix
    • 5. Juni 2007 um 20:44

    Daran hab ich mich auch schon mal versucht. Ich hab dann aber aufgehört,weil schon "GUICtrlSetGraphic($gra, $GUI_GR_LINE, $x, $y)" völlig unerwartet arbeitet. (Line beginnt immer bei 0,0 des Grafikbereiches mit Länge $x bis $y als senkrechter Parameter.

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™