Beiträge von Mahagon

Mahagon

Du hast es erfasst (Prinzipiell ist es aber egal ob es ganz oben oder ganz ober oder wo auch immer steht)
genau wie RequireAdmin und Co

Mahagon

#notrayicon ist das was du suchst

Mahagon

Wenn du es sauber machen willst, hier mal ein Beispiel (Hatte grade nicht so viel Zeit )

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Local Const $sQuellPfad = "\\server\Daten"
Local Const $ae = Chr(132)
Local Const $_AE = Chr(142)
Local Const $oe = Chr(148)
Local Const $_OE = Chr(153)
Local Const $ue = Chr(129)
Local Const $_UE = Chr(154)

[/autoit] [autoit][/autoit] [autoit]

ConsoleWrite("Setzen der Supportinformationen und Kopieren des Screensafers wird durchgef" & $ue & "hrt..." & @CRLF)
FileCopy($sQuellPfad & "\support\*.*" ,@SystemDir & "\*.*",9)
ConsoleWrite("Kopieren der Druckertreiber (keine Installation)..." & @CRLF)
FileCopy($sQuellPfad & "\printer\*.*" ,"C:\Drucker_Treiber\*.*",9)
ConsoleWrite("Kopieren diverse Sprachdateien" & @CRLF)
FileCopy($sQuellPfad & "\sprachen\*.*" ,"C:\Tools\*.*",9)
ConsoleWrite("Konfiguriert das Hintergrundbild" & @CRLF)
RegWrite("HKCU\Control Panel\Desktop","Wallpaper","REG_SZ","C:\Wallpaper\Hintergrund_1024x768.bmp")
ConsoleWrite("Sofortige Umsetzung der Konfiguration" & @CRLF)
ShellExecute(@SystemDir & "\RUNDLL32.EXE","user32.dll, UpdatePerUserSystemParameters")

[/autoit]

Mahagon

ich glaube er sucht einen richtigen Konverter, so einen gibt es soweit ich weiß nicht wirklich. Du könntest die "UAC" natürlich auch "aushebeln", indem du nen #requireadmin setzt und einfach mit shellexecute die Batch ausführst.
Oder du machst es auf die saubere Art und weise und lernst AutoIt und übersetzt deine Scripte. Glaub mir AutoIt ist nicht so schlimm wies ausschaut. Bei mir hats 99% der Batches vertrieben

Mahagon

Hast du eventuell etwas in der Art vor?

Spoiler anzeigen

[autoit]

ShellExecute("notepad.exe")

[/autoit] [autoit][/autoit] [autoit]

_winmove("[CLASS:Notepad]", "down")

[/autoit] [autoit][/autoit] [autoit]

Func _winmove(Const $sWindow, Const $sDirection)
WinWait($sWindow)
Switch $sDirection
Case "up"
WinMove($sWindow, "", 0, 0)
Case "down"
$aReturn = WinGetPos($sWindow)
WinMove($sWindow, "", @DesktopWidth - $aReturn[2], @DesktopHeight - $aReturn[3])
EndSwitch
EndFunc ;==>_winmove

[/autoit]

BZW mit Forschleife

Spoiler anzeigen

[autoit]

ShellExecute("notepad.exe")

[/autoit] [autoit][/autoit] [autoit]

_winmove("[CLASS:Notepad]", "up")

[/autoit] [autoit][/autoit] [autoit]

Func _winmove(Const $sWindow, Const $sDirection)
WinWait($sWindow)
Switch $sDirection
Case "up"
For $i = 10 To 0 Step -2
WinMove($sWindow, "", 0 + $i, 0 + $i)
Sleep(300)
Next
Case "down"
For $i = 10 To 0 Step -2
$aReturn = WinGetPos($sWindow)
WinMove($sWindow, "", @DesktopWidth - $aReturn[2] - $i, @DesktopHeight - $aReturn[3] - $i)
Sleep(300)
Next
EndSwitch
EndFunc ;==>_winmove

[/autoit]

Mahagon

Das wäre eine Möglichkeit um die MAC über Netzwerk auszulesen.
Natürlich muss die Firewall das zulassen

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.3.6.1
Author: Mahagon

[/autoit] [autoit][/autoit] [autoit]

Script Function:
This UDF is made for using the Windows Management Instrumentation in AutoIt V.3

[/autoit] [autoit][/autoit] [autoit]

License:

[/autoit] [autoit][/autoit] [autoit]

The content of this work is licensed under Creative Commons license.
You are allowed to use and change it as u wish as long as you mention me as the Author.

[/autoit] [autoit][/autoit] [autoit]

