Beiträge von Greenhorn

**Greenhorn**

Moin,

Das hier wäre eine Lösungsmöglichkeit ...

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

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

$hWnd = GUICreate('PopUp',200,200,-1,-1)

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

Global $input[4] ; Array für Input IDs
$input[0] = 3 ; Anzahl der Steuerelemente

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

$input[1] = GUICtrlCreateInput('', 20, 20, 20, 20, $ES_NUMBER)
GUICtrlSetLimit(-1, 2, 2)

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

GUICtrlCreateLabel('-', 42, 20)
GUICtrlSetFont(-1, 12)

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

$input[2] = GUICtrlCreateInput('',50, 20, 20, 20, $ES_NUMBER)
GUICtrlSetLimit(-1, 2, 2)

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

GUICtrlCreateLabel('-', 72, 20)
GUICtrlSetFont(-1, 12)

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

$input[3] = GUICtrlCreateInput('',80, 20, 20, 20, $ES_NUMBER)
GUICtrlSetLimit(-1, 2, 2)

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

GUISetState()

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

While 1

Switch GUIGetMsg()

Case -3
Exit
EndSwitch

For $i = 1 To $input[0] - 1 ; Das letzte Element nicht prüfen
; erstes Feld prüfen
If StringLen(GUICtrlRead($input[$i])) = 2 Then
; nächstes Feld prüfen
If StringLen(GUICtrlRead($input[$i + 1])) <> 0 Then
ContinueLoop
Else
GUICtrlSetState($input[$i + 1], $GUI_FOCUS)
EndIf
EndIf
Next

WEnd

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

Gruß
Greenhorn

**Greenhorn**

Moin,

oftmals bieten Konsolenprogramme einen Parameter um die Ausgabe in eine Datei zu schreiben.
Bei Programmen die aus der Linux-Welt kommen ist es meist '-o' ...

Rufe doch einfach mal die Hilfe auf (-h, /h, help ...) und prüfe, ob so ein Parameter existiert ...

Gruß
Greenhorn

**Greenhorn**

Hi,

ich habe ein wenig mit dem Code gespielt -> ohne Erfolg.

Ich denke Du wirst die WM_SIZE Message abfangen müssen und das Fenster Neu zeichnen ...

Gruß
Greenhorn

**Greenhorn**

Sieht wirklich prima aus, Danke Oscar.

Jetzt brauche ich nur noch 'nen geräuschlosen PC, dann kann ich meinen alten Wecker endlich ausmustern ...

Gruß
Greenhorn

**Greenhorn**

... siehe auch Dateiformat, bzw. Grafikformat

Gruß

**Greenhorn**

Moin,

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

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

; klappt komischerweise mit 'googEL.de'
$oIE = _IECreate ("www.googel.de")

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

$hWnd = GUICreate("TEST", 500, 400)

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

$label = GUICtrlCreateLabel("", 10, 20, 480, 300)
$button = GUICtrlCreateButton('Aktualisieren', 200, 340, 100, 25)

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

GUISetState()

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

While 1

$msg = GUIGetMsg()

Switch $msg

Case $GUI_EVENT_CLOSE
Exit
Case $button
Refresh($oIE)
EndSwitch

WEnd

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

Func Refresh($obj)

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

$sText = _IEBodyReadText ($obj)
GUICtrlSetData($label, $sText)

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

EndFunc

[/autoit]

... oder

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ListBoxConstants.au3>
#include <IE.au3>

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

; klappt komischerweise mit 'googEL.de'
$oIE = _IECreate ("www.googel.de")

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

$hWnd = GUICreate("TEST", 500, 400)

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

$edit = GUICtrlCreateEdit("", 10, 20, 480, 300)
$button = GUICtrlCreateButton('Aktualisieren', 200, 340, 100, 25)

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

GUISetState()

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

While 1

$msg = GUIGetMsg()

Switch $msg

Case $GUI_EVENT_CLOSE
Exit
Case $button
Refresh($oIE)
EndSwitch

WEnd

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

Func Refresh($obj)

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

$sText = _IEBodyReadText ($obj)
GUICtrlSetData($edit, '')
GUICtrlSetData($edit, $sText)

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

