Beiträge von Schnitzel

**Schnitzel**

doppelposts machens jetz nich unbedingt besser...

https://autoit.de/index.php?page=Thread&threadID=20144

**Schnitzel**

ich hatte sowas auch mal mit autoit vor.
hab mich aber dann doch umentschieden.
da gibts schnellere software mit der es einfach geht.
google mal nach "ef multi file renamer" oder so.

wenn dus natürlich selber bauen willst dann:
_GetFilesFolder_Rekursiv() siehe hier
die ID3 Tags auslesen kannst du ja schon
und dann brauchst du noch Filemove

im prinzip wars das

**Schnitzel**

so?

Spoiler anzeigen

[autoit]

#include <Array.au3>
$counter = 0
Dim $a[26*26*26][3]
For $i1 = 97 To 122
For $i2 = 97 To 122
For $i3 = 97 To 122
$a[$counter][0] = Chr($i1)
$a[$counter][1] = Chr($i2)
$a[$counter][2] = Chr($i3)
$counter += 1
Next
Next
Next
_ArrayDisplay($a)

[/autoit]

**Schnitzel**

nach ein paar pm's mit kev wurde mir nun genau erklärt was er will

Erklärung des Problems:
er hat eine gui das ein Flash-Objekt enthält
sieht in etwa so aus:

Bild ^^

