Beschreib mal genauer weas du meinst, ich werd daraus nicht schlau 
Beiträge von letsgo
-
-
Wenn die beiden Scripte am gleichen Rechner sind, dann schreibt Script 1 ne Datei und Script 2 liest sie aus.
Wenn beide an unterschiedlichen Rechnern sind, dann kannste es mit TCP machen -
Assassin's Creed (tw. auch Shooter )
-
Alle Dateiendungen (jpg,doc,mp4) werden in der Registry gespeichert. Dort steht auch, mit welchem Programm es verknüpft ist. Man müsste also die Dateiendung herausfinden (leicht) und dann in der Registry nach dem zugehörigen Programm suchen.
Werde mich melden, falls ich was finde
€DIT: Hab gefunden, wo die Dateiendungen sind (HKEY_CLASSES_ROOT), ist aber extrem schwer, dass umzusetzen
-
Zufälliges Programm?
Also dass ein Programm z.b. eine zufällige anzahl von Gui's erzeugt, alle mit einer zufälligen Anzahl von zufällig erstellten Zufallscontrols?
Wird extrem schwer und der Sinn erschließt sich mir darin nicht
P.S: Filewrite("Name der DATEI", "Inhalt") -
Vieleicht könnte man die Maps irgendwie in Blender importieren und dann als *.x , ect. wieder exportieren ?
-
Ich hab mal eine Änderung gemacht, dass die Zeitanzeige nicht flackert und es recourcenschonender ist
Changelog: Timerinit vor Schleife, Zeit & IP wird jede Sekunde neu gesetzt (kein flackern)Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <Array.au3>
#include <Misc.au3>
#include <Inet.au3>
#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <WindowsConstants.au3>
#include <GuiMenu.au3>
Global $Script_Zeilen = "151" ;==> Die Aktuellen Scriptzeilen von der Version:
Global $Alle_programmierer = "Saguhilla" & @CRLF & "!!! Es werden noch PROGRAMMIERER GESUCHT - Melden auf autoIT.de bei dem Benutzer SAGUHILLA ---"
MsgBox(64,"autoIT OS 3 - Startinformationen","Script-Info:" & @CRLF & "Scriptzeilen: " & $Script_Zeilen & @CRLF & "Programmierer: " & $Alle_programmierer & @CRLF &@CRLF & "(c) 2011 by the autoIT OS 3 team")
;Scriptname = Virtual Autoit O S (2012)
;FIRST Build: 05.01.2012
;Specials Builds: (/\)
; (c) 2012 by Saguhilla & the AU3 Company;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Register folders ;
DirCreate(@ScriptDir & "\Local-Maschine")
DirCreate(@ScriptDir & "\Local")
DirCreate(@ScriptDir & "\Local\Users")
DirCreate(@ScriptDir & "\Local\Users\SUB-Folder")
DirCreate(@ScriptDir & "\Local-Maschine\System")
DirCreate(@ScriptDir & "\Local-Maschine\TRASH")
DirCreate(@ScriptDir & "\Local-Maschine\Icons")
DirCreate(@ScriptDir & "\Local-Maschine\System\Programs")
DirCreate(@ScriptDir & "\Local-Maschine\Backups")
DirCreate(@ScriptDir & "\Local\Users\Videos")
DirCreate(@ScriptDir & "\Local\Users\Pictures")
DirCreate(@ScriptDir & "\Local\Users\Musics")
DirCreate(@ScriptDir & "\Local\Users\Backgrounds")
DirCreate(@ScriptDir & "\Local-Maschine\System\Programs\AppStore")
DirCreate(@ScriptDir & "\Local-Maschine\System\Programs\AppStore\Downloads")
DirCreate(@ScriptDir & "\Local-Maschine\System\Programs\AppStore\Pictures");;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[/autoit] [autoit][/autoit] [autoit]; Local Operating System Folders ; => Must have in this Folder: "Local"
[/autoit] [autoit][/autoit] [autoit]
Local $local_maschine_folder = @ScriptDir & "\Local-Maschine\System"
Local $systemprograms_folder = @ScriptDir & "\Local-Maschine\System\Programs"
Local $systemicons_folder = @ScriptDir & "Local-Maschine\Icons"
Local $programfiles_folder = @ScriptDir & "\Local-Maschine\Programs"
Local $backup_folder = @ScriptDir & "\Local-Maschine\Backups"
Local $pictures_folder = @ScriptDir & "\Local\Users\Pictures"
Local $musics_folder = @ScriptDir & "\Local\Users\Musics"
Local $backgrounds_folder = @ScriptDir & "\Local\Users\Backgrounds"
Local $settings_folder = @ScriptDir & "\Local-Maschine\System\settings"; Local User(s) System Folders ; => ALLWAYS IN USE !!!
[/autoit] [autoit][/autoit] [autoit]
Local $users_folder = @ScriptDir & "\Local\Users"
; Local Sub System Folders ; => All Sub-Software have to must to register in the registry-folder
Local $main_sub_folder = @ScriptDir & "\Local\Users\SUB-Folder" ; <=> Download more Subfolders under: autoitOS2.repage.de
;___________________________________________________________________________________________________________________________________________________________
_Main()
Func _Main()
Global $ip = _GetIP()
Local $one = @DesktopWidth ; Steht hier, um die Achse (X) auszumessen \/
Local $two = @DesktopHeight ; Steht hier, um die Achse (Y) auszumessen /\
; \/ Sonstige -$-`s
Local $internet, $GUI
Local $sekunde, $minute, $stunde ;Die tolle Ladebalken-Uhr ==> Ladebalkenuhr =>Copyright 2012 by Saguhilla
; \/ Buttons
Local $BUTTON_papierkorb, $BUTTON_systemsteuerung, $BUTTON_speichermedium, $BUTTON_control
; \/ Rechtsklickmenus + Rechtsklickverknüpfungen
Local $RK_Desktop, $RK_Desktop_Neu, $RK_Desktop_Neu_Textdokument, $RK_Neu_Verknuepfung ;RK Desktop
Local $RK_Speichermedium, $RK_Speichermedium_Oeffnen, $RK_SPeichermedium_Eigentschaften, $RK_Speichermedium_Separator1
Local $RK_systemsteuerung, $RK_systemsteuerung_oeffnen, $RK_systemsteuerung_system, $RK_systemsteuerung_separator1
Local $RK_papierkorb, $RK_papierkorb_oeffnen, $RK_papierkorb_leeren, $RK_papierkorb_separator1
Local $RK_control, $RK_control_separator1, $RK_control_beenden, $RK_control_exit_und_shutdown
Local $TIMER_1
#forceref $separator1 ; Keine Ahnung was das hier soll :-: ??? !!! ???$GUI = GUICreate("Startfenster", @DesktopWidth, @DesktopHeight,0,0, $WS_POPUP) ; Erzeugt das Fenster | $WS_POPUP Macht das Fenster so groß, wie der Monitor ist (X & Y)
[/autoit] [autoit][/autoit] [autoit][/autoit]
GUICtrlSetColor(-1, 0x7F7DA9) ; Erzeugt die Hintergrundfarbe in dem Fenster (GUI)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$RK_Desktop = GuiCtrlCreateContextMenu ($GUI)
$RK_Desktop_Neu = GuiCtrlCreateMenu ("Neu",$RK_Desktop)
$RK_Neu_Textdokument = GuiCtrlCreateMenuitem ("Neues Textdokument",$RK_Desktop_Neu)
$RK_Neu_Verknuepfung = GuiCtrlCreateMenuitem ("Neue Verknüpfung",$RK_Desktop_Neu)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Local $internet = GUICtrlCreateLabel("@", $one -55, $two -30, 18, 18)
GUICtrlSetBkColor($internet, 0x7F7DA9)
GUICtrlSetState(-2, $GUI_DISABLE)
; Leiste HIER
$sekunde = GUICtrlCreateProgress($one -130,$two -30,60,20)
$stunde = GUICtrlCreateProgress($one -200,$two -30,60,20)
$minute = GUICtrlCreateProgress($one -270,$two -30,60,20)
GuiCtrlCreateDate("autoIT OS 3", $one -270, $two -50, 200, 23,6,3)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; autoIT OS 3
$BUTTON_speichermedium = GUICtrlCreateButton("Speichermedien", $one -1412, $two -810, 60, 60, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 16) ;==> Erstellt das Bild im Button => $BUTTON_Speichermedium
GUICtrlSetTip(-1, "Medien Explorer","Alle Speichermedien anzeigen",1) ;==> Erstellt ein tip (englisch) Wenn man auf dem Button ist ==> $BUTTON_Speichermedium
;==> ________________________________________________________ Speichermedien
$RK_Speichermedium = GuiCtrlCreateContextMenu ($BUTTON_Speichermedium)
$RK_Speichermedium_Oeffnen = GuiCtrlCreateMenuitem ("Öffnen",$RK_Speichermedium)
$RK_Speichermedium_Separator1 = GuiCtrlCreateMenuitem ("",$RK_Speichermedium)
$RK_Speichermedium_Eigentschaften = GuiCtrlCreateMenuitem ("Eigentschaften",$RK_Speichermedium)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Systemsteuerung
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$BUTTON_systemsteuerung = GUICtrlCreateButton("Systemsteuerung", $one -412, $two -411, 60, 60, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 32)
$RK_systemsteuerung = GuiCtrlCreateContextMenu ($BUTTON_systemsteuerung)
$RK_systemsteuerung_oeffnen = GuiCtrlCreateMenuitem ("Öffnen",$RK_systemsteuerung)
$RK_systemsteuerung_separator1 = GuiCtrlCreateMenuitem ("",$RK_systemsteuerung)
$RK_systemsteuerung_system = GuiCtrlCreateMenuitem ("Ihr System anzeigen",$RK_systemsteuerung)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Papierkorb
$BUTTON_papierkorb = GUICtrlCreateButton("Papierkorb", $one -120, $two -110, 60, 60, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 32)
$RK_papierkorb = GuiCtrlCreateContextMenu ($BUTTON_papierkorb)
$RK_papierkorb_oeffnen = GuiCtrlCreateMenuitem ("Öffnen",$RK_papierkorb)
$RK_papierkorb_separator1 = GuiCtrlCreateMenuitem ("",$RK_papierkorb)
$RK_papierkorb_leeren = GuiCtrlCreateMenuitem ("Papierkorb leeren",$RK_papierkorb)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; exit
$BUTTON_control = GUICtrlCreateButton("Control", $one -1420, $two -110, 60, 60, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 25)
GUICtrlSetTip(-2,"autoIT OS 3 beenden")
$RK_control = GuiCtrlCreateContextMenu ($BUTTON_control)
$RK_control_exit_und_shutdown = GuiCtrlCreateMenuitem ("Computer herunterfahren & autoIT OS 3 beenden",$RK_control)
$RK_control_separator1 = GuiCtrlCreateMenuitem ("",$RK_control)
$RK_control_beenden = GuiCtrlCreateMenuitem ("autoIT OS 3 beenden",$RK_control)
GUISetState()
$TIMER_1=TimerInit() ;ÄNDERUNGEN
While 1
if TimerDiff($timer_1)>1000 Then ;ÄNDERUNGEN
$TIMER_1=TimerInit()
GUICtrlSetData($sekunde,@SEC)
GUICtrlSetData($minute,@MIN)
GUICtrlSetData($stunde,@HOUR)
$ip = _GetIP()
if $ip <> -1 Then GUICtrlSetColor($internet, 0x00FF00) ;Rot
if $ip = -1 Then GUICtrlSetColor($internet, 0xFF0000) ;Grün
EndIf
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $BUTTON_papierkorb
Exit
Case $msg = $BUTTON_control
MsgBox(0,"Thanks for using !!!","Thanks for using the autoIT OS 3 system :-)")
Exit
EndSelect
WEnd
EndFunc ;==>_Main -
Indem man die Dateiendung ändert. In meiner HIlfe steht:
Zitat
[...] the valid extensions are BMP, GIF, JPEG, PNG and TIF. -
Nimm einfach StringReplace()
[autoit]
[/autoit][autoit][/autoit][autoit][/autoit]
$x='Köln'
$x=StringReplace($x,'ä','ae') -
So in der Art?
[autoit]
[/autoit][autoit][/autoit][autoit][/autoit]
#include <ScreenCapture.au3>
GUICreate('',@DesktopWidth/2,@DesktopHeight/2)
$screen=_ScreenCapture_Capture()
_ScreenCapture_SaveImage(@tempdir&'\screen.jpg',$screen)
GUICtrlCreatePic(@tempdir&'\screen.jpg',0,0,@DesktopWidth/2,@DesktopHeight/2)
GUISetState()
While 1
$msg=GUIGetMsg()
if $msg=-3 then Exit
WEnd -
Dir fehlt auf jeden Fall ein "\" Strich in Zeile 21
[autoit][/autoit][autoit][/autoit][autoit]FileMove(@ScriptDir &'\'& $datein[$a], @ScriptDir &"\umbenannt2\"&$namen[$a]&".avi",8)
[/autoit] -
Gab es nicht vor einem halben Jahr eine "Key UDF" oder ähnliches, die genau das mit dem Delay konnte. Ich glaube nähmlich zu meinen, dass dies die Lösung deines Problemes wäre.
Ich würde achgerne selber nach der UDF sehen , aber ich bi grad mit meinem langsamrn Handy online ( 1ghz ist total überbewertet)
-
Ich mach es immer so
[autoit]
[/autoit][autoit][/autoit][autoit]
$timer=TimerInit()While 1
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]
if _isPressed(42) and TimerDiff($timer)>500 then
blub()
$timer=timerinit()
endif
wend -
Du benutzt eine Transparenz von 170. Aber die hälfe müsste 128 sein (256/2) und dann noch schön einblenden müsste so gehen
[autoit]
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]
#include <GUIConstants.au3>
#include <GDIPlus.au3>
#include <Misc.au3>
$hGUI = GUICreate("", 800, 600, 224, 0)
GuiSetState()
$Preview = GUICreate("hallo", 200, 200, 224, 60, 0x40000000, -1, $hGUI)
GUISetBkColor(0xFFFFFF)
WinSetTrans($Preview,"",128) ;halb sichtbar
GuiSetState()
Sleep(1000)
For $n=128 to 256
sleep(5)
WinSetTrans($Preview,'',$n)
Next
sleep(10000)
Exit -
Sollte auch mal auf der Autoit Startseite unter Downloads angepast werden
-
Meine Lieblingslieder sind eher nicht kommerziell, aber trotzdem (bzw. gerade deshalb) genial
aequitaS ft. Steffi & 1000JahreIch - X-Mas Medley
aequitaS - O Tannenbaum (Christmas Carol) -
Ich würde es so machen. Falls du nur Dateien und keine Ordner willst, dann kannst du ja den dritten Parameter in _fileList ändern (müsste 1 sein)
[autoit]
[/autoit][autoit][/autoit][autoit]
#include <File.au3>
GUICreate('Test',400,200)
$combo=GUICtrlCreateCombo('',30,10,150)$x=''
[/autoit][autoit][/autoit][autoit]
$file=_FileListToArray(@DesktopDir,'*')
For $N= 1 to $file[0]
$x&=$file[$n]&'|'
Next
GUICtrlSetData($combo,$x)
GUISetState()While 1
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]
$msg=GUIGetMsg()
if $msg=-3 then Exit
WEnd -
Mit der IE.au3 . Müsste bereits zu den Standart Includes gehören
-
Njahs
In Zeile 14 gibst du $file der Funktion mit. Das ist erstens ein ARRAY also wenn schon dann $file[$i-1] (dann muss $i auch bis 54 gehen um den ganzen $file-Array durchzugehen) und zweitens ist $file[x] immer standartmäßig= "" da es niergends verändert wird, also müsstest du es wahrscheinlich in Zeile 13 $file[$i-1]=FileRead...Dann sind jetzt die gröbstens Fehler, die mir auf die Kürze eingefallen sind
-
So?
[autoit]
[/autoit]
For $n=65 to 90
Send(chr($n))
NextChr wandelt die Zahlen in ASCII Buchstaben um. Auf der Website, die mit diesem Satzteil verlinkt ist , kannst du nochschauen (unter ASCII und DEZ(dezimal)