EndFunc

[/autoit]

Gruß
Greenhorn

**Greenhorn**

Moin,

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

GUICreate("TEST", 500, 400)

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

$menu = GUICtrlCreateMenu("Datei")
$item = GUICtrlCreateMenuItem("Datei Öffnen...", $menu)
$item2 = GUICtrlCreateMenuItem("Beenden", $menu)

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

GUICtrlCreateGroup("Datei öffnen", 10, 10, 480, 60)
$button = GUICtrlCreateButton("Durchsuchen...", 370, 30, 100, 25)
$button2 = GUICtrlCreateButton("Umbenennen", 200, 320, 100, 25)
$input = GUICtrlCreateInput("", 20, 30, 330, 25)
$radio = GUICtrlCreateRadio("JPG -> BMP", 20, 100)

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

GUISetState()

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

While 1
$msg = GUIGetMsg()

Switch $msg

Case $GUI_EVENT_CLOSE
Exit
Case $button
$sJpegs = FileOpenDialog("Datei öffnen...", @DesktopDir, "JPG (*.jpg*)", 7)
GUICtrlSetData($input, $sJpegs)
Case $item
$sJpegs = FileOpenDialog("Datei öffnen...", @DesktopDir, "JPG (*.jpg*)", 7)
GUICtrlSetData($input, $sJpegs)
Case $item2
Exit
Case $button2
If GUICtrlRead($radio) = $GUI_CHECKED Then
;JpgToBmp($sJpegs)
EndIf
EndSwitch

WEnd

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

Func JpgToBmp($filename)

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

; GDI+ initialisieren.
_GDIPlus_Startup()

; falls mehrere Dateien mit FileOpenDialog ausgewählt wurden ...
If StringInStr($filename, '|') Then
$aFilenames = StringSplit($filename, '|')

For $i = 1 To $aFilenames[0]
; Handle zu Imageobjekt erhalten.
$hImg = _GDIPlus_ImageLoadFromFile($filename)
; Imageobjekt als Bitmapdatei abspeichern.
_GDIPlus_ImageSaveToFile($hImg,$filename & ".bmp")
; Imageobjekt auflösen.
_GDIPlus_ImageDispose($hImg)
Next
; ... falls nicht.
Else
; Handle zu Imageobjekt erhalten.
$hImg = _GDIPlus_ImageLoadFromFile($filename)
; Imageobjekt als Bitmapdatei abspeichern.
_GDIPlus_ImageSaveToFile($hImg,$filename & ".bmp")
; Imageobjekt auflösen.
_GDIPlus_ImageDispose($hImg)
EndIf
; GDI+ beenden.
_GDIPlus_Shutdown()

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

EndFunc

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

Gruß
Greenhorn

**Greenhorn**

Hi,

sorry, verstehe nicht ganz was Du meinst ... ???

kannst Du bitte dein Script posten, dann wird's vllt klarer ?

Gruß
Greenhorn

**Greenhorn**

Moin,

hier ein kleines Beispiel wie man seine eigene Fensterklasse und Fensterprozedur erstellt und registriert ...
(Danke an C. Petzold ... ;))

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include-once
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include 'HelloAutoIt.h.au3'
;;;

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

Global $hWindowProc = DllCallbackRegister('WindowProc', 'long', 'hwnd;uint;wparam;lparam')
Global $stAppName = DllStructCreate('char szAppName[128]')
Global $szAppName = DllStructSetData($stAppName, 'szAppName', 'HelloWin')
Global $hInst = GetModuleHandle()

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

WinMain()

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

Func WinMain()

Global $hWnd
Global $Msg = DllStructCreate($stMSG)
Global $WndClassEx = DllStructCreate($stWNDCLASSEX)

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

