Beiträge von Carsten

Ja, schon, das ganze Programm ist allerdings sehr groß und ich suche 'nur' nach einem kleinen Befehl

Dies ist der Bereich, der bei Druck auf einen Knopf der Knopfleiste den passenden Listeneintrag in der oberen List-View heraussucht:

[autoit]

case $msg >= $bu_adr[1] and $msg <= $bu_adr[20]
$text2 = GUICtrlRead($msg)

for $i = 0 to _GUICtrlListViewGetItemCount($list_personal)
$ret = _GUICtrlListViewGetItemText ($list_personal,$i)
If ($ret <> $LV_ERR) Then
$text = StringLeft($ret,StringLen($text2))
if $text = $text2 then
MsgBox(0, "Selected Item", $ret) ; HIER WEITER
GUICtrlSetState ( $list_personal, $GUI_FOCUS )

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

EndIf
EndIf
Next

[/autoit]

Ich weiß nicht ob noch andere Teile Sinn machen?

Carsten

Hallo,
ich kenne zwar das Programm nicht, aber vielleicht gibt es einen Options-Schalter zum Programmaufruf der das Programm startet?

Bei Nero z.B. gibt es ein extra Programm mit vielen möglichen Startparametern. Damit habe ich meine DVD-Datensicherung hervorragend automatisiert.

