Beiträge von gmmg

hier mal ein kleines Beispiel! hoffe das ist vollständig

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


	$GUI_Bosys = GUICreate("test", 246, 120, 80, 220)
	GUISetBkColor(0xC0C0B2)
	;GUICtrlSetBkColor(-1,0x66CC00)
	$Button2 = GUICtrlCreateButton("Support", 144, 16, 73, 25)
	;GUICtrlSetBkColor(-1,0xff4D00)
	$Checkbox1 = GUICtrlCreateCheckbox("1", 80, 60, 80, 25)
	$Checkbox2 = GUICtrlCreateCheckbox("2", 80, 80, 150, 25)


	GUISetState(@SW_SHOW)


	While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				GUIDelete($GUI_Bosys)
				ExitLoop


			Case $Button2



				If _IsChecked($Checkbox1) Then
					;MsgBox(0, "", "The checkbox is checked.", 0, $Form1)

				Else
					;MsgBox(0, "", "The checkbox is not checked.", 0, $Form1)
					If _IsChecked($Checkbox2) Then
					;MsgBox(0, "", "The checkbox is checked.", 0, $Form1)

					EndIf
				EndIf
			Case $Checkbox1
				If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
					;MsgBox(0,"", "häckchen drin")
					GUICtrlSetState($Checkbox2, $GUI_UNCHECKED)
				Else
					;MsgBox(0,"", "häckchen draußen")
				EndIf
				;If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then MsgBox(0,"", $Checkbox2)
			Case $Checkbox2
				If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
					GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
					;MsgBox(0,"", "häckchen drin")
				Else
					;MsgBox(0,"", "häckchen draußen")
				EndIf
		EndSwitch
	WEnd




Func _CheckState($iState)
	Switch $iState
		Case $BST_CHECKED
			Return 1;"Button is checked."
		Case $BST_INDETERMINATE
			Return "Button is grayed, indicating an indeterminate state (applies only if the button has the $BS_3STATE or $BS_AUTO3STATE style)."
		Case $BST_UNCHECKED
			Return 0;"Button is cleared"
	EndSwitch
EndFunc   ;==>_ExplainCheckState

Ich mach das immer so (auszug aus dem script), habe aber festgestellt, dass es mit IE 11 probleme gibt, das select value zu setzen!
Hier hat nur das Setzen des Kompatibilitätsmodus für diese Seite geholfen.

Mit dem Namen soltle das entsprechend auch funktionieren.

oForm = _IEFormGetObjByName ($oIE, "login_form")
$oSelect = _IEFormElementGetObjByName ($oForm, "project")
_IEFormElementSetValue ($oSelect, "31")
Sleep(1000)
$oSubmit = _IEGetObjByName($oIE, "Submit")

Gruß gmmg

dann sollte das so passen!

da kannst du theoretisch aber auch nur die MSGBox machen ohne if.
MsgBox(0,"","Inhalt: " & GUICtrlRead($input1) & " - " & GUICtrlRead($input2))

liest dann beide Felder aus und gibt dir den Inhalt zurück.

gruß gmmg

bei mir ist das auch so wie es BananaJoe schreibt!
was willst du denn erreichen? vielleicht hast du einen denkfehler.
was soll für eine meldung kommen, wenn nur ein feld gefüllt ist? soll dann kommen, bitte alle felder ausfüllen oder so?
prinzipiell kannst du ja 3 zustände haben.

1. alle felder leer
2. eines der beiden felder leer
3. alle felder gefüllt

und diese zustände musst du alle prüfen.

gruß gmmg

hallo,

ich würde die pdf dateien erstmal in ein array einlesen und die daraus verarbeiten, zweitens definierst du einmal die variable $source und eine weitere $sP1, welche beide auf $source = "G:\LSScan\" verweisen.
Dann machst du in der schleife jedesmal ein dircreate, das kannst du auch so lösen IF Not FileExists ($source) Then DirCreate($source) und das gehört außerhalb der while schleife, weil du das ja nur einmal bei start prüfen musst