DllStructSetData($WndClassEx,'cbSize', DllStructGetSize($WndClassEx))
DllStructSetData($WndClassEx,'style', BitOR($CS_HREDRAW, $CS_VREDRAW))
DllStructSetData($WndClassEx,'lpfnWndProc', DllCallbackGetPtr($hWindowProc))
DllStructSetData($WndClassEx,'cbClsExtra', 0)
DllStructSetData($WndClassEx,'cbWndExtra', 0)
DllStructSetData($WndClassEx,'hInstance', $hInst)
DllStructSetData($WndClassEx,'hIcon', LoadIcon($NULL, $IDI_APPLICATION))
DllStructSetData($WndClassEx,'hCursor', LoadCursor($NULL, $IDC_ARROW))
DllStructSetData($WndClassEx,'hbrBackground', GetStockObject($WHITE_BRUSH))
DllStructSetData($WndClassEx,'lpszMenuName', $NULL)
DllStructSetData($WndClassEx,'lpszClassName', DllStructGetPtr($stAppName))
DllStructSetData($WndClassEx,'hIconSm', LoadIcon($NULL, $IDI_APPLICATION))

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

$lpMyWndClass = DllStructGetPtr($WndClassEx)
$lpMsg = DllStructGetPtr($Msg)

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

If Not RegisterClassEx($lpMyWndClass) Then
MsgBox(266256, Default, 'Die Fensterklasse konnte nicht registriert werden !')
Exit
EndIf

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

$hWnd = CreateWindowEx($WS_EX_OVERLAPPEDWINDOW, _
$szAppName, $szAppName, _
$WS_OVERLAPPEDWINDOW, _
$CW_USEDEFAULT, $CW_USEDEFAULT, _
$CW_USEDEFAULT, $CW_USEDEFAULT, _
$NULL, $NULL, $hInst, $NULL)

ShowWindow($hWnd, 5)
UpdateWindow($hWnd)

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

While GetMessage($lpMsg, $hWnd, 0, 0)

TranslateMessage($lpMsg)
DispatchMessage($lpMsg)

WEnd

Return DllStructGetData($Msg, 'wParam')

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

EndFunc
;

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

Func WindowProc($hWnd, $uMsg, $wParam, $lParam)

Switch $uMsg

Case $WM_CREATE
SoundPlay(@WindowsDir & "\media\tada.wav", 0)
Return 0;

Case $WM_PAINT
$rect = DllStructCreate($stRECT)
$ps = DllStructCreate($stPAINTSTRUCT)

$hDC = BeginPaint($hWnd, DllStructGetPtr($ps))

GetClientRect($hWnd, DllStructGetPtr($rect))

DrawText($hDC, 'Hello AutoIt3 !', -1, DllStructGetPtr($rect), _
BitOR($DT_SINGLELINE, $DT_CENTER, $DT_VCENTER))

EndPaint($hWnd, DllStructGetPtr($ps))
Return 0;

Case $WM_CLOSE
DestroyWindow($hWnd)
Return 0;

Case $WM_DESTROY
PostQuitMessage(0)
Return 0;
EndSwitch

Return DefWindowProc($hWnd, $uMsg, $wParam, $lParam)

EndFunc
;

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

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Gruß
Greenhorn

**Greenhorn**

Zitat von azunai

dein name macht dir alle ehre xD
wie soll bitte ein mouseclick in einem inaktiven fenster von nutzen sein? xD

[autoit]

WinActivate("[CLASS:Notepad]", "")

[/autoit]

Gruß

**Greenhorn**

Dann probiere es bitte mal mit MouseClick() und Opt('MouseCoordMode', 0) ...

Gruß

**Greenhorn**

Zitat von Eistee

Äh Danke für die Hilfe aber wenn dann wirklich sowas

http://www.autoitscript.com/forum/index.…&hl=unzip+files

bei rauskommt ohne das man so was kapieren kann selbst wenn mann sich anstrengt dann ne...

Was bitte hast Du denn daran jetzt nicht verstanden

Beispiel liegt doch bei !?

Hier noch mal in kurzform

Spoiler anzeigen

[autoit]

#include '_ZipPlugin.au3'

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

; Plugin öffnen.
$hPluginDll = PluginOpen('Au3Zipc.dll')

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

; Zip Archiv Handle, ...
$hArchive = _ZipCreate('C:\Test.zip')
; ... Datei hinzufügen ...
_ZipAdd($hArchive, @WindowsDir & '\ShellNew\Template.au3')
; ... und Handle schließen.
_ZipClose($hArchive)

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

