Beiträge von bernd670

Hallo,

da hast Du dir gleich einer schwersten Funktionen ausgesucht, um diese Funktion zu benutzen muss man erst mal die Struct DEVMODE nachbilden und der Funktion eine Pointer auf diese Struktur übergeben.

PS: Du musst mir keine PN über neue Beiträge schicken, wenn ich am Rechner sitze und Zeit habe schau ich mir die neuen Beiträge an.

Hallo und :willkommen:,

der API-Funktion GetCurrentProcessId kann man keinen Parameter mitgeben, die gibt nur die ProcessId des Programms zurück das die Funktion aufruft.

Schau dir mal die AutoIt-Funktion ProcessList an, dass ist das was Du suchtst.

Hallo,

bei dem Tool von Veritas handelt es sich wahrscheinlich um WinInstall, dass dient dazu MSI-Pakete zu erstellen.

Auf http://www.administrator.de/MSI_File_erzeu…iscoz.exe).html gibt es eine kleine Doku wie man das Tool verwendet. Wichtig ist nur das man dafür eine PC verwendet auf dem das Programm, aus dem man ein MSI-Paket erstellen, noch nie installiert war.

Hallo,

mit den PowerRam-Sticks habe ich auch öfter mal Probleme!

Es gibt von PowerRam ein Tool zum LowLevel-Formatieren -> http://www.satron.at/pdf/Pretest_v2-7-00.zip -> probiers mal damit!

Hi,

die DLL ist bei MySQL dabei, normal im Verzeichnis lib\opt!

Wenn Du den Parameter für $i_right und $i_bottom auf die gleichen Werte setzt wie $i_left und $i_top, kann man die Maus nicht mehr bewegen bis _MausTrap() ohne Parameter aufgerufen wird.

_MouseTrap(@DesktopWidth - 1, 0, @DesktopWidth - 1, 0)

Hallo,

probier mal folgendes, ShowCursor funktioniert nicht immer, ist wahrscheinlich vom Maustreiber abhängig:

$aMGP = MouseGetPos()

ClipCursor($aMGP[0],$aMGP[1],$aMGP[0],$aMGP[1]) ; Maus einfrieren
ShowCursor(0) ; Maus ausschalten
sleep(5000)
ClipCursor() ; Maus freigeben
ShowCursor(1) ; Maus einschalten

Func ShowCursor($dwShow)
$retval = DllCall("user32.dll", "long", "ShowCursor", "long", $dwShow)
EndFunc

Func ClipCursor($dwLeft=-1, $dwTop=-1, $dwRight=-1, $dwBottom=-1)
Local $tRect = DllStructCreate("long Left;long Top; long Right;long Bottom")
Local $pRect, $retval

If $dwLeft = -1 And $dwTop = -1 And $dwRight = -1 And $dwBottom = -1 Then
$pRect = 0
Else
DllStructSetData($tRect, "Left" , $dwLeft )
DllStructSetData($tRect, "Top" , $dwTop )
DllStructSetData($tRect, "Right" , $dwRight )
DllStructSetData($tRect, "Bottom", $dwBottom)
$pRect = DllStructGetPtr($tRect)
EndIf

$retval = DllCall("user32.dll", "long", "ClipCursor", "ptr", $pRect)
EndFunc

@Gta, bei mir funktioniert auch das!

Hallo,

Zippen kann normal jeder, allerdings nur Dateien und Verzeichnisse auf die man auch das Zugriffsrecht hat.

Hallo,

bei mir geht es auch ohne den Button neu zu erstellen:

#include <GUIConstants.au3>

GUICreate("Test", 107, 53, 193, 125, -1, $WS_EX_TOOLWINDOW)
$button = GUICtrlCreateButton("", 8, 8, 91, 36, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", Random(0,49,1))
GUISetState()

While 1
$msg = GUIGetMsg()
If $msg = -3 Then Exit
If $msg = $button Then
GUICtrlSetImage($button, "shell32.dll", Random(0,49,1))
EndIf

WEnd

Hallo,

Der Aufruf lautet:

D:\Skript\ZIPEXE\zip.exe D:\Test\<archivname> <zu_archivierende_Datei(en)>

Hallo und :willkommen:,

das kann man mit ControlCommand lösen:

Run("rundll32.exe shell32.dll,Control_RunDLL modem.cpl")

WinWait("Telefon- und Modemoptionen")

While ControlCommand("Telefon- und Modemoptionen", "", "SysTabControl321", "CurrentTab", "") < 3
ControlCommand("Telefon- und Modemoptionen", "", "SysTabControl321", "TabRight", "")
Wend

Hallo,

Wir wäre es mit dem Namen _GuCtrlCtreateDottedBorder! Die Funktion kann man etwas kürzen:

Edit [07.11.2007]: Fehler korrigiert (Danke Carsten)

Hallo,

komisch wohl deshalb weil die vielen IF's den Code unübersichtlich machen,
ich z.B. würden das in etwa so:

If $Msg[0] = $GUI_EVENT_CLOSE AND $Msg[1] = $Form1 Then Exit

If $Msg[0] = $Savebut AND $Msg[1] = $Form1 Then
$logPath = FileOpen(@ScriptDir & '\send.log', 2)
MsgBox(0, "", "es funzt -.-")
FileWrite($logPath, $F1Send & @CRLF)
FileWrite($logPath, $F2Send & @CRLF)
FileWrite($logPath, $F3Send & @CRLF)
FileWrite($logPath, $F4Send & @CRLF)
FileWrite($logPath, $F5Send & @CRLF)
EndIf

oder so:

Switch $Msg[1]

Case $Form1
Switch $Msg[0]

Case $GUI_EVENT_CLOSE
Exit

Case $Savebut
$logPath = FileOpen(@ScriptDir & '\send.log', 2)
MsgBox(0, "", "es funzt -.-")
FileWrite($logPath, $F1Send & @CRLF)
FileWrite($logPath, $F2Send & @CRLF)
FileWrite($logPath, $F3Send & @CRLF)
FileWrite($logPath, $F4Send & @CRLF)
FileWrite($logPath, $F5Send & @CRLF)

EndSwitch ;==> $Msg[0]
EndSwitch ;==> $Msg[1]

lösen!

Hallo,
kannst Du deine Frage so formulieren das man versteht was Du willst!

Von Rechtsklick war ja bisher nicht die Rede, mit

Send("{APPSKEY}")

kann man die Taste rechts neben der rechten Windows-Taste simulieren, was den gleichen effekt hat wie Rechtsklick auf eine Datei.

Hallo,

was soll den genau passieren, wenn ich im Explorer auf eine ausgewählte Datei einen einzelnen Mausclick mache passiert ja auch nicht viel.

Hallo,

ein Mausklick kann immer nur an der Stelle ausgeführt werden an der sich die Maus befindet, sonst wäre es ja kein Mausklick! Um das gerade aktive Element auszuwählen müsste ein einfaches

Send("{ENTER}")

funktionieren!

Hallo,

geht es denn wenn Du die 4,5GB große Datei von Hand kopierst?

Welches Betriebssystem/Filesystem hat den dein PC?

Hallo,

die Backslash vor Printserver stehen an der falschen Stelle, ausserdem fehlt eins:

RunWait(@ComSpec & ' /c ' & 'c:\windows\system32\cscript.exe c:\windows\system32\prnmngr.vbs -ac -p "\\' & $printserver & '\' & $printernewname & '"')