Beiträge von Gianni

also ich verwende windows 7 32bit und fehler habe ich gar keine.
sound kann ich nicht sagen, da ich bei der arbeit bin keine boxe habe.

mit der option meinte ich, dass es cool wäre, wenn man das programm im autostart setzten könnte. also dass das programm mit windows startet

habe den monkey jetzt auch ausprobiert.
auch hier keine fehler. teste es später dann zu hause mit win7 64bit und sound.

genial!

hab jetzt mal den yeti ausprobiert und funktioniert gut.
was ich sofort gesucht habe, ist die option, mit windows zu starten.

wäre vielleicht eine idee??!!

Bahnhof..

verstehe nicht ganz was du tun möchtest..
könntest du es bitte anders erklären?!

hab im ersten post noch die fehlenden bilder angehängt.
vielleicht wird es so verständlicher was ich meine.

hallo leute

hab da ein script geschrieben (ist noch nicht ganz fertig), der die dateiendungen ändert, da ich in nächster zeit viele dateien umbenennen muss.

habe eine kosmetik frage, wie kann ich die graue schattierung bei den texten entfernen?

danke für die hilfe.

grüsse
gianni

du wirst nicht um php oder javascript herum kommen..

<?
// Silvester countdown
// stichtag 1.1.2007 als Unixtime erzeugen
$newDate = mktime(0,0,0, 26, 6, 2010);
// aktuelle Zeit im Unixformat erzeugen
$actDate = time();
// Differenz berechnen (in Sekunden)
$diffDate = ($newDate-$actDate);


// Anzahl Tage = Sekunden /24/60/60
// floor() liefert nur den Anteil vor dem Komma
$days = floor($diffDate / 24 / 60 / 60 );
// den verbleibenden Rest berechnen = Stunden
$diffDate = $diffDate - ($days*24*60*60);
// den Stundenanteil herausrechnen
$hours = floor($diffDate / 60 / 60);
$diffDate = ($diffDate - ($hours*60*60));
// den Minutenanteil
$minutes = floor($diffDate/60);
$diffDate = $diffDate - ($minutes*60);
// die verbleibenden Sekunden
$seconds = floor($diffDate);


// und das ganze dann Anzeigen:
echo "Noch: $days Tage, $hours Stunden, $minutes Minuten und $seconds Sekunden<br>";
?>

hallo leute

als erstes möchte ich mich bei "Ludwig" bedanken, der mir eine vorlage für meine gui erstellt hat, die ich frei anpassen kann.

ich brauchte über das wochenende, einen ascii-hex-konverter um einen wifi-passphrase herauszufinden.
eigentlich nichts grosses, aber mir ging es auch vorallem darum, eine gui mit einem png zu erstellen.

aber vielleicht kann es trotzdem jemand gebrauchen.

grüsse
gianni

hast du ne windows 64 Bit version?
also win7 64 bit z.B.?

Dann liegt es daran, dass du die 64 bit von firefox installieren musst.
hatte das gleiche problem und konnte es nur so lösen.

grüsse

hallo leute

ich hab einfach meine probleme mit dem Progress (on/off)

will eine datei herunterladen und dazu einen progressbalken anzeigen (0= anfang, 100=ende)
kann mir jemand den progressbalken erstellen?

$getMix = InetGet("http://xyz.de/update.txt", @TempDir & "update.txt")
Do
?????
Until InetGetInfo($getMix, 2) ; Check if the download is complete.
Local $nBytes = InetGetInfo($getMix, 0)
InetClose($getMix) ; Close the handle to release resourcs.

ich glaube dass die "?????" mit den progressscript ersetzt werden müssen.

vielen dank im voraus

grüsse

hallo leute

muss jetzt zur sicherheit nochmals nachfragen:
heiss das, dass alle dateien die unter dem registry key "HKLM\Software\Microsoft\Windows\CurrentVersion\RunOnce"sind,
noch vor dem anmelden ausgeführt werden??

grüsse

also leute, bei mir funktioniert der skript so wie ich ihn gepostet habe..
erhalte etwa 50 zeilen an installierte software..

weiss auch nicht an was es liegen könnte!

Edit: Hab es jetzt auch auf meinem home-laptop getestet und es funktioniert
ebenfalls.

Muss eigentlich schon lange das gleiche für meine Firma machen..

Hier mal ein Anfang:

Die Updates werden nicht ausgelesen.

Grüsse

Gianni

Zitat von progandy