; Zip Archiv entpacken.
_ZipUnZip('C:\Test.zip', 'C:\ZipTest')

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

; PlugIn schließen.
PluginClose($hPluginDll)

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

Gruß

**Greenhorn**

Moin,

das sollte es sein ...

[autoit]

ControlCommand("Fenstertitel", "Fenstertext", controlID des Buttons, "IsChecked", "")

[/autoit]

Gruß
Greenhorn

**Greenhorn**

Zitat von azunai

-.- ja klar -.- aber dann trifft der mouseclick zb nur jedes 2te mal -.- das ganze ist dann ziemlich unzuverläßig -.- probiers aus -.-

Du hast die Alternative bereits erwähnt ...

Gruß
Greenhorn

**Greenhorn**

Moin,

[autoit]

GuiCtrlSetState($date2, $GUI_HIDE)

[/autoit]

... z.B.

Gruß
Greenhorn

EDIT:
Sorry, sehe gerade, ist natürlich Schwachsinn ...

**Greenhorn**

Zitat von Eistee

wenn ich in der hilfe winrar eingebe kommt dazu nur iwas mit atributen oder so...

Du meinst doch nicht etwa die AutoIt Hilfe, oder ... ?!

7-zip, bzw. 7za.exe, ist wesentlich besser als WinZip.

Aber warum so kompliziert ...
Sieh dir das hier mal an ...
http://www.autoitscript.com/forum/index.php?showtopic=44524&hl=unzip+files

Gruß
Greenhorn

**Greenhorn**

Moin,

[autoit]

$hSearch = FileFindFirstFile($path & '*.lwp')

[/autoit]

Gruß
Greenhorn

**Greenhorn**

Hi,

geht auch anders ...

[autoit]

#include <INet.au3>

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

Dim $Serverurl = "http://aquila.dyndns.org/"
Dim $File = "hallo.txt"

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

$sText = _INetGetSource($Serverurl & $File)
If @error Then Exit
MsgBox(266304, Default, $sText)

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

Gruß
Greenhorn

**Greenhorn**

Hi,

bitte lies dir die Hilfe zu den Funktionen aufmerksam durch ...

So sollte es gehen.

[autoit]

$WinTitle = "Konfigurationsassistent: Kaspersky Internet Security"
WinActivate($WinTitle, "Informationen zur Lizenz")
WinWaitActive($WinTitle, "Informationen zur Lizenz")
sleep("300")
;~ if ControlClick("Konfigurationsassistent: Kaspersky Internet Security", "&Weiter >", "AVP.Button44") then Exit ??? MsgBox("0", "Klick", "Ja hat geklickt")
$WinText = 'Es ist bereits ein Lizenzschlüssel installiert'
if ControlClick($WinTitle, $WinText, "&Weiter >", "left") then
MsgBox(266304, "Klick", "Ja hat geklickt", 2)
EndIf

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

Gruß
Greenhorn

**Greenhorn**

Zitat von progandy

Das geht aber auch nur, wenn das Directory Listing angeschaltet ist, oder? Dann kann man das aber auch mit AutoIt machen

Das weiß ich nicht, mein Bester.

Von Servern und deren Handhabung habe ich leider keinen Plan.
Wen es denn auch mit AutoIt geht, dann ist gut ...

Gruß

Beiträge von Greenhorn

Gui Input - Frage

Kommandozeilen-Programm ausführen und die Ausgabe dann in .txt - Datei schreiben

GDI+ Grafik verschwindet nach Resize des Fensters

Digitaluhr

Dateityp umbennen?

Seiten auslesen und als Label wiedergeben

Dateityp umbennen?

der text den ich eintippe soll eingetippt werden

Hello AutoIt3

Control Send/click alternative

Kaspersky Setup Script

Winzip mit autoit ?

Prüfen ob Button in einem anderen Fenster geklickt wird

Control Send/click alternative

Input während der Eingabe überprüfen???

Winzip mit autoit ?

Konvertertool - Ordner übergreifend

text datei auslesen?

Kaspersky Setup Script

File Download beschtimmter datein