Beiträge von wolkenloser

wolkenloser

kannst Du das gebrauchen ?

Code

#include <Constants.au3>


$befehl = "route print"




_IEPrt(_befehl(), $befehl)


Func _IEPrt($Was, $Titel, $Breite=660, $Hoehe=300, $Links=100, $Oben=100)
Dim $IE=ObjCreate("InternetExplorer.Application.1")
With $IE
.Navigate("about:blank")
.Document.Title=$Titel
.Left=$Links
.Top=$Oben
.Width=$Breite
.Height=$Hoehe
.Visible=1
.Document.Body.InnerHtml="Bitte warten.."
.Toolbar=False
.Menubar=False
.Statusbar=False
.Visible=True
.Document.Body.InnerHtml=$Was
EndWith
EndFunc


Func _befehl() 
Local $ForWriting=1, $h, $i, $Prt
$i=Run(@ComSpec &" /c " & $befehl , @SystemDir, @SW_HIDE, $STDOUT_CHILD+$STDERR_CHILD)
Sleep(1000)
$h = StdOutRead($i)
If @error=0 Then $Prt=$h
$h = StdErrRead($i)
If @error=0 Then $Prt = $h
$Prt = StringReplace($Prt, Chr(154), "Ü")
$Prt = StringReplace($Prt, Chr(129), "ü")
$Prt = StringReplace($Prt, Chr(142), "Ä")
$Prt = StringReplace($Prt, Chr(132), "ä")
$Prt = StringReplace($Prt, Chr(153), "Ö")
$Prt = StringReplace($Prt, Chr(148), "ö")
Return "<body scroll=0><Pre>" &$Prt
EndFunc

Alles anzeigen

wolkenloser

Ich habe das mal so gelöst:

[autoit]

$password = InputBox("Sicherheitsabfrage", "Passwort ?","","*")
Select

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

case $password = "pw1"
Sleep(1)
Case Else
Exit
EndSelect

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

;Programmablauf.......

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

wolkenloser

Ich hab was schönes entdeckt.
Ein Linial für Autoit um Pixel zu messen .
Sehr hilfreich wenn man ein Gui Fenster im nach hinein erweitern will.

Lineal

