Beiträge von wolkenloser

wolkenloser

Ich will andere SMILIES :- )
(z.B wie bei ...Unattened.de)
besonderes diese lleine animierten wie :THUMPSUP: gefallen mir gut, oder eine Laolo und die "Cheerleader". Dann würde das Forum gleich doppeltsoviel Spaß machen

wolkenloser

Hier mal ein Beispiel für das hochladen einer Datei auf den FTP Server:

Code

Func FTP_PUT()
	$server = '10.10.10.10'
	$username = 'ftpuser'
	$pass = 'passwort'
$UPLOADFILE= "c:\testfile.txt"
$FTPFILENAME= "testfile.txt"

	$Open = _FTPOpen('Was hier steht ist egal')
	$Conn = _FTPConnect($Open, $server, $username, $pass)
	$Ftpp = _FtpPutFile($Conn, $UPLOADFILE, $FTPFILENAME)
	$Ftpc = _FTPClose($Open)

	EndFunc

Alles anzeigen

wolkenloser

Hi GUN,..da ist wohl ein Fehler in der Darstellung der Syntax in Zeile 5 (HOTKEYSET).
Die Klammern werden nicht richtig dargestellt.

Ich lade das Script mal hoch

wolkenloser

HOTKEY ?
Abbruch mit ESC ?
funzt bei mir zumindest....

Code

AdlibEnable("start",1000)


dim $progressbar1, $GUI_EVENT_CLOSE, $exitmarke
HotKeySet("{ESC}","abbruch")


$Form1 = GUICreate("AForm1", 622, 441, 192, 125)
$progressbar1 = GUICtrlCreateProgress(64, 376, 489, 33)
GUICtrlSetColor(-1, 0x4E4E4E)
$Button1 = GUICtrlCreateButton("EXIT", 56, 136, 75, 25, 0)
$Button2 = GUICtrlCreateButton("AButton2", 152, 136, 75, 25, 0)
GUISetState()


Progress_10sek()










Func abbruch()
	$exitmarke=1
EndFunc	






func start()
While 1
                $msg = GuiGetMsg()
                Select
;~                 Case $msg = $GUI_EVENT_CLOSE
;~ 						 ExitLoop

                Case $msg = $Button1
                        MsgBox(0,"","EXIT gedrückt",1)
						$exitmarke=1
                Case $msg = $Button2
                        MsgBox(0,"","AButton2 gedrückt")       

                Case Else
                ;;;;;;;
                EndSelect

        WEnd


EndFunc






;...
Exit


func Progress_10sek()
For $i = 0 To 10
        GUIGetMsg ()
        GUICtrlSetData ($progressbar1,$i*10)
         Sleep(999)
		if $exitmarke=1 Then Exit 
 Next
 Exit
 EndFunc

Alles anzeigen

wolkenloser

Du kannst den RUN Befehl doch auc mit UNC Pfaden verwenden:

RUN("\\server\netlogon\test.exe", "c:\")

oder Du nimmst gleich die zweite Variante mit ADLIB

wolkenloser

Ich habe noch was gefunden
Achtung - verursacht hohe CPU Last

Code

AdlibEnable("start",1000)


dim $progressbar1, $GUI_EVENT_CLOSE




$Form1 = GUICreate("AForm1", 622, 441, 192, 125)
$progressbar1 = GUICtrlCreateProgress(64, 376, 489, 33)
GUICtrlSetColor(-1, 0x4E4E4E)
$Button1 = GUICtrlCreateButton("AButton1", 56, 136, 75, 25, 0)
$Button2 = GUICtrlCreateButton("AButton2", 152, 136, 75, 25, 0)
GUISetState()


Progress_10sek()




func start()
While 1
		$msg = GuiGetMsg()
		Select
		Case $msg = $GUI_EVENT_CLOSE
;~ 			MsgBox(0,"",$GUI_EVENT_CLOSE)
			ExitLoop

		Case $msg = $Button1 
			MsgBox(0,"","AButton1 gedrückt")	
		Case $msg = $Button2 
			MsgBox(0,"","AButton2 gedrückt")	

		Case Else
		;;;;;;;
		EndSelect

	WEnd


EndFunc






;...
Exit


func Progress_10sek()
For $i = 0 To 10
	GUIGetMsg ()
	GUICtrlSetData ($progressbar1,$i*10)
	 Sleep(999)
 Next
 Exit
 EndFunc

Alles anzeigen

wolkenloser

Hi Holger!
Dein erster Beitrag und sofort ein Volltreffer.

Ich bin dafür das Du sofort den Status "EXPERTENCODER" bekommst.

:)) :)) :)) :)) :))

Merci !

Kennst Du dich gut mit COM Objekten aus ?

Nun ja,
Für alle die das interessiert.
Hier meine Funktion für das Batch-Kovertieren von Grafikdateien.
Mann kann die Bilder entweder auf das EXE Script ziehen, oder machte es über das Explorer Kontextmenue (dazu das EXE File in den "SEND TO" Ordner des geladenen Benuterprofils kopieren.)

