Beiträge von Alina

**Alina**

@chip, das ist ja eine Geb.-Karte für blinde. Hat er das schon nötig?
[Blockierte Grafik: http://img5.fotos-hochladen.net/thumbnail/geburtstagskartmep9lvc57s_thumb.jpg]

**Alina**

Könntest Du BITTE noch die "verschieben.ini" oder eine gleich aufgebaute Beispiel-INI zur Verfügung stellen?

Ich würde sagen, den Ist-Bestand vor dem verschieben und nach dem verschieben jeweils in ein Array aufnehmen und dann die beiden Arrays vergleichen. Die Diff ist dann das Ergebnis.

Oder Du prüfst, ob wirklich alle Dateien die in der INI stehen auch wirklich verschoben wurden und dann kannst DU die Dateien ja auch von der INI auslesen.

Ich habe mal eine Bsp.-INI erstellt ud beigefügt. Das ist die INI für folgenes, was Du dir mal anschauen kannst, ob Dir damit schon mal geholfen ist:

Spoiler anzeigen

[autoit]

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

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

Local $var = IniRead(@ScriptDir & "\verschieben.ini", "AAA", "BBB", "default") ; default = CCC
Local $var2 = IniRead(@ScriptDir & "\verschieben.ini", "AAA", "DDD", "default") ; Default = EEE

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

Example()

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

Func Example()
Local $listview, $item1, $item2, $item3,$msg

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

GUICreate("Listview Einträge", 220, 170, 100, 200, -1, $WS_EX_ACCEPTFILES)
GUISetBkColor(0x00E0FFFF) ; Ändert die Hintergrundfarbe

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

$listview = GUICtrlCreateListView("AAA/BBB|AAA/DDD", 10, 10, 200, 150);,$LVS_SORTDESCENDING)
$item1 = GUICtrlCreateListViewItem($var , $listview)
$item2 = GUICtrlCreateListViewItem("|" & $var2, $listview)
$item3 = GUICtrlCreateListViewItem($var & "|" & $var2, $listview)

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

GUISetState()
; Einträge kann man mit GUICtrlSetData setzen bzw. ersetzen
;GUICtrlSetData($item1, $var & "|" & $var2) ; beide Einträge ersetzen
;GUICtrlSetData($item1, $var) ; nur den ersten Einträge ersetzen
;GUICtrlSetData($item1, "|" & $var2) ; nur den zweiten Eintrag ersetzen

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

Do
$msg = GUIGetMsg()

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

Select
Case $msg = $listview
MsgBox(0, "Listview", "angeklickt=" & GUICtrlGetState($listview), 2)
EndSelect
Until $msg = $GUI_EVENT_CLOSE
EndFunc ;==>Example

[/autoit]

**Alina**

Alles Gute zum Purzeltag.

In der Anlage noch eine Geburtstagskarte für Dich.

**Alina**

General Kaboom: was habe ich denn nun getan???

**Alina**

Zitat von General Kaboom

Hmm, ist das überhaupt erlaubt einen falschen Geburtstag zu feiern?

Man darf feiern was man möchte. Nicht alles in der Öffentlichkeit, aber man darf.
Wenn Du den "Dingel-Dongel-Tag" feiern möchtest, dann darfst Du es wann und wo
Du möchtest, solange es keinem Gesetz entgegen steht.
Wie viele feiern den Feierabend fast täglich mit einem Bierchen oder einem Wein?
Also Frage beantwortet?

**Alina**

Hallo.

Ich weiß jetzt nicht, ob ich dich richtig verstanden habe, aber evtl. so:

Spoiler anzeigen

[autoit]

#include <Misc.au3> ; Binde die Misc.au3 ein( für _IsPressed)
Global $hTimer = TimerInit()

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

While (1)

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

If _IsPressed("20") Then ;wenn lerrtaste gedrückt, dann

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

sleep (Random (40, 50, 1))
Send("{7}")
sleep (Random (40, 50, 1))
Send("{8}")
sleep (Random (40, 50, 1))
Send("{9}")
sleep (Random (40, 50, 1))
$hTimer = TimerInit()
While _IsPressed('20')
If TimerDiff($hTimer) >= 1000 Then
Send('6')
sleep (Random (40, 50, 1))
ExitLoop
EndIf
WEnd

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

