Beiträge von autoBert

  • AddFile

    Hallo haspop,

    mach deine Func AddRandomFiles so:

    Spoiler anzeigen
    [autoit]

    Func AddRandomFiles()
    Local $aList = _FileListToArray($MoveFile, '*', 1), $aSplit
    If Not IsArray($aList) Then Return SetError(1, 0, '')
    Local $iRan
    For $i = 0 To 2 ;war 20
    $iRan = Random(1, $aList[0], 1)
    _ArraySearch($TempArray, $aList[$iRan]); Suchen ob Eintrag schon existiert
    If @error Then; Eintrag existiert nicht
    $sText = StringStripWS(FileRead($MoveFile & "\" & $aList[$iRan]),2)
    $aSplit = StringSplit($sText,";")
    GUICtrlCreateListViewItem($aSplit[1] & '|' & $aSplit[2]& '|' & $aSplit[3], $MainGUI_ListView)
    _ArrayAdd($TempArray, $aList[$iRan]); Datei in Liste einfügen
    EndIf
    Next
    Return
    EndFunc ;==> AddRandomFiles

    [/autoit]

    das temporäre Array muss am Anfang global deklariert werden,

    mfg autoBert

  • Bin neu =D Brauche hilfe

    Du frafst was falsch ist, dein Compi mag anscheindend (gebauso wie ich) evpervers nicht und kommt damit durcheinander.

    PS.: >Wenn du dir Schleochwerbung aus deinen Post's entfernst helfen dir vielleicht sogar welche.

    Ps2: mittlerweile bin ich der Meinung man hat etwas mehr als einen Buchstaben von deiner Inteligenz entwendet,

    mfg autoBert

  • AddFile

    Zitat von haspop

    so sieht das aus

    ich will nicht wissen wie es aussieht, sondern Dateien die ich einfach kopieren kann. Ich mach mir doch nicht mehr Arbeit fürs Vorbereiten als ich für die Lösung benötige. So bleibt als Tipp nur: ich würde

    [autoit]

    StringSplit

    [/autoit]

    nehmen

    mfg autoBert

  • Sie benötigen ein Programm, einige Programme laufen, AutoIT 3.3.8.1

    Zitat von meows

    Please How do I code a simple user click on a picture to open a file?


    You havr a backgroundimage in your gui, do you can't click on any Control. Disable it:

    [autoit]

    $background = GUICtrlCreatePic("C:\Splash.bmp", 0, 0, 1024, 768, BitOR($GUI_SS_DEFAULT_PIC,$SS_CENTERIMAGE))
    GuiCtrlSetState(-1,$GUI_DISABLE)

    [/autoit]

    and the controls get the messages. To execute a file have a look on

    [autoit]

    Shellexecute

    [/autoit]
    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=c:\program files (x86)\autoit3\tihgame1\julymenu.kxf
    $Form1_1 = GUICreate("Trouble In Heaven", 1030, 772, 234, 21)
    GUISetIcon("C:\Play.ico", -1)
    $background = GUICtrlCreatePic("C:\Splash.bmp", 0, 0, 1024, 768, BitOR($GUI_SS_DEFAULT_PIC, $SS_CENTERIMAGE))
    GuiCtrlSetState(-1,$GUI_DISABLE)
    GUICtrlSetResizing(-1, $GUI_DOCKAUTO + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
    $EXIT = GUICtrlCreateButton("EXIT", 936, 40, 75, 25)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)
    GUICtrlSetTip(-1, "EXIT")
    $EXITcontext = GUICtrlCreateContextMenu($EXIT)
    $MenuItem1 = GUICtrlCreateMenuItem("EXIT", $EXITcontext)
    $MenuItem2 = GUICtrlCreateMenuItem("On the Run", $EXITcontext)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $MenuItem3 = GUICtrlCreateMenuItem("Devils Slide", $EXITcontext)
    $MenuItem4 = GUICtrlCreateMenuItem("Traitorous Dungeon", $EXITcontext)
    $MenuItem5 = GUICtrlCreateMenuItem("Into The Dungon", $EXITcontext)
    $help1 = GUICtrlCreateLabel("Hints and Help", 824, 80, 198, 36)
    GUICtrlSetFont(-1, 16, 800, 0, "Arial")
    GUICtrlSetColor(-1, 0x00FF00)
    GUICtrlSetBkColor(-1, 0x008080)
    GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
    GUICtrlSetTip(-1, "Help")
    $ontherun = GUICtrlCreatePic("C:\Program Files (x86)\AutoIt3\TIHGame1\ONTHERUN.jpg", 16, 144, 292, 68, BitOR($GUI_SS_DEFAULT_PIC, $SS_SUNKEN))
    GUICtrlSetTip(-1, "exit")
    $devilSlide = GUICtrlCreatePic("C:\Program Files (x86)\AutoIt3\TIHGame1\devilSlide.jpg", 336, 168, 332, 52, BitOR($GUI_SS_DEFAULT_PIC, $SS_SUNKEN))
    GUICtrlSetTip(-1, "level2")
    $demonhalls = GUICtrlCreatePic("C:\Program Files (x86)\AutoIt3\TIHGame1\demonhalls.jpg", 344, 224, 332, 52)
    GUICtrlSetTip(-1, "level 3")
    $hadies = GUICtrlCreatePic("C:\Program Files (x86)\AutoIt3\TIHGame1\16hadiesexpress.jpg", 688, 168, 332, 52)
    GUICtrlSetResizing(-1, $GUI_DOCKAUTO + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
    GUICtrlSetTip(-1, "level 4")
    $runningpits = GUICtrlCreatePic("C:\Program Files (x86)\AutoIt3\TIHGame1\runningpits.jpg", 680, 360, 348, 44)
    GUICtrlSetTip(-1, "level 5")
    $templepain = GUICtrlCreatePic("C:\Program Files (x86)\AutoIt3\TIHGame1\templepain.jpg", 680, 224, 340, 76)
    $Underworld = GUICtrlCreatePic("C:\Program Files (x86)\AutoIt3\TIHGame1\Underworld.jpg", 696, 304, 324, 52)
    $devilSlide2 = GUICtrlCreatePic("C:\Program Files (x86)\AutoIt3\TIHGame1\devilSlide2.jpg", 8, 224, 300, 52)
    $Traitor2 = GUICtrlCreatePic("C:\Program Files (x86)\AutoIt3\TIHGame1\Traitorousdungeon2.jpg", 8, 288, 300, 52)
    GUICtrlSetTip(-1, "Traitorous dungeon")
    $Traitor1 = GUICtrlCreatePic("C:\Program Files (x86)\AutoIt3\TIHGame1\Traitorousdungeon1.jpg", 8, 288, 300, 52, BitOR($GUI_SS_DEFAULT_PIC, $SS_SUNKEN))
    GUICtrlSetTip(-1, "Traitorous dungeon")
    $sewer1 = GUICtrlCreatePic("C:\Program Files (x86)\AutoIt3\TIHGame1\sewer1.jpg", 8, 344, 300, 44)
    GUICtrlSetTip(-1, "In to the sewer")
    $Traitor9 = GUICtrlCreatePic("C:\Program Files (x86)\AutoIt3\TIHGame1\Traitor9.jpg", 344, 368, 332, 52)
    GUICtrlSetTip(-1, "Dead Reborn")
    Dim $Form1_1_AccelTable[1][2] = [["^q", $EXIT]]
    GUISetAccelerators($Form1_1_AccelTable)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    GUICreate("Menu", 400, 150)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE, $EXIT
    Exit

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

    Case $MenuItem1
    Case $MenuItem2
    Case $MenuItem3
    Case $MenuItem4
    Case $MenuItem5
    Case $help1
    Case $ontherun
    Case $devilSlide
    Case $demonhalls
    Case $runningpits
    Case $templepain
    Case $Underworld
    Case $devilSlide2
    Case $Traitor2
    Case $Traitor1
    Case $sewer1
    sewer1Click()
    MsgBox(0, "sewer1", "ID=" & $nMsg)
    ShellExecute("YoirFile")
    Case $Traitor9
    EndSwitch
    WEnd
    Func MenuItem1Click()

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

    EndFunc ;==>MenuItem1Click
    Func MenuItem2Click()

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

    EndFunc ;==>MenuItem2Click
    Func MenuItem3Click()

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

    EndFunc ;==>MenuItem3Click
    Func MenuItem4Click()

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

    EndFunc ;==>MenuItem4Click
    Func ontherunClick()

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

    EndFunc ;==>ontherunClick
    Func runningpitsClick()

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

    EndFunc ;==>runningpitsClick
    Func sewer1Click()
    MsgBox(0, "OK Pressed", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle & " CtrlHandle=" & @GUI_CtrlHandle)
    ;@GUI_CtrlId, @GUI_CtrlId, @GUI_WinHandle only available in OnEvent.Mode
    EndFunc ;==>sewer1Click
    Func templepainClick()

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

    EndFunc ;==>templepainClick
    Func Traitor1Click()

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

    EndFunc ;==>Traitor1Click
    Func Traitor2Click()

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

    EndFunc ;==>Traitor2Click
    Func Traitor9Click()

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

    EndFunc ;==>Traitor9Click
    Func UnderworldClick()

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

    EndFunc ;==>UnderworldClick

    [/autoit]

    mfg autoBert

  • AddFile

    Zitat von haspop

    autobert, ich habe die anderen Beiträge gelöscht vondaher kann ich hier nach hilfe fragen :)


    Dann stelle wenihsten ein paar Dateuen zum testen ein. Beuspieldaten dent sich keiner gerne aus und meist sind dann irgendelcheBesonderheiten nicht brücksichtigt,

    mfg autoBert

  • AddFile

    Hallo haspop,

    du willst hier eine Lösung für ein Problem, für das du schon öfters hier angefagt hast:

    Gerade dein Verhalten in [*][ gelöst ] InputBox ist sehr unhöflich und zeigt dass du zwar Hilfe erwartest aber nicht bereit bist etwas dazu zu tun. Am Ende setzt du den Beitrag auf gelöst und löschst alle deine Beiträge.

    @Mod/Admin: bitte die gelöschten Beiträge dort wieder herstellen und hier schliessen, da es immer noch das gleiche Problem ist,

    Edit: und jetzt löschst du auch noch die Beiträhe in deinem anderen Thema, unverschämt :cursing:

    mfg autoBert

  • Bin neu =D Brauche hilfe

    Hallo itelligence,

    herzlich willkommen im Forum. Am besten lädtst du dir die dt. Hilfe herunter. Dort steht dann zu GUICtrlCreatePic:

    Zitat

    Wird ein Bild als Hintergrundbild genutzt, während die anderen Controls dieses quasi überlappen, so ist es wichtig, das Bild-Control zu deaktivieren und es nach den anderen Controls zu erstellen: GuiCtrlSetState(-1,$GUI_DISABLE).

    PS.: du hast auch einen Tippfehler in deinem Nick,

    mfg autoBert

  • UDP Datenstau vermeiden

    Zitat von Cheater Dieter

    Edit: Ich hab' soeben die optimale Lösung gefunden, um einen Stau zu verhindern: Per AdlibRegister rufe ich alle 10 ms eine Funktion auf, die den Socket schließt und dann sofort wieder einen neuen aufbaut. Somit wird ein Ansstauen der Daten verhindert und ich kann mit hohen Datenraten senden.


    Das dies optmal ist wage ich zu bezweifeln, da dnn doch lieber nur jeden x. Wert 2., 3. etc,) an die GDO-Routunen zum anzeigen weitergeben, oder evt. ,ehrere Werte mitteln und dann weitergeben

    mfg autoBert

  • Mehrzeiliger Button mit anderer Farbe

    Versuche es einmal mit dieser Methode (@crlf)

    Spoiler anzeigen
    [autoit]

    #include <Misc.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GUIListview.au3>
    #include <GUITab.au3>

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

    dim $platz,$fen_sp,$msg

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

    $fen_sp = GUICreate("Test", @DesktopWidth, @DesktopHeight, 1, 1)
    $Platz = GUICtrlCreateButton("Das ist ein" & @CRLF & "mehrzeiliger Text",10,10, 100,100, 0x2000) ;0x2000 = Multiline : Zeilenumbruch
    GUICtrlSetBkColor($Platz, 0xFFAAAA) ; Farbiger Hintergrund
    GUISetstate()
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    endselect
    wend

    [/autoit]

    mfg autoBert

  • _ListView2File

    Hallo meows,

    herzlich willkommen im Forum.

    [autoit]

    FileOpen

    [/autoit]

    öffnet je nach Parameter die Datei zum lesen bzw. schreiben. Bei dem von dir benutzeten Parameter wird die Datei zum schreibem geöffnet und evtl. bestehender Inhalt gelöscht. Du solltest dir die Hilfe herunterladen.

    stinger2k Skriptauszug ist zum einbauen in ein Skript wenn du eine Listvuew in eine Textdatei speichern willst,

    Edit: du solltest in Zukunft ein eigenes Thema eröffnen und nicht einfach in einem indem eine Funktion benutzt wird welche du nicht verstehts. Am besten dann auch mit deinem kompletten SKript,

    mfg autoBert

  • Pause von Hotkeys bei bestimmten Hotkey

    Zitat von Dux Aquila

    Wie gesagt bin Anfänger und bin recht verwöhnt von AHK

    Anscheinend hast du die Forenregeln:

    nicht gelesen. und da

    [autoit]

    ControlSend("GTA:SA:MP

    [/autoit]

    darin vorkommt und GTA:SA:MP nun einmal ein Spiel ist Vote for Close

    mfg autoBert

  • Error bei Letzter Zeile der For Schleife

    Zitat von Draven

    Ja schon nur $blue[0][0] und $blue[0][1] liefern mir immer Werte für X und Y die in der oberen linken Bildschirmecke, also außerhalb des Fensters liegen, auf das geklickt werden soll.


    Dies klingt ganz danach als ob du ein Spiel automatisieren möchtest.

    Zitat von Draven

    Script kann ich leider im Moment nicht vollständig liefern weil ich paar Tage nicht zuhause bin,

    bestärkt michin dieser Annahme, denn wie kannst du an einem SKript schreiben obwojl du es nichz hast? Sollte es etwas anderes als ein Spiel sein nenne bitte die Anwendung, es gibt geschicktere Möglichkeiten, als Maus schubsen und klicken, um Anwendungen zu automatisieren,

    daher Vote for CLOSE

    mfg autoBert