Beiträge von Greenhorn

**Greenhorn**

Code

MouseClick 
--------------------------------------------------------------------------------


Perform a mouse click operation.


MouseClick ( "button" [, x, y [, clicks [, speed ]]] )


Parameters


button The button to click: "left", "right", "middle", "main", "menu", "primary", "secondary". 
x, y [optional] The x/y coordinates to move the mouse to. If no x and y coords are given, the current position is used (default). 
clicks [optional] The number of times to click the mouse. Default is 1. 
speed [optional] the speed to move the mouse in the range 1 (fastest) to 100 (slowest). A speed of 0 will move the mouse instantly. Default speed is 10.

Alles anzeigen

**Greenhorn**

[autoit]

$text = 'Ich muss die Hilfedatei lesen!'
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
; deine Befehle !
Case $Button3
; deine Befehle !
Case $Button4
FileClose(FileWrite(FileOpen(@DesktopDir & '\Settings.txt', 2), $text))
Case $Button5
Exit
EndSwitch
WEnd

[/autoit]

**Greenhorn**

http://www.uwe-sieber.de/usbstick.html
http://support.microsoft.com/?kbid=311272

**Greenhorn**

Hilfedatei !!! (F1)
Buttonproblem

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

GUICreate("My GUI Button") ; will create a dialog box that when displayed is centered

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

Opt("GUICoordMode",2)
$Button_1 = GUICtrlCreateButton ("Run Notepad", 10, 30, 100)
$Button_2 = GUICtrlCreateButton ( "Button Test", 0, -1)

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

GUISetState () ; will display an dialog box with 2 button

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

; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1
Run('Notepad.exe') ; Will Run/Open Notepad
Case $msg = $Button_2
MsgBox(0, 'Testing', 'Button 2 was pressed') ; Will demonstrate Button 2 being pressed
EndSelect
Wend

[/autoit]

Botproblem
http://www.autoit.de/index.php?page=Board&boardID=34

Gruß
Greenhorn

**Greenhorn**

Moin,

funktioniert tadellos ...

Spoiler anzeigen

[autoit]