EndIf

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

WEnd ; Wiederholfe die Schleife

[/autoit]

Ergebnis bei mir alle 1000 ms kommt die "6-er Schleife" ansonsten die "789-er Schleife":

Spoiler anzeigen

[autoit]

789 6 789 6 789 6 789 6 789 6 789 6 789

[/autoit]

**Alina**

Teste mal diese kleine Änderung.
Habe noch nicht mit AutoIt für Excel gescriptet. Aber es sieht doch so, aus, das Dir derzeitig die oberste Reihe fehlt. Oder habe ich Dich da falsch verstanden?

Spoiler anzeigen

[autoit]

Func oeffnen()
Global $code = FileOpenDialog("Wähle Datenbank (XLSX, XLS) aus!",@StartupDir, "(*.xlsx;*.xls)",1 + 4)
If Not @error Then GUICtrlSetState($Convert , $GUI_ENABLE)
Global $aFiles = StringSplit($code, "|", 1)

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

For $i = 2 To UBound($aFiles) -1 ; hier mal folgendes versucht: For $i = 1 To UBound($aFiles) -1

$aFiles[$i] = $aFiles[1] & "\" & $aFiles[$i]

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

Next
EndFunc

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

Func convert()

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

If $aFiles[0] <= 1 Then
For $i = 1 To $aFiles[0]

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

Local $oExcel = _Excel_Open()
Local $sWorkbook = $afiles[$i]
Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook, Default, Default, True)
Local $asheet = _Excel_Rangeread($oWorkbook)

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

_ArrayDisplay($asheet)

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

For $i = 2 To $asheet[0][0]

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

WinActivate("V1 - 111.111.11.1 - Remotedesktopverbindung")

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

Do
$iResult = _ImageSearch("no.png",1,$x,$y,80)
If $iResult <> 1 Then Sleep(600)
Until $iResult = 1
MouseClick("Left", $x, $y)

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

Do
$iResult = _ImageSearch("1kdnr.png",1,$x,$y,80)
If $iResult <> 1 Then Sleep(600)
Until $iResult = 1
MouseClick("Left", $x, $y)
MouseClick("Left", $x, $y)
Send($asheet[$i][1]) ;KD-Nr.:
Sleep(600)
;Send("{TAB}")

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

Next
Next
EndIf
EndFunc

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

Func beenden()
Exit
EndFunc

[/autoit]

**Alina**

Schieb mal das Script rüber, dann schaue ich es mir mal an.
Sprich, poste es mal und wer als erstes kommt, bekommt
auch als erstes den Zuschlag zur Antwort.

Sorry, typische Dienstagmittaglaune.

**Alina**

Silentone, Bitte in Zukunft folgendes verwenden:
[ spoiler ][ autoit ]
Code
[ /autoit ][ /spoiler ]

Ist einfach optischer schöne UND BESONDERS erleichtert es der Hilfestellung.
Vielen Dank !!!

**Alina**

Happy Days dann mal !!!

**Alina**

schönes bild

**Alina**

wieso kann man keinen mehr hier anfülstern??? In der SB meine ich?

**Alina**

Welche neue Version?
Welche hattest DU vorher und welche nutzt DU jetzt?

**Alina**

Ich schreibe unter "Talk", weil es nicht direkt um ein Script geht.

Mir wurde gesagt, das man alles in eine DLL packen kann. Okay, das nehme ich mal so hin.

Nur welche Dateien packt man normalerweise rein und was sind das denn?

Resource Typ?
Resource Name? Edit: vergebe ich ja selber
Resource Langnage? Edit: vergebe ich ja selber

Welcher Typ, gibt man an, damit man es dann aus der DLL auch wieder auslesen kann.
Bei den Texten ist es ja RT_RCDATA.

Wie sieht es da bei anderen Dateien aus.
Welche maximallänge gibt es bei Textdateien für RT_DATA? Ich habe gemerkt, das die Länge irgendwo begrenzt ist.

