FileExists gilt auch für Verzeichnisse.
Beiträge von blubbstar
-
-
Spoiler anzeigen
[autoit]#include <EditConstants.au3>
[/autoit]
GUICreate("...", 100, 70)
$slider = GUICtrlCreateSlider(10, 10, 80, 20)
$input = GUICtrlCreateInput("", 10, 40, 80, 20, $ES_NUMBER)
GUISetState()
While True
$msg = GUIGetMsg()
If $msg = -3 Then Exit
If $msg = $slider Then GUICtrlSetData($input, GUICtrlRead($slider))
If $msg = $input Then GUICtrlSetData($slider, GUICtrlRead($input))
WEnd -
Mit Autoit Window Info einfach in das EditFeld von Notepad drücken, dann siehste das. Du kannst auch Advanced (Class) verwenden oder auch die ID.
Advanced (Class): [CLASS:Edit; INSTANCE:1]
ID: 15 -
[autoit]
ControlSend("Neu Textdokument.txt - Editor", "", "Edit1", "xxxxx")
[/autoit] -
Naja, davon halt ich nichts. Kostet zu viel Ressourcen. Wie gesagt, in der Registry sind eigentlich alle Pfade irgendwo hinterlegt.
-
[autoit]
[autoit]#include <GuiConstants.au3>
[/autoit]
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Datei laden", 301, 89, 185, 188)
$Input1 = GUICtrlCreateInput("", 40, 32, 121, 21)
$Input2 = GUICtrlCreateInput("", 40, 60, 121, 21)
$Button1 = GUICtrlCreateButton("Durchsuchen", 176, 32, 75, 25, 0)
$Button2 = GUICtrlCreateButton("OK", 176, 60, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Form2)
ExitLoop
Case $Button1
$Datei = FileOpenDialog("Datei öffnen", @ScriptDir, 'Alle Dateien (*.*)')
If @error Then ContinueCase
GUICtrlSetData($Input1, StringLeft($Datei, StringInStr($Datei, '\', 0, -1)))
GUICtrlSetData($Input2, StringTrimLeft($Datei, StringInStr($Datei, '\', 0, -1)))
Case $Button2
EndSwitch
WEnd[/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]MsgBox(0, "", "hallo")
[/autoit][/autoit]
[autoit][autoit]
[/autoit][/autoit]
[autoit][autoit]While True
[/autoit]
Sleep(100)
WEnd[/autoit]
-
So würde es z.B. funktionieren:
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $sons[9], $sch[5], $ex[5], $zn[3]
$Form1 = GUICreate("Notenschnittberechner ", 622, 287, 190, 123)
$Group1 = GUICtrlCreateGroup("", 8, 24, 609, 233)
$Label1 = GUICtrlCreateLabel("Bitte einfach die enstsprechende Note in das Feld eintragen, falls keine Note vorhanden ist einfach Feld freilassen", 16, 32, 540, 17)
$Label2 = GUICtrlCreateLabel("1. Schulaufgabe", 11, 56, 82, 17)
$Label3 = GUICtrlCreateLabel("2. Schulaufgabe", 11, 81, 82, 17)
$Label4 = GUICtrlCreateLabel("3. Schulaufgabe", 11, 105, 82, 17)
$Label5 = GUICtrlCreateLabel("4. Schulaufgabe", 11, 129, 82, 17)
$sch[1] = GUICtrlCreateInput("", 104, 56, 41, 21)
$sch[2] = GUICtrlCreateInput("", 104, 80, 41, 21)
$sch[3] = GUICtrlCreateInput("", 104, 104, 41, 21)
$sch[4] = GUICtrlCreateInput("", 104, 128, 41, 21)
$Label7 = GUICtrlCreateLabel("1. Ex", 24, 152, 28, 17)
$ex[1] = GUICtrlCreateInput("", 104, 152, 41, 21)
$ex[2] = GUICtrlCreateInput("", 104, 176, 41, 21)
$ex[3] = GUICtrlCreateInput("", 104, 200, 41, 21)
$ex[4] = GUICtrlCreateInput("", 104, 224, 41, 21)
$Label8 = GUICtrlCreateLabel("2. Ex", 24, 176, 28, 17)
$Label9 = GUICtrlCreateLabel("3. Ex", 24, 200, 28, 17)
$Label10 = GUICtrlCreateLabel("4. Ex", 24, 224, 28, 17)
$Sonstige = GUICtrlCreateLabel("Sonstige:(zählt als mündliche Note!!!)", 184, 56, 178, 17)
$sons[1] = GUICtrlCreateInput("", 376, 56, 33, 21)
$sons[2] = GUICtrlCreateInput("", 424, 56, 33, 21)
$sons[3] = GUICtrlCreateInput("", 472, 56, 33, 21)
$sons[4] = GUICtrlCreateInput("", 520, 56, 33, 21)
$sons[5] = GUICtrlCreateInput("", 376, 88, 33, 21)
$sons[6] = GUICtrlCreateInput("", 424, 88, 33, 21)
$sons[7] = GUICtrlCreateInput("", 472, 88, 33, 21)
$sons[8] = GUICtrlCreateInput("", 520, 88, 33, 21)
$Group2 = GUICtrlCreateGroup("", 176, 128, 393, 113)
$Label11 = GUICtrlCreateLabel("Bitte gebe die Note ein, mit der dein neuer Schnitt berechnet werden soll", 184, 144, 345, 17)
$Label12 = GUICtrlCreateLabel("Schulaufgabe:", 184, 176, 73, 17)
$Label13 = GUICtrlCreateLabel("Ex:", 184, 208, 19, 17)
$zn[1] = GUICtrlCreateInput("", 272, 176, 49, 21) ;die neue Note bei Schulaufgabe
$zn[2] = GUICtrlCreateInput("", 272, 208, 49, 21) ; die neue note bei ex
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label6 = GUICtrlCreateLabel("Marcel Böhm", 40, 264, 127, 17)
$Generieren = GUICtrlCreateButton("Generieren", 480, 264, 97, 17, $WS_GROUP)
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Generieren
_ausrechnen()EndSelect
[/autoit] [autoit][/autoit] [autoit]
WEndFunc _ausrechnen()
[/autoit]
Local $sNotenAnzahl = 0, $sNotenGesamt = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahl += 2
$sNotenGesamt += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahl += 1
$sNotenGesamt += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahl += 1
$sNotenGesamt += GUICtrlRead($sons[$i])
EndIf
Next
If GUICtrlRead($zn[1]) <> "" Then
$sNotenAnzahl += 2
$sNotenGesamt += GUICtrlRead($zn[1]) * 2
EndIf
If GUICtrlRead($zn[2]) <> "" Then
$sNotenAnzahl += 1
$sNotenGesamt += GUICtrlRead($zn[2])
EndIf
MsgBox(0, "", $sNotenGesamt / $sNotenAnzahl)
EndFunc ;==>_ausrechnen -
Du darfst nicht einfach die Variablen benutzen wie deine Controls heißen, sondern du musst es mit GuiCtrlRead auslesen ;).
-
Start -> Ausführen -> regedit
-
Kommt drauf an was für Programme. Einige schreiben ihren Pfad auch in die Registry, da könntest du ihn auslesen.
-
$GUI_UNCHECKED
-
_Stringbetween gibt ein Array zurück
-
Zitat
Die User versuchen zu helfen, lesen Beiträge und "erkennen" einen Bot - verweisen auf die Regeln - teilweise zu unrecht?
Teilweise zu unrecht, da gebe ich dir Recht. Aber das ist kaum die Schuld eines Users/Moderators. Ich finde man sollte einfach solche Posts, die einem verdächtig erscheinen, ignorieren. Die Mods werden ihn schon closen. Und wenn jemand ein "botähnliches" Programm schreibt, dann ist er mMn. verpflichtet eine genaue Beschreibung seines Vorhabens vorzulegen.
-
SpamBots sind auch unerwünscht! Wobei ich mir fast sicher bin, das es wieder um einen Keylogger geht, wie gestern -_-
-
Habs zwar nur überflogen, aber das Tool macht lediglich einen Screenshot und liest keine Texte aus dem Bild. Sinn?
-
Spoiler anzeigen
[autoit]While True
[/autoit] [autoit][/autoit] [autoit]
$count = 0
$timer = TimerInit()
$pos = MouseGetPos()
While True
If TimerDiff($timer) >= 10000 Then
$count += 1
$timer = TimerInit()
$pos2 = MouseGetPos()
If $pos[0] <> $pos2[0] Or $pos[1] <> $pos2[1] Then ExitLoop
EndIf
If $count = 30 Then _blink()
Sleep(100)
WEnd
WEndFunc _blink()
[/autoit]
Send("{NUMLOCK off}")
Sleep(100)
Send("{CAPSLOCK on}")
Sleep(100)
Send("{NUMLOCK on}")
Sleep(100)
Send("{CAPSLOCK off}")
EndFunc ;==>_blink -
Die sub_main_1() muss aus der Funktion, zwei ineinander geht nicht. Aber wo liegt das Problem? Ist doch egal. Die Funktion wird nur benutzt wenn du sie aufrufst.
-
Das könnte dir weiterhelfen:
Prozeßvergleich -
-
Spoiler anzeigen
[autoit]Global $hGui, $sTitle
[/autoit] [autoit][/autoit] [autoit]$IniSections = IniReadSectionNames(@DesktopDir & "\Daten.ini")
[/autoit] [autoit][/autoit] [autoit]
Global $P[UBound($IniSections)]
For $i = 1 To UBound($IniSections) - 1
$P[$i] = IniRead(@DesktopDir & "\Daten.ini", $IniSections[$i], "Allgemein", "")
Next
;MsgBox (0,"123",$p1 &@CRLF& $p2 &@CRLF& $p3)_gui1("Installationsvorgang")
[/autoit] [autoit][/autoit] [autoit]
Func _gui1($sTitle)
$hGui = GUICreate($sTitle, 300, 500)
$height = 10
For $i = 1 To UBound($P) - 1
GUICtrlCreateLabel($P[$i], 5, $height)
$height += 20
NextGUISetState()
[/autoit]
While 1
$msg = GUIGetMsg()
Switch $msg
Case - 3
Exit
EndSwitch
WEnd
EndFunc ;==>_gui1