Ist das der Fehler ... RunWait('"' & $program & '\SumatraPDF.exe" -print-to '& $P1 &' -silent -exit-when-done "' & $sP1 & '\' & $pdffile & '"')

hier setzt du einen backslash [done "' & $sP1 & '\' & $pdffile & '"')] obwohl deine $source = "G:\LSScan\" diesen schon am ende des Pfades besitzt

eventuell ist das dein Problem.

Gruß gmmg

hier auch mal ein Beispiel

#include <sql_udf.au3>

$string = ""$wert = ""_sql_read_data()
$string = StringSplit($string, "|")
MsgBox(0,"", $string[1])

Func _sql_read_data()
$sserver = "SQLServer" $susername = "User" $spassword = "Pass"
$sdatabase = "Datenbank"
$sql = _sqlcon($sserver, $susername, $spassword, $sdatabase)
$query = "SELECT * FROM Tabelle WHERE(Feldxy = 23046) ORDER BY DATUM DESC"
$var = _sqlquery($sql, $query)
With $var While NOT .eof
$wert = .fields("Feldxy").value .movenext
$string &= StringStripWS($wert, & "|"
WEnd
EndWith
_sqlend($sql)
EndFunc

Gruß gmmg

schau doch mal in die _OL_ItemCreate.au3. da sind mehrer Beispiele drin, z.B. folgendes Example 4

hier wird der betreff übergeben und im weiteren verlauf noch ein Anhang angefügt.

Das musst du theoretisch nur in eine Schleife packen und die Vorlagen erstellen lassen

; Example 4
; Create a html mail plus two attachments (plus one inline picture = attachment)
; but don't send it
; *****************************************************************************
; Create the item without setting the body. We first need to add the picture before we can refer to in by the HTML body.
$oItem = _OL_ItemCreate($oOutlook, $olMailItem, "*\Outlook-UDF-Test\TargetFolder\Mail", "", "Subject=TestMail", "BodyFormat=" & $olFormatHTML)
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemCreate Example Script", "Error creating a mail in folder 'Outlook-UDF-Test\TargetFolder\Mail'. @error = " & @error & ", @extended = " & @extended)
; Add all attachments
$oItem = _OL_ItemAttachmentAdd($oOutlook, $oItem, Default, @ScriptDir & "\The_Outlook.jpg", @ScriptDir & "\_OL_ItemCopy.au3, 4", @ScriptDir & "\_OL_Foldertree.au3")
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemCreate Example Script", "Error adding an attachment to a mail in folder 'Outlook-UDF-Test\TargetFolder\Mail'. @error = " & @error & ", @extended = " & @extended)
; Modify the item to add HTML that refers to the picture
$oItem = _OL_ItemModify($oOutlook, $oItem, Default, "HTMLBody=Bodytext in <b>bold</b><img src='cid:The_Outlook.jpg'>Embedded image.")
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemCreate Example Script", "Error modifying the item in folder 'Outlook-UDF-Test\TargetFolder\Mail'. @error = " & @error & ", @extended = " & @extended)
$oItem.Display
MsgBox(64, "OutlookEX UDF: _OL_ItemCreate Example Script", "Mail with inline picture created.")

Gruß gmmg

so ging es mir auch mit dem Excel

habe meine die Scripte abgeändert.
Hier mal ein Beispiel zum auslesen einen Excel Sheet ins ein Array

; excel auslesen

$sFilePath = "d:\"

Local $oExcelapp = _Excel_Open(0,0,1,1,1)
Local $oExcel = _Excel_BookOpen($oExcelapp, $sFilePath & $sFile)

If @error = 1 Then
MsgBox(0, "Error!", "Unable to Create the Excel Object")
Exit
ElseIf @error = 2 Then
MsgBox(0, "Error!", "File does not exist - Shame on you!")
Exit
EndIf

Local $aArray = _Excel_RangeRead($oExcel,Default,Default)
_ArrayDisplay($aArray, "Array using Default Parameters")

_Excel_BookClose($oExcel, False)
_Excel_Close($oExcelapp, Default, True)

Gruß gmmg

hallo,
du hast in deinem Script öfters ein _WinWaitActivate($pfad_programm,""), daher wartet dein Skript, bis dein Programm aktiv ist.
Baue hier dochmal anstatt diesem, das WinActivate ( "title" [, "text"] ) ein. Eventuell ist da sonst ein anderes aktiv.

If WinExists ($pfad_programm, "" ) Then ; prüfen ob Wawi geladen, durch fensterabfrage, dann fenster in den vordergrund holen.
;_WinWaitActivate($pfad_programm,"")
WinActivate ( "dein Programm")
;$FensterTitle = WinGetTitle("") ; hier einlesen Fenstertitel um den für den späteren abgleich zu haben. Wird, da eigentlich siinnlos auskommentiert
EndIf

Gruß gmmg

bitte
musst halt mal schauen, was in der Richtung eventuell noch zu finden ist.

gruß gmmg

eventuell hilft dir das weiter bzw. wäre das die Richtung zum suchen ...

"How to detect headphones plug unplug through audio jack"

https://social.msdn.microsoft.com/Forums/vstudio…m=csharpgeneral

Gruß gmmg

in deinem anfangspost schreibst du ja, du hast es als zip versucht!
hast du da auch ein passwort vergeben? wenn nicht, teste es damit mal.
ansonsten mal avast abschalten und testen

gruß gmmg

@manske
die exe im Antivierenprogramm vertrauenswürdig machen! weiß nicht ob man das im Avast auch einstellen kann

gruß gmmg

schau dir die seite http://www.selfadsi.de/user-attributes-w2k3.htm an!

hier gab es das auch schon

Active Directory Funktionen - Neue Version 1.4.1.1 (Bug Fixes) freigegeben! (post 330)

gruß gmmg

man kann das entsprechende Fenster vorher abfragen ggf. aktivieren und sollte bei einer automatischen Installation nicht unbedingt andere Programme laufen lassen, um solche fehler zu vermeiden

gruß gmmg

probiere doch auch mal mit folgenden Befehlen zu arbeiten!

Send("{TAB}") um den entsprechende Button auszuwählen und mit Send("{ENTER}") zu bestätigen.

Beispiele...

Run (@ScriptDir & "\TEMP\setup.exe")

$a = WinWait("Installation")
;MsgBox(0,"",$a)
Sleep (2000)
;Send("{ENTER}")
Send("!W")

$b = WinWait("Installation", "Komponenten")
;MsgBox(0,"",$b)
Send("{ENTER}")

Gruß gmmg

@AspirinJunkie
das wurde von mir auch nicht so aufgefasst! Ich denke wir verstehen uns da blind
Ich wollte dem Thread Ersteller aber auch aufzeigen, was er für Möglichkeiten hat. Wir kennen ja nicht seinen Einsatzbereich.

Gruß gmmg

@AspirinJunkie
Ich betreue Zufällig einige MySQL / MS SQL Server in meiner täglichen Arbeit und da laufen auch einige Autoit MySQL Scripte aktiv. Aus Erfahrung sage ich, dass die ODBC Variante in bestimmten konstellationen Probleme macht und zum zweiten ist für die ODBC Variante immer eine Install des entsprechenden Treibers nötig.

Zum Beispiel haben wir ein Auswertungstool für alle User (ca. 300) im Einsatz, welches entsprechende Daten in eine MySQL DB schreibt. Praktisch heißt das bei Nutzung über ODBC, ich müsste auf alle PC's den ODBC Treiber ausrollen, auch wenn das per Rollout geschiet ist das jede Menge arbeit!

Diese kann man sich sparen, wenn man einfach die andere UDF nimmt.

@Heavy
poste doch mal dein komplettes script mit aktuellem Stand und benutze die Autoit Tags

Gruß gmmg

@AspirinJunkie

bei der MySQL UDF von Prog@Andy wird die libmysql.dll bzw. libmysql_x64.dll benötigt!
http://progandy.de/downloads/view…mysql-udfs.html

Ich lege die immer ins Scriptverzeichnis! Beispiele sollten da in der udf sein!

Gruß gmmg

so hab ich das mal mit einer zweiten gui gemacht

;.............
while ... ; schleife im hauptteil
case button ; zweite gui
dummy()
wend
;..........
Func dummy() ; zweite gui

$popup_gui1 = GUICreate("Vorschau ...", 800, 600, 10, 10)
GUICtrlCreateEdit(" Test" , 10, 10, 700, 500)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then
GUIDelete($popup_gui1)
ExitLoop
EndIf

WEnd
EndFunc ;==>dummy

gruß gmmg