**Alina**

@Make-Grafik:
das ist echt eine super Erklärung.

@rexderruede:
ich lerne auch am besten so wie Du es beschrieben hast.
so verstehe ich besser die Befehle und deren Nutzung.

@Make-Grafik:
meine abstrakten gedanken logisch und sinnvoll als quelltext zu verfassen,
ist nicht imer leicht. es müssen erst einmal die abstrakten gedanken sortiert
und in die richtigen bahnen geschoben werden.

**Alina**

ich antworte so viel, das ich den Überblick verliere.

**Alina**

@rexderruede & Make-Grafik

Laßt uns teilhaben an dem anderen Beitrag "guckst du mal in den einen Thread wo ich dir geantwortet habe".

**Alina**

gut zu wissen !

**Alina**

Danke, danke, danke !!!!
Jetzt nutze ich den Nachmittag, um es zu versuchen zu verstehen.

Edit-1:
Habe jetzt folgendes dank Funkey hinbekommen

Spoiler anzeigen

[autoit]

#include <WinAPI.au3>
#include <WinAPIRes.au3>
#include <APIResConstants.au3>
Global $hModul = _WinAPI_LoadLibraryEx("daten.dll", $LOAD_LIBRARY_AS_DATAFILE)

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

Global $hRes1 = _WinAPI_FindResource($hModul, $RT_RCDATA, "EINS")
Global $iSizeRes1 = _WinAPI_SizeOfResource($hModul, $hRes1)
Global $hData1 = _WinAPI_LoadResource($hModul, $hRes1)
Global $pData1 = _WinAPI_LockResource($hData1)
Global $tData1 = DllStructCreate("char[" & $iSizeRes1 & "]", $pData1)
ConsoleWrite(DllStructGetData($tData1, 1) & @CRLF)

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

Global $hRes2 = _WinAPI_FindResource($hModul, $RT_RCDATA, "ZWEI")
Global $iSizeRes2 = _WinAPI_SizeOfResource($hModul, $hRes2)
Global $hData2 = _WinAPI_LoadResource($hModul, $hRes2)
Global $pData2 = _WinAPI_LockResource($hData2)
Global $tData2 = DllStructCreate("char[" & $iSizeRes2 & "]", $pData2)
ConsoleWrite(DllStructGetData($tData2, 1) & @CRLF)

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

Global $hRes3 = _WinAPI_FindResource($hModul, $RT_RCDATA, "DREI")
Global $iSizeRes3 = _WinAPI_SizeOfResource($hModul, $hRes3)
Global $hData3 = _WinAPI_LoadResource($hModul, $hRes3)
Global $pData3 = _WinAPI_LockResource($hData3)
Global $tData3 = DllStructCreate("char[" & $iSizeRes3 & "]", $pData3)
ConsoleWrite(DllStructGetData($tData3, 1) & @CRLF)

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

$zusammen = DllStructGetData($tData1, 1) + DllStructGetData($tData2, 1) + DllStructGetData($tData3, 1)

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

MsgBox(0,"",DllStructGetData($tData1, 1) & " + " & DllStructGetData($tData2, 1) & " + " &DllStructGetData($tData3, 1) & " = " &$zusammen)
_WinAPI_FreeLibrary($hModul)

[/autoit]

DLL füge ich bei, falls es mal jemand benötig. Es sind nur Beispieldaten!

**Alina**

@BugFix

stimme dir auch voll und ganz zu

Beiträge von Alina

Raupi hat Geburtstag!

ListView von verschobenen Datein

Raupi hat Geburtstag!

Alles Gute, UEZ

Alles Gute, UEZ

_IsPressed Frage

_ArrayDisplay "neue" Version

_ArrayDisplay "neue" Version

Registry Key lässt sich nicht einlesen...

Alles Gute, UEZ

Renderings [nachträglich]

Forum-Umstellung Problemsammlung

_ArrayDisplay "neue" Version

Resource !?

_IsPressed Frage

_IsPressed Frage

_IsPressed Frage

CreateResourceDLL

DLL auslesen

Forum-Umstellung Problemsammlung