Trotzdem ist das Tool praktisch, um die Orte zu finden, die man in einem eigenen Skript abfrage muss Zum Finden von Dateien eignet sich z.B. folgende Funktion, mehr Inforamtionen zu einer Exe gibt es über FileGetVersion.

Spoiler anzeigen

[autoit]

$sExplorer = _FindFile('explorer.exe')

; Wete zum Abfragen per FileGetVersion:
; CompanyName, FileDescription, FileVersion, InternalName,
; LegalCopyright, LegalTrademarks, OriginalFilename,
; ProductName, ProductVersion, Comments
MsgBox(0, $sExplorer , FileGetVersion($sExplorer, "LegalCopyright"))

Func _FindFile($sFilename, $sExt='.exe')
;Author: Prog@ndy
Local $tpExt = 'ptr'
If StringLen($sExt) Then $tpExt = 'wstr'
Local $aResult = DllCall('Kernel32.dll', 'dword', 'SearchPathW', 'ptr', 0, 'wstr', $sFilename, $tpExt, $sExt, 'dword', 0, 'ptr', 0, 'ptr', 0)
If @error Or $aResult[0] = 0 Then Return SetError(1,@error,'')
Local $tPath = DllStructCreate("wchar[" & $aResult[0]+1 & ']')
$aResult = DllCall('Kernel32.dll', 'dword', 'SearchPathW', 'ptr', 0, 'wstr', $sFilename, $tpExt, $sExt, 'dword', $aResult[0]+1, 'ptr', DllStructGetPtr($tPath), 'ptr', 0)
Return DllStructGetData($tPath, 1)
EndFunc/autoit]

Alles anzeigen

jetzt verstehe ich was du meinst...

alles klar und vielen dank

Zitat von BugFix

Was er meint:
Im Schlüssel ...Run steht nicht die Bezeichnung des Programms antivir desktop sondern nur: avgnt.

genau das hatte ich gemeint..

Zitat von progandy

Autoruns ist auch noch eine Möglichkeit Aber da wird so viel angezeigt, dass Normalanwender gar nicht mehr durchblicken, was abgeschaltet werden kann

ja ich möchte eben selber etwas schreiben. aber anscheinend gibts dafür keine gute lösung

hallo leute

auch von meiner seite alles gute zum 4. geburtstag..

hab lange gesucht, allerdings nichts gefunden.
wie sicher viele von euch wissen, ist es nicht so einfach autostartprogramme zu verwalten (msconfig).

deshalb wollte ich wissen, ob es möglich ist, iergendwie die programme zu identifizieren und anzuzeigen.

eine möglichkeit wäre per registry.. msconfig zeigt allerdings genauere informationen der programme.

beispiel:
registry: avgnt
msconfig: antivir desktop

kann mir jemand helfen?

grüsse

gibt es iergendwelche news?

warte schon sehnsüchtig darauf..

ohhhh man genial!!!

freue mich schon auf dieses skript..
es würde mir einige probleme lösen...

grüsse

hallo leute

hatte eigentlich schon lange diesen auftrag, bin aber ein bisschen in verspätung.
hier aber was ich bis jetzt habe.

dieses script erstellt eine verzeichnisstruktur die in einer xml datei definiert wird.
es ist nicht wirklich viel autoit, aber es ist eine gute möglichkeit mit xml dateien zu arbeiten.

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.0.0
Author: Gianni

Script Function:
Erstellt eine Verzeichnisstruktur

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

Dim $FSO
Dim $XMLDocument
Dim $WSHShell
Dim $Eingabedatei
Dim $StartKnoten
Dim $Basisverzeichnis

;====== Bearbeiten!!!! ==============
$Basisverzeichnis = "D:\"
$Eingabedatei = @ScriptDir & "\verzeichnisstruktur.xml"
; ===== Bearbeiten!!!! ==============

$FSO = ObjCreate("Scripting.FileSystemObject")
$XMLDocument = ObjCreate("Msxml2.DOMDocument")
$XMLDocument.async = False
$WSHShell = ObjCreate("Wscript.shell")

If Not $FSO.FolderExists($Basisverzeichnis) Then
MsgBox(64, "Basisverzeichnis", "Basisverzeichnis wird erstellt!")
DirCreate($Basisverzeichnis)
EndIf

; Lade die XML
$XMLDocument.load($Eingabedatei)
$XMLDocument.async = False

$StartKnoten = $XMLDocument.documentElement

