Beiträge von Schnuffel

**Schnuffel**

jetzt solltest Du etwas konkreter werden um welches Programm es geht und welche Versionen und , und, und.....

**Schnuffel**

wenn es nur eine exe ist, dann include die doch mit FileInstall,
andernfalls wenn es eine installiertes Programm ist, dann würde ich den Pfad aus der Registry auslesen.

**Schnuffel**

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
func OnlyMsgBox($titel,$text,$sleeptime)
$OnlyMsgBoxGUI = GUICreate($titel, 315, 131, 342, 189, BitOR($WS_MINIMIZEBOX,$WS_DLGFRAME,$WS_GROUP,$WS_CLIPSIBLINGS))
$OnlyMSGBoxLabel = GUICtrlCreateLabel($text, 8, 24, 300, 81)
GUISetState(@SW_SHOW)
Sleep($sleeptime)
GUiDelete($OnlyMsgBoxGUI)
EndFunc ;==>OnlyMsgBox

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

OnlyMsgBox("Testbox","Testversuch der OnlyMsgBox Funktion",10000)

[/autoit]

**Schnuffel**

nein,
musst jede Datei einzeln einbinden.

**Schnuffel**

Hallo Kamin,

ich hab Dein Script mal etwas gekürzt, und leicht korrigiert.
Ist so nicht perfekt, aber es verdeutlicht, wie das mit der Progressbar funktioniert.
Diese kennt nur Werte zwischen 0 und 100.
Demnach musst Du Deinen Teiler auch durch 100 teilen und dann auf eine ganze Zahl runden.

Spoiler anzeigen

[autoit]

Opt('MustDeclareVars', 1)

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

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <SendMessage.au3>

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

#Region ### START Koda GUI section ### Form=c:\users\chef\desktop\projekt\installgui.kxf
Global $Checkbox[15], $nMsg
Global $Form2 = GUICreate("Automatisches Installationspacket für Vista", 1085, 709, 301, 131)

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

Global $Start = GUICtrlCreateButton("Start", 840, 592, 209, 41)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")

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

