hi @ all,
ist es möglich den Desktop mit autoit zu filmen?
habe in der suche nach "Filmen" geschaut und nichts passendes hgefundene und weiß nicht nach was ich in der hilfe schauen soll.
Gruß Roggazzz
Click Ctrl-C to copy. (hides when lost focus)
Click Ctrl-C to copy. (hides when lost focus)
warum schliest sich wortsturz in dem paket immer bei mir?
super udf.
es wäre aber besser wen man in die console auch einfach während sie aktiv ist reinschreiben könnte.(also nach einem befehl unten in das freie etwas schreiben kann)
4 von 5 sternen 
Gruß Roggazzz
switch... case... endswitch... benutze ich ja bereits,
aber wie soll ich es anderster amchen das es nicht nacheinander gescannt wird?
so danke ich habe jetzt versucht eine Ver-/Entschlüssler zu machen.
wen ich verschlüssle oder entschlüssle kommt völliger schrott raus.
hier der code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Text Ver-/Entschlüssler", 388, 248, 194, 124)
$Edit = GUICtrlCreateEdit("", 0, 0, 289, 113)
GUICtrlSetData(-1, "Edit1")
$Button1 = GUICtrlCreateButton("Verschlüsseln", 288, 0, 91, 105, 0)
$Edit1 = GUICtrlCreateEdit("", 0, 128, 289, 113)
GUICtrlSetData(-1, "Edit2")
$Button2 = GUICtrlCreateButton("Entschlüsseln", 288, 128, 91, 105, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"a","c",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"b","r",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"c","a",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"d","u",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"e","f",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"f","e",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"g","x",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"h","j",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"i","q",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"j","h",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"k","v",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"l","n",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"m","p",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"n","l",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"o","w",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"p","m",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"q","i",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"r","b",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"s","t",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"t","s",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"u","d",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"v","k",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"w","o",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"x","g",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"y","z",0))
GuiCtrlSetData($Edit,StringReplace(GUICtrlRead($Edit),"z","y",0))
Case $Button2
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"c","a",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"r","b",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"a","c",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"u","d",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"f","e",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"e","f",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"x","g",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"j","h",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"q","i",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"h","j",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"v","k",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"n","l",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"p","m",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"l","n",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"w","o",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"m","p",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"i","q",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"b","r",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"t","s",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"s","t",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"d","u",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"k","v",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"o","w",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"g","x",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"z","y",0))
GuiCtrlSetData($Edit1,StringReplace(GUICtrlRead($Edit1),"y","z",0))
EndSwitch
WEnd
okay, sorry wegen der verwechselung ich habd as mit radiobox verwechselt
mit $GUI_CHECKED geht das soweit ich weiß,
achso ich hatte das default nicht gelesen 
Raupi :
Ich dachte das muss man extra bei "Count" einfügen,
wieder was gelernt 
danke autobert ich habe es versucht aber es klappt einfach nicht.
das a in meinem text wird einfach nicht zu einem r.
zur sicherheit der code wie er jetzt ist:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("NextGenEditor", 637, 457, 192, 124)
$Edit = GUICtrlCreateEdit("", 0, 0, 633, 433)
$M1 = GUICtrlCreateMenu("Datei")
$M1_2 = GUICTRLCREATEMENUITEM("Öffnen",$M1)
$M2 = GUICtrlCreateMenu("Info")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $M1_2
$Open=FileOpenDialog("Öffnen","","NextGenEditor Dateien(*.nge)")
$Open2=FileRead($Open)
$WriteinEdit= GUICtrlSetData($Edit,$Open2)
StringReplace(GUICtrlRead($Edit),"a","r",0)
EndSwitch
WEnd
Danke schonmal im vorraus.
@ Der Scripter:
schau mal in der hilfe unter count ist es glaube ich da kannst du das mit dem doppel l einstellen. das musste ich mir nähmlicha uch gerade anschauen, gruß roggazzz
so ein problem ist aufgetaucht.
Wie wende ich Stringreplace in dem edit feld an?
ich habe versucht ein a in ein r umzuwandeln aber es geht nicht.
hier der code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("NextGenEditor", 637, 457, 192, 124)
$Edit = GUICtrlCreateEdit("", 0, 0, 633, 433)
$M1 = GUICtrlCreateMenu("Datei")
$M1_2 = GUICTRLCREATEMENUITEM("Öffnen",$M1)
$M2 = GUICtrlCreateMenu("Info")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $M1_2
$Open=FileOpenDialog("Öffnen","","NextGenEditor Dateien(*.nge)")
$Open2=FileRead($Open)
$WriteinEdit= GUICtrlSetData($Edit,$Open2)
StringReplace($Edit,"a","r")
EndSwitch
WEnd
Woran liegt das?
MfG Roggazzz
danke.
könntest du mir noch ein beispiel machen? kenne mich mit Stirngreplace() nicht aus.
edit:
grad gemekrt das ich ind er hildfe was finde ich melde mich bei problemen.
ich habe noch eine frage:
wen ich jetzt in das edit feld "hallo" schreibe und es umwandeln will muss ich das nur umgekehrt amchen oder?
Hi @ all,
ich will mal wieder mein wissen etwas erweitern.
ich frage mich jetzt schon länger ob es möglich ist
zwei buchstaben miteinander auszutauschen.
also z.B. :
In einer .txt datei steht jetzt:
"wroou"
ich öffne diese in einer gui
und autoit soll dann anstadt "wroou" "hallo" in ein edit feld reinschreiben.
also würde
w für h stehen, r für a, o für l und u für o stehen.
geht so etwas?
MfG Roggazzz
Hi @ all,
ich habe bei meinem webbrowser jetzt ein anderes problem.
Ich will die Input Box in der man den link zum navigieren reinschreibt
immer aktuallisieren lassen.
z.B ich gehe auf youtube um ein video zu sehen.
dann gebe ich in den Input: youtube.com ein
so jetzt schaue ich das video an aber oben im input steht immernoch nur: youtube.com
anstatt:
http://youtube.com/watch?=blablabla
wie kann ich das aktuallisieren?
hier der code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Include <Misc.au3>
#include <GUIConstants.au3>
global $Bookmarks[2][2],$Startseite[2],$MenuItem5
dim $result
$result=IniReadSection(@ScriptDir & "/settings.ini", "Bookmarks")
if @error Then
;~ Keine Lesezeichen vorhanden
$Startseite[0]="http://www.google.de"
$Startseite[1]="Google"
$Bookmarks[0][0]="http://www.autoit.de"
$Bookmarks[0][1]="AutoIt3.de"
Else
;~ Startseite & Lesezeichen Einlesen
redim $Bookmarks[($result[0][0]-2)/2][2]
$x=-1
For $i = 1 To $result[0][0] step 2
if $i=1 then
$Startseite[0]=$result[$i][1]
$Startseite[1]=$result[$i+1][1]
else
$Bookmarks[$x][0]=$result[$i][1]
$Bookmarks[$x][1]=$result[$i+1][1]
EndIf
$x=$x+1
Next
EndIf
$Proxy = IniRead(@ScriptDir & "/settings.ini","Extras","Proxy","")
$Home=$Startseite[0]
HttpSetProxy(1,GuiCtrlRead($Proxy))
$Embedded = _IECreateEmbedded ()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Waterbird v0.1 Beta", 993, 594, 11, 97)
GUICtrlCreateObj($Embedded, 0, 40, 988, 521)
$Button1 = GUICtrlCreateButton("Los!", 680, 8, 83, 25, $WS_GROUP)
$URLInput = GUICtrlCreateInput($Home, 312, 8, 345, 21)
$vor = GUICtrlCreateButton("Vor", 48, 8, 35, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Zurück", 96, 8, 43, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Neu Laden", 152, 8, 59, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Zur Startseite", 216, 8, 75, 25, $WS_GROUP)
$MenuItem2 = GUICtrlCreateMenu("Datei(Noch nicht verfügbar)")
;~ Lesezeichen Start
$MenuItem5 = GUICtrlCreateMenu("Lesezeichen(Beta)")
$MenuItem5_1= GUICtrlCreateMenuItem("Startseite ändern",$MenuItem5)
$MenuItem5_2 = GUICtrlCreateMenuItem("Lesezeichen Hinzufügen", $MenuItem5)
$BookLine = GUICtrlCreateMenuItem("", $MenuItem5)
;~ Lesezeichen Ende
$MenuItem1 = GUICtrlCreateMenu("About...")
$MenuItem1_1= GUICtrlCreateMenuItem("Über...",$MenuItem1)
$MenuItem4 = GUICtrlCreateMenu("Einstellungen")
$MenuItem4_1= GUICtrlCreateMenuItem("Proxy Login",$MenuItem4)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
for $i= 0 to UBound($Bookmarks)-1
GUICtrlCreateMenuItem($Bookmarks[$i][1], $MenuItem5)
next
_IENavigate ($Embedded, $Home)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
;~ if $nMsg = 11 Then
;~ MsgBox(4096,"Box","Lesezeichen")
;~ endif
;~ MsgBox(4096,"Box",$MenuItem5)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_IENavigate ($Embedded, GUICTRLRead($URLInput))
Case $Button4
_IENavigate ($Embedded, $Home)
Case $MenuItem5_1
$Home01=InputBox("Startseite ändern","Hier kannst du deine Startseite ändern. gib unten einfach unten die Page an.")
;~ IniWrite(@ScriptDir & "/settings.ini", "Bookmarks", "BookmarkStart", $Home01)
;~ IniWrite(@ScriptDir & "/settings.ini", "Bookmarks", "BookmarkStartt", $Home01)
MsgBox(0,"Info", "Damit die änderungen wirksam werden musst du Waterbird Neu starten")
Case $MenuItem5_2
$Lesezeichen=InputBox("Lesezeichen Hinzufügen", "Gib unten die page an die ins Lesezeichen hinzugefügt werden soll")
GUiCtrlCreateMenuItem($Lesezeichen,$MenuItem5)
case $MenuItem1_1
MsgBox(0, "Info","Rogprog Waterbird wurde von RogProg aka. DoMe geschrieben und bassiert auf einem IE Embedded. Auserdem steht Waterbird unter einer CreativeCommons Lizenz")
Case $MenuItem4_1
$ProxySet=InputBox("Proxy Login","Hier kannst du deine IP hinter einem Proxy verstecken. gib unten einfach den Proxy an")
IniWrite(@ScriptDir & "/settings.ini", "Extras", "Proxy", $Proxyset)
MsgBox(0,"Info", "Damit die Änderungen wirksam werden musst du Waterbird Neu starten")
EndSwitch
sleep(10)
WEnd
Click Ctrl-C to copy. (hides when lost focus)
Click Ctrl-C to copy. (hides when lost focus)
Hi @ All,
ich versuche gerade ein programm zu erstellen das mir
sagt ob ich Windows x32 oder x64 habe.
Ich habe es vorläufig so gemacht:
$Form1 = GUICreate("Was habe ich für ein Betriebssystem?", 350, 40, 192, 124)
$Input1 = GUICtrlCreateInput(@AutoItX64 , 8, 8, 233, 21)
$Label1 = GUICtrlCreateLabel("0=x32", 248, 8, 33, 17)
$Label2 = GUICtrlCreateLabel("1=x64", 288, 8, 33, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
so das man weiß was 0 und was 1 heist. ich will aber das es wen bei @AutoItX64=1 erscheint das dann in den Input x64 geschrieben wird.
das habe ich versucht scheitere aber da nichts in den input geschrieben wird.
hier der code mit den funktionen:
$Form1 = GUICreate("Was habe ich für ein Betriebssystem?", 350, 40, 192, 124)
$Input1 = GUICtrlCreateInput(@AutoItX64 , 8, 8, 233, 21)
$Label1 = GUICtrlCreateLabel("0=x32", 248, 8, 33, 17)
$Label2 = GUICtrlCreateLabel("1=x64", 288, 8, 33, 17)
func _test()
If @AutoITX64=1 Then
GUICtrlSetData($Input1, "x64")
EndIf
endfunc
func _test1()
If @AutoITX64=0 Then
GUICtrlSetData($Input1, "x32")
EndIf
endfunc
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
hoffe mir kan jemand helfen. gruß Roggazzz
hi @ all,
hab in der hilfe nachgeschaut und nicht wirklich was dazu gefunden.
ich würde gerne einen Downloader machen der immer beim Start ein gewisses programm aus dem internet lädt.wie mache ich eine Progress anzeige mit ProgressOn die immer steigt wen mehr kb geladen worden sind?
machs doch mit photofiltre.
einfach die logos einfügen und dann transparent machen dann wird alles was weiß ich transparent.bei mir klappt das gut
ich meine das probleme das es immer einen neuen String gibt wie kann ich zuweisen wie die zahlereieh weitergehen soll?
Beispiel nochma:
$Lesezeichen01="wer-kennt-wen.de"
$Lesezeichen02="schuelervz.net"
$Lesezeichen03="autoit.de"
so und wie gebe ich an das immer der String $lesezeichen[nächstezahl] heißen soll und das jedem eine case funktion hinzugefügt wird
