Beiträge von Norman Bates

Hallo zusammen,

ich suche eine möglichkeit einem IE Fenster zu sagen, wenn du in 5 sec nicht komplett geladen bist dann mache schliesse dich.

Hat einer nen Tip wie ich das machen kann?

Danke und Gruß
Norman

Danke

Hallo zusammen,

ich bin auf der Suche nach einem Denkanstoß wie ich einen Exchange Usernamen ermittel anhand der eingabe des Alias.
Jetzt gibt es ja schon einige UDF´s wie Outlook oder Outlook EX nur finde ich da kein Ansatz der mir irgendwie weiterhilft.

Hat einer ne Idee wie ich das lösen kann?

Gibt es überhaupt eine Möglichkeit sowas zu realisieren was ich vorhabe?

Danke für eure Hilfe

Gruß
Norman

vllt hilft Dir das weiter.

Gruß
Norman

ohh, das wusste ich nicht. Wollte auch nicht gegen Forum regeln verstoßen. Sorry.
Thema kann gelosed werden.

Learning by doing Wende ich eigentlich zuerst an bevor ich die Leute hier frage.
Nur in diesen Fall funktioniert ja auch alles soweit. Ich möchte ja nur wissen warum er nicht den quellcode ausliest obwohl er die richtige URL bekommt.

Gruss norman

Hallo zusammen,

ich frage einfach mal in diesem Thema weil ich genau das gleiche Problem habe.
In Zeile 17 wird mir die richtige URL ausgegeben aber wenn ich InetGet in Zeile 19 anwende um den Quelltext zu bekommen wird irgendwas runtergeladen nur nicht der Quelltext von der URL.
In dem Qulltext müsste eigentlich "Restzeit" vorkommen, das ist aber nicht der Fall.

Ich hab es gerade noch mit InetRead probiert aber bekomme es auf anhieb nicht hin. Ist ja auch schon spät

Ich hoffe es kann einer helfen

Danke und Gruß
Norman

[autoit]

If FileExists("c:\temp\test\ebay.txt") Then
FileDelete("c:\temp\test\ebay.txt")
InetGet("http://www.ebay.de/sch/Konsolen-/139971/i.html?LH_BIN=1&_sop=10&_from=R40&_nkw=ps3+slim+120gb", "c:\temp\test\ebay.txt", 1)
Else
InetGet("http://www.ebay.de/sch/Konsolen-/139971/i.html?LH_BIN=1&_sop=10&_from=R40&_nkw=ps3+slim+120gb", "c:\temp\test\ebay.txt", 1)
EndIf

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

$text=FileOpen("c:\temp\test\ebay.txt",0)
$fileread = FileRead($text)

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

$aFound = _StringBetween($fileread, '<a href="', '" class="img"')
_ArrayDisplay($aFound)

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

$regexp = StringRegExp($aFound[1], '<a href="(.+)', 3)
_ArrayDisplay($regexp)

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

ConsoleWrite($regexp[0])

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

InetGet($regexp[0], "c:\temp\test\ebay1.txt", 1)

[/autoit]

Schon verstanden ...... Ich poste den code nachher

Hallo zusammen,

ich muss das Thema leider nochmal öffnen.

ich habe eine HAUPT GUI mit der ich über ein MenuItem die GUI oben öffne nennen wir sie mal MenuItemGui.

Meine Haupt GUI hat ein Input Feld.

Die MenuItemGUI schliesse ich wie folgt:

[autoit]

Case $GUI_EVENT_CLOSE
GUIDelete($MenuItemGUI)
Exitloop

[/autoit]

Anschließend bin ich wieder in meiner HAUPT GUI nur das tut sich nichts mehr wenn ich den Inhalt aus dem Input Feld lesen will.

Hat einer ne Idee woran das liegen kann.

Ich würde auf die GUIRegisterMsg tippen aber sicher bin ich mir nicht.

Gruß Norman

DANKE

Gruß Norman

Danke für deine Antwort das hilft mir weiter.

Könntest Du mir bitte noch deinen Code kommentieren? Wegen dem Lerneffekt

Danke und Gruß

Norman

Hallo zusammen,

Sorry erstmal für die vllt nicht so aussagekräftige Überschrift.

