Hi,
nein, dass siehst Du so richtig. MSTSC lässt sich allerdings so aufrufen, dass ein zuvor definiertes Profil geladen wird:
mstsc.exe "HOSTNAME.rdp" /console
Die Datei kann man einfach erstellen, wenn man MSTSC ohne Parameter aufruft.
Ich versteh nicht ganz warum Du erst eine GUI bauen möchtest, MSTSC bringt doch bereits eine mit!?
Hi, funktioniert so noch nicht. Ist aber ein erster Anhaltspunkt:
#NoTrayIcon
#include <GUIConstants.au3>
main()
[/autoit] [autoit][/autoit] [autoit]Func OnAutoItStart()
Opt("MustDeclareVars", 1)
EndFunc ;==>OnAutoItStart
Func main()
Local $h_bruttoinp = -1, $h_mwstinp = -1, $h_ausgabelbl = -1, $h_rechnenbt = -1, $h_closebt = -1
Local $n_brutto = "", $n_mwst = ""
GUICreate("BNR v 1.0", 172, 263, 193, 117)
$h_bruttoinp = GUICtrlCreateInput("", 16, 48, 137, 21)
$h_mwstinp = GUICtrlCreateInput("19", 16, 112, 137, 21, $ES_NUMBER)
$h_ausgabelbl = GUICtrlCreateLabel("", 16, 176, 136, 17)
$h_rechnenbt = GUICtrlCreateButton("&Rechnen", 8, 208, 65, 25, 0)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$h_closebt = GUICtrlCreateButton("&Beenden", 88, 208, 65, 25, 0)
GUICtrlCreateLabel("Brutto-Betrag :", 16, 24, 72, 17)
GUICtrlCreateLabel("Mwst-Satz :", 16, 88, 59, 17)
GUICtrlCreateLabel("Netto-Betrag :", 16, 152, 70, 17)
GUICtrlCreateLabel("Brutto - Netto - Rechner", 24, 240, 119, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
Switch GUIGetMsg()
Case $h_rechnenbt
$n_brutto = StringReplace(GUICtrlRead($h_bruttoinp), ',', '.')
$n_mwst = GUICtrlRead($h_mwstinp)
If Not _IsGermanCurrency($n_brutto) Then
MsgBox(64, $n_brutto, "Nur Zahlen und statt Komma den Punkt verwenden " & @CR & "Bitte überprüfen Sie Ihre Eingaben !")
ElseIf $n_mwst <> 7 And $n_mwst <> 16 And $n_mwst <> 0 And $n_mwst <> 19 Then
MsgBox(64, $n_mwst, "Die Mwst kann nur 0, 7, 16, oder 19 Prozent betragen, " & @CR & "Bitte überprüfen Sie Ihre Eingaben !")
Else
GUICtrlSetData($h_ausgabelbl, Round($n_brutto / (100 + $n_mwst) * $n_mwst, 2))
EndIf
Case $GUI_EVENT_CLOSE, $h_closebt
Exit
EndSwitch
WEnd
EndFunc ;==>main
Func _IsGermanCurrency(Const $S_TEXT)
Return (StringRegExp($S_TEXT, "^\d+(,\d{1,2})?$", 0))
EndFunc ;==>_IsGermanCurrency
Habl leider keine Zeit jetzt, da ich weg muss.
LOL,
man war ich verpeilt. Naja...
Hi,
wie immer hilft die Hilfe!
_IECreate - Create an Internet Explorer Browser Window.
Die Funktion öffnet ein IE-Fenster und navigiert zu der übergebenen URL. Damit _IE-Funktionen darauf zugreifen können, liefert _IECreate eine Objektvariable mit einem Zeiger auf eine InternetExplorer.Application zurück.
Steht aber wie gesagt auch alles in der Hilfe...
Hi,
ja, wird wirklich nichts geschlossen. Für die beste Lösung halte ich es den Puffer nach und nach zu füllen und dann am Ende einmal. StdinWrite mit String und danach ohne auszuführen.
[/closed]
Hi,
ich hab mich eben mal etwas mit StdinWrite beschäftigt, weil es mir öfters Probleme machte. Ich glaube ich habe es jetzt verstanden, wollte bloß noch einmal nachfragen, ob es so auch korrekt ist. Erst einmal ein Testskript:
Global $i_pid = Run('"' & @ComSpec & '" /c "diskpart.exe"', @SystemDir, @SW_HIDE, 3)
Global $s_stdin = "SELECT DISK 0" & @CRLF & "HELP" & @CRLF & "EXIT"
StdinWrite($i_pid, $s_stdin)
StdinWrite($i_pid)
While ProcessExists($i_pid)
Sleep(50)
WEnd
MsgBox(64, "Debug", StdoutRead($i_pid))
Exit
Global $i_pid = Run('"' & @ComSpec & '" /c "diskpart.exe"', @SystemDir, @SW_HIDE, 3)
StdinWrite($i_pid, "SELECT DISK 0" & @CRLF)
StdinWrite($i_pid, "HELP" & @CRLF)
StdinWrite($i_pid, "EXIT")
StdinWrite($i_pid)
While ProcessExists($i_pid)
Sleep(50)
WEnd
MsgBox(64, "Debug", StdoutRead($i_pid))
Exit
Zunächst einmal starte ich diskpart.exe. Dann selektiere ich den ersten Datenträger und gebe den HELP-Befehl ein. Daraufhin schließe ich den Standard-Input und warte solange bis der Prozess nicht mehr existiert. Danach lasse ich mir die Standard-Ausgabe in einer MsgBox ausgeben.
Soweit so gut. Sehe ich das richtig, dass StdinWrite($i_pid) nicht nur den Standard-Input absetzt, sondern gleichzeitig den Prozess beendet? Oder kommt mir das nur so vor? Weil dann könnte ich ja auf die While-Schleife verzichten, was aber zu Fehlern führt. Ich dachte bisher, dass Anwendungen wie diskpart.exe am Ende explizit mit EXIT (halt anwendungsabhängig) beendet werden müssen, da sonst der Prozess weiter existiert.
Soll heißen, wenn ich mir in einem Skript erst einmal einen längeren Standardinput generieren möchte, so muss ich entweder immer wieder StdinWrite mit dem String-Parameter aufrufen (2. Beispiel), oder aber den String für den StandardInput zusammensetzen und am Ende einmal mittels StdinWrite ausführen (1. Beispiel)? Auf jedenfall verhindert StdinWrite ohne String die Eingabe weiterer Strings und beendet die Anwendung?
Bitte korrigiert mich, falls ich falsch liege!
MFG
lol, find ich ja sehr lustig blubkuh!
so jetzt schluss mit ot!
Wow. zwar total Offtopic der Post, aber was ist das denn!?
Dieser Beitrag wurde 9521 mal editiert, zum letzten Mal von Blubkuh: Morgen, 02:28.
Hi,
Ich glaube da haperts schon an der Funktionsweise. Schau Dir mal Folgendes an:
main()
[/autoit] [autoit][/autoit] [autoit]Func main()
Local Const $I_TIMEOUT = 10000 ;~ Time in milliseconds...
WinWaitActive("")
Sleep(2000)
While 1
Sleep(500)
Send("{F3 down}")
Sleep(600)
Send("{F3 up}")
Sleep(700)
Send("{F4 down}")
Sleep(600)
Send("{F4 up}")
$n_timer = TimerInit() ;~ Start Timer
While TimerDiff($n_timer) < $I_TIMEOUT ;~ Check for Timeout
If PixelGetColor(510, 30) = 16381432 Then
Sleep(Random(2000, 4000, 1))
Send("{F4 down}")
Sleep(600)
Send("{F4 up}")
ExitLoop
EndIf
Sleep(250)
WEnd
Send("{F4 down}")
Sleep(600)
Send("{F4 up}")
Sleep(10000)
WEnd
EndFunc ;==>main
Achja, Debuggen auf die Konsole kannst Du mit
[autoit]ConsoleWrite()
[/autoit](nur in Verbindung mit SciTE!)...
So, wieder Zeit.
@huggy, danke aber siehe gtaspider. 
GtaSpider : Super Sache! Hab mal eben in die Hilfe geschaut und sieh da:
Passing a positive number will reference the string equivalent icon name.
Passing a negative number causes 1-based "index" behaviour. Some Dll can have icon extracted just with negative numbers.
Klasse, ich krieg mal wieder nix mit. Mit welcher Version wurde das denn geändert?
[/closed]
EDIT: @propagandy. Was, wie? Läuft doch jetzt. Was meinst Du denn?
Hi,
wollte mal "eben schnell" ein paar Icons mit in meine EXE kompilieren. Sie sind auch definitiv drin, doch kann ich nicht auf sie zugreifen. Beispielskript von SciTE:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Icon_Add=C:\Programme\AutoIt3\Icons\au3.ico
#AutoIt3Wrapper_Res_Icon_Add=C:\Programme\AutoIt3\Icons\filetype1.ico
#AutoIt3Wrapper_Res_Icon_Add=C:\Programme\AutoIt3\Icons\filetype2.ico
#AutoIt3Wrapper_Res_Icon_Add=C:\Programme\AutoIt3\Icons\filetype3.ico
#AutoIt3Wrapper_Res_Icon_Add=C:\Programme\AutoIt3\Icons\filetype-blank.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
GUICreate("Demo resource ICO's")
$h_Button1 = GUICtrlCreateButton("my picture button", 10, 20, 40, 40, $BS_ICON)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]For $x = 0 To 7
$rc = TraySetIcon(@ScriptFullPath, $x)
$rc2 = GUICtrlSetImage($h_Button1, @ScriptFullPath, $x)
If $x < 3 Then
TrayTip("Default ico:" & $x, "TraySetIcon rc:" & $rc & @LF & "GUICtrlSetImage rc:" & $rc2, 3)
Else
TrayTip("New ico:" & $x, "TraySetIcon rc:" & $rc & @LF & "GUICtrlSetImage rc:" & $rc2, 3)
EndIf
Sleep(2000)
Next
GUIDelete()
[/autoit]Meckert auch nicht. Ich seh da jetzt auch keinen Fehler... Hat der irgendwer eine Idee, woran es liegen kann?
Hi,
ich dreh hier gleich am Rad. Ich habe ein Problem mit WMI und zwar habe ich Funktionen geschrieben, die die aktuelle CPU-Auslastung auslesen. Als Anstoss hatte ich dazu die Funktion _ProcessListCPU() von novatek.
Ich habe zwei Funktionen: _CPUUsageInit(), die ein Array mit 10000 Indizes (für jede mögliche PID) erstellt und das erste Mal die Process-Zeiten ausliest und _CPUUsageGet(), die das Array entgegennimmt und daraus die CPU-Auslastung anhand aktualisierter Process-Zeiten vornimmt.
Wenn ich mein Skript ausführe, erhöht sich die Speicherauslastung meines Skriptes kontinuirlich um mehrere KByte pro Aufruf von _CPUUsageGet(). Ich weiß aber überhaupt nicht woran das liegt, da das Skript von novatek dieses Problem nicht hat und ich in meinem keinen Fehler erkennen kann.
Vielleicht kann mir ja einer weiter helfen!
EDIT: Code entfernt, da Problem eigenständig gelöst. Es lag daran, dass jedesmal erneut ein ObjGet() ausgeführt wurde. Daher eine neue Frage: Gibt es eine Möglichkeit die Objekte wieder zu zerstören und somit Speicherplatz freizugeben?
Hi,
ehm, willst Du das so? Ich versteh nicht ganz, was nachher in der Datei stehen soll!
ocal Const $S_FILE = @ScriptDir & "\log.txt"
Local $ai_numbers[100]
For $i = 0 To 99
$ai_numbers[$i] = 1
Next
Local $h_file = FileOpen($S_FILE, 2)
For $i = 0 To 99
FileWrite($h_file, Chr($ai_numbers[$i]))
Next
FileClose($h_file)
MsgBox(64, $S_FILE, FileGetSize($S_FILE))
[/autoit]PS: Code-Tags verwenden bitte!
Hi,
danke für Eure Antworten. Sieht beides sehr gut aus, bloß bekomme ich es mit Euren Styles nicht hin, dass auch eine Animation funktioniert. Hier mal mein vollständiger Code, wie das Ganze nachher aussehen (und funktionieren) soll. Ist aber halt voll zusammengebastelt, da die GUIs nicht "aneinander kleben"...
#include <GUIConstants.au3>
Opt("MustDeclareVars", 1)
Global Const $AW_FADE_IN = 0x00080000 ;fade-in
Global Const $AW_FADE_OUT = 0x00090000 ;fade-out
Global Const $AW_SLIDE_IN_LEFT = 0x00040001 ;slide in from left
Global Const $AW_SLIDE_OUT_LEFT = 0x00050002 ;slide out to left
Global Const $AW_SLIDE_IN_RIGHT = 0x00040002 ;slide in from right
Global Const $AW_SLIDE_OUT_RIGHT = 0x00050001 ;slide out to right
Global Const $AW_SLIDE_IN_TOP = 0x00040004 ;slide-in from top
Global Const $AW_SLIDE_OUT_TOP = 0x00050008 ;slide-out to top
Global Const $AW_SLIDE_IN_BOTTOM = 0x00040008 ;slide-in from bottom
Global Const $AW_SLIDE_OUT_BOTTOM = 0x00050004 ;slide-out to bottom
Global Const $AW_DIAG_SLIDE_IN_TOPLEFT = 0x00040005 ;diag slide-in from Top-left
Global Const $AW_DIAG_SLIDE_OUT_TOPLEFT = 0x0005000a ;diag slide-out to Top-left
Global Const $AW_DIAG_SLIDE_IN_TOPRIGHT = 0x00040006 ;diag slide-in from Top-Right
Global Const $AW_DIAG_SLIDE_OUT_TOPRIGHT = 0x00050009 ;diag slide-out to Top-Right
Global Const $AW_DIAG_SLIDE_IN_BOTTOMLEFT = 0x00040009 ;diag slide-in from Bottom-left
Global Const $AW_DIAG_SLIDE_OUT_BOTTOMLEFT = 0x00050006 ;diag slide-out to Bottom-left
Global Const $AW_DIAG_SLIDE_IN_BOTTOMRIGHT = 0x0004000a ;diag slide-in from Bottom-right
Global Const $AW_DIAG_SLIDE_OUT_BOTTOMRIGHT = 0x00050005 ;diag slide-out to Bottom-right
Global Const $AW_EXPLODE = 0x00040010 ;explode
Global Const $AW_IMPLODE = 0x00050010 ;implode
Global Const $AW_HOR_POSITIVE = 0x00000001
Global Const $AW_HOR_NEGATIVE = 0x00000002
Global Const $AW_VER_POSITIVE = 0x00000004
Global Const $AW_VER_NEGATIVE = 0x00000008
Global Const $AW_CENTER = 0x00000010
Global Const $AW_HIDE = 0x00010000
Global Const $AW_ACTIVATE = 0x00020000
Global Const $AW_SLIDE = 0x00040000
Global Const $AW_BLEND = 0x00080000
Local Const $S_WINTITLE = "Parent GUI"
Local $h_maingui = -1, $a_mainguipos = -1, $h_debuggui = -1, $h_debuglist = -1
$h_maingui = GUICreate($S_WINTITLE, 646, 245, -1, -1, $WS_BORDER + $WS_DISABLED)
$a_mainguipos = WinGetPos($S_WINTITLE)
$h_debuggui = GUICreate("DebugWindow", $a_mainguipos[2] - 6, 71, $a_mainguipos[0], $a_mainguipos[1] + $a_mainguipos[3], _
$WS_POPUP + $WS_DLGFRAME, Default, $h_maingui)
$h_debuglist = GUICtrlCreateList("", 1, 1, 634, 69, $WS_HSCROLL + $WS_VSCROLL + $LBS_NOINTEGRALHEIGHT + $LBS_NOSEL)
GUISetState(@SW_SHOW, $h_maingui)
GUISetState(@SW_SHOW, $h_debuggui)
HotKeySet("+!d", "GUIDebugToggle")
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _GUIAnimate(Const $V_GUI, Const $N_MODE, Const $I_DURATION = 1000)
If @OSVersion <> "WIN_VISTA" And @OSVersion <> "WIN_2003" And @OSVersion <> "WIN_XP" And @OSVersion <> "WIN_2000" Then Return (SetError(2, 0, 0))
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", WinGetHandle($V_GUI), "int", $I_DURATION, "long", $N_MODE)
Local Const $AI_GLE = DllCall("kernel32.dll", "int", "GetLastError")
If $AI_GLE[0] Then Return (SetError(1, 0, 0))
Return (1)
EndFunc ;==>_GUIAnimate
Func GUIDebugToggle()
If BitAND(WinGetState("DebugWindow"), 2) Then
_GUIAnimate ($h_debuggui, $AW_SLIDE_OUT_TOP)
Else
_GUIAnimate ($h_debuggui, $AW_SLIDE_IN_TOP)
EndIf
EndFunc ;==>GUIDebugToggle
Gibt es eine Lösung, das Ganze sauber hinzubekommen?
Versuchs mal mit DLL-Calls, sollten in der Regel dokumentiert sein. Ansonsten mal die DLL durch den Dependecy Walker jagen.
Hi,
habe schon sowohl das englische, als auch das deutsche Forum durchgegrast...
Folgendes Problem:
Ich habe zwei GUIs (eine Parent und eine Child) und möchte nun, dass die Child-GUI an die Parent-GUI "angeheftet" wird. Mein bisheriger Code sieht so aus:
#include <GUIConstants.au3>
Opt("MustDeclareVars", 1)
Local $h_parentgui = -1, $a_parguipos = -1, $h_childgui = -1
[/autoit] [autoit][/autoit] [autoit]$h_parentgui = GUICreate("Parent GUI", 640, 265, -1, -1, $WS_BORDER)
$a_parguipos = WinGetPos("Parent GUI")
$h_childgui = GUICreate("Child GUI", $a_parguipos[2] - 6, 71, $a_parguipos[0], $a_parguipos[1] + $a_parguipos[3], $WS_DLGFRAME + $WS_POPUP, Default, $h_parentgui)
GUISetState(@SW_SHOW, $h_parentgui)
GUISetState(@SW_SHOW, $h_childgui)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Zuerst einmal missfällt mir die Lösung mit WinGetPos sehr. Gibt es eine andere Möglichkeit, die Child-GUI direkt an die Parent-GUI zu bekommen?
In diesem Zusammenhang sind mir die Common Styles $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS und $WS_CHILD aufgefallen. Sehe da aber grade nicht wirklich durch. Auch der Extended Style $WS_EX_MDICHILD bringt mich irgendwie nicht weiter.
Dadurch bedingt, wird die Child-GUI natürlich nicht mit bewegt, wenn ich die Parent-GUI bewege.
Wer sich jetzt fragt, wozu ich das Ganze mache: Ich möchte die Child-GUI mittels Animation Ein- und Ausblenden, weswegen ich nicht einfach ein Control benutzen kann!
lol,
was erwartest Du denn? Mit dem Code, den Du hier postest, kann das ja nichts werden. Du rufst z.B. _IsPressed einfach auf, aber machst nichts damit.
Schau Dir am besten erst mal das Tutorial an, anstatt einfach drauf los zu probieren. Ansonsten mal hier weiterschauen:
HotKeySet("!m", "main")
While 1
Sleep(50)
WEnd
Func main()
While 1
For $i = 1 To 10
MouseClick("left")
Sleep(250) ;~ Muss genau die Zeit sein, die Moorhuhn einem zwischen zwei Schüssen läst!
Next
Send("{SPACE}")
WEnd
EndFunc ;==>main
Hab das mal für Dich gedebugged:
2007-09-14 17:23:53 : left
2007-09-14 17:23:53 : left
2007-09-14 17:23:53 : left
2007-09-14 17:23:53 : left
2007-09-14 17:23:54 : left
2007-09-14 17:23:54 : left
2007-09-14 17:23:54 : left
2007-09-14 17:23:54 : left
2007-09-14 17:23:55 : left
2007-09-14 17:23:55 : left
2007-09-14 17:23:55 : SPACE
2007-09-14 17:23:55 : left
2007-09-14 17:23:55 : left
2007-09-14 17:23:56 : left
2007-09-14 17:23:56 : left
2007-09-14 17:23:56 : left
2007-09-14 17:23:56 : left
2007-09-14 17:23:57 : left
2007-09-14 17:23:57 : left
2007-09-14 17:23:57 : left
2007-09-14 17:23:57 : left
2007-09-14 17:23:58 : SPACE
2007-09-14 17:23:58 : left
2007-09-14 17:23:58 : left
2007-09-14 17:23:58 : left
2007-09-14 17:23:58 : left
2007-09-14 17:23:59 : left
2007-09-14 17:23:59 : left
2007-09-14 17:23:59 : left
2007-09-14 17:23:59 : left
2007-09-14 17:24:00 : left
2007-09-14 17:24:00 : left
2007-09-14 17:24:00 : SPACE
Was fällt da auf?
Mhh,
hab mal eben geschaut, vernünftige Kommandozeilentools gibt es scheinbar nicht. Folgendes funktioniert (glaube ich) leider nur mit Bildern):
Func _ImagePrint(Const $S_FILE, Const $S_PRINTER)
If Not FileExists($S_FILE) Then Return (SetError(1, 0, 0))
If Not Run("rundll32.exe shimgvw.dll,ImageView_PrintTo /pt " & $S_FILE & " " & $S_PRINTER) Then Return (SetError(2, 0, 0))
Return (1)
EndFunc ;==>_ImagePrint
Ansonsten versuch mal folgendes:
Nehmen wir an, Dein Rechner heißt im Netzwerk "DUSTIN" und
Deinen Drucker gibst Du als "TMPPRINT" frei. Dann kannst Du mit "net use lpt1: \\DUSTIN\TMPPRINT" die LPT1-Schnittstelle auf diesen Drucker umleiten.
Somit soll es möglich sein mittels:
"copy con lpt1"
<ENTER>
"TestDruck"
<Strg+L>
<Strg+Z>
<ENTER>
auf diesen Drucker zu drucken. In Deinem Fall wäre dann "TestDruck" $Info[0]... Allerdings hab ich das eben auch nur zusammen gesucht! Kp ob es funzt!
Wenn die "Datei- und Druckerfreigabe" aktiviert ist, und die entsprechenden Ordner freigegeben sind, mal "\\HOSTNAME\FREIGABE" bzw. "\\IPADDRESS\FREIGABE" versuchen (bei. Auführen).
@Mertenz
So, wollt Dich nur mal eben kurz demontieren...
ICH WILL DAS SKRIPT DOCH GAR NICHT ABFRAGEN
Achso, ne ist klar... (Siehe Beitrag Schnuecks)
Wie wärs wenn du demnächst die Beiträge liest und wenn du keine Ahnung hast dann einfach mal nicht antworten.
Das ist ein Wort. (Werde das posten für immer einstellen...)
Das Skript fragt eine Website ab und je nachdem was ich dann auf der Website eintrage ist die Batch in der Lage das Script zu stoppen oder eben
Ah, ok. Das ist der erste Satz von Dir (bezüglich Deines Problems), den ich verstanden habe. Aber... Ähh, wie passt das denn jetzt zu den anderen Posts? Hilfe, Hilfe, HILFE! (Entweder bin ich zu dumm, oder aber... Nein, das kann doch nicht sein...)
Dafür brauch ich dann keine Ip und kein Dyndns.
Da geb ich Dir vollkommen Recht!
So, jetzt in den Staub.