If $StartKnoten <> "" Then
_verzeichnisseAnlegen($StartKnoten, $BasisVerzeichnis)
Else
MsgBox(48, "Fehler", "Kein Startknoten")
EndIf

MsgBox(64, "Operation beendet", "Operation beendet. Bitte Pfade überprüfen!")

; =============================================
Func _verzeichnisseAnlegen($AktKnoten, $AktVerz)
Dim $Unterknoten
Dim $NeuerName
Dim $NeuerPfad
Dim $i
Dim $Knoten
Dim $Ordner

$Unterknoten = $AktKnoten.childNodes
For $i = 0 To $Unterknoten.length -1
$Knoten = $Unterknoten.Item($i)
If $Knoten.nodeType = 1 Then
$NeuerName = $Knoten.GetAttribute("Name")
$NeuerPfad = $AktVerz & "\" & $NeuerName
If Not $FSO.FolderExists($NeuerPfad) Then
$Ordner = DirCreate($NeuerPfad)
Else
MsgBox(48, "Fehler", "Verzeichnis " & $NeuerPfad & " ist bereits vorhanden..")
EndIf

_verzeichnisseAnlegen($Knoten, $NeuerPfad)
EndIf
Next
EndFunc

verzeichnisstruktur.xml

<VerzeichnisStruktur>
	<Verzeichnis Name="Ordner_1">
		<Verzeichnis Name="Ordner_1_1"></Verzeichnis>
		<Verzeichnis Name="Ordner_1_2"></Verzeichnis>
	</Verzeichnis>
	<Verzeichnis Name="Ordner_2">
		<Verzeichnis Name="Ordner_2_1"></Verzeichnis>
		<Verzeichnis Name="Ordner_2_2"></Verzeichnis>
	</Verzeichnis>
</VerzeichnisStruktur>

nicht vergessen, hier zu bearbeiten:

;====== Bearbeiten!!!! ==============
$Basisverzeichnis = "D:\"
$Eingabedatei = @ScriptDir & "\verzeichnisstruktur.xml"
; ===== Bearbeiten!!!! ==============

muss jetzt noch das ganze umkehren und aus einer verzeichnisstruktur eine xml erstellen.

wenn jemand lust hätte, könnte er vielleicht noch eine gui entwerfen um die xml dateien zu erstellen?!
nur so als idee.

auf feedbacks würd ich mich freuen.

grüsse

Zitat von tobi_girst

PrideRage: Beweiße? Reicht das?

MfG tobi_girst

finde nicht das dies als beweis dient..

solche vorwürfe sollten gut überprüft werden.
wenn er ein solches tool geschrieben hat, überrascht es mich gar nicht,
dass er es auch auf dubiosen seiten postet.

allerdings ist dies noch kein beweis auf malware.

so leute

nach langer zeit, hab ich da wieder was zum präsentieren..

würde mich freuen wenn es jemand bei sich testen könnte und würde mich auf feedbacks freuen.

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=icon\database.ico
#AutoIt3Wrapper_Res_Fileversion=1.0
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <_sql.au3>
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.0.0
Author: Gianni

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------
;
_SQL_RegisterErrorHandler()
;
;************************ GUI ************************************
#Region ### START Koda GUI section ### Form=c:\backupsql\form1.kxf
$Form1 = GUICreate("SQL-Database Backup", 276, 274, 202, 113)
$inputServer = GUICtrlCreateInput("", 136, 24, 121, 21)
$inputDatabase = GUICtrlCreateInput("", 136, 56, 121, 21)
$inputUsername = GUICtrlCreateInput("", 136, 88, 121, 21)
$inputPassword = GUICtrlCreateInput("", 136, 120, 121, 21)
$inputFile = GUICtrlCreateInput("", 136, 152, 121, 21)
$labelServer = GUICtrlCreateLabel("SQL-Server:", 16, 24, 93, 22)
GUICtrlSetFont(-1, 11, 800, 0, "Arial")
$labbelDatabase = GUICtrlCreateLabel("Database:", 16, 56, 74, 22)
GUICtrlSetFont(-1, 11, 800, 0, "Arial")
$labelUsername = GUICtrlCreateLabel("Username:", 16, 88, 80, 22)
GUICtrlSetFont(-1, 11, 800, 0, "Arial")
$labelPass = GUICtrlCreateLabel("Password:", 16, 120, 77, 22)
GUICtrlSetFont(-1, 11, 800, 0, "Arial")
$labelFile = GUICtrlCreateLabel("File:", 16, 152, 34, 22)
GUICtrlSetFont(-1, 11, 800, 0, "Arial")
$btnBrowse = GUICtrlCreateButton("Browse..", 184, 176, 75, 17)
$btnBackup = GUICtrlCreateButton("Backup", 16, 216, 75, 25)
$Checkbox1 = GUICtrlCreateCheckbox("Create SQL-File", 16, 192, 97, 17)
$btnAbort = GUICtrlCreateButton("Abort", 184, 216, 75, 25)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetText ($StatusBar1, "Ready")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;************************ GUI ************************************

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btnAbort
Exit
Case $btnBrowse
$fileName = FileSaveDialog("Save as..", @ScriptDir, "Bak (*.bak)", 2 + 16)
If Not @error Then GUICtrlSetData($inputFile, $fileName)
Case $btnBackup
Select
Case GuiCtrlRead($inputServer) = ""
MsgBox(48, "Failure", "Please insert a server")
Case GuiCtrlRead($inputDatabase) = ""
MsgBox(48, "Failure", "Please insert a database")
Case GuiCtrlRead($inputFile) = ""
MsgBox(48, "Failure", "Please insert the filename")
Case Else
$server = GUICtrlRead($inputServer)
$db = GUICtrlRead($inputDatabase)
$username = GUICtrlRead($inputUsername)
$password = GUICtrlRead($inputPassword)
$fileName = GUICtrlRead($inputFile)
_controlExt()
_backupSQL()
ContinueLoop
EndSelect
EndSwitch
WEnd