[Blockierte Grafik: http://www.blogcdn.com/www.joystiq.com/media/2008/11/wotlk-install.jpg]

nun möchte er in diesem flash objekt den einzelnen buttons aber funktionen zuweisen.
bei "Install" soll er wow installieren
bei "readme" irgendetwas anderes
bei "exit" vermutlich beenden

wie auch immer. das problem für ihn ist das das ganze ding nur ein objekt ist

deswegen war mein vorschlag mit den guicoordinaten zu arbeiten.

sowas in der art

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("MouseCoordMode", 2)

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

$Form1 = GUICreate("", 490, 365)
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\test.bmp", 0, 0, 490, 365, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic1
$aPos = MouseGetPos()
Select
Case ($aPos[0] > 77 And $aPos[0] < 167) And ($aPos[1] > 137 And $aPos[1] < 155)
msgbox(0,"","Installieren")
Case ($aPos[0] > 106 And $aPos[0] < 138) And ($aPos[1] > 247 And $aPos[1] < 257)
msgbox(0,"","Exit")
Case Else
msgbox(0,"","irgendwas anderes" & @CRLF & $aPos[0] & @CRLF & $aPos[1] )
EndSelect
EndSwitch
WEnd

[/autoit]

**Schnitzel**

such doch mal nach dateiupload und so ähnlich.
upload programme hatten wir hier schon zur genüge, auch mit php.

ps: lass auf den server ja keine .php dateien hochladen. sonst kriegste evtl sehr schnell probleme

**Schnitzel**

dazu ist _GetFilesFolder_Rekursiv() sehr praktisch.
siehe hier

**Schnitzel**

welche flash installation denn genau?
da gibts mehrere.

und ja es gibt egtl fast immer was besseres als pixelsearch

**Schnitzel**

Zitat von MelS3247

DreifachKlick da war??? OHNE Hotkey zu benutzen???

naja mit dem dreifachklick markierst du oder?
mit Strg + C kopiert man ja
und Clipget() ließt das ganze dann aus dem Arbeitsspeicher aus.
War einfach nur so n schneller einfall...

**Schnitzel**

Das ist mehr als unpraktisch und fehleranfällig...
Um was handelt es sich denn? ein Control? eine datei? Im Browser?

vom klicken und kopieren würde ich dir echt abraten
gehn würde es aber so in etwa:

[autoit]

Send("^c")
$get = Clipget()
msgbox(0,"",$get)

[/autoit]

**Schnitzel**

Webradios gabs hier schon einige.
ab besten mal umsehn

Kleiner Webradioplayer
Radio Streamer
[ gelöst ] Inet Radio und Tray Menü
Mein Radio Streamer[Erstes Projekt]
...

**Schnitzel**

könntet ihr jetz endlich mal aufhören sinnlose post hier reinzuspammen?
soviele posts hintereinander die keinen intressieren. das nervt.

wenn ihr n problem habt dann spammt euch doch per pm zu. da stört ihr zumindest nicht die fragenden oder die die gute hilfe geben wollen

**Schnitzel**

Zitat von EliteMattthias

boah junge -.-

@EM: Laber hier nich blöd rum. Es ist schön dass du hilfst aber doch bitte nicht so.
Ich erinner mich noch an jemanden der mindestens genausoviele Fragen gestellt hast.

wenn du nicht drauf kommst wer

DU!

Zitat von button421

Cooles Projekt nicht?

joa passt schon. Die frage ist eher ob es dein projekt ist

mögliche lösung

Spoiler anzeigen

[autoit]

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

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Conrad Bauteilsaver ", 438, 195, 192, 124)
$ListView1 = GUICtrlCreateListView("Best.Nr|Bauteilname|URL", 8, 8, 426, 158)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 120)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 240)
$Button1 = GUICtrlCreateButton("Neues Bauteil", 352, 168, 83, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Beenden", 272, 168, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Info...", 192, 168, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;===================================================
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Neues Bauteil", 295, 116, 192, 124)
$Label1 = GUICtrlCreateLabel("Best.Nr:", 8, 16, 42, 17)
$Input1 = GUICtrlCreateInput("", 56, 16, 233, 21)
$Label2 = GUICtrlCreateLabel("Name:", 8, 40, 35, 17)
$Input2 = GUICtrlCreateInput("", 56, 40, 233, 21)
$Label3 = GUICtrlCreateLabel("URL:", 8, 64, 29, 17)
$Input3 = GUICtrlCreateInput("", 56, 64, 233, 21)
$Button4 = GUICtrlCreateButton("OK", 216, 88, 75, 25, $WS_GROUP)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

Dim $Listviewarray[1] = [0]
Local $count = IniRead(@Scriptdir & "\Data.ini", "Allgemein", "Elemente", 0)
$ini = IniReadSection(@Scriptdir & "\Data.ini","Bauteile")
If IsArray($ini) Then
ReDim $Listviewarray[$count+1]
For $i = 1 To $count
$Listviewarray[0] = Ubound($Listviewarray) - 1
$Listviewarray[$i] = GUICtrlCreateListViewItem($ini[$i][0], $ListView1)
Next
EndIf

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

While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $Form1
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_SHOW, $Form2)
Case $Button2
Exit
Case $Button3
MsgBox(64,"Info!","Created by button421")
Case $Listviewarray[0] To $Listviewarray[$count]
$split = StringSplit(GUICtrlRead($nMsg[0]), "|")
If Ubound($split) >= 3 Then
ShellExecute($split[3])
EndIf
EndSwitch
Case $Form2
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $Form2)
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input3, "")
Case $Button4
$text = GUICtrlRead($Input1) & "|" & GUICtrlRead($Input2) & "|" & GUICtrlRead($Input3)
$count += 1
ReDim $Listviewarray[$count+1]
$Listviewarray[0] = Ubound($Listviewarray) - 1
$Listviewarray[$count] = GUICtrlCreateListViewItem($text, $ListView1)
IniWrite(@Scriptdir & "\Data.ini", "Allgemein", "Elemente", $count)
IniWrite(@Scriptdir & "\Data.ini", "Bauteile", $text, "")
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input3, "")
GUISetState(@SW_HIDE, $Form2)
EndSwitch
EndSwitch
WEnd

[/autoit]

**Schnitzel**

Zitat

Und dann für jedes Bauteil eine .ini?

wie kommst denn da drauf?^^

**Schnitzel**

