Beiträge von autoBert

  • Fehler beim Öffnen von Tabs FF.au3

    Hallo nmark1,

    kann am Skript keinen Fehler erkennen. Vielleicht benötigst dein Skript ja mehr Ressourcen da du in einer Schleife immer wieder Tabs öffnest und schliesst. Versuch es einmal so

    Spoiler anzeigen
    [autoit]

    #include <FF.au3>

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

    $url_serverid = Random(1, 5, 1)
    $url_subd = "http://www"
    $url_tld = ".xxx.de/"
    $url_profile = "profil.php?var2="
    $url_compl = $url_subd & $url_serverid & $url_tld & $url_profile
    $timer_begin = TimerInit()

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

    $uid_ist = InputBox("UID Start", "Start UID angeben")
    $uid_end = InputBox("UID End", "End UID angeben")

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

    $file_stamp = FileOpen("stamp_" & $uid_ist & "-" & $uid_end & ".file", 1)
    $file_data = FileOpen("data_" & $uid_ist & "-" & $uid_end & ".file", 1)

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

    If $file_data = -1 Then
    MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    Exit
    EndIf

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

    _FFStart($url_subd & $url_serverid & $url_tld)

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

    If _FFIsConnected() Then
    _FFSetValue("xxx", "benutzer", "name")
    _FFSetValue("xxx", "pass", "name")
    _FFFormSubmit()
    While $uid_ist <= $uid_end

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

    $uid_est = $uid_end - $uid_ist
    _FFTabAdd($url_compl & $uid_ist)
    _FFLoadWait()
    If @error Then MsgBox(0, "Fehler", @error)
    $uid_name = WinGetTitle("")
    FileWrite($file_data, $uid_ist & "," & $uid_name & @CRLF)
    $timer_diff = TimerDiff($timer_begin)
    FileWrite($file_stamp, $timer_diff & @CRLF)
    _FFTabClose()
    $uid_ist = $uid_ist + 1
    TrayTip("VisitStatus", "Profil ID " & $uid_ist & "/" & $uid_end & " besucht. Est: " & $uid_est, 10, 1)
    _ReduceMemory()
    WEnd

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

    $timer_diff = TimerDiff($timer_begin)

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

    FileWrite($file_stamp, $timer_diff)

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

    FileClose($file_stamp)
    FileClose($file_data)

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

    EndIf

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

    _FFQuit()

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

    #FUNCTION# ====================================================================================================================
    ; Name...........: _ReduceMemory
    ; Author ........: w_Outer, Rajesh V R, Prog@ndy
    ; ===============================================================================================================================
    Func _ReduceMemory($iPid = -1)
    If $iPid = -1 Or ProcessExists($iPid) = 0 Then
    Local $ai_GetCurrentProcess = DllCall('kernel32.dll', 'ptr', 'GetCurrentProcess')
    Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'ptr', $ai_GetCurrentProcess[0])
    Return $ai_Return[0]
    EndIf

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

    Local $ai_Handle = DllCall("kernel32.dll", 'ptr', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $iPid)
    Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'ptr', $ai_Handle[0])
    DllCall('kernel32.dll', 'int', 'CloseHandle', 'ptr', $ai_Handle[0])
    Return $ai_Return[0]
    EndFunc ;==>_ReduceMemory

    [/autoit]

    Sollte der Fehler dabei immer noch auftreten solltest du die URL der Seit posten bei welcher der Fehler auftritt,

    mfg autoBert

  • Adlib UDF nicht parallel

    Hallo EvilMoe,

    mir ist aufgefallen dass deine Schleife zum Erstellen der Progressbars nie verlassen wird. Auch nimmst du einen falschen Startwert für die Schleife. Ich würde es so machen:

    Spoiler anzeigen
    [autoit]

    ;===============================================================================
    ; ================== CPU Bars variabel erstellen
    ;===============================================================================
    For $iCore = 1 To $CORES

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

    ;$cpu = $iCore+1
    $height = 10
    $abstand= 40

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

    MsgBox(0, 'test', $iCore)

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

    $height = ($iCore-1) * $abstand + $height

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

    $BARSLABEL[$iCore] = GuiCtrlCreateLabel("", 25, $height, 200, 12)
    $BARS[$iCore] = GUICtrlCreateProgress (25, $height+15, 250, 15, $PBS_SMOOTH)

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

    GuiCtrlSetData(-1, $CPUS[$iCore])

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

    ; Multithread betrieben für jede bar einen eigenene
    _AdlibEnable("refresh_core", 25*$CORES, -1, $iCore)
    Sleep(25)

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

    ;DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle($BARS[$cpu]), "wstr", "", "wstr", "")
    Next

    [/autoit]

    kann es aber nicht testen da nur 1 CPU

    mfg autoBert

  • Dynamisches Label

    Zitat von Scritch

    Das Problem ist, dass ich durch eine Inputbox die Beschriftung erst später dem Label zuweisen werde! Desweiteren kann ich vorher nicht genau sagen, wie lang der längste Text ist. Und pauschal sagen, dass das Label 200Pixel breit ist, möchte ich auch nicht, da es sonst zu Überlappungen von Controls in der GUI kommt.


    Wenn du das Label später dynamisch auf 200 Px erhöst hast das das gleiche Problem,

    mfg autoBert

  • Dynamisches Label

    Hallo scritch,

    das ist imho nicht notwendig. Da das Label ja in der GUI nur eine maximalen Platz belegen kann solltest du es einfach mit der Breite (u. evtl. Höhe) des längsten Textes erstellen,

    mfg autoBert

  • Problem mit ComboBox

    Hallo LongLife,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/Tutorial Sehr hilfreich ist auch das Buch von peethebee .

    und hier ein kleines Beispielskript wie man Bilder in einer ComboBox verwalten kann:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <ComboConstants.au3>
    #include <GuiComboBox.au3>
    #include <File.au3>
    #include <array.au3>

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

    Global $szDrive, $szDir, $szFName, $szExt

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

    $idGUI = GUICreate("Flaggen", 300, 115)
    $idcbo = GUICtrlCreateCombo("", 10, 10, 180, 80, BitOR($CBS_SORT, $GUI_SS_DEFAULT_COMBO))
    $idNeu = GUICtrlCreateButton("...", 200, 10, 30, 25)
    GUICtrlSetTip(-1,"Länder hinzufügen")
    $idVorschau = GUICtrlCreatePic(@ScriptDir & "\Flaggen\NA.gif", 210, 40, 72, 48)
    GUISetState()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    #cs
    Case $idInfo
    $count = _GUICtrlComboBox_GetCount($idcbo)
    Dim $acbo[$count]
    $acbo = _GUICtrlComboBox_GetListArray($idcbo)
    _ArrayDisplay($acbo)
    #ce
    Case $idNeu
    $sAlt = GUICtrlRead($idcbo)
    $sMessage = "Um mehrere Länder auszuwählen, ist die Strg-Taste oder die Shift-Taste zu drücken."
    $sPlus = FileOpenDialog($sMessage, @ScriptDir & "\Flaggen", "Bilder (*.gif)", 7, "", $idGUI)
    If @error Then
    MsgBox(4096, "", "Keine Datei(en) ausgewählt")
    Else
    $aFiles = StringSplit($sPlus, "|")
    If $aFiles[0] > 1 Then ;trifft nur bei Mehrfachauwal zu
    ;$aFiles[0] enthält Anzahl der Strings
    ;$aFiles[1] enthält den Pfad für alle ausgewählten Bilder
    ;$aFiles[2] enthält 1. Bild
    ;$aFiles[n+1] enthält n. Bild

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

    ;Rückgabe des Fileopenialogs in einzzenlne Strings für Array splitten
    ;_ArrayDisplay($aFiles) ;Array anzeigen nur zu Verständnisuwecken evtl. aktivieren

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

    For $i = 2 To $aFiles[0]
    _GUICtrlComboBox_AddString ($idcbo, StringReplace($aFiles[$i],".gif",""))
    Next
    Else ;nur eine Datei ausgewählt
    ConsoleWrite($aFiles[1] & @CRLF)
    _PathSplit($aFiles[1], $szDrive, $szDir, $szFName, $szExt)
    _GUICtrlComboBox_AddString ($idcbo, $szFName)
    EndIf
    EndIf

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

    Case $idcbo
    GUICtrlSetImage($idVorschau, @ScriptDir & "\Flaggen\" & GUICtrlRead($idcbo) & ".gif")
    EndSwitch
    WEnd

    [/autoit]

    Du benötigst dafür noch Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. ,

    mfg autoBert

  • Problem mit dem Auslesen der Statuszeile

    Hallo manfred,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/Tutorial Sehr hilfreich ist auch das Buch von peethebee .

    und jetzt zu deinem Problem: Bist du dir sicher dass der zurückgegebene String leer ist? Es könnte auch sein das Steuerzeichen enthalten sind die sich nicht darstellen lassen. Schau dir einmal

    [autoit]

    StringStripWS

    [/autoit]

    an,

    mfg autoBert

  • Fenster mit Inhalt füllen durch Internetquelle

    Hallo Fischer,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/Tutorial Sehr hilfreich ist auch das Buch von peethebee .

    und jetzt zu deinem Problem: Mit

    [autoit]

    _InetGetSource

    [/autoit]

    holst du dir ja den Texxt deiner Datei. Die Bilder herunterladen musst du dann aber mit

    [autoit]

    InetGet

    [/autoit]

    Sollte dir diese Auskunft nicht ausreichen poste bitte dein bisherigen SKriptstand,

    mfg autoBert

  • Problem mit eigenem Radio Client

    Hallo BigDaddy,

    Hier werden nur Threads von Admins/Mods geclosed die den Forenregeln widersprechen.
    Du kannst das aber selbst machen, indem du deinen Eröffnungspost bearbeitest, dort den Präfix (nähe Überschrift) auf gelöst stellst und danach speicherst,

    mfg autoBert

  • Send-problem

    Zitat von Mattthias

    @Robert, das ist ein Bot f+r die Umgehung eines "Captchas"

    an dem aktuell eingestellten Schnipsel kann ich das nicht erkennen. Da der Author aber editiert hat lässt sich so etwas ja nicht mehr nachvollziehen. Deshalb ist es in so einem Fall geschickter den "bösen" Code-Schnipsel zu zitieren, Und wie du weist bin ich im deaktivieren bis ein Mod entscheidet (wie auch immer) sehr schnell.

    robertmaxity hat jetzt auf jeden Fall Lesestoff für den Fall das er Geschwindigkeitstests für seine Webseite durchziehen will. Da dafür aber keine Mausschubs-Funktionen benötigt werden sollte man einfach auf solche Fragen nicht eingehen. Solange er die Seite nicht nennt (aus welchen Gründen auch immer) ist ein efektiver Support eh nicht möglich.

    mfg autoBert

  • Send-problem

    Hallo robertmaxity,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/Tutorial Sehr hilfreich ist auch das Buch von peethebee .

    und jetzt zu deinem Problem: um den IE zu automatisieren gibt es in AutoIt die IE.au3 schau dir in der Hilfe am besten

    [autoit]

    _IE_Example

    [/autoit]

    an.

    Für den FireFox gibt es die FF.au3:

    • Mozrepl wird dafür benötigt, kannst du von hier installieren: http://wiki.github.com/bard/mozrepl/
    • FF.au3 herunterladen
    • Mozrepl über Extras|Mozrepl im Firefox starten
    • Funktionsrefernz findest du hier
    • Zum testen Skript starten: [autoit]#Include <FF.au3>

      _FFStart("http://www.autoit.de", Default, 2)

      If _FFIsConnected() Then
      If _FFLoadWait() Then MsgBox(64, "", "Page was loaded in " & @extended & "ms")

      Sleep(3000)
      ;_FFQuit() ;FireFox schliessen
      EndIf

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


    Viel Spass bei der FireFox-Automatisierung

    mfg autoBert

  • Gui/Input mit ESC/Enter schließen

    Hallo sc4ry,

    ich weis nicht wo dein Problem liegt. Einzig für die Enter-Taste must du dem Schliessen-Button den Style $BS_DEFPUSHBUTTON zuweisen. Die Escape-Taste funktioniert automatisch:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include<WindowsConstants.au3>

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

    Opt('GUIOnEventMode', 1) ;schaltet den OnEvent-Modus ein

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

    $cidGui1 = GUICreate('GUI 1', 400, 280, 140, 150, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
    ;erzeugt eine GUI die zurückgebebene ID wird in der Variablen $cidGui1 gespeichert
    ;die GUI hat BOXen für Mininmieren, Maximieren und ist in der Größe frei änderbar
    GUISetOnEvent($GUI_EVENT_CLOSE, '_End')

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

    $cidbtnToGui2 = GUICtrlCreateButton('&Aufruf GUI 2', 20, 20, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "Afruf Gui 2" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
    GUICtrlSetOnEvent(-1, '_CallGui2')
    ;Beim Klicken des Buttons wird die Funktion _CallGui2 aufgerufen

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

    $cidbtnICQ = GUICtrlCreateButton('&ICQ', 20, 50, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "ICQ" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
    GUICtrlSetOnEvent(-1, '_RunICQ')
    ;Beim Klicken des Buttons wird die Funktion _RunICQ aufgerufen

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

    $cidbtnExit1 = GUICtrlCreateButton('be&enden', 20, 80, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "Afruf Gui 2" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
    GUICtrlSetOnEvent(-1, '_End')
    ;Beim Klicken des Buttons wird die Funktion _END aufgerufen

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

    $cidGui2 = GUICreate('GUI 2', 500, 300, 200, 50, -1, -1, $cidGui1)
    ;erzeugt eine GUI als Child von Gui1, die zurückgebebene ID wird in der Variablen $cidGui2 gespeichert
    GUISetOnEvent($GUI_EVENT_CLOSE, '_BackToGui1')

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

    $cidButton1 = GUICtrlCreateButton('&MsgBox', 20, 20, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "MsgBox" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
    GUICtrlSetOnEvent(-1, '_MsgBox')
    ;Beim Klicken des Buttons wird die Funktion _MsgBox aufgerufen

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

    $cidButton2 = GUICtrlCreateButton('&Zurück zu GUI 1', 20, 50, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "zurück" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
    GUICtrlSetOnEvent(-1, '_BackToGui1')
    ;Beim Klicken des Buttons wird die Funktion _BackToGui1 aufgerufen

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

    $cidbtnExit2 = GUICtrlCreateButton('be&enden', 20, 80, 100, 21,$BS_DEFPUSHBUTTON )
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "Afruf Gui 2" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
    GUICtrlSetOnEvent(-1, '_End')
    ;Beim Klicken des Buttons wird die Funktion _END aufgerufen
    GUISetState(@SW_SHOW, $cidGui1)

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

    While 1
    Sleep(1000)
    WEnd

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

    Func _end()
    GUIDelete($cidGui2)
    GUIDelete($cidGui1)
    Exit
    EndFunc ;==>_end

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

    Func _CallGui2()
    GUISetState(@SW_HIDE, $cidGui1) ;entweder so
    ;GUISetState(@SW_DISABLE, $cidGui1) ;oder so dann bleibt die 1. Gui sichtbar ist aber nicht aktriv
    GUISetState(@SW_SHOW, $cidGui2)
    EndFunc ;==>_CallGui2

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

    Func _RunICQ()
    MsgBox(0, "", "Jetzt würde ICQ gestartet")
    ;Run("C:\Program Files\ICQ7.0\ICQ.exe")
    EndFunc ;==>_RunICQ

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

    Func _BackToGui1()
    GUISetState(@SW_SHOW, $cidGui1) ;nur nötig falls Gui versteckt
    ;GUISetState(@SW_ENABLE, $cidGui1) ;nur nötig falls Gui DISABLEd
    GUISetState(@SW_HIDE, $cidGui2)
    EndFunc ;==>_BackToGui1

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

    Func _MsgBox()
    MsgBox(0, 'Test', 'Test', 0, $cidGui2)
    EndFunc ;==>_MsgBox

    [/autoit]

    mfg autoBert

  • 2 GUIs verknüpfen

    Hallo Streat,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/Tutorial Sehr hilfreich ist auch das Buch von peethebee .

    und jetzt zu deinem Problem, deine Probleme sind für mich ohne Skriptcode nicht nachvollziehbar. Da man eine Hilfsgui bei Tabs eigentlich nur dann benötigt wenn man ein Tab innerhalb eines Tabs darstellen will hier einmal ein Beispiel aus dem engl. Forum:

    Spoiler anzeigen
    [autoit]

    ; Example of TAB in TAB ctrl ;http://www.autoitscript.com/forum/topic/44…240#entry328240
    #include <GUIConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Global $main_GUI,$ok_button,$cancel_button

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

    ; This window has 2 ok/cancel-buttons
    $main_GUI = GUICreate("TAB in TAB",260,250,-1,-1)
    $ok_button = GUICtrlCreateButton("OK",40,220,70,20)
    $cancel_button = GUICtrlCreateButton("Cancel",150,220,70,20)

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

    ; Create the first child window that is implemented into the main GUI
    $child1 = GUICreate("",230,170,15,35,BitOr($WS_CHILD,$WS_TABSTOP),-1,$main_GUI)
    $child_tab = GUICtrlCreateTab(10,10,210,150)
    $child11tab = GUICtrlCreateTabItem("1")
    $child12tab = GUICtrlCreateTabItem("2")
    GUICtrlCreateTabItem("")

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

    GUISetState()

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

    ; Create the second child window that is implemented into the main GUI
    $child2 = GUICreate("",230,170,15,35,BitOr($WS_CHILD,$WS_TABSTOP),-1,$main_GUI)
    $listview2 = GUICtrlCreateListView("Col1|Col2",10,10,210,150,-1,$WS_EX_CLIENTEDGE)
    GUICtrlCreateListViewItem("ItemLong1|ItemLong12", $listview2)
    GUICtrlCreateListViewItem("ItemLong2|Item22", $listview2)

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

    ; Switch back the main GUI and create the tabs
    GUISwitch($main_GUI)
    $main_tab = GUICtrlCreateTab(10,10,240,200)
    $child1tab = GUICtrlCreateTabItem("Child1")
    $child2tab = GUICtrlCreateTabItem("Child2")
    GUICtrlCreateTabItem("")

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

    GUISetState()

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

    While 1
    $msg = GUIGetMsg(1)
    Switch $msg[0]
    Case $GUI_EVENT_CLOSE, $cancel_button
    ExitLoop

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

    Case $main_tab
    Switch GUICtrlRead($main_tab)
    Case 0
    GUISetState(@SW_HIDE,$child2)
    GUISetState(@SW_SHOW,$child1)

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

    Case 1
    GUISetState(@SW_HIDE,$child1)
    GUISetState(@SW_SHOW,$child2)
    EndSwitch
    EndSwitch
    WEnd

    [/autoit]

    Wie du daran siehst wird

    [autoit]

    GUIGetCursorInfo

    [/autoit]

    dazu nicht benötigt,

    mfg autoBert

  • ie.au3 tut?

    Zitat von c64user

    hab grad keine zeit zu gucken, aber gibts da ein beispiel wie man formulare ausfüllt?

    ja gibt es, schau dir dazu

    [autoit]

    _IEFormElementSetValue

    [/autoit]

    inkl. Beispiele an.

    Wenn du so wenig Zeit hast solltest du dir vielleicht ein anderes Hobby suchen,

    mfg autoBert

  • Listview ausblenden bis Update check durch ist

    Hallo Ghostleader,

    in deinem Code-Schnipseln kann man leider nicht erkennen wie du auf die verschiedenen ButtoClicks reagierst. Dies wäre aber wichtig. Da du aber bereits

    [autoit]

    GUICtrlSetState(-1, $GUI_HIDE)

    [/autoit]

    kennst, solltest du die Lösung auch alleine schaffen. Andernfalls bitte lauffähiges Beispielskript mit dem Problem,

    mfg autoBert

  • Ini abfragen, ggf erstellen und weitermachen

    Hallo saddleburner,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/Tutorial Sehr hilfreich ist auch das Buch von peethebee .

    und jetzt zu deinem Problem. Mach es so und es sollte funktionieren:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    #include <Array.au3>
    #include <Date.au3>
    #include <INet.au3>
    #include <file.au3>
    #include <Timers.au3>
    #include <GuiButton.au3>

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

    Opt("GUIonEventMode", 1)
    If Not FileExists("pv_cgi_csv.ini") Then
    $auswahl = MsgBox(4132, "Konfigurationsfehler!", "Konfigurationsdatei existiert noch nicht. Möchten Sie sie jetzt anlegen?")

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

    If $auswahl = 7 Then Exit
    If $auswahl = 6 Then create_ini_file()
    EndIf

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

    ;------(jetzt) Vorhandene INI-Datei lesen und Werte initialisieren
    $pathin = IniReadSection("pv_cgi_csv.ini", "Pfad")
    Global $Pfad = $pathin[1][1]
    $webpathin = IniReadSection("pv_cgi_csv.ini", "Webpath")

    [/autoit]

    mfg autoBert

  • Array in SQLite DB schreiben

    Hallo TheLuBu,

    lass folgendes Testprogramm laufen und staune über die ünterschiedliche Zeiten:

    Spoiler anzeigen
    [autoit]

    #include <SQLite.au3>
    #include <SQLite.dll.au3>

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

    Global $aSqldb = @ScriptDir & '\Test.db'

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

    If FileExists($aSqldb) = 0 Then _DatenbankAnlegen()
    _SQLite_Startup()
    If @error > 0 Then
    MsgBox(16, "SQLite Fehler", "SQLite.dll kann nicht geladen werden!")
    Exit
    EndIf
    _SQLite_Open($aSqldb)
    If @error > 0 Then
    MsgBox(16, "SQLite Fehler", "Kann Datenbank nicht öffnen")
    Exit
    EndIf
    _CreateGroupsFromFile(@ScriptDir & "\Gruppen.txt")
    _CreateGroupsFromFileNormal(@ScriptDir & "\Gruppen.txt")
    Exit

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

    Func _DatenbankAnlegen()
    Local $aSql, $res
    _FileCreate($aSqldb)
    _SQLite_Startup()
    If @error > 0 Then
    MsgBox(16, "SQLite Fehler", "SQLite.dll kann nicht geladen werden!")
    Exit
    EndIf
    _SQLite_Open($aSqldb)
    If @error > 0 Then
    MsgBox(16, "SQLite Fehler", "Kann Datenbank nicht öffnen")
    Exit
    EndIf
    $aSql = "CREATE TABLE [Gruppen] ([GrpNr] INTEGER NOT NULL PRIMARY KEY,[Bezeichnung] VARCHAR(30) NOT NULL,[Vorfahre] INTEGER NOT NULL)"
    $res = _SQLite_Exec(-1, $aSql)
    _SQLite_Close()
    _SQLite_Shutdown()
    EndFunc ;==>_DatenbankAnlegen

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

    Func _CreateGroupsFromFile($sPfad)
    Local $aGrp, $aItem, $aSql, $res, $dtStart
    _FileReadToArray($sPfad, $aGrp)
    $dtStart = TimerInit()
    $aSql = 'Begin Transaction ;' & @CRLF
    $aSql &= 'Delete from Gruppen where GrpNr > 0;' & @CRLF
    For $i = 1 To UBound($aGrp) - 1
    $aItem = StringSplit($aGrp[$i], ";")
    $aSql &= 'INSERT INTO Gruppen (GrpNr,Bezeichnung,Vorfahre) VALUES (' & $aItem[1] & "," & _SQLite_Escape($aItem[2]) & ',0);' & @CRLF
    Next
    $aSql &= 'Commit Transaction ;' & @CRLF
    $res = _SQLite_Exec(-1, $aSql)
    $dtStart = TimerDiff($dtStart)
    ConsoleWrite("schnell: " & $dtStart & @CRLF)
    EndFunc ;==>_CreateGroupsFromFile

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

    Func _CreateGroupsFromFileNormal($sPfad)
    Local $aGrp, $aItem, $aSql, $res, $dtStart
    _FileReadToArray($sPfad, $aGrp)
    $dtStart = TimerInit()
    $aSql = 'Delete from Gruppen where GrpNr > 0;'
    $res = _SQLite_Exec(-1, $aSql)
    For $i = 1 To UBound($aGrp) - 1
    $aItem = StringSplit($aGrp[$i], ";")
    $aSql = 'INSERT INTO Gruppen (GrpNr,Bezeichnung,Vorfahre) VALUES (' & $aItem[1] & "," & _SQLite_Escape($aItem[2]) & ',0);'
    $res = _SQLite_Exec(-1, $aSql)
    Next
    $dtStart = TimerDiff($dtStart)
    ConsoleWrite("Normal: " & $dtStart & @CRLF)
    EndFunc ;==>_CreateGroupsFromFileNormal

    [/autoit]


    Danach setzt du die Technik von _CreateGroupsFromFile in deinem Skript um. Benötigt wird dazu Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    mfg autoBert