In Firefox kannst du bei den Einstellungen im Tab "Datenschutz" einstellen welche Cookies du immer bzw. nie annehmen willst und die Liste einsehen, wo du sie löschen und auch exportieren kannst, Außerdem würde ich das Add-On "CookieSafe" empfehlen, dieses zeigt jedes mal eine Meldung an, wenn eine Website einen Cookie setzen will, und ermöglicht kompfortableren Zugang zu den genannten Funktionen.
Beiträge von Fast2
-
-
@jendrik: Ich glaube du suchst Assign()
[autoit]Dim $Var1 = "abc", $Var2
[/autoit]
Assign($Var2, $Var1 & "j")
MsgBox(0, "Ergebnis", $Var2
Edit: Mist da war jemand schneller
PS: BugFix : Machs doch einfach so:Spoiler anzeigen
[autoit]Dim $var0 = "abc"
[/autoit]
For $i = 1 To 9
Assign('var' & $i, Eval("var" & $i -1) & "j ")
ConsoleWrite("var" & $i & " = " & Eval("var" & $i) & @CRLF)
Nex -
@Xeno: In Zeile 12 ist ein Semikolon mitten drin.
Edit: Sry, hab gedacht das die runde Klammer rechts auskommentiert wäre. (was kann man statt "runde Klammer rechts" schreiben?) -
@Joe: Ich habs genau so wie in der Hilfe bei Inhalt und dort bei User Definied Functions unter User Definied Function Notes angegeben!
-
So, ich habe hier eine kleine eigene Funktion die aus einer von progandy entstanden ist.
Code
[autoit]#include-once
[/autoit]
#include <Winapi.au3>
;===============================================================================
;
; Function Name: _Win_SetTransEx($Title, [$Text, [$Transparency, [$NoClick]]])
; Description:: Makes a window transparent and/or not to recieve mouse clicks(so that you can click through)
; Parameter(s): $Title -> Title or hWnd of Window
; $Text [Optional] -> Text in Window
; $NoClick [Optional] -> 0(default): Window will still register mouse input; 1: Mouse input will pass; 2: The window will be clickable and intransparent again($Transparency will be ignored)
; Requirement(s): <WINApi.au3>
; Return Value(s): Success: 1, Error: 0 and @error
; @error Values: 1 -> Window does not exist
; 2 -> Error in Setting the Styles
; Author(s): Prog@ndy (most of code) and Fast2 (some changes)
;
;===============================================================================
;
Func _WinSetTransEx($Title, $Text = "", $Transparency = 220, $NoClick = 0)
Local $hWnd = WinGetHandle($Title, $Text)
If @Error Then Return SetError(1, 0, 0)
Switch $NoClick
Case 0
WinSetTrans($hWnd, "", $Transparency)
If @Error Then Return SetError(2, 0, 0)
Case 1
_WinAPI_SetWindowLong($hWnd, $GWL_EXSTYLE, BitOR(_WinAPI_GetWindowLong($hWnd, $GWL_EXSTYLE), $WS_EX_TRANSPARENT))
If @Error Then Return SetError(2, 0, 0)
WinSetTrans($hWnd, "", $Transparency)
If @Error Then Return SetError(2, 0, 0)
Case 2;Restore
_WinAPI_SetWindowLong($hWnd, $GWL_EXSTYLE, BitAND(_WinAPI_GetWindowLong($hWnd, $GWL_EXSTYLE), BitNOT($WS_EX_TRANSPARENT)))
If @Error Then Return SetError(2, 0, 0)
WinSetTrans($hWnd, "", 255)
If @Error Then Return SetError(2, 0, 0)
EndSwitch
Return 1
EndFunc
So, beim testen ist mir aber aufgefallen das man den Parameter $Transparency nicht mit "Default" ersetzen kann. Jetzt wüsste ich gerne weshalb. -
Wie wäre es dafür einfach Select zu nehmen? Und wenn du es wirklich brauchst, dann For Schleife mit Eval drin.
[autoit]
Edit:;Mit Select:
[/autoit]
Select
Case $calc1
MsgBox(0, "Ergebnis", "calc1 ist True")
Case $calc2
;...
EndSelect
;Und mit For:
For $i = 1 To 3
If Eval("calc" & $i) Then MsgBox(0, "Ergebnis", "calc" & $i & " ist True")
NextSo hab ich die Problemstellung aufgefasst
-
So, hab den Code a weng aufgeräumt.
PS: Wie wäre es mit einer UpDown Schaltfläche statt einer Input Control? Und die GUI is a bissl zu kleinSpoiler anzeigen
[autoit]#include<EditConstants.au3>
[/autoit]
#include<GUIDefaultConstants.au3>
#include<GUIConstantsEx.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 116, 82, 194, 125)
$Input1 = GUICtrlCreateInput("Input1", 0, 0, 97, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_Number))
$List1 = GUICtrlCreateList("", 0, 56, 97, 19)
$Button1 = GUICtrlCreateButton("Button1", 8, 32, 73, 17, 0)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 96, 32, 17, 17)
GUISetState(@SW_SHOW)
#endregion ### START Koda GUI section ### Form=
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Zeit = GUICtrlRead($Input1)
$Sek_oder_Min = GUICtrlRead($Checkbox1)
If BitAND(GUICtrlRead($Sek_oder_Min), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetData($List1, $Zeit * 60)
Else
For $Akt_Zeit = $Zeit To 0 Step -1
GUICtrlSetData($List1, $Akt_Zeit)
Sleep(1000)
Next
EndIf
EndSwitch
WEnd -
Wie wäre es mit den String-Funktionen?
-
Ja, is so.
PS: Das geht auch kürzer
Spoiler anzeigen
[autoit]For $i = 0 To 10
[/autoit]
MouseClick ("left", 600, 220, 1, 0)
Sleep(Random(2000, 4000, 1))
Next -
Benutz die Makros: @Hour, @Min und @Sec
Um es zur Laufzeit zu ändern gibt es verschiedene Möglichkeiten: GUIs(Benutzeroberflächen), CMD-Interfaces(siehe UDF von progandy) oder INIs. -
Cool . Ich habs mir schon a weng umgebaut, hast sicher nix dagegen.
-
Hallo,
Text in Input eines anderen Programms einfügen: ControlSend
Anderes Programm starten: Je nach fall Run, _RunWait, _RunDOS, ShellExecute, ShellExecuteWait -
Mal ne ganz blöde Idee [Blockierte Grafik: http://www.tranceaddict.com/forums/images/smilies/new/0711/noteeth.gif]: Hast du schon mal alle Hacken durchprobiert? (v.a. "UPX Scramble" und "Use lzma UPX...")
-
Ja wie gehts denn jetzt? Ich nehme an so:
[autoit]Send("obx SY901M `date '+%Y%m%d'` Y#", 1)
[/autoit]
Send("{Enter}")
Es geht leider nicht "in einem wisch", da sich der Raw-Mode nicht mit {ENTER} verträgt. -
Das soll mir später wenns fertig ist ne verschlüsselte Zeichenfolge generieren, die man aber wieder entschlüsseln kann. (Klar gibts da schon fertige Programme, aber ich mach halt gerne vieles "Marke eigenbau")
-
Hallo,
Ich habe folgendes Script:Script
[autoit]#include<Array.au3>
[/autoit]
$String="Hier kann jeder beliebige Satz rein.(Immer ASCII)"
$ASCII_Stringlaenge = StringLen($String)*3+1;Zwischenschritt, da ich nicht wusste ob man das direkt in die eckigen Klammern packen kann
ConsoleWrite($ASCII_Stringlaenge& @CRLF);Zum debuggen
Global $ASCII_Werte[$ASCII_Stringlaenge]
For $E=1 To UBound($ASCII_Werte)
$ASCII_Werte[$E] = StringLeft($String, 1)
StringTrimLeft($String, 1)
ConsoleWrite("$E:"& $E& " $ASCII_Werte[$E]:"& $ASCII_Werte[$E]& @CRLF);Zum debuggen
Sleep(600);Zum debuggen
Next
_ArrayDisplay($ASCII_Werte)
While 1
Sleep(1000)
WEnd
Bei diesem gehen 2 Sachen nicht: 1. schneidet das StringTrimLeft nix ab, 2. Ich bekomm immer folgende Fehlermeldung:Meldung
C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Scripte\Zwischenspeicher.au3 (7) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$ASCII_Werte[$E] = StringLeft($String, 1)
^ ERROR -
Hast du's jetzt oder nicht? Bei einem Edit lässt man normalerweise eine Zeile frei und schreibt dann "Edit:" oder je nach Geschmack auch "//Edit:".
Zu deiner Frage: Das Programm heißt "AutoIt Window Info Tool" und befindet sich im AutoIt Lieferumfang, die Maus mit AutoIt an einen bestimmten Punkt setzen geht mit MouseMove -
-
Im EN-Forum gibts ne UDF um Dateien als Ressourcen einzubinden, Link hab ich aber leider nicht parat, musst mal suchen.
Edit: Doch gefunden Link
-
???
Meinst du sowas wie: Script1 startet Script2 und schreibt dann per StdinWrite in den Eingabe Stream vom 2.Script, welches das dann z.B. per MsgBox ausgeben soll? Wie das geht hab ich mich auch schon gefragt, habe es aber 1. Noch nicht gebraucht und 2. Vergessen zu fragen