von dem gefragten Script auf einen Keylogger zu schließen ist schon sehr weit hergeholt.
Immerhin gehts um ein Consolenprogramm

**Schnitzel**

geclosed werden threads hier nicht. auf gelöst setzten kannst du selbst
(ersten post bearbeiten, präfix: gelöst wählen, senden/speichern drücken)

**Schnitzel**

ungetestet aber sollte klappen:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Conrad Bauteilsaver ", 438, 195, 192, 124)
$ListView1 = GUICtrlCreateListView("Best.Nr|Bauteilname|URL", 8, 8, 426, 158)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 120)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 240)
$Button1 = GUICtrlCreateButton("Neues Bauteil", 352, 168, 83, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Beenden", 272, 168, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Info...", 192, 168, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;===================================================
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Neues Bauteil", 295, 116, 192, 124)
$Label1 = GUICtrlCreateLabel("Best.Nr:", 8, 16, 42, 17)
$Input1 = GUICtrlCreateInput("", 56, 16, 233, 21)
$Label2 = GUICtrlCreateLabel("Name:", 8, 40, 35, 17)
$Input2 = GUICtrlCreateInput("", 56, 40, 233, 21)
$Label3 = GUICtrlCreateLabel("URL:", 8, 64, 29, 17)
$Input3 = GUICtrlCreateInput("", 56, 64, 233, 21)
$Button4 = GUICtrlCreateButton("OK", 216, 88, 75, 25, $WS_GROUP)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

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

Dim $Listviewarray[1] = [0]
Local $count = 1

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

While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $Form1
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_SHOW, $Form2)
Case $Button2
Exit
Case $Button3
MsgBox(64,"Info!","Created by button421")
Case $Listviewarray[0] To $Listviewarray[$count-1]
$split = StringSplit(GUICtrlRead($nMsg[0]), "|")
If Ubound($split) >= 3 Then
ShellExecute($split[3])
EndIf
EndSwitch
Case $Form2
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $Form2)
Case $Button4
$count += 1
ReDim $Listviewarray[$count]
$Listviewarray[0] = Ubound($Listviewarray) - 1
$Listviewarray[$count-1] = GUICtrlCreateListViewItem(GUICtrlRead($Input1) & "|" & GUICtrlRead($Input2) & "|" & GUICtrlRead($Input3), $ListView1)
;Hier soll das Item in die ListView "gebeamt" werden.
GUISetState(@SW_HIDE, $Form2)
EndSwitch
EndSwitch
WEnd

[/autoit]

PS: im OnEvent modus finde ich sowas viel leichter

**Schnitzel**

*g* nur das das keine Frage ist.

wo haste denn Probleme?
und bitte immer bisheriges script posten

**Schnitzel**

is jetz nich böse gemeint aber wenn du bis jetz noch nichts mit autoit gemacht hast dann nimm excel

bis du das hast was du willst dauerts sonst monate

**Schnitzel**

die frage ist was verstehst du unter füllen?
handelt es sich um ein formular?
könntest du den link posten?

**Schnitzel**

das zeigt dir alle exedateien an

[autoit]

#include <File.au3>
#include <Array.au3>
$exe = _FileListToArray("C:/Programme/Ordner/" , "*.exe")
_ArrayDisplay($exe)

[/autoit]

Beiträge von Schnitzel

IniWrite schreibt nicht den Pfad des Programmes auf

Frage zu Datei-Sortierung

Rekursiv

Flash Installation

Fileupload per HTTP

Verzeichnis in eine Listbox

Flash Installation

Wert auslesen

Wert auslesen

Internet Radio

ListViewItems per GUICtrlSetData?

ListViewItems per GUICtrlSetData?

ListViewItems per GUICtrlSetData?

Konsole

Konsole

ListViewItems per GUICtrlSetData?

Konsole

Excel-Tabelle

Online Tabelleninhalt in Variablen speichern

.exe aus ordner suchen