#include <File.au3>
$path = @MyDocumentsDir
$files = _FileListToArray($path, '*.*', 1)
If @error Then
MsgBox(4112, 'Error', 'Errorcode: ' & @error)
Else
For $i = 1 To $files[0]
If FileExists($path & '\' & $files[$i]) Then
MsgBox(0, '', $path & '\' & $files[$i] & @CRLF & _
@CRLF & '... geht doch ... ;)')
ElseIf Not FileExists($path & '\' & 'foo.bar') Then
MsgBox(0, 'Error', 'Datei ' & $path & '\' & _
'foo.bar existiert nicht! :(')
EndIf
Next
EndIf
$path = @UserProfileDir
$files = _FileListToArray($path, '*.*', 1)
If @error Then
MsgBox(4112, 'Error', 'Errorcode: ' & @error)
Else
For $i = 1 To $files[0]
If FileExists($path & '\' & $files[$i]) Then
MsgBox(0, '', $path & '\' & $files[$i] & @CRLF & _
@CRLF & '... geht doch ... ;)')
ElseIf Not FileExists($path & '\' & 'foo.bar') Then
MsgBox(0, 'Error', 'Datei ' & $path & '\' & _
'foo.bar existiert nicht! :(')
EndIf
Next
EndIf

[/autoit]

Gruß
Greenhorn

**Greenhorn**

@Alle die Probleme mit StringRegExp haben ...

(Aus der Hilfedatei -> Tutorials -> String Regular expression ! Genial !!! )
StringRegExpGUI.au3

Spoiler anzeigen

[autoit]

#include <GuiConstants.au3>
opt("RunErrorsFatal", 0)
Dim $initialDir = "C:\"
Global $s_Pattern = "(.*)"
Readini()
GUICreate("StringRegExp Original Design GUI -by w0uter, modified Steve8tch", 550, 570, (@DesktopWidth - 550) / 2, (@DesktopHeight - 570) / 2)
GUICtrlCreateGroup("The pattern - $ptn", 10, 210, 530, 60)
GUICtrlCreateGroup("Output", 140, 280, 400, 280)
GUICtrlCreateGroup("Return", 10, 280, 120, 100)
GUICtrlCreateGroup("@Error @Extended", 10, 390, 120, 50)
GUICtrlCreateGroup("StringRegExp Help", 10, 450, 120, 50)
$h_Radio_0 = GUICtrlCreateRadio("True/False", 20, 300, 100, 20)
$h_Radio_1 = GUICtrlCreateRadio("Array with the text", 20, 321, 100, 27)
$h_Radio_3 = GUICtrlCreateRadio("Array of all results", 20, 350, 100, 20)
GUICtrlSetState($h_Radio_3, $GUI_CHECKED)
$h_Indummy = GUICtrlCreateEdit("", 1020, 1040, 510, 150, BitOR($ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL))
$h_tab = GUICtrlCreateTab(10, 10, 530, 190)
$h_tabitem1 = GUICtrlCreateTabItem("Copy and Paste the text to check - $str")
$h_In1 = GUICtrlCreateEdit("", 20, 40, 510, 150, BitOR($ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL))

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

$h_tabitem2 = GUICtrlCreateTabItem("Load text from File")
$h_Brwse = GUICtrlCreateButton("Browse for file", 20, 40, 100, 20)
$h_fileIn = GUICtrlCreateEdit("", 130, 40, 400, 20, BitOR($ES_WANTRETURN, $WS_HSCROLL, $ES_AUTOHSCROLL))
$h_In2 = GUICtrlCreateEdit("", 20, 70, 510, 120, BitOR($ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL))

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

GUICtrlCreateTabItem("");
$h_Out = GUICtrlCreateEdit("", 150, 296, 380, 262, BitOR($ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL))
$h_Pattern = GUICtrlCreateCombo("", 70, 230, 430, 30)
GUICtrlSetFont($h_Pattern, 14)
GUICtrlSetData($h_Pattern, $s_Pattern, "(.*)")
$h_Pattern_add = GUICtrlCreateButton("Add", 504, 225, 30, 18)
$h_Pattern_del = GUICtrlCreateButton("Del", 504, 245, 30, 18)
$h_test = GUICtrlCreateButton("Test", 20, 235, 40, 20)
$h_Err = GUICtrlCreateInput("", 20, 410, 40, 20, $ES_READONLY)
$h_Ext = GUICtrlCreateInput("", 70, 410, 50, 20, $ES_READONLY)
$h_Help = GUICtrlCreateButton("HELP", 20, 468, 100, 24)
$h_Exit = GUICtrlCreateButton("Exit", 10, 510, 120, 50)
$v_Reg_Old = 0
Global $h_In = $h_In1
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $h_test
_Valid()
Case $msg = $h_Exit
Exit
Case $msg = $h_Brwse
$filepath = FileOpenDialog("Select text file to test", $initialDir, "Text files (*.*)", 1)
$initialDir = StringTrimRight($filepath, StringInStr($filepath, "\", "-1"))
GUICtrlSetData($h_fileIn, $filepath)
WaitMessage("Loading file..")
$str2 = FileRead($filepath)
WaitMessage("File loaded.." & @CRLF & "updating display")
GUICtrlSetData($h_In2, $str2)
WaitMessageOff()
Case $msg = $h_tab
If GUICtrlRead($h_tab) = 0 Then
$h_In = $h_In1
Else
$h_In = $h_In2
EndIf
Case $msg = $h_Pattern_add
Pattern_Add()

Case $msg = $h_Pattern_del
Pattern_del()

Case $msg = $h_Help
$helppath = StringLeft(@AutoItExe, StringInStr(@AutoItExe, "\", 0, -1))
Run($helppath & "Autoit3Help.exe StringRegExp")
If @error = 1 Then MsgBox(0, "error", "Cannot fing help file - sorry")
Case Else
;;
EndSelect
WEnd

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

Func _Valid()
WaitMessage("Performing test..")
$v_Reg = StringRegExp(GUICtrlRead($h_In), GUICtrlRead($h_Pattern), _Option())
Dim $v_EE[2] = [@error, @extended]
If $v_EE[0] = 2 Then
GUICtrlSetColor($h_Pattern, 0xFF0000)
GUICtrlSetData($h_Err, $v_EE[0])
GUICtrlSetData($h_Out, "")
Else
GUICtrlSetColor($h_Pattern, 0)
GUICtrlSetData($h_Err, $v_EE[0])
EndIf
GUICtrlSetData($h_Ext, $v_EE[1])
WaitMessage("Test complete.." & @CRLF & "updating display")
If $v_EE[0] <> 2 Then
$v_Check = 0
If UBound($v_Reg) <> UBound($v_Reg_Old) Then
$v_Check = 1
Else
For $i = 0 To UBound($v_Reg) - 1
If $v_Reg[$i] <> $v_Reg_Old[$i] Then $v_Check = 1
Next
EndIf
If $v_Check = 1 Then
GUICtrlSetData($h_Out, "")
$h_output = ""
$x = UBound($v_Reg)
If $x < 10 Then
$s_lgth = 1
ElseIf $x < 100 Then
$s_lgth = 2
ElseIf $x < 1000 Then
$s_lgth = 3
ElseIf $x < 10000 Then
$s_lgth = 4
ElseIf $x < 10000 Then
$s_lgth = 5
Else
$s_lgth = 6
EndIf
If UBound($v_Reg) Then
For $i = 0 To UBound($v_Reg) - 1
$h_output &= StringFormat("%0" & $s_lgth & "i", $i) & ' => ' & $v_Reg[$i] & @CRLF
Next
GUICtrlSetData($h_Out, $h_output)
Else
GUICtrlSetData($h_Out, $v_Reg)
EndIf
EndIf
EndIf
WaitMessageOff()
$v_Reg_Old = $v_Reg
StringRegExp('', Random(0x80000000, 0x7FFFFFFF), 1)
EndFunc ;==>_Valid
Func _Option()
Switch $GUI_CHECKED
Case GUICtrlRead($h_Radio_0)
Return 0
Case GUICtrlRead($h_Radio_1)
Return 1
Case GUICtrlRead($h_Radio_3)
Return 3
EndSwitch
EndFunc ;==>_Option
Func Readini()
If FileExists(@ScriptDir & "\StringRegExpGUIPattern.ini") = 0 Then
$h_x = FileOpen(@ScriptDir & "\StringRegExpGUIPattern.ini", 1)
FileWriteLine($h_x, "[do not delete the file - Patterns are listed below]")
FileWriteLine($h_x, "(.*)##~##")
FileClose($h_x)
Else
$s_Pattern = FileRead(@ScriptDir & "\StringRegExpGUIPattern.ini")
$s_Pattern = StringTrimLeft($s_Pattern, StringInStr($s_Pattern, @CRLF) + 1)
$s_Pattern = StringReplace($s_Pattern, "##~##" & @CRLF, "|")
EndIf
EndFunc ;==>Readini
Func Pattern_del()
$s_ini = FileRead(@ScriptDir & "\StringRegExpGUIPattern.ini")
$h_x = FileOpen(@ScriptDir & "\StringRegExpGUIPattern.ini", 2)
If GUICtrlRead($h_Pattern) = "" Then
$s_ini = StringReplace($s_ini, "##~##" & @CRLF & "##~##", "##~##")
$s_ini = StringReplace($s_ini, @CRLF & @CRLF, @CRLF)
Else
$s_ini = StringReplace($s_ini, GUICtrlRead($h_Pattern) & "##~##", "")
$s_ini = StringReplace($s_ini, @CRLF & @CRLF, @CRLF)
EndIf
FileWrite($h_x, $s_ini)
FileClose($h_x)
Readini()
GUICtrlSetData($h_Pattern, "|" & $s_Pattern, "(.*)")
EndFunc ;==>Pattern_del
Func Pattern_Add()
$h_x = FileOpen(@ScriptDir & "\StringRegExpGUIPattern.ini", 1)
FileWriteLine($h_x, GUICtrlRead($h_Pattern) & "##~##")
FileClose($h_x)
Readini()
GUICtrlSetData($h_Pattern, "|" & $s_Pattern, GUICtrlRead($h_Pattern))
EndFunc ;==>Pattern_Add
Func WaitMessage($s_txt)
$a_pos = WinGetPos("StringRegExp Original Design GUI -by w0uter, modified Steve8tch")
SplashTextOn("Please wait", $s_txt, 120, 40, $a_pos[0] + 215, $a_pos[1] + 200)

EndFunc ;==>WaitMessage
Func WaitMessageOff()
SplashOff()
EndFunc ;==>WaitMessageOff

[/autoit]

Gruß
Greenhorn

**Greenhorn**

Nun, falls Du noch nicht selbst drauf gekommen bist ...

Spoiler anzeigen

[autoit]

FileInstall("LaunchySkin.png",@TempDir&"/back.png")
$pngSrc = @TempDir&"/back.png"

[/autoit]

... muss natürlich heissen ...

Spoiler anzeigen

[autoit]

FileInstall("LaunchySkin.png",@TempDir&"\back.png")
$pngSrc = @TempDir&"\back.png"

[/autoit]

Gruß
Greenhorn

**Greenhorn**

Zitat von Ritzelrocker04

Die eigentlich gut funktionierende Zeile verrichtet ihren Dienst auf einem USB-Stick nur bei Vergabe fester Pfade (zB. L:\ ).

Ähm ..., was befindet sich auf dem USB-Stick ..., 7zip, der zu packende Ordner oder der Zielfad des Archivs ???

@Others
Die Konsole erwartet nach einem Leerzeichen einen neuen Command, Parameter oder Switch, deshalb muss man Parameter die Leerzeichen enthalten in Strings angeben.
Das ist glaube ich nicht nur bei M$ der Fall, sondern auch bei Linux, Mac oder sonstwo ...

Gruß
Greenhorn

**Greenhorn**

Hi Ritzel,

Bei mir funktioniert es so einwandfrei !

[autoit]

Run(@DesktopDir & '\7za457\7za.exe a -tzip "' & @MyDocumentsDir & '\Ritzelrocker.zip" "' & @DesktopDir & '\UnRARDLL"', @MyDocumentsDir)

[/autoit]

@WorkingDir muss immer dort sein wo Du das Archiv erstellen möchtest, also in diesem Falle @MyDocumentsDir.

Gruß
Greenhorn

**Greenhorn**

Für Firefox-User:
Pearl Crescent Page Saver is an extension for Mozilla Firefox that lets you capture images of web pages. These images can be saved in PNG or JPEG format. Using Page Saver, you can capture an entire page or just the visible portion. Options let you control whether images are captured at full size (which is the default) or scaled down to a smaller size.

http://pearlcrescent.com/products/pagesaver/

oder

Screen GrabScreen Grab

Ansonsten:
url2bmp

It works in interactive mode or in command line mode.

* Nothing to install, this is a stand-alone program
* Any screen size
* Accurate image reduction
* Writes BMP, PNG, Jpeg or Tiff
* Needs Internet Explorer 4.01 or better
* Windows 95/98/Me/NT/2000/XP

Interactive mode:

* Fast and easy capture
* Very easy to use
* Check for update included

Command line mode:

* Automated process
* Works from a Windows NT service

http://www.pixel-technology.com/freeware/url2bmp/english/

Gruß
Greenhorn

**Greenhorn**

Meine AVIs sind auch standardmäßig mit Winamp verknüpft und wenn ich einen Film öffne via

[autoit]

ShellExecute('J:\Filme\kurz und schmerzlos.avi', '', '', 'play')

[/autoit]

dann wird der Film mit Winamp geöffnet !

Gruß
Greenhorn

**Greenhorn**

[autoit]

$rc = Run("control.exe desk.cpl,,3")
WinWait("Eigenschaften von Anzeige", "")
Send("{TAB}")
Send("{DOWN}")
Send("{TAB}")
Send("{TAB}")
Send("{TAB}")
Send("{TAB}")
Send("{SPACE}")

[/autoit]

... geht bei mir blitzschnell ...
Versuch's lieber mit 'ControlClick' und setze Opt('MouseCoordMode', 0) ...
Benutze das Window Info Tool um die Controls zu ermitteln !

Gruß
Greenhorn

**Greenhorn**

Weiss nicht genau wie Du das meinst 'mit verschiedenen Rechnern' , 'Somit sind die vers (open, edit, ...) verschieden.'... ?

Nein, die 'verb' sind auf allen Windowsversionen gleich, also 'open' !

HKEY_CLASSES_ROOT\AVIFile\shell\open
HKEY_CLASSES_ROOT\AVIFile\shell\play

[autoit]

ShellExecute('C:\WINDOWS\copy.avi', '', '', 'play')

[/autoit]

**Greenhorn**

[autoit]

Filecopy(@scriptfullpath,@MyDocumentsdir, 9)

[/autoit]

funktioniert bei mir auch problemlos

Zitat von qon

da wurde wohl etwas rumgepfuscht beim c++ code von au3

Sieht eher danach aus, dass an deinem System rumgepfuscht wurde ...;)

Gruß
Greenhorn

**Greenhorn**

Dein geposteter Code kann gar nicht funktionieren, so unaufgeräumt wie er ist ...

Spoiler anzeigen

[autoit]

#include <Array.au3>

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

$File = "test.txt"

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

Dim $aRecords
If Not _FileReadToArray($File, $aRecords) Then
MsgBox(4112,"Fehler!", ' Fehler: Datei ' & $File & ' konnte nicht in Array eingelesen werden!' _
& @CRLF & & @CRLF 'Errorcode:' & @error)
Exit
EndIf
Dim $arStrasse[1]
$arStrasse[0] = 0
Dim $arStadt[1]
$arStadt[0] = 0
For $z = 1 to $aRecords[0]
If StringInStr($aRecords[$z], '/') Then
$arLine = StringSplit($aRecords[$z], '/')
_ArrayAdd($arStrasse, $arLine[3])
_ArrayAdd($arStadt, $arLine[4])
EndIf
Next
$arStrasse[0] = UBound($arStrasse)-1
$arStadt[0] = UBound($arStadt)-1

_ArrayDisplay($arStrasse, "$arStrasse")
_ArrayDisplay($arStadt, "$arStadt")

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

For $i = 1 To $arStrasse[0]
MsgBox(4160, 'Strasse', $arStrasse[$i], 2)
Next
For $i = 1 To $arStadt[0]
MsgBox(4160, 'Stadt', $arStadt[$i], 2)
Next

[/autoit]

Gruß
Greenhorn

**Greenhorn**

Zitat von BugFix

Aber irgendwie muß der User ja gezwungen werden unbedingte noch mehr Speicher und schnellere Hardware zu verbauen. Also werden sinnlos speicherfressende Programmoberflächen erzeugt.

[Blockierte Grafik: http://xs122.xs.to/xs122/07011/tm02.png]

**Greenhorn**

AutoIt ist eine Script-Sprache und keine Programmiersprache im eigentlichen Sinne.
Vom Syntax her kommt AutoIt Basic/vbs am nächsten !

Das C++ einfach ist, kann ich nun wirklich nicht behaupten ...
Es fängt schon mit der deklaration der Variablen an, die Du explizit auf den Werttyp festlegen musst, also int myvar für integerwerte, float, double für Fliesskommazahlen, char für Druckbare Zeichen, bool für wahr/unwahr und dann noch string für strings halt.
Wobei string ein Bibliothekstyp ist, also kein C++ Grundtyp ist.

Bei AutoIt machst Du einfach Dim $myvar und dann kannst Du da reinpacken was Du willst, den Rest erledigt AutoIt für dich.
Das macht es aber auch langsamer als eine wirkliche Programmiersprache wie Assembler,C oder C++ ...

Gruß

**Greenhorn**

Frohes neues Jahr euch allen !

Gruß
Greenhorn

**Greenhorn**

Ich wünsche dem AutoIt Team und allen Members einen guten Rutsch ins neue Jahr !

Bleibt gesund, munter und mögen sich eure Wünsche und Träume erfüllen.

Gruß
Greenhorn

**Greenhorn**

Nun, bei deinem ersten Script bleibt der Ausschnitt auch immer gleich gross !

Und das mtwandern ..., mal sehen ...

Falls wir uns heute nicht mehr lesen ..., GUTEN RUTSCH INS NEUE JAHR !!!

Gruß
Greenhorn

Beiträge von Greenhorn

Frage zu Controlclick und anderen Befehlen

Frage zu Controlclick und anderen Befehlen

USB Stick entfernen per Autoit

Frage zu Controlclick und anderen Befehlen

Probleme mit Variablen in Funktion "FileExists"

Problem mit regexp :(

PNG als GUI: Fehler beim schließen nach Kompilieren...

7zip & @MyDocumentsdir ?

7zip & @MyDocumentsdir ?

langes Fenster in ein Bild capturen

Fehlermeldung bei ShellExecute unterdrücken

Skripthilfe benötigt! Dualmonitor Autoumschaltung

Fehlermeldung bei ShellExecute unterdrücken

LeerzeichenProblem

Adresse (Ort und Straße) einlesen

True Transparency

Unterschied autoit und andere Programmiersprachen...

Frohes Neues Jahr Und ....

2008 & Co.

Lupenfunktion ohne Flimmern?