Suche doch mal ob es so was nicht gibt
z.B. c:\programme\programm.exe /Startsofort
(ist natürlich nur ein erfundenes Beispiel

Grüße
Carsten

In einem AutoIt-List-View, also von mir erstellt.

Das mit dem Hot-Item habe ich auch gefunden, aber in dem Hilfe-Beispiel wird zwar der Status Hot-Item gesetzt, aber die Zeile wird nicht blau markiert.

Ich möchte per Software genau das gleiche erreichen, als wenn man mit der Maus draufklickt, d.h. die Zeile wird blau, aktiv und weil die Zeile aktiv wird, werden zusätzliche Infos in einer weiteren Tabelle angezeigt.

Ich habe meine Maske (etwas retuschiert aus Datenschutzgründen) beigefügt, damit wird vielleicht klarer was ich machen möchte.

Die Knopf-Leiste links wird erstellt aus den Kurzzeichen der Namen, die in der oberen List-View stehen. Wenn ich auf einen Knopf drücke wird oben der entsprechende Eintrag ausgewählt. Im Grunde geht es mir hier um eine zweite Auswahlmöglichkeit, die schneller ist als die Listenauswahl, wenn man man die Kürzel der Person kennt. Ein Verzicht auf die Liste ist aber nicht sinnvoll, da man sonst evtl. nicht erkennen kann wer hinter dem Kürzel steht.

Ich bin nun mal ein Freund von verschiedenen Wegen nach Rom, da jeder Mensch eine andere Arbeitsweise hat und sich so seinen passenden Weg raussuchen kann

Vielen Dank
Viele Grüße
Carsten

Hallo,

ich glaube ich steh gerade auf dem Schlauch, aber ich finde nirgends, wie ich eine Zeile in einem ListView aktivieren kann (d.h. also das sie bei mir 'blau' wird).

Also ich meine NICHT mit der Maus draufklicken

Ich durchsuche eine ListView und wenn die passende Zeile gefunden ist, soll sie aktiviert werden.

Vielen Dank
viele Grüße
Carsten

Vielen Dank für die Infos.

Ich möchte die Daten in der Datenbank verschlüsselt speichern.

Wenn ich die Daten jedoch mit autoit verschlüssele und in die Datenbank speichere, so kann ich logischerweise die Funktionen der Datenbank (Suchen, auswahl) nicht mehr verwenden.

Sinnvoll wäre also eine Funktion der Datenbank. Ich habe das hier gefunden:
http://sqlite.biz/index.php?area=Main&page=DBcTutorial

Auszug:

Spoiler anzeigen

<?php

// Quick DB_Sqlite_Tools DBC Database encryption/description functionality tutorial
// inserting and retriving crypted data

require_once 'DB/Sqlite/Tools.php';

$db = new DB_Sqlite_Tools_DBC;
$db->debug = true;
$db->liteConnect ('clown.sqlite');
$db->key = 'gurugeek';

$sql = "SELECT * FROM matrix ORDER BY RANDOM();"; // query used on liteAutoFetch
$sql2 = "SELECT * FROM matrix"; // query used on liteAll
$db->liteAutoFetch($sql,true); // fetching and decrypting
echo '<BR> fetching a single result, is decrypted on the fly <BR>';
echo $db->result->clown."<BR>";
echo $db->result->circus."<BR>";

$db->liteAll ($sql2,true); // fetching all the results and decrypting

foreach ($db->result as $rid => $row) {
print $rid."<br>\n";
print $row->clown;
print $row->circus;
}

// updating record 8
$fields = array ('clown','circus');
$values = array ('2387123128324903420983','mastercard');
$db->liteAutoExec ('matrix',$fields,$values,DB_Sqlite_Tools_DBC::DB_AUTOQUERY_UPDATE, true, 'id=8');

//inserting a new record
$fields = array ('clown','circus');
$values = array (date ("U"),'amex');
$db->liteAutoExec ('matrix',$fields,$values,DB_Sqlite_Tools_DBC::DB_AUTOQUERY_INSERT);

Ich habe aber nicht verstanden, ob das nur den Übertragungsweg verschlüsselt oder die Daten in der Datenbank
und
meine Frage ist ob man das in AutoIt umsetzen kann - nee - meine Frage ist wie setzt man das in AutoIt um....?

Vielen Dank,
viele Grüße
Carsten

Hallo zusammen,

das gehört zwar nicht direkt hier her, da SQLite aber doch häufiger mit AutoIt verwendet wird, ist diese Frage hier vielleicht doch ganz sinnvoll....
(Ich habe jedenfalls auf der englischen SQLite-Homepage nichts gefunden).

Da ich mich in die Verbindung AutoIt - SQLite einarbeiten möchte, habe ich mir (wie hier im Forum empfohlen) die Bibliothek von Tralala angeschaut. Doch wenn ich die DB-Datei in den Scite-Editor ziehe, kann ich viele Titel einfach so lesen. Das ist mir für mein Projekt zu unsicher.

Gibt es innerhalb SQLite eine Möglichkeit oder muss ich die AutoIt-Verschlüsselung verwenden?

Vielen Dank,
viele Grüße

Carsten

Hallo Mega,

vielleicht habe ich eine Erweiterungsidee, aber noch habe ich die Funktion nicht ganz verstanden, allerdings auch noch nichts ausprobiert (nur hier gelesen).

Also hiermit kann ich jedes beliebige Programm (exe) so schützen, dass es nur mit Passwort nutzbar ist????

Ginge das dann auch mit PDF, DOC, ect. - Dateien?

Wenn ich mich im WIN-Netzwerk einlogge, habe ich Rechte auf Verzeichnisse, welche vertraulich sind und ich nicht täglich benötige.

Um den fremden Zugriffsschutz zu erhöhen, müsste ich
* mich beim Verlassen ausloggen, Screensaver-Schutz oder Tastaturblocker verwenden.
* mir 2 Logins mit unterschiedlichen Rechten geben
* innerhalb des WIN-Logins nochmals einen geschützen Bereich einrichten, für den ich ein zweites Passwort benötige.

Die letzte Möglichkeit finde ich die angenehmste und akzeptabelste und die habe ich mit 'Guardian Of Data' auch schon teilweise umgesetzt. Nachteil: Entschlüsseln vor Nutzung, Nutzung, Verschlüsseln nach Nutzung.

Könnte Dein Tool hierfür eine weitere (bessere) Lösung darstellen?

Viele Grüsse
Carsten

Also ich könnte es mir so vorstellen:

[autoit]

;schnelles Skript von Carsten
; nur oberflächlich getestet.....

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

#region --- GuiBuilder code Start ---
; Script generated by AutoBuilder 0.6 Prototype

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

#include <GuiConstants.au3>
#include <GuiListView.au3>

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

dim $zeitstempel

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

$inidatei = "c:\temp\test.ini"

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

GuiCreate("MyGUI", 392, 323,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

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

$List_1 = GuiCtrlCreateListview("Zeit,Name|Text", 20, 30, 350, 214)
$Input_2 = GuiCtrlCreateInput("", 50, 260, 80, 20)
$Input_3 = GuiCtrlCreateInput("", 50, 290, 280, 20)
$Label_4 = GuiCtrlCreateLabel("Name", 10, 260, 40, 20)
$Label_5 = GuiCtrlCreateLabel("Text", 10, 290, 40, 20)
$Button_6 = GuiCtrlCreateButton("Speichern", 340, 280, 50, 30)

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

GuiSetState()

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

$zeitstempel = TimerInit()
up_anzeige()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
case $msg = $Button_6
IniWrite($inidatei,"Zeilen",@HOUR&":"&@MIN&":"&@SEC&"_"&GUICtrlRead($input_2),GUICtrlRead($Input_3))
;GUICtrlSetData($input_2,"") ; Name nicht leeren
GUICtrlSetData($input_3,"")
up_anzeige()

Case Else
; alle 10 sec aktualieren
if TimerDiff($zeitstempel) > 10*1000 Then
up_anzeige()
EndIf
;;;
EndSelect
WEnd
Exit
#endregion --- GuiBuilder generated code End ---

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

func up_anzeige()
$array = IniReadSection($inidatei,"Zeilen")
; bisherige Einträge löschen, geht so vermutlich nur mit BETA
_GUICtrlListViewDeleteAllItems($List_1)

; alle Einträge anzeigen
for $i = 1 to $array[0][0]
GUICtrlCreateListViewItem($array[$i][0]&"|"&$array[$i][1],$List_1)
Next
$zeitstempel = TimerInit()

EndFunc

[/autoit]

Aber es ist schnell entstanden und es wären noch einige Zusatzfunktionen notwendig

* automatisches löschen aller 'alten' Einträge in der INI-Datei, d.h. nur ca. 10-20 Einträge werden gespeichert
* Spaltenbreite vergrößern
* Namen in unterschiedlichen Farben anzeigen
* usw.

Soll ja auch nur ein Anfang sein.

Carsten

muh_kuh: vielen dank - da sind 2 erfolgsversprechende Möglichkeiten dabei.

Doch bei beiden habe ich ein weiteres Problem: dll in Autoit

Da kenne ich mich gar nicht aus. Ich habe mir die AutoIt-Anleitung und andere Skript-Beispiele angeschaut. Aber ich glaube dazu fehlt mir das grundlegende Verständnis.

Mir das anzueignen ist mir - ehrlich gesagt - zu aufwändig. Ich möchte kleine Hilfsprogramme machen, die den täglichen Ablauf bei uns im Büro verbessern, aber ich will kein Programmierer werden......

Deshalb meine Frage / Bitte: Wie setze ich diesen Hinweis in AutoIt um?

Description
Opens the Game Controllers control panel applet up to the General section.
In Windows 2000, you may add ',,1' to open to the Advanced Tab.
In Windows ME, ',,1' to open up to the Controllers ID tab,
and ',,2' to open to the Voice Chat tab (if installed)

Syntax
RunDll32.exe shell32.dll,Control_RunDLL joy.cpl

Den Anfang in Autoit habe ich schon - aber wie geht es weiter?

[autoit]

$result = DllCall("shell32.dll", "int", "Control_RunDLL", "type-1", "param-1")

[/autoit]

Vielen Dank
viele Grüße
Carsten

Hallo,
kann mir jemand sagen wie ich das mit AutoIt realisieren kann? Das erinnert mich an meine Anfangsversuche am PC mit Assembler-Programmierung - so vor ca. 100 Jahren (?!? - fast) ..

Spoiler anzeigen

Ausgestattet sind PC-Joysticks mit zwei Tasten, die getrennt abgefragt werden können. ..... Für die Abfrage von Joysticks werden keine Software-Treiber benötigt, denn sowohl Hardware- als auch Software-Schnittstelle sind bereits beim Ur-PC definiert worden. Auf Hardware-Seite sind die Ports 200h bis 20Fh für die Joystick-Karte reserviert. Auf diese Ports, die standardisiert belegt sind, greift das BIOS zur Abfrage zurück.

Position und Tastenstatus ermitteln
Das BIOS stellt in der Funktion 84h des Interrupts 15h zwei Unterfunktionen 00h und 01h zur Verfügung, mit denen die Joysticks abgefragt werden können. Die Positionsabfrage erfolgt über die Unterfunktion 01h, bei deren Aufruf die Funktionsnummer 84h im AH-Register und die Unterfunktionsnummer 01h im DX-Refister präsent sein muß. danach enthält das CARRY-Flag ein LOW, wenn diese Funktion vom vorhandenen BIOS unterstützt wird, und in den Registern AX und BX bzw. CX und DX stehen die Werte der X-Achse und Y-Achse für Joystick 1 bzw. Joystick 2. Sind diese Werte Null, so ist kein Joystick angeschlossen. Werte ungleich Null repräsentieren jeweils die Stellung des Joysticks bzgl. der entsprechenden Achse. ..... Über die Unterfunktion 00h läßt sich der Tastenstatus abfragen. Auch dies muß ständig passieren, damit jeder Tastendruck durch den Anwender vom Programm registriert wird. Das AL-Register enth„lt nach dem Funktionsaufruf den Tastenstatus: .....

Auszug von:
http://www.tu-chemnitz.de/informatik/RA/…r/joystick.html

Vielen Dank
Carsten

Hallo,

ich nutze für Internet-Telefonie auch das GMX Netphone. Damit telefoniert man komplett über den PC und DSL auf jede Rufnummer (zu unterschiedlichen Preisen).

Das Netphone kostet mich nichts, aber ich hatte schon einen GMX-Account (der glaube ich was kostet...)

Ich denke das Netphone könnte man mit Autoit zum 'anklingeln' bekommen.
Vielleicht gibt es auch eine Alternative (z.B. wie bereites erwähnt: Skype).

Eine andere Möglichkeit wäre ein SMS-Versand. Ich habe mit AutoIt eine optimiertere Eingabemaske über ein Offline-SMS-Versand-Programm gelegt, d.h. eine automatischer Versand wäre mit AutoIt auch möglich. Aber das habe ich im Büro und jetzt nicht im Zugriff. Allerdings fallen hier bis zu 8,5 Cent pro SMS an. Hierzu kann ich dir morgen gerne weitere Infos liefern.

Carsten

Hallo,

hoffentlich erscheine ich jetzt nicht zu kleinlich....... aber das ist mir eben aufgefallen........

Func _cal_open_net()
$preset = GetGenOpt("Last", "Online_Cal_URL", "")
$url = InputBox("Webadresse des Kalenders", "Bitte geben Sie das Verzeichnis im Internet an, auf dem der Kalender und sein Einstellungsdatei liegen:", $preset)

SEINE Einstellungsdatei
oder
Kalender und Einstellungsdatei

Und das Fenster 'Export' / 'Export läuft. Bitte warten...' geht nicht mehr weg. Ich wollte drucken und habe dann aber abgebrochen - das Fenster bleibt und bleibt und bleibt.

Aber es ist wirklich beeindruckend was man mit AutoIt alles machen kann.

Carsten

Hallo,

ich kann mein Skript schon posten - aber ich habe noch keins

Es geht mir hier um die grundsätzliche Möglichkeit, die auf dem Bildschirm ordentlichen Listen auch auf einen Drucker auszugeben.

Aktuell hätte ich z.B. eine Aufgabenliste, welche ich momentan per Bildschirmausdruck auf den Drucker schicke. Aber ich würde das schon gerne universell, d.h. variabel aufbauen.

Dabei muss der Ausdruck auch nicht direkt erfolgen, sondern evtl. genügt die Dateierstellung in einem bestimmten Format und der Ausdruck (Druckerauswahl, Einstellungen) erfolgt dann über eine weitere Software.

Ich habe so was schon mal für ein DOS-Programm gemacht, um eine aufwändig gestaltete Preisliste auf einen Laserdrucker ausgeben zu können. Damals habe ich mit dem RTF-Format und WinWord gearbeitet. Das ist mir für eine einfache Liste im AutoIt aber zu aufwändig.

Vielleicht wäre HTML + IE hier besser - aber in HTML kenne ich mich nicht richtig aus.

Vielen Dank
viele Grüße
Carsten

Oh ist das schön wenn man verstanden wird

Ja, ich will eine GUI-Liste, die auf dem Bildschirm ja ganz ordentlich aussieht auf dem Drucker ausgeben.

Viele Grüße
Carsten

Hallo,

bevor ich mir hier einen abbreche mit dem Umsetzen eines Listendrucks auf einen Drucker, frage ich mal lieber in die Runde ob schon jemand Erfahrung hat wie man das am besten löst.

Ich würde in die Richtung "Erstellung einer HTML-Datei" gehen und diese dann auf den Drucker schicken, obwohl ich keine Ahnung von HTML-Programmierung habe.

Oder gibt es schon eine eingebaute Funktion (vielleicht in der Beta??)

Vielen Dank
viele Grüße
Carsten

Hallo,

dank dieses Projektes habe ich mich nochmals daran gemacht, den 'MIMlock98.exe-PC-Abschliesser' als Bildschirmschoner zu verwenden.

Dieses Programm blockiert mit einem Fenster alle Eingaben (siehe Anlage). Ich nutze es schon lange, allerdings mit direktem Aufruf wenn ich den PC für längere Zeit verlasse.

Eine Automatik wäre schön, und deshalb habe ich das Programm schon mal in SCR umbenannt und als Bildschirmschoner verwendet. Doch da hatte ich dann plötzlich viele viele viele Passwörter einzugeben bis ich den PC wieder frei hatte, da das Programm mehrfach gestartet wurde ......

Nun gut, jedenfalls habe ich mir aus diesem Forum hier einen Bildschirmschoner zusammengebastelt, der auch etwas kleiner wurde als oben. Doch mit MIMlock98 gemeinsam klappt das nicht so ganz (Blockt etwas zu viel). Damit meine Programmiermühe nicht ganz umsonst war und es vielelicht jemandem anderen Nutzen bringt, kommen hier meine Programmierzeilen zu diesem Thema:

[autoit]

;Opt("TrayIconHide", 1) ; Ich stehe zu AutoIt
;HotKeySet ("{esc}", "Ende") ; für was das hier? - jede Taste beendet Programm......

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

; Bildschirm langsam dunkler werdend.... Idee von gtaspider aus AutoIt-Forum
; geht aber nur mit 2000/XP aufwärts...
$gui = GUICreate("",@DesktopWidth+5,@DesktopHeight+5,-5,-5,0x80000000,0x00000080)
GUISetBkColor(0x0)
for $i = 1 to 255 step 5
WinSetTrans($gui,"",$i)
GUISetState()
Next

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

; Nächste Zeile ist eine nicht elegante Problemlösung:
Msgbox(4096,"Bildschirmschoner","startet jetzt",1) ; verschwindet alleine nach 1 sec.
; Bei mir beendet sich der Schoner manchmal gleich wieder, d.h. ohne eine Taste gedrückt zu haben.
; Ich vermute, dass der Tastaturspeicher noch nicht leer war oder so....
; Aber mit o.g. MsgBox war das Problem bei mir gelöst - vielleicht gibt es auch
; noch eine elegantere Lösung.

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

ToolTip("Bildschirmschoner ist aktiv") ; Geschmackssache

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

$maus = MouseGetPos() ;wo ist die Maus
While 1
Sleep(500)
$maus2=MouseGetPos()
If $maus[0]<>$maus2[0] then MyExit("MAUS")
if $maus[1]<>$maus2[1] then MyExit("MAUS")

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

; Alle Tasten werden abgefragt, daher einfach mit Schleife
for $i = 8 to 249
if _IsPressed(hex($i,4)) then MyExit($i)
Next

Wend

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

Func _IsPressed($hexKey)
Local $aR
$hexKey = '0x' & $hexKey
$aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)
Return Abs($aR[0]<>0)
EndFunc

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

Func MyExit($text)
msgbox(4096,"Bildschirmschoner","Beendet aufgrund: "&$text,3) ; für Testzwecke welche Taste gedrückt wird.
Exit
EndFunc

[/autoit]

Viele Grüße
Carsten

Über https://autoit.de/www.wer-weiss-was.de habe ich den Tipp einen Schalter an den Gameport anzuschließen (den braucht eh keiner.....).

Kann ich diesen Port über AutoIt ansteuern?

Sehr gut - funktioniert.

Eigentlich einfach - wenn man weiß wie es geht

Vielen Dank.

> ;By GtaSpider (die rechte schenk ich dir aber d.h.: du musst nicht By GtaSpider rüberschreiben!)

Ich schreibe dafür 'Mit hilfreicher Unterstützug von GtaSpider

Schönes
Wochenende
Carsten

Das Problem mit AntiVir habe ich auch - die haben sogar vor kurzem SpamPal als Virus erkannt...... Kommt leider immer mal wieder vor, ansonsten bin ich aber damit zufrieden.

Da hilft wohl nur aussitzen oder ausschließen aus Suchlauf oder ausgeben einer Nachricht an Antivir.

Viele Grüße
Carsten

Hallo,

ich komme einfach nicht dahinter was ich falsch mache. Weder die Hilfe-Beispiele noch das sehr großzügige Script "TCP File Transfer mit automatischem Start" von gtaspider helfen mir auf die Sprünge.

Warum kann ich hiermit nicht eine stinknormale Textzeile von einem PC zum andern übertragen (Testweise bleibe ich mit der gleichen IP auf dem selben PC)

TCP_Listen (= Server)

[autoit]

;SERVER!! Start Me First !!!!!!!!!!!!!!!

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

$g_IP = @IPAddress1
$TCP_PORT = 65432

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

msgbox(4096,"test",@IPAddress1)

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

TCPStartUp() ; Start The TCP Services

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

$MainSocket = TCPListen($g_IP, $TCP_PORT, 100) ; Create a Listening "SOCKET"
If $MainSocket = -1 Then
msgbox(4096,"test","Ende 01")
Exit
EndIf

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

While 1
$ConnectedSocket = TCPAccept( $MainSocket) ; look for client connection
If $ConnectedSocket >= 0 Then
msgbox(0,"","my server - Client Connected")
ExitLoop
EndIf
Wend

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

$text = TCPRecv($nSocketRecv, 2048)

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

msgbox(4096,"test","Ende 02"&$text)

[/autoit]

TCP_Connect (=Client)

[autoit]

;CLIENT!!!!!!!! Start SERVER First... dummy!!
$g_IP = @IPAddress1
$TCP_PORT = 65432

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

TCPStartUp() ; Start The TCP Services

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

$MainSocket = TCPListen($g_IP, $TCP_PORT, 100 ) ; Connect to a Listening "SOCKET"
If $MainSocket = -1 Then msgbox(4096,"Fehler", " Windows API WSAGetLasterror Nr. "&@error )

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

$x = TCPSend($Mainsocket, "test test test3")
If @error Then ExitLoop

[/autoit]

Vielen Dank
Viele Grüße
Carsten