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
Beiträge von wolkenloser
-
-
Hier mal ein Beispiel für das hochladen einer Datei auf den FTP Server:
Code
Alles anzeigenFunc 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
-
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
-
HOTKEY ?
Abbruch mit ESC ?
funzt bei mir zumindest....Code
Alles anzeigenAdlibEnable("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
-
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
-
Ich habe noch was gefunden
Achtung - verursacht hohe CPU LastCode
Alles anzeigenAdlibEnable("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
-
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
Alles anzeigenopt("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
-
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
-
Was auf jeden Fall geht ist das hier, allerdings ohne Progressbar:
Nenne dein Programm z.B. test.exe -
Hi,
einen Progressbar zu machen ist ja easy, aber wie stellt er es an, damit Gleichzeitig noch ein GUIFester funktionen abarbeiten kann ?
Code
Alles anzeigen#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
-
Hi Peethebee,
bitte guck hier nochmal.
Auf diesem Gebiet bin ich schlecht... -
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 !!
-
Die Variannte mit @Scriptdir hatte ich gar nicht gesehen.
Sehr elegant gelößt! -
Hier mal ein weg für "deppen"
(bitte nicht so eng sehen)Code
Alles anzeigen;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
Wenn Du jetzt noch für den gefundenen Buchstaben abfragst ob die Datei vorhaden ist, kannst Du sie in dein Ziel kopiern.
-
Scheinbar muß man die DLL erst "registrieren".
Ich weiß aber nicht wie... -
ich habe eine DLL Gefunden, aber das einbinden fällt mir extrem schwer.
Leider gibt das immer nur einen Fehler
Code
Alles anzeigen$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
-
Solche Antworte liebe ich ja.....
-
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. -
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) -
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.