erstmal mein Script:

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("Form1", 310, 220, 273, 249)
$Input1 = GUICtrlCreateInput("", 24, 40, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
$Label1 = GUICtrlCreateLabel("Password:", 24, 16, 67, 22)
GUICtrlSetFont(-1, 10, 800, 0, "Trebuchet MS")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Input1
If GUICtrlRead($Input1) = "test" Then
$Group1 = GUICtrlCreateGroup("Install Printer ", 24, 72, 273, 129)
GUICtrlSetFont(-1, 9, 400, 0, "Trebuchet MS")
$Button1 = GUICtrlCreateButton("Button1", 112, 168, 75, 17)
$Label2 = GUICtrlCreateLabel("Install Generic / Text Only @ LPT1", 40, 104, 238, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Trebuchet MS")
$Progress1 = GUICtrlCreateProgress(64, 136, 166, 9)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Else
MsgBox(16,"","Falsches Passwort")
EndIf

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

EndSwitch
WEnd

[/autoit]

Das Problem was ich habe:

Wenn ich "Test" eingebe und mit Enter bestätige erscheint die Group mit Button,Label und Progressbar.

Soweit so gut.

Ist es möglich wenn ich von "Test" nur das kleine "t" lösche das die Group usw. was vorher erschienen ist gelöscht bzw. versteckt wird?

Danke schonmal für eure Hilfe

Gruß Norman

Hallo zusammen,

ich bin durch die SuFu auf diesen Beitrag aufmerksam geworden.

ich habe auch direkt ein kleines Problem.

Und zwar habe ich 2 JPEG Files in die SourceFile hinzugefügt und diese dann in meine Script eingebaut.

Ich rufe eine GUI auf in der ein JPEG dargestellt werden soll, ist aber eine Bediengung nach dem Start des Program´s nicht wahr dann soll eine andere GUI erscheinen mit dem anderen JPEG.

Das Problem was ich jetzt habe ist das immer nur das Bild von der Variable $Source_File_1 angezeigt. $Source_File_2 wird Ignoriert.

SourceFile ist im ScriptDir...

EDIT2: Kommando zurück, das passiert wenn man nicht alles liest.

[autoit]

;Dieser Code wird dann in das Skript eingefügt, in dem die Resourcen benötigt
;werden. Die Dateien können dann wie im folgenden Beispiel verwendet werden.

[/autoit]

Jetzt funktioniert es

Danke für Eure Hilfe

Gruß Norman

Ich hab mal folgendes probiert....

[autoit]

#include <File.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 509, 106, 192, 124)
$Label1 = GUICtrlCreateLabel("", 120, 32, 307, 20)
;~ GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("0%", 424, 64, 50, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
;~ $Label3 = GUICtrlCreateLabel("%", 456, 64, 20, 28)
;~ GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Start", 24, 40, 75, 25)
$Button2 = GUICtrlCreateButton("Close", 24, 72, 75, 25)
$Progress1 = GUICtrlCreateProgress(120, 72, 294, 17)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
case $Button1
Run('wzunzip -d -o "C:\data\Bedienungsanleitungen.zip" "c:\data"')
Sleep(200)
While 1
If ProcessExists("WZUNZIP.EXE") Then
$FileList = _FileListToArray("c:\data\Bedienungsanleitungen\","*.*",1)
If @error = 1 Then
MsgBox(0, "", "Keine Ordner gefunden.",1)
;~ Exit
EndIf
If @Error=4 Then
MsgBox (0,"","Keine Dateien gefunden.")
Exit
EndIf
For $i = 1 To UBound($FileList)-1
GUICtrlSetData($Label1,$FileList[$i])
GUICtrlSetData($Progress1,$i*(100/$FileList[0]))
GUICtrlSetData($Label2, Round($i*(100/$FileList[0]))& "%")
Sleep(500)
Next
Else
MsgBox(0,"", "ENDE",1)
Exit
EndIf
WEnd
EndSwitch
WEnd

[/autoit]

Sieht schon ganz gut aus nur leider nicht so wie ich das gerne hätte.

Er ist sehr schnell bei 100% obwohl das eigentliche entpacken noch nicht fertig ist.

Hat einer ne Idee wie ich $Progress und $Label2 anpassen muss damit er es richtig darstellt?

Gruß

Norman

Danke für deine Antwort.
Habe es noch nicht probiert aber das sieht schonmal gut aus.

EDIT:

hab es jetzt mal wie folgt ausprobiert nur leider funktioniert zwar das entpacken aber das wird mir nicht in der GUI angezeigt.

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 585, 109, 192, 124)
$hProgressBar = GUICtrlCreateProgress(96, 24, 270, 17)
$Button1 = GUICtrlCreateButton("Button1", 136, 64, 75, 25)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1

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

$iPID = Run("c:\program files\winrar\winrar.exe e -o- c:\data\vcds-lite.rar c:\data\", '', @SW_HIDE)
$iZipSize = FileGetSize("c:\data\vcds-lite.rar")

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

Do
$aStats = ProcessGetStats($iPID, 1)
$iPercentage = (100/$iZipSize)*$aStats[3]
GUICtrlSetData($hProgressBar, Round($iPercentage))
Until $iPercentage <= 100

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

EndSwitch
WEnd

[/autoit]

Gruß
Norman

Hallo zusammen,

ich weiß wie ich eine Zip File mit Autoit entpacke und wie ich eine Progressbar erstelle.

Ist es möglich beides zusammenzuführen so das ich den Extraktfortschritt von Winzip in meiner GUI darstellen kann?

Für jeden Vorschlag bin ich Dankbar

Gruß

Norman

Ich glaube ich habs.... meld mich wenn es funktioniert.

Gruß
Norman

Zitat von Micha_he

Es scheint unter der Win32_OperatingSystem-Class kein "Username" zu existieren. Siehe MSDN.

Aber unter "Win32_LoggedOnUser" ist es möglich:

Spoiler anzeigen

[autoit]

$str_computer = "localhost"

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

$wmiroot = ObjGet("winmgmts:\\"& $str_computer &"\root\CIMV2")
$wmiColl = $wmiRoot.ExecQuery("SELECT * FROM Win32_LoggedOnUser")
For $wmiObj In $wmiColl
$string = StringReplace(StringMid($wmiObj.Antecedent, StringInStr($wmiObj.Antecedent, "=", 0, -1) + 1), '"', '')
Msgbox(0,"",$string)
Next
$wmiColl = 0

[/autoit]

Alles anzeigen

Anscheinend schon weil wie gesagt ohne Ping und den dadrauf folgenden @error funktioniert es ja.

Zitat von Shadowigor

Hast du es schon mal alleine getestet? Sprich ohne Listview?

Gruss Shadowigor

Ja habe ich. Das funktioniert.
Es funktioniert auch wenn ich es wie folgt schreibe

[autoit]

$selection_mark = _GUICtrlListView_GetSelectionMark($listview)
$str_computer = _GUICtrlListView_GetItemText($listview,$selection_mark)
_GUICtrlListView_SetItem($listview, "Online", $selection_mark,3)
Local $wmiColl
$wmiroot = ObjGet("winmgmts:\\"& $str_computer &"\root\CIMV2")
$wmiColl = $wmiRoot.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For $wmiObj In $wmiColl
$string = String($wmiObj.UserName)
_GUICtrlListView_SetItem($listview, $string, $selection_mark,2)
Next
$wmiColl = 0

[/autoit]

Hallo zusammen,

ich möchte in einem Listview Subitem Anhand von "Win32_OperatingSystem" den aktuellen User eintragen lassen.

Hier bekomme ich folgende Meldung:

==> The requested action with this object has failed.:
$string = String($wmiObj.UserName)

[autoit]

$selection_mark = _GUICtrlListView_GetSelectionMark($listview)
$str_computer = _GUICtrlListView_GetItemText($listview,$selection_mark)
Ping($str_computer,250)
If Not @error Then
_GUICtrlListView_SetItem($listview, "Online", $selection_mark,3)
Local $wmiColl
$wmiroot = ObjGet("winmgmts:\\"& $str_computer &"\root\CIMV2")
$wmiColl = $wmiRoot.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For $wmiObj In $wmiColl
$string = String($wmiObj.UserName)
_GUICtrlListView_SetItem($listview, $string, $selection_mark,2)
Next
$wmiColl = 0

[/autoit]

Gleicher Code nur Zeile 10 abgeändert und das funktioniert.

[autoit]

$string = StringTrimLeft(string($wmiObj.Caption),9)

[/autoit]

Wieso funktioniert das mit UserName nicht?
Hat einer ne Idee?

Danke und Gruß
Norman