[Blockierte Grafik: http://img136.imageshack.us/img136/2859/unbenanntcx5.jpg]

wolkenloser

Das sieht auf den ersten Bilck gut aus.
Ich wollte mich immer mal mit Datenbanken beschäftigen, vielleicht schaffe ich hier ja mal den Einstieg.

wolkenloser

Quick & Dirty: (engl. Forum)

C

#include <array.au3>
#include <file.au3>


$filename = "C:\ipconfig.txt"
RunWait(@ComSpec & " /c ipconfig /all > " & $filename , "", @SW_HIDE)
Dim $array
_FileReadToArray($filename,$array)
$text = _ArrayToString($array,";")
$macs = StringRegExp($text,":\s((?:\A\A-){5}\A\A);",3)
_ArrayDisplay($macs,"MAC Addrs")
FileDelete($filename)

Alles anzeigen

wolkenloser

Scite einfach drüberbügeln sollte reichen

wolkenloser

Ich hab die Antwort schon selber gefunden.

SplashText und Processbar funktionieren.
Das reicht fürs erste schonmal

Danke fürs Interesse
:tier:

wolkenloser

Hi

Ich habe folgendes Problem.
Während eines Loginvorgangs wird ein Scripausgeführt, welches u.a. ein AUTOIT Programm ausführt. Dieses Autoit Programm soll dem User ein Paar infos in einem GUI Fenster übermitteln.

Leider klappt das nicht da der Windows Explorer erst nach abarbeitun des Scripts geladen wird.

Gibt es vielleicht noch eine andere Methode etwas auf den Bildschirm zu bringen bevor Explorer.EXE gestartet ist ?

Gruß
Wolke

wolkenloser

Hallo

Ich habe mir Scriptomatic nochmal genauer angeschaut.
Was man machen kann ist einfach geil, aber man braucht schon etwas bis man die Gewünschte Info gefunden hat.

Was ich suche ist z.B die Info ob es sich bei dem Gerät um SERVER/Workstation/Notebook handelt

Ich habe mir da mal folgendes als Funktion herausgezogen um die ermittelten Variabel dann in einem anderen Script weiter zu verarbeiten:
$HERSTELLER=$objItem.Manufacturer
$MODELL=$objItem.Model
$ROLLE=$objItem.Roles(0)

Das ermittelt dann bei mir z.B
Hersteller:Madata
Modell:63413
Rolle:LM_Workstation

Leider bekomme ich auch bei Server und Laptops LM_Workstation heraus.

Was mich noch interessiert ist das Gehäuse (Big Tower, Midi-Tower usw)

Andere tools wie SIW können das
System Info for Windows v1.62 - Copyright © 2004-2006 Gabriel Topala

Weiß jemand wie man an die Infos kommt ?

Code

Func WMI_INFOS()
	$wbemFlagReturnImmediately=0x10
	$wbemFlagForwardOnly=0x20
	$colItems=""
	$strComputer="localhost"
	$objWMIService=ObjGet("winmgmts:\\" &$strComputer &"\root\CIMV2")
	$colItems=$objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _
											  $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
	If IsObj($colItems) Then
	   For $objItem In $colItems
		  $HERSTELLER=$objItem.Manufacturer
		  $MODELL=$objItem.Model
		  $ROLLE=$objItem.Roles(0)
MsgBox(4096,"Infos","Hersteller:" & $HERSTELLER & @CR & "MODELL:" & $MODELL & @CR & "ROLLE:" & $ROLLE)
		  If $ROLLE >0 then ExitLoop		
	   Next
	Else
	   Msgbox(0, "WMI-Ausgabe","Keine WMI-Objekte gefunden für Klasse: " & "Win32_ComputerSystem",2)
	Endif




EndFunc

Alles anzeigen

wolkenloser

Das läßt sich doch bestimmt irgendwie umbauen.....

wolkenloser

Probier doch das mal aus....(aus dem englischen Forum)

Code

#include <GUIConstants.au3>


Global $Input,$Btn
Dim $reg, $n


$ole32 = DLLOpen("ole32.dll")
$shlwapi = DLLOpen("shlwapi.dll")


If $ole32 <> -1 Then DLLCall($ole32,"int","CoInitialize","ptr",0)


CreateGUI()
GUISetState()


While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then
        ExitLoop
    ElseIf $msg = $Btn Then
        $reg = RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU","MRUList")
        $n = StringRight($reg,1)
        RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU", _
                "MRUList","REG_SZ",$n & StringTrimRight($reg,1))
        RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU", _
                $n,"REG_SZ",GUICtrlRead($Input) & "\1")
        GUIDelete()
        CreateGUI()
        GUISetState()
    EndIf
WEnd


Func CreateGUI()
    $hwnd = GUICreate("AutoComplete - Press [ENTER] to submit",640,60,-1,-1,BitOR($WS_SYSMENU,$WS_CAPTION))
    $Input = GUICtrlCreateInput("",10,10,620,40)
    GUICtrlSetFont(-1,22)

    $hInput = DLLCall("user32.dll","hwnd","GetDlgItem","hwnd",$hwnd,"int",$Input)

    If $ole32 <> -1 And $shlwapi <> -1 Then DLLCall($shlwapi,"int","SHAutoComplete","hwnd",$hInput[0],"int",0)

    $Btn = GUICtrlCreateButton("Dummy",0,80,-1,-1,$BS_DEFPUSHBUTTON)

    GUICtrlSetState(-1,$GUI_HIDE)
EndFunc


Func OnAutoItExit()
    If $shlwapi <> -1 Then DLLClose($shlwapi)
    If $ole32 <> -1 Then
        DLLCall($ole32,"none","CoUninitialize")
        DLLClose($ole32)
    EndIf
EndFunc

Alles anzeigen

wolkenloser

Hi Leute,