Zunächst bekommt man noch eine Abfrage nach der Qualitätseinstellung (25% ist voreingestellt) und ggf nach einem Suffix (Name der an die Datei angehängt wird.) Löscht man hier die Vorgabe werden die Original Dateien überschrieben.

Genau wie ich es mir vorgestellt hatte.

Code

opt("TrayIconDebug", 1); zeigt am trayicon welchen Befehl  das Script gerade Ausführt
FileInstall('C:\picture_convert\jangraphics.dll',@TempDir & "")
$sDll     = @TempDir & '\jangraphics.dll'


$nFixWidth       = 0
$nFixHeight      = 0
$bTransparentGif = FALSE
$nJpegQuality    = 25






$counter = $CMDLINE[0]
$nJpegQuality=InputBox("Qualitätseinstellung","Bitte die Qualitätseinstellung festlegen (1-100%)","25")
$suffix=InputBox("Dateibenennung","Bitte geben sie einen Text an der an den Dateinamen angehängt wird." & @CR &  "Ein leeres Feld überschreibt die Originaldateien","_small")


RunWait(@Comspec & ' /c ' & @SystemDir & '\regsvr32 /s ' & $sDll, '', @SW_HIDE)
For $i = 1 To $counter
	convert()
 Next
RunWait(@Comspec & ' /c ' & @SystemDir & '\regsvr32 /s /u ' & $sDll, '', @SW_HIDE)
FileDelete(@TempDir & "\jangraphics.dll")














Func convert()


$sInFile  =  $CMDLINE[$i]
$sOutfile =  StringTrimRight($CMDLINE[$i], 4) & $suffix & ".jpg"
;~ MsgBox(0,"aktuelles Bild",$CMDLINE[$i])






$obj = ObjCreate('janGraphics.Compendium')
; Einfache Konvertierung
;$obj.convert($sInFile, $sOutfile)


; Komplexe Konvertierung


$message= $obj.convertEx($sInFile, $sOutfile, $nFixWidth, $nFixHeight, $bTransparentGif, $nJpegQuality)
$obj = 0
ToolTip("Konvertierung im Gange - Bild" & $i & " von " & $CMDLINE[0] & @CR & "Speichere unter ->" & $sOutfile)






If Not $message = 0 Then MsgBox(0,$CMDLINE[$i],$message)


EndFunc

Alles anzeigen

wolkenloser

Noch einen Tip:

Wenn du z.B Regedit öffnest und dich dann mit der Registry des anderen Rechners verbindest oder einfach ein Netzlaufwerk verbindest wird "insgeheim" eine Netzwerk Verbindung mit IPC$ des Remoterechners hergestellt.
Da Du ja sicherlich nicht jedesmal vorher ein Laufwerk mappen willst kannst Du die IPC$ Freigabe auch vorher manuelle oder von deinem Programm herstellen. Es geht nur um die authentifikation am fremden System.

Das geht z.B so:

Code

$IP="";IP nummer oder computername des anderen PCs
$msi_user="";gültiger User auf dem Remoterechner
$msi_pass="";gültiges Passwort für $msi_user


$dosbefehl = "net use \" & $IP & " /USER:" & $msi_user & " " & $msi_pass & " /PERSISTENT:NO"

Run(@ComSpec & " /c " &  $dosbefehl)

hiermit trennst Du die $msi_usererbindung wieder

Code

$dosbefehl ="net use \" & $IP & " \IPC$ /DELETE"
Run(@ComSpec & " /c " &  $dosbefehl)

wolkenloser

Was auf jeden Fall geht ist das hier, allerdings ohne Progressbar:
Nenne dein Programm z.B. test.exe

Code

Run("C:\test.exe","c:"); das eigendliche Programm, z.B. GUI
sleep(10000);solange soll es daueren
$PID = ProcessExists("test.exe") ; Will return the PID or 0 if the process isn't found.
If $PID Then ProcessClose($PID)

wolkenloser

Hi,

einen Progressbar zu machen ist ja easy, aber wie stellt er es an, damit Gleichzeitig noch ein GUIFester funktionen abarbeiten kann ?

Code

#include <GUIConstants.au3>


dim $progressbar1




$Form1 = GUICreate("AForm1", 622, 441, 192, 125)
$progressbar1 = GUICtrlCreateProgress(64, 376, 489, 33)
GUICtrlSetColor(-1, 0x4E4E4E)
$Button1 = GUICtrlCreateButton("AButton1", 56, 136, 75, 25, 0)
$Button2 = GUICtrlCreateButton("AButton2", 152, 136, 75, 25, 0)
GUISetState()


Progress_10sek()




While 1
		$msg = GuiGetMsg()
		Select
		Case $msg = $GUI_EVENT_CLOSE
			MsgBox(0,"",$GUI_EVENT_CLOSE)
			ExitLoop

		Case $msg = $Button1 
			MsgBox(0,"","AButton1 gedrückt")	
		Case $msg = $Button2 
			MsgBox(0,"","AButton2 gedrückt")	

		Case Else
		;;;;;;;
		EndSelect

	WEnd