Func _controlExt() ; funktion - dateiendung wird konntrolliert (falls nicht vorhanden, dann eingefügt (*.bak))
Dim $szDrive, $szDir, $szFName, $szExt
_PathSplit($fileName, $szDrive, $szDir, $szFName, $szExt)
If $szExt = "" Then $fileName = $szDrive & $szDir & $szFName & ".bak"
EndFunc

Func _backupSQL()
_GUICtrlStatusBar_SetText ($StatusBar1, "Backup...")
$sStart = _SQL_Startup() ; starte sql verbindung
$sConn = _SQL_Connect($sStart, $server, $db, $username, $password) ; anmeldung zum server mit der sql verbindung
If $sConn = $SQL_ERROR then
Msgbox(0 + 16 +262144,"Error",_SQL_GetErrMsg()) ; bei einem fehler mit dem verbindung, gib die fehlermeldung zurück
_SQL_Close() ; schliesse die sql verbindung
Else
If _SQL_Execute($sStart,"BACKUP DATABASE [" & $db & "] TO DISK= N'" & $fileName & "' WITH NOFORMAT, NOINIT, NAME = N'" & $db & "-FULL', SKIP, NOREWIND, NOUNLOAD, STATS = 10;") = $SQL_ERROR then
Msgbox(0 + 16 +262144,"Error",_SQL_GetErrMsg()) ; bei einem fehler mit dem sichern der datenbank
Else
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then _createSQLFile() ; falls sicherung erfolgreich, kontrolliere ob sql datei erstellt werden soll
MsgBox(0, "Success", "Backup successful") ;gib meldung zurück
EndIf
EndIf
_SQL_Close() ; schliesse die sql verbindung
_GUICtrlStatusBar_SetText ($StatusBar1, "Ready")
EndFunc

Func _createSQLFile()
Dim $szDrive, $szDir, $szFName, $szExt
$fileNameSplit = _PathSplit($fileName, $szDrive, $szDir, $szFName, $szExt) ; fileendung der bak datei wird ausgelesen
$fileNameSQL = $szDrive & $szDir & $szFName & ".sql" ; filendung der bak datei mit sql (*.sql) ersetzt
$fileOpenSQL = FileOpen ( $fileNameSQL, 2) ; sql datei wird erstellt
$fileWrite = FileWrite($fileOpenSQL, "BACKUP DATABASE [" & $db & "] TO DISK = N'" & $fileName & "' WITH NOFORMAT," & @CRLF _
& "NOINIT, NAME = N'" & $db & "-Fullbackup', SKIP, NOREWIND, NOUNLOAD, STATS = 10" & @CRLF _
& "GO") ; befehl wird in der sql datei geschrieben
If $fileWrite = 1 Then
MsgBox(0, "Success", "SQL-File created successful") ; erfolgreich
Else
MsgBox(0, "Error", "SQL-File not created") ; nicht erfolgreich
EndIf
FileClose($fileWrite) ; schliesse handle (sql datei)
EndFunc

grüsse

gianni