Mit "msconfig32" zeigt eine schöne Übersicht der Hardware eines Systems
anzeigen.
Mich interessiert vor allem (nach einer Neuinstallation) ob in der Sektion Problemgeräte etwas drin steht.
Kann mir einer sagen wie ich mit Autoit herausbekomme, ob hier Einträge vorhanden sind ?
siehe Screenshot->

wolkenloser

ja, aber es ist ein Fenster in Windows....

wolkenloser

Hi, ein nettes Programm.

Ich habs mal ausprobiert, leider scheint es aber mit DOS Fenstern (CMD) nicht zu funktionieren.

Weißt Du warum ?

wolkenloser

Hi Leute,
ich war lange nicht mehr hier aktiv, aber keine Angst. Ich bin euch nicht untreu geworden.
Da ich derzeit andere Prioritäten habe bitte ich um Hilfe.
Hat jemand schon mal EXCEL Files mit Autoit bearbeitet ?

1. Ich möchte gerne ein EXEL File mit Autoit erstellen und erweitern (Seriennummern dokumentieren)

2. Ich möchte gerne nach bestimmten Seriennummern suchen und mir alle belegten Zeilen (Z.B 10 Stück) als Datensatz editierbar anzeigen lassen.

Wer da erfahrung hat bitte melden.

wolkenloser

Hi,
das mit Comandline ist echt einfach.

Wenn Du ein Programm per Komandozeile aufrufst kannst Du mit Leerzeichen getrennt Parameter übergeben:
BSP:

c:>test.exe parameter1 parameter2

Denn du test.exe so programierst das die Parameter ausgelesen werden, kannst Du diese weiterverarbeiten

Mit z.B Array Display zeigst Du die Parameter an.
Probier es einfach mal aus.

BSP:

Code

_ArrayDisplay($CMDLINE,"")

wolkenloser

Nett,
das erste autoit Spiel was ich kenne

wolkenloser

Hi,
dann brauch ich mal Hilfe.

Mein bisherige Batchdatei macht folgendes:

Code

'Symantec AntiVirus.msi" /qb RUNLIVEUPDATE=0 REBOOT=REALLYSUPPRESS'

Wenn ich das dann in die AU3 Datei einfüge....

Code

$befehl = '"Symantec AntiVirus.msi" /qb RUNLIVEUPDATE=0 REBOOT=REALLYSUPPRESS'
MsgBox(0,"",$befehl,2)
Run($befehl,@ScriptDir)

...bekomme ich z.B eine Fehlermeldung
==> Unable to execute the external program.:

egal ob ich das nun mit vorangestelltem @scriptdir mache oder nicht.

wolkenloser

Hi,

da ich schon "ewig" mit meiner unattened installation dran bin, habe ich schon einige Fertige Batchdateien und fertige EXE Dateien die ich jetzt gerne mit in install-o-matic einbinden möchte.

Das alles wieder auf Autoit umbauen, dazu habe ich keine Lust.
Und ist auch nicht nötig.

Es ist ja keine Kritik an dem Programm, das erscheint mir sehr durchdacht, aber für mich wäre es ein Wunsch das man jedes Beliebige Script einbauen kann.

wolkenloser

Hi Phethebee

bist du schon mal dazu gekommen Script-o-matic in so weit anzu passen, das man auch einfach fertige EXE Files einbinden kann ?

Beiträge von wolkenloser

Route Print - Anwendung von _SysProg(..) & _IEPrt(..)

AutoIT-Skripte mit Passwort

Screen Lineal

Datenbank

mac adresse

nach Beta-Aktualisierung kein Zugriff mehr auf Beta

GUI während Loginscript abgearbeitet wird

GUI während Loginscript abgearbeitet wird

Scriptomatic.au3

Autovervollständigung

Autovervollständigung

Problemgeräte

WinSetTrans

WinSetTrans

EXCEL

Variablen Übergabe in Befehl

Snake + Snake level editor

Script-o-matic erweitern

Script-o-matic erweitern

Script-o-matic erweitern