func Progress_10sek()
For $i = 0 To 10
	GUIGetMsg ()
	GUICtrlSetData ($progressbar1,$i*10)
	 Sleep(999)
 Next
 Exit
 EndFunc

Alles anzeigen

wolkenloser

Hi Peethebee,

bitte guck hier nochmal.
Auf diesem Gebiet bin ich schlecht...

wolkenloser

Es muß in den Eigenschaften der LAN-Verbindung -> ALLGEMEIN -> "Datei- und Druckerfreigabe" installiert sein. Sonst geht gar nichts mit den RemoteDiensten

Bitte überprüf uch mal im EXPLORER -> ORDNEROPTIONEN ->ANSICHT -> Einfache Dateifreigabe.

Der HAKEN muß RAUS !!

wolkenloser

Die Variannte mit @Scriptdir hatte ich gar nicht gesehen.
Sehr elegant gelößt!

wolkenloser

Hier mal ein weg für "deppen"
(bitte nicht so eng sehen)

Code

;1. CDROM ermitteln
dim $a_bis_z
FindCD()
MsgBox(0,"",$a_bis_z)


Func FindCD()


	For $i = 65 To 90 ;A-Z
		$a_bis_z = Chr($i) & ':\'
		$cdr = DriveGetType($a_bis_z)
		If $cdr = 'CDROM' Then
			ExitLoop
		EndIf	
	Next
Return $a_bis_z
EndFunc

Alles anzeigen

Wenn Du jetzt noch für den gefundenen Buchstaben abfragst ob die Datei vorhaden ist, kannst Du sie in dein Ziel kopiern.

wolkenloser

Scheinbar muß man die DLL erst "registrieren".
Ich weiß aber nicht wie...

wolkenloser

ich habe eine DLL Gefunden, aber das einbinden fällt mir extrem schwer.

Leider gibt das immer nur einen Fehler

grafikdll DL

Code

$s_File1 = "C:\ProfilCopy.jpg"
$s_File2 = "C:\ProfilCopy2.jpg"
$s_fixWidth = ""
$s_fixHeight = ""
$s_TransparentGif = "False"
$s_JpegQuality = 50


Func _Picture_save($s_File1, $s_File2, $s_fixWidth, $s_fixHeight,$s_TransparentGif,$s_JpegQuality)
    $dllcall = DllCall("janGraphics.dll", 'long',"convertEx", 'str', $s_File1 , 'str', $s_File2 , 'str', $s_fixWidth , 'long', $s_fixHeight , 'long', $s_TransparentGif , 'long', $s_JpegQuality , 'long')
    If @error Then
		MsgBox(12000,"FEHLER","Es ist ein Fehler aufgetreten")
        SetError(1)
        Return 0
    Else
        Return 1
    EndIf
EndFunc

Alles anzeigen

wolkenloser

Solche Antworte liebe ich ja.....

wolkenloser

Hallo

Ich habe noch eine Fehler gefunden.
ganz am ende des Scripts wo die NTUSER.DAT kopiert wird habe ich vergessen beim kopieren das "überschreiben" Flag zu setzen, somit wurde die bestehende NTUSER.DAT nicht überschrieben.
Das ist jetzt korrigiert.

wolkenloser

Hi,
ich ,möchte gerne ein Tool bauen mit dem ich Bilder (z.B JPG oder BMP) in eine komprimiertes JPF umwandeln kann.

So etwas ähnliches war damals in Sreenshottool eingebaut, aber ich will die Bilder nicht unbedingt sichtbar laden.
Weiß jemand wie man das anders machen kann:

Also:
-Bild auswählen (FileSecectFolder)
-kompressionsrate einstellen (oder per Vorgabe auf ein bestimmtes Qualitäts Level)
-Bild als JPG speichern (überschreiben)

wolkenloser

Du kannst ja mal einen neuen User auf deinem Rechner anlegen und dich dann als dieser anmelden.
Hinterher meldest du dich wieder "normal an" und startest mal Profilcopy.

Jetzt legst du noch eine User an und meldest dich anschließend wieder an.

Wenn Du hinterher die Spuren wieder löschen willst, mußt Du die User und deren Profile löschen.

Beiträge von wolkenloser

Forumsvollversion

Ftp.au3

Fehlerbehandlung

Fehlerbehandlung

Fehlerbehandlung

Fehlerbehandlung

Bilder konvertieren

Frage: Rechte für Registry ändern

Fehlerbehandlung

Fehlerbehandlung

Bilder konvertieren

Frage: Rechte für Registry ändern

Und noch ne Frage

Und noch ne Frage

Bilder konvertieren

Bilder konvertieren

Bilder konvertieren

ProfilCopy

Bilder konvertieren

ProfilCopy