Der Inhalt dieses Werkes ist lizensiert unter der Creative Commons Lizenz.
Sie dürfen es nutzen und verändert solange ich als Autor genannt werde.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Local Const $wbemFlagReturnImmediately = 0x10
Local Const $wbemFlagForwardOnly = 0x20

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _WinWMI_GetMAC(Const $sComputer = "127.0.0.1")
Local $oWMI = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $sComputer & "\root\CIMV2")
If IsObj($oWMI) = 0 Then Return SetError(-1, @error, 0)
Local $oList = $oWMI.ExecQuery("SELECT MACAddress FROM Win32_NetworkAdapter WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> 'Microsoft'))", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($oList) = 0 Then Return SetError(-2, @error, 0)
Local $sReturn = ""
For $oItem In $oList
With $oItem
$sReturn &= .MACAddress & "|"
EndWith
Next
Return StringSplit(StringTrimLeft($sReturn,1), "|", 2)
EndFunc ;==>_WinWMI_GetMAC

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Local $aReturn = _WinWMI_GetMAC("localhost")

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To UBound($aReturn) - 1
ConsoleWrite($aReturn[$i] & @CRLF)
Next

[/autoit]

Mahagon

Versuch mal Strg+F7 in Scite, oder #AutoIt3Wrapper_UseX64=n wie Sprenger bereits erwähnt hat.
Ansonsten poste mal dein Script

Mahagon

Naja neues zeigen sie nicht gerade
Innovativ ist es auch nicht ^^. Tablet Pcs gibts schon länger. Jedoch sind die Leute von Apfel die ersten die richtig groß die Werbetrommel gerührt haben.
Sie haben auch nur ihr Iphonedesign (das Telefon welches genausowenig innovativ ist) drauf portiert

Mahagon

Hier ist ein Beispiel mit dem WMP https://autoit.de/index.php?page…wmp*#post168168
Aber wenn du dich nicht mit AutoIt auskennst solltest du erst einmal einfachere Sachen versuchen (Taschenrechner und CO KG)

Mahagon

Naja für Photoshop und co. ist ein Apfel ganz schick.
Aber Microsoft und Linux sind einfach vielfältiger einzusetzen.
Und zu den bekannten iSchrotts gibt es meist bessere, (und meist sehr viel günstigere) Alternativen.

Das iPad selbst ist nix für mich. Touchscreen ist zwar schick, aber da würde ich eher zu nem Lappi mit Touchscreen greifen.
Alleine schon weil man auf dem iPad sehr stark eingeschränkt wird.

Mahagon

Du musst die Seite Slicen.
Dann kannst du das das ganze für Web un Geräte speichern.
Wähle einfach das Bildformat aus. Sag dann speichern und wähle HTML & Bilder aus

Mahagon

hm hier mal ein kleines Beispiel:

Spoiler anzeigen

[autoit]

GUICreate("", 388, 73, 192, 124)
$Wert1 = GUICtrlCreateInput("Wert1", 8, 8, 121, 21)
$Wert2 = GUICtrlCreateInput("Wert2", 8, 40, 121, 21)
$Addieren = GUICtrlCreateButton("Addieren", 144, 24, 75, 25)
$Ergebnis = GUICtrlCreateLabel("Ergebnis", 232, 28, 141, 17)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Addieren
GUICtrlSetData($Ergebnis,StringReplace(Round(Number(StringReplace(GUICtrlRead($Wert1),",",".")+StringReplace(GUICtrlRead($Wert2),",",".")),2),".",","))
EndSwitch
WEnd

[/autoit]

und 1,5 ist nicht 1,05

Edit: hm da war ich wohl zu langsam

Mahagon

Hm für 450 € wirst du wohl leider keinen i3 bekommen, aber ich würde vor allem bei Notebooks im Moment eher bei Intel bleiben
Von den Marken her würde ich persönlich Lenovo nehmen. Die haben sehr stabile und zuverlässige Notebooks (nur Designtechnisch dürften die deinem 20000 Jahre alten Notebook entspechen :D)
Ansonsten fährt man mit Acer meiner Erfahrung nach auch ganz gut. 2 Gb RAM, Win7 und Dualcore mit ~2,2 Ghz dürften kein Problem sein.
Kannst ja mal ein wenig auf notebooksbilliger.de usw nachschlagen.

Schau dir vor allem die Preise an. Meist wirst du es nicht zu dem Preis im Handel bekommen. Online shoppen lohnt sich. Und ob jetzt bei Defekt der vor-Ort Service dein Notebook zum Hersteller schickt oder der Onlinehändler, macht auch keinen großen Unterschied

Mahagon

klick mal mit dem Cursor in Scite auf MsgBox und drück F1

Mahagon

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

[/autoit] [autoit][/autoit] [autoit]

MsgBox (0, "ProgramFilesDir", _ProgramFilesDir())

[/autoit] [autoit][/autoit] [autoit]

Func _ProgramFilesDir()
If @OSArch <> "x86" Then
$ProgramFilesDir = StringTrimRight(@ProgramFilesDir,6)
Else
$ProgramFilesDir = @ProgramFilesDir
EndIf
Return $ProgramFilesDir
EndFunc

[/autoit]

Dann mach es doch auf diese Art.

Mahagon

@ProgramFilesDir bringt bei mir unter Win7 x64 "C:\Program Files"
Hast du eventuell sowas wie #AutoIt3Wrapper_UseX64=n im Code stehen?

Mahagon

Eine Übersicht über alle gibt es so glaube ich nicht, aber in der GUIConstantsEx.au3 steht Beispielsweise $GUI_EVENT_CLOSE.

Mit den If-Anweisungen ist es so, wenn du einen Einzeiligen Befehl ausführst brauchst du kein Endif

[autoit]

If $iReturn = 0 Then MsgBox(64,"","iReturn hat den Wert 0")

[/autoit]

Willst du, dass anschließend mehrere Befehle ausgeführt werden sieht es so aus:

[autoit]

If $iReturn = 0 AND $iReturn2 = 1 Then
MsgBox(64,"","iReturn hat den Wert 0")
MsgBox(64,"","iReturn2 hat den Wert 1")
EndIf

[/autoit]

Aber auch Elseif ist möglich:

[autoit]

If $iReturn = 0 Then
MsgBox(64,"","iReturn hat den Wert 0")
ElseIf $iReturn = 1 Then
MsgBox(64,"","iReturn hat den Wert 1")
EndIf

[/autoit]

Hoffe das ist das was du wissen wolltest

Mahagon

So brauchst du keine includes.
Die -3 steckt in der Variable $GUI_EVENT_CLOSE (Schließen) drin

Mahagon

Ich schließe mal daraus, dass du einen Editor basteln willst

Habe hier mal ein kleines Beispiel für dich

Spoiler anzeigen

[autoit]

$hEditor = GUICreate("Editor", 625, 443, 192, 124)
$cMenuDatei = GUICtrlCreateMenu("Datei")
$cMenuSpeichern = GUICtrlCreateMenuItem("Speichern unter...", $cMenuDatei)
$cMenuBeenden = GUICtrlCreateMenuItem("Beenden", $cMenuDatei)
$cEditfeld = GUICtrlCreateEdit("", 8, 8, 601, 401)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3, $cMenuBeenden
Exit
Case $cMenuSpeichern
$sPfad = FileSaveDialog("Speichern...",@DesktopDir,"Textdatei (*.txt)")
If $sPfad <> "" Then
If StringRight($sPfad,4) <> ".txt" Then $sPfad &= ".txt"
FileWrite($sPfad,GUICtrlRead($cEditfeld))
EndIf
EndSwitch
WEnd

[/autoit]

Mahagon

Zitat von EpicWorld

Gutentag,

wie speicher ich ein textdokument wenn das geht dann wie kann ich noch einstellen wo es gespeichert wird, schließe es und maximiere ich es mit dem scripts.

Auserdem wie mach ich die bekannten funktionen:

strg + a = alles makieren

strg + f = suchen

usw. ??

Alles anzeigen

Hm bis auf
"strg + a = alles markieren
strg + f = suchen"
habe ich nichts davon wirklich verstanden, um ehrlich zu sein.
Könntest du das ganze vielleicht noch ein wenig ausführlicher/mit ein klein wenig mehr korrekter Satzstellung formulieren?

Möchtest du Notepad automatisieren oder dir ein eigenes Notepad basteln?

EDIT:

Bezüglich der Hilfe: http://translation.autoit.de/hilfe.php
Herunterladen -> in den AutoIt Ordner kopieren
Befehl in Scite auswählen -> F1 drücken -> glücklich sein

Beiträge von Mahagon

Skript versteckt starten

Skript versteckt starten

CMD - Batch in ein AutoIT-Script konvertieren

CMD - Batch in ein AutoIT-Script konvertieren

FOR-Schleife in IF-Abfrage

Computernamen rausfinden.

.exe geht nicht why??????

iPad

Messenger API

iPad

PSD zu HTML - Benötige Hilfe

Kassenprogramm - AutoIT kann nicht mit Kommazahlen rechnen :(

endlich lappi?

Textdokument-Fragen

Default Programmverzeichnis von Windows abfragen - Fehler bei x64 OS

Default Programmverzeichnis von Windows abfragen - Fehler bei x64 OS

Textdokument-Fragen

Textdokument-Fragen

Textdokument-Fragen

Textdokument-Fragen