$Checkbox[1] = GUICtrlCreateCheckbox(" test1 ", 48, 88, 241, 25)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$Checkbox[2] = GUICtrlCreateCheckbox(" test2", 48, 128, 233, 25)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$Checkbox[3] = GUICtrlCreateCheckbox(" test3 ", 48, 168, 241, 25)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$Checkbox[4] = GUICtrlCreateCheckbox(" test4 ", 48, 208, 217, 25)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$Checkbox[5] = GUICtrlCreateCheckbox(" test5 ", 48, 248, 297, 25)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$Checkbox[6] = GUICtrlCreateCheckbox(" test6 ", 48, 608, 409, 25)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$Checkbox[7] = GUICtrlCreateCheckbox(" test7 ", 48, 288, 153, 25)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$Checkbox[8] = GUICtrlCreateCheckbox(" test8", 48, 328, 273, 25)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$Checkbox[9] = GUICtrlCreateCheckbox("test9 ", 48, 568, 177, 25)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$Checkbox[10] = GUICtrlCreateCheckbox(" test10 ", 48, 368, 225, 25)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$Checkbox[11] = GUICtrlCreateCheckbox("test11 ", 48, 408, 193, 25)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$Checkbox[12] = GUICtrlCreateCheckbox("test12 ", 48, 448, 137, 25)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$Checkbox[13] = GUICtrlCreateCheckbox(" test13", 48, 488, 121, 25)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$Checkbox[14] = GUICtrlCreateCheckbox(" test14 ", 48, 528, 113, 25)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
Global $Vista_Light = GUICtrlCreateButton("Hier mit kannst du message 1", 456, 88, 593, 33)
GUICtrlSetFont(-1, 8, 800, 2, "Comic Sans MS")
Global $Vista_Normal = GUICtrlCreateButton("Hier mit kannst du message 2", 456, 136, 593, 33)
GUICtrlSetFont(-1, 8, 800, 2, "Comic Sans MS")
Global $Pic1 = GUICtrlCreatePic("C:\Users\Chef\Pictures\01831_greensimplicity_1920x1080.jpg", 0, 0, 1084, 708, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
Global $Label1 = GUICtrlCreateLabel("Hallo, ", 536, 240, 429, 39)
GUICtrlSetFont(-1, 18, 800, 2, "Comic Sans MS")
GUICtrlSetBkColor(-1, 0xFF0000)
Global $Label2 = GUICtrlCreateLabel("bitte klickt das an was ihr benötigt.", 536, 279, 429, 39)
GUICtrlSetFont(-1, 18, 800, 2, "Comic Sans MS")
GUICtrlSetBkColor(-1, 0xFF0000)
Global $progress1 = GUICtrlCreateProgress(48, 672, 1006, 17, $PBS_SMOOTH)
Global $Label3 = GUICtrlCreateLabel("Es wird Automatisch installiert! ", 536, 318, 429, 39)
GUICtrlSetFont(-1, 18, 800, 2, "Comic Sans MS")
GUICtrlSetBkColor(-1, 0xFF0000)
Global $Label4 = GUICtrlCreateLabel("Viel Spaß !!! ", 536, 357, 429, 39)
GUICtrlSetFont(-1, 18, 800, 2, "Comic Sans MS")
GUICtrlSetBkColor(-1, 0xFF0000)

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox[1]
Case $Checkbox[2]
Case $Start
_Start()
Case $Checkbox[3]
Case $Checkbox[4]
Case $Checkbox[5]
Case $Checkbox[6]
Case $Checkbox[7]
Case $Checkbox[8]
Case $Checkbox[9]
Case $Checkbox[10]
Case $Checkbox[11]
Case $Checkbox[12]
Case $Checkbox[13]
Case $Checkbox[14]
Case $Vista_Light
Case $Vista_Normal
EndSwitch
WEnd

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

Func _Start()
Local $checked = 0
For $i = 1 To 14
If BitAND(GUICtrlRead($checkbox[$i]), $GUI_CHECKED) Then $checked += 1
Next
MsgBox(0, '', "Es sind "&$checked &" Checkbox(en) angeklickt" )
For $i = 1 To $checked
GUICtrlSetData($progress1, Floor($i*(100/$checked)))
Sleep(2000)
Next
EndFunc ;==>_Start

[/autoit]

**Schnuffel**

verwende statt
if(Array1[0]!=Array2[0]) RegDelete()
das:

[autoit]

if($Array1[0] <> $Array2[0]) RegDelete()

[/autoit]

den Operator != gibt es in AutoIt nicht

**Schnuffel**

Spoiler anzeigen

[autoit]

$1="v2.lscache2.c.youtube.com%2fvideoplayback%3fip%3d0.0.0.0%26sparams%3did%252cexpire%252cip%252cipbits%252citag%252cburst%252cfactor%26itag%3d5%26ipbits%3d0%26signature%3d1c0adc35dafb826adf9d7ceb57cdbc7f6abf84d5.9caada609e78078b9ef464df460c0d439260f399%26sver%3d3%26expire%3d1252256400%26key%3dyt1%26factor%3d1.25%26burst%3d40%26id%3d3f1ca6c0dee76104/"
$2="v2.lscache2.c.youtube.com/videoplayback?ip=0.0.0.0&sparams=id,expire,ip,ipbits,itag,burst,factor&itag=5&ipbits=0&signature=1C0ADC35DAFB826ADF9D7CEB57CDBC7F6ABF84D5.9CAADA609E78078B9EF464DF460C0D439260F399&sver=3&expire=1252256400&key=yt1&factor=1.25&burst=40&id=3f1ca6c0dee76104"
$1 = StringReplace($1,"%2f","/")
$1 = StringReplace($1,"%3f","?")
$1 = StringReplace($1,"%3d","=")
$1 = StringReplace($1,"%26","&")
$1 = StringReplace($1,"%25",",")
$1 = StringReplace($1,"2c","")
MsgBox(0,"Test1",$1&@CRLF&@CRLF&$2)

[/autoit]

**Schnuffel**

mal eben auf die schnelle hingezimmert ...
Erhebt keinen Anspruch auf Korrektheit oder Geschwindigkeitsoptimierung.
Das geht mit einem DllCall bestimmt schneller, hab ich aber auf die Schnelle nicht bei der Hand.
Vielleicht findet sich ja noch jemand, der das gegen einen DllCall austauscht...
Das mit dem PC-Namen war mir jetzt nicht so wichtig

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <iNet.au3>

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

$subnet = "192.168.0."
Global $count = 1
Global $eintrag[256]
Global $i
GUICreate('',400,500)
$ip_liste = GuiCtrlCreateListView("IP-Adresse | PC-Name | Ping-Zeit in ms",10,10,300,400)

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

For $i = 1 To 254
$eintrag[$i] = GUICtrlCreateListViewItem($subnet&$i&"|---|---", $ip_liste)
Next
GUISetState()
AdlibEnable("pinger",500)

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

While 1
Sleep(10)
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
AdlibDisable()
Exit
EndSwitch
WEnd

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

Func pinger()
$pinger = Ping($subnet&$count,200)
If $pinger > 0 Then
GuiCtrlSetData($eintrag[$count],"||"&$pinger)
EndIf
$count += 1
If $count = 255 Then $count = 1
EndFunc

[/autoit]

**Schnuffel**

zum Error-Handling habe ich mal was im engl. Forum ausgegraben.
Hab es selber noch nicht probiert,
aber vielleicht ist es ja für den ein oder anderen interessant...

**Schnuffel**

Dir ist aber klar das es in OpenOffice kein "Word" gibt, oder?

Wenn Du korrekte Antworten willst, solltest Du auch inhaltlich korrekte Fragen stellen...
OpenOffice hab ich gerade nicht installiert, da muß ich passen.
Du kannst aber auf jeden Fall das Menü mit Send steuern ... !d ...

**Schnuffel**

also bei mir klappt das auch so:

[autoit]

Opt("WinTitleMatchMode",2)
ShellExecute("C:\Programme\Microsoft Office\Office10\Winword.exe")
WinWait("Microsoft Word")
send("^p")

[/autoit]

Musst vielleicht den Pfad zu deinem Word anpassen ...

Edit: oder Du verwendest _WordDocPrint ...

**Schnuffel**

versuch mal StringStripWS

**Schnuffel**

Edit: wer keine Ahnung hat soll den Babbel halten. Also mache ich das

**Schnuffel**

oder du identifizierst das Laufwerk mittels DriveMapGet
Success: Returns details of the mapping, e.g. \\server\share

Da du ja weist, über welchen Share das Laufwaerk R: angesprochen wird,
kannst Du das auch damit überprüfen ohne eine Datei auf R: zu erstellen.

**Schnuffel**

1. $batch muß auf eine vorhandene Datei verweisen.
2. meist funktioniert die Funktion "ShellExecuteWait" bei Angabe eines WorkingDir, z.B. die Angabe des Pfades, in dem die Batch liegt...

**Schnuffel**

Hallo SiroCool,

schau mal im engl. Forum, da gibt es eine UDF, die alle Wünsche erfüllt.
http://www.autoitscript.com/forum/index.php?showtopic=94212&st=0&p=676901&hl=ftp%20file%20delete&fromsearch=1&#entry676901

**Schnuffel**

ganz einfach,
in der Funktion "DirCopy" ist eine Prüfung der Zeitstempel der Dateien die kopiert werden sollen nicht implementiert.
PS: ich empfehle: FastCopy
Ist zwar nicht so umfangreich in den Einstellmöglichkeiten wie RoboCop aber mit das Schnellste was es gibt

**Schnuffel**

ich liebe ja die Menschen,
die eine Frage stellen, diese gleich selbst beantworten und dann den Rest der Menschheit dumm sterben lassen.
Vielleicht kannst Du eine konkrete Aufgabenstellung präsentieren, die verdeutlicht, was Du mit der Abfrage erreichen willst.

Ansonsten kann ich nur sagen:
Meine Glaskugel ist heute benebelt ...

**Schnuffel**

Hallo vgun,
ich würde die Finger von der .au3 lassen.
Nachdem die error-Abfrage nicht sauber programmiert ist, gehe ich davon aus, dass der Rest auch nicht besser ist.

**Schnuffel**

schau doch mal hier: http://www.msxfaq.de/konzepte/snmpbasics.htm

Ich denke die Links sind auch ganz interessant.
Da sollte doch ein Denkanstoss dabei sein

Beiträge von Schnuffel

Pfad einer datei herausbekommen

Pfad einer datei herausbekommen

Warum bekomme ich hier einen Fehler?

Mit FileInstall kompletten Ordner in das Skript einbinden?

Checkboxen abgleich über Progressbar

Registry auslesen, mit inhalt von txt-File vergleichen, alles löschen was nicht im textfile ist

StringReplace funktioniert nicht.

Netzwerk scannen

On Error Goto....gibt es so etwas auch in AutoIt?

Drucker mit Strg+p aufrufen

Drucker mit Strg+p aufrufen

Leerzeichen rausfiltern

GuiCtrlCreateDate mit GuiCtrlSetdata Problem

if then Abfrage

if then Abfrage

FTP

Problem mit DirCopy

Ich auf Schlauch stehen tue janzjanz dolle

problem mit dllopen auf eraser.dll unter vista x64

SNMP