Naja alles irgendwie machbar würde ich sagen, die Frage ist halt auf was genau soll es denn lauschen?
Bestimmte Tastatur-Eingabe? (Keylogger?)
Beiträge von Sonderbaar
-
-
Gewagte These - auf das Lottospielen solltest Du diese Woche ggf. verzichten
Du warst doch der erste
Ich kämpfe mich mal weiter voran, sollte hier doch einem die Laune danach sein was konstruktives Beizutragen, nur zu
-
Hallo zusammen,
ich würde gern 3 Icons, per Drag & Drop ausm einem "Icon-Vorrat" von 24 Stück, in drei "Kästchen" der GUI ablegen, aber die Position an der das Icon abgelegt wurde auch festhalten, sodass man quasi beim nächsten Aufruf sehen kann, auf welchem Kästchen welches Icon abgelegt wurde. Die Icons haben nachher auch 24 unterschiedliche Farben, jetzt gerade war ich einfach zu Faul alle anzulegen
Ist mein mein Vorhaben soweit Verständlich?
Ich habe quasi jetzt drei Fragen:
-Wie speichere im besten die Position, wo das Icon abgelegt wurde? (Ini-Datei? Oder brauch ich doch ne MySQL? Andere Ideen?)
-Wie rufe ich es entsprechend nachher wieder auf?
_Setpos habe ich mir irgendwo her geklaut... das müsste ich auch etwas verschmälern, bzw. optimierenDrag_Drop.zip... aber kann ich da überhaupt mit einer Schleife arbeiten? Außerdem habe ich das Problem, dass mir die Icons nach links "weg hüpfen". Das habe ich aber erst, seit dem ich von der Festen Variablen aufn Array umgestellt habe...
Im Anhang auch die Icons... Im Ordner sind diese enthalten, der wiederum im Scriptverzeichnis liegen muss...
Danke im voraus für die Hilfe (ich tippe mal drauf dass Musashi der erste ist, der antwortet )
Spoiler anzeigen
C
Alles anzeigen#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Misc.au3> #include <GDIPlus.au3> #include <GUIConstantsEx.au3> #include <MsgBoxConstants.au3> Global $g_aidGraphics[3] Global $Pic[25] $hGui = GUICreate("Drag&Drop", 800, 800, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_VSCROLL)) GUISetState(@SW_SHOW) bilder_initialisieren() freie_plaetze() AdlibRegister("_SetPos", 100) ;Die Funktion _SetPos wird nun alle 0,1s aufgerufen While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit EndSwitch WEnd Func bilder_initialisieren() $j = 20 For $i = 1 to UBound($Pic)-1 $Pic[$i] = GUICtrlCreateIcon(@ScriptDir & "\Farben\" & $i &".ico", -1, 10, $i+$j, 30, 30) ;Icon (Bild) wird erstellt $j = $j +30 Next EndFunc Func freie_plaetze() $g_aidGraphics[0] = GUICtrlCreateGraphic(220, 110, 100, 100) GUICtrlSetBkColor(-1, 0xFFFFFF) GUICtrlSetColor(-1, 0x00) GUICtrlSetGraphic(-1, $GUI_GR_HINT, 1) $g_aidGraphics[1] = GUICtrlCreateGraphic(350, 110, 100, 100) GUICtrlSetBkColor(-1, 0xFFFFFF) GUICtrlSetColor(-1, 0x00) GUICtrlSetGraphic(-1, $GUI_GR_HINT, 1) $g_aidGraphics[1] = GUICtrlCreateGraphic(480, 110, 100, 100) GUICtrlSetBkColor(-1, 0xFFFFFF) GUICtrlSetColor(-1, 0x00) GUICtrlSetGraphic(-1, $GUI_GR_HINT, 1) EndFunc Func _SetPos() While _IsPressed(01) ;_IsPressed(01) überprüft, ob die linke Maustaste gedrückt ist $MouseHoverControl = GUIGetCursorInfo($hGui) ;Während Sie gedrückt ist (Während = While), kann man mit dem Befehl GUIGetCursorInfo Informationen über die Maus auf der GUI bekommen Switch $MouseHoverControl[4] ;Hier schaltet man auf die GUIGetCursorInfo um, die ausgibt, über welchem Control (in dem Fall Bild) sich die Maus befindet Case $Pic[1] ;Für den Fall (Fall = Case), dass die Maus über $Pic1 ist, GUICtrlSetPos($Pic[1], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic1 auf die Maus-Position auf der GUI gesetzt Case $Pic[2] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[2], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic2 auf die Maus-Position auf der GUI gesetzt Case $Pic[3] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[3], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[4] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[4], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[5] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[5], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[6] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[6], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[7] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[7], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[8] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[8], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[9] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[9], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[10] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[10], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[11] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[11], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[12] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[12], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[13] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[13], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[14] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[14], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[15] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[15], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[16] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[16], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[17] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[17], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[18] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[18], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[19] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[19], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[20] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[20], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[21] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[21], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[22] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[22], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[23] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[23], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt Case $Pic[24] ;Für den Fall (Fall = Case), dass die Maus über $Pic2 ist, GUICtrlSetPos($Pic[24], $MouseHoverControl[0]-45, $MouseHoverControl[1]-30) ;wird die Position des $Pic3 auf die Maus-Position auf der GUI gesetzt EndSwitch WEnd EndFunc
-
Spoiler anzeigen
AutoIt
Alles anzeigen$api_key = 'hier steht der mir zugteilte API-Key' ;~ API Key ~; $link = 'http://HOSTNAME/api/v3/projects/4/work_packages' post() Func post() Local $sData = '' $sData &= '{ "subject":"Test","description": { "format": "textile", "raw": "Test" }, "_links": {"type": {"href": "/api/v3/types/1","title": "Task"},"status": {"href": "/api/v3/statuses/1"},"priority": {"href": "/api/v3/priorities/8","title": "Normal"}}}' $oHTTP = ObjCreate('winhttp.winhttprequest.5.1') $oHTTP.Open ('POST', $link, False) $oHTTP.SetRequestHeader('Content-type', 'application/json') $oHTTP.SetRequestHeader("Authorization", "Basic apikey:hier steht der mir zugteilte API-Key") $oHTTP.SetCredentials('apikey', $api_key, 0) $oHTTP.Send($sData) Local $sReceived = $oHTTP.ResponseText ConsoleWrite($sReceived & @CRLF) EndFunc
Funzt...
-
Hallo Leute,
lange hat man von mir nix gelesen, jetzt brauch ich mal wieder Unterstützung, natürlich mit einer API-Schnittstelle... das KackDing bringt mich um den Verstand...
Es gibt eine offizielle API-Doku zu OpenProject... siehe Link
Da hier genug im Forum sind, die auch mal über den Tellerrand hinausschauen, ist auch bestimmt jemand dabei der Openproject auch nutzt und sicherlich auch da etwas automatisiert hat...
Ziel ist es sogenannte Work-Packages (Arbeitspakete) in dem Projekt (hier ist es Project 4, wie man dem $link entnehmen kann) anzulegen.
API-Key und Hostname habe ich verfremdet...
Spoiler anzeigen
Spoiler anzeigen
AutoIt
Alles anzeigen$api_key ='hier steht der mir zugteilte API-Key' ;~ API Key ~; $link = 'http://HOSTNAME/api/v3/projects/4/work_packages/' post() get() Func post() Local $sData = '' $sData &= '{ "subject":"Test","description": { "format": "textile", "raw": "Test" }, "_links": {"type": {"href": "/api/v3/types/1","title": "Task"},"status": {"href": "/api/v3/statuses/1"},"priority": {"href": "/api/v3/priorities/8","title": "Normal"}}}' $oHTTP = ObjCreate('winhttp.winhttprequest.5.1') $oHTTP.Open ('POST', $link, False) $oHTTP.SetRequestHeader("Content-type", "application/json") $oHTTP.SetRequestHeader("API_KEY", $api_key) $oHTTP.Send(StringToBinary($sData,1)) Local $sReceived = $oHTTP.ResponseText ConsoleWrite($sReceived & @CRLF) EndFunc Func get() $oHTTP = ObjCreate('winhttp.winhttprequest.5.1') $oHTTP.Open ('POST', $link) $oHTTP.SetRequestHeader("Content-type", "application/json") $oHTTP.SetRequestHeader("API_KEY", $api_key) $oHTTP.Send() Local $sReceived = $oHTTP.ResponseText ConsoleWrite($sReceived & @CRLF) EndFunc
Bei beiden Abfragen erhalten ich die Meldung "unauthorized". Durch die API-Doku blicke ich irgendwie nicht richtig durch und die Beispiele die ich über das große "G" finde sind irgendwie sperrlich...
HILFE!!!
EDIT1: auf einer Linux-Dose funktioniert folgendes:
Spoiler anzeigen
Da bekomme ich alle Arbeitspakete zumindest angezeigt...
-
-
boah bin ich blöd
danke Oscar
-
Hallo zusammen,
irgendwie krieg ich den Dreh nicht so richtig... ziel soll es sein die Datenfelder in verschiedenen Variationen zu erstellen...
Meine Problematik ist eigentlich das Arrayelement um $tag[6]. Ich hätte gerne dass das jeweilige Datumfeld bei einer Größe < 10 also 1-9 eine führende 0 voran setzt... in den anderen Tagen dann logischweise nicht (10,11,12)
Was ich dann als nächste Berücksichtigen müsste ist, ob das Jahr ein Schlatjahr, dann muss natürlich im Februar ein Tag angehangen werden... die Kalenderwoche des Jahre werde ich wohl hoffentlich wieder allein hinkriegen... kann mir jemand helfen?
Spoiler anzeigen
C
Alles anzeigen#include <Date.au3> #include <array.au3> Dim $tag[20] $startjahr = "2019" $startmonat = "01" $starttag = "01" For $j = 0 To 11 For $i = 0 to _DateDaysInMonth($startjahr, $startmonat + $j) -1 $tag[0] = $startjahr $tag[1] = $startmonat + $j $tag[2] = $starttag + $i $tag[3] = $starttag + $i & "." & $startmonat +$j & "." & $startjahr $tag[4] = $starttag + $i & "/" & $startmonat +$j & "/" & $startjahr $tag[5] = $starttag + $i & "-" & $startmonat +$j & "-" & $startjahr If $starttag+$i < 10 AND $startmonat+$j < 10 Then $tag[6] = "0" & $starttag + $i & "0" & $startmonat +$j & $startjahr ;~ Else ;~ $tag[6] = "0" & $starttag + $i & "0" & $startmonat +$j & $startjahr ;~ EndIf ;~ $tag[6] = "0" & $starttag + $i & $startmonat +$j & $startjahr Else $tag[6] = $starttag + $i & $startmonat +$j & $startjahr EndIf $tag[7] = $startmonat +$j & $startjahr $tag[8] = $startjahr & "." & $startmonat +$j & "." & $starttag + $i $tag[9] = $startjahr & "\" & $startmonat +$j & "\" & $starttag + $i $tag[10] = $startjahr & "-" & $startmonat +$j & "-" & $starttag + $i $tag[11] = $startjahr & $startmonat +$j $tag[12] = $startjahr & $startmonat +$j & $starttag + $i $tag[13] = _DateToDayOfWeek($tag[0], $tag[1], $tag[2]) $tag[14] = $tag[2] & ". " & _DateToMonth($tag[1], $DMW_LOCALE_LONGNAME) & " " & $tag[0] $tag[15] = $tag[2] & ". " & _DateToMonth($tag[1], $DMW_LOCALE_SHORTNAME) & " " & $tag[0] Consolewrite($tag[6] & @CRLF) Next Next
-
-
-
Hmmm ich denke da werde ich wohl drauf umsteigen... Früher wurde von TrueCrypt glaube ich ein OTP (Yubikey) angeboten?! Muss ich google fragen, oder weißt du ob Vera das auch unsterstützt?
-
Hallo zusammen,
ich wollte mal nachfragen, was ihr für Verschlüsselungssoftwaren einsetzt? Ich nutze eigentlich TrueCrypt, jedoch lässt mich die Sourceforge und auch die Chip-Homepage aufhorchen... (nicht sicher, nicht mehr weiter entwickelt)
Geht sich darum, Dateien auf dem Dropbox-Space zu verschlüsseln...
-
Hmmm, also ich wäre schon bis zum Speicher-Unter Dialog. Allerdings komme ich da jetzt nicht weiter... eventuell müsste ich das Fenster "steuern"...
-
Ich bin jetzt alle Tabellen durch gegangen, wo sehe ich denn den Bezug Pfad wo das File liegt zur ID?
i.d.R. liegen die Files ja im Archive Pfad von ELO unterm Archivnamen und dann werden ja "Unterordner" angelegt, in dem DANN wiederum erst die Dokumente liegen?!
-
Naja ist ja nicht so als hätten wir ja nicht die Lizenzen dafür... per "automation" in VBA kriegen wir ja auch Dokumente ins Archiv gepumpt... mein Ansinnen ist es jetzt ein Dokument im Archiv zu suchen und dieses dann per Speichern_Unter abzuspeichern, damit ich daraus die Fertigungspapiere zusammenbauen kann. Somit muss niemand mehr erst umständlich ins ELO rein, suchen, ausdrucken, dem Auftrag zuordnen.
Kostet Zeit und somit Geld.
-
Hallo zusammen,
ich versuche mich an einem ObjCreate fürs ELO-DMS.
Spoiler anzeigen
Code
Alles anzeigen#include <array.au3> Global $uebergabe, $iRes Local $EloServer = ObjCreate("ELO.professional") $iResult = $EloServer.GetEntryID(-1) $iResult = $EloServer.login("Loginname", "werweißdenndasPasswort", "Archivname") $objectID = $EloServer.LookupIndex($sPfadPDOK) If $objectID = "12345" Then $EloServer.PrepareObject(-3, 0, 8) $EloServer.SetObjAttrib(2, $uebergabe) $iRet = $EloServer.DoSearchEx("", 1) $iRes =$EloServer.SearchListLineId(0) Else Endif
Bis hierhin kein Problem, da ich eine VBA-Vorlage hatte von einem Mitarbeiter der aber nicht mehr hier ist.
Meine Frage ziehlt jetzt eher darauf ab, kann man mit ObjCreate herausbekommen, welche "Befehle" alle zur Verfügung stehen? Bzw. wenn nicht mit ObjCreate, generell einen Befehl der das rauskitzelt?
-
Letztlich holt er sich doch seine eigene PDF runter?! Das es ein Script macht, sollte demnach zweitrangig sein, oder wie stellt Amazon fest, dass er ein Script nutzt, statt selbst drauf zu klicken?!
Sorry aber das ist für mich echt kleinkariert... entweder arbeitest du für den Laden oder du hast echt viel Zeit erst die AGBs der jeweiligen Seiten zu lesen und dann zu entscheiden, dass er gegen die Forenregeln verstößt. Bist du noch nie über eine rote Ampel gefahren? Darfste auch nicht, haste aber sicherlich schon mal gemacht
-
Ich hatte schon das Autoit Info-Tool genutzt, allerdings will er das Fenster, bzw. her die Buttons (glaube ich) nicht richtig erkennen?!
2018-09-06 15_49_07-Onlinebanking und Brokerage der Deutschen Bank - Internet Explorer.png
-
Moin Leute,
gibt es einen Trickt wie man PDF Dateien herunterladen kann?
Damit ist man in der Nachrichtenbox der Deutschen Bank... für alle dort enthaltenen Dokumente würde ich gerne die dahinterliegenden PDF-Dateien herunterladen. Der Link sieht wie oben aus... mit _IENavigate "öffnet" der IE den Link auch, jedoch kommt dann die lästige Frage nach dem "Öffnen, Speichern, Abbrechen".
Der INetGet bleibt völlig regungslos... muss ich nen Dateinamen angeben oder "erkennt" Autoit diesen eigentlich selbstständig?
Vielleicht ist ja ein Bonze unter euch der auch bei der DB ist?! Ansonsten bin ich für Tipps dankbar...
Spoiler anzeigen
C
Alles anzeigen#include <IE.au3> #include <array.au3> #include <InetConstants.au3> #include <MsgBoxConstants.au3> #include <WinAPIFiles.au3> $filepath = "D:\wasgeht\" Local $oIE = _IEAttach("Onlinebanking und Brokerage der Deutschen Bank") Local $oLinks = _IELinkGetCollection($oIE) For $oLink In $oLinks If StringInStr($oLink.href, "IResourceListener-kontoauszuege-kontoauszuege-filterForm") Then ConsoleWrite($oLink.href & @CRLF) $hDownload = InetGet($oLink.href, $filepath, 1, 1) ;~ _IENavigate($oIE, $oLink.href, 5) EndIf Next
-