Frag mich was 
einfach definitv, un kompatibel mit jedem Betriebssystem 
Beiträge von Kev
-
-
[autoit]
@Username
[/autoit]?
-
ist mir bekannt. War bloß als Rückinfo.
Ist auch keine neu Themenerstellung
-
So, um kurz den aktuellen Status weiterzugeben.
Ich habe mir nun folgendes System bestellt:
AMD FX4100 (Zambezi) 4x 3,6 (wird übertacktet auf 3,8 via. Turboboost)
Kein Bild
ATI Radeon HD 6870
[Blockierte Grafik: http://di1-3.shoppingshadow.com/images/pi/b6/b7/66/103581686-260x260-0-0_MSI+MSI+R6870+2PM2D1GD5+Radeon+HD+6870+1GB+256+bit.jpg]
be quiet! Pure Power BQT L7 530W
[Blockierte Grafik: http://www.hoh.de/images/articles/20871_05bb09feae7c4dcec3f10e080eb6a433_4.jpg]
Aerocool Strike-X Advance BK ATX
[Blockierte Grafik: http://p.gzhls.at/690750.jpg]
Asus M5A78L-M/USB3 760G RGVSM
[Blockierte Grafik: http://p.gzhls.at/644321.jpg]
Corsair XMS3 8GB 1333 Mhz Kit
[Blockierte Grafik: http://img1.billiger.de/t/g4yGR4GnqncMk5awHg2cz4BqltxAry1XaKoQUcyurJ8GBVj3ArTDVQdPyDS9qoZfQ/Corsair-XMS3-8GB-Kit-DDR3-PC3-10667-CMX8GX3M2A1333C9.jpg]
Seagate 1TB ST31000524AS 7200.12 SA3
[Blockierte Grafik: http://pe1.hmcdn.de/media/2010/04/08/item/61/91/39/41/item_M_61913941_174969251.jpg]
Kostenpunkt: 600€ (etwas teurer als gesagt, aber nunja, was tut man nich für die Technik
) -
Hi,
soweit ich weiß ist dies nicht möglich aber du kannst die variable bzw den Wert ja exportieren.
In zb. eine .txt datei die du dann wieder einließt nachdem starten des scripts und dann evntl direkt mit Guictrlsetdata wieder in deinen Input importierst -
Aso sorry
Unter Tools, SciTe Config
Einstellungen General Settings >Keep N backup
-
Je nach dem wo dein Script liegt.
Arbeitest du auf dem Desktop.
Wird dort ein Ordner Namens "Backup" erstellt, wo deine Scripte zu finden sind.Scriptname_old.au3 bsp.
-
Ist sofern ich weiß nicht möglich.
Du kannst höchstends das Backup ein/ausschalten.
Sofern wir hier von SciTE reden....... -
Oh jawoll ! Weihnachten ist gerettet ! Mein Leben hat endlich einen Sinn ! Ich fasse es nicht !!!!
jo werds mir iwann ma ziehn...
-
-
[autoit]
#include <file.au3>
[/autoit][autoit][/autoit][autoit]
#include <array.au3>Global $dateipfad = FileSelectFolder("Dateipfad","Geben Sie den Dateipfad an") ;dein Dateipfad
[/autoit][autoit][/autoit][autoit]
$pattern = InputBox("Pattern","Geben Sie das Pattern an") ; *.png$dateien = _FileListToArray($dateipfad,$pattern, 1)
[/autoit][autoit][/autoit][autoit]_ArrayDisplay($dateien)
[/autoit][autoit][/autoit][autoit]for $i = 1 to $dateien[0]
[/autoit]
Msgbox(0,"",$dateien[$i],1)
Next -
[autoit]
Global $dateipfad = InputBox ("Dateipfad","Geben Sie den Dateipfad an")
[/autoit]
Global $pattern = InputBox ("Pattern","Geben Sie das Pattern an")
Global $dateien = _FileListToArray($dateipfad, $pattern, 1) ; funktioniert nicht
Global $anzahlDat = $Dateien[0]Bitte nächstes Mal so...
Desweiteren poste bitte den ganzen Quellcode. So bringt das 0.
-
-
ooooooder....^^
[autoit]
[/autoit]
Winsettrans -
Also das nen Algo
habs vor 2 jahren schonmal nachgebaut gehabt....
nicht 1zu1....war mir zu aufwendig aber dennoch......*kram*....
da hamwirs....
Spoiler anzeigen
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_icon=116990-matte-blue-and-white-square-icon-business-key7.ico
#AutoIt3Wrapper_outfile=Unbreakable Algorythm.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=thx to Schrubbi & Lev
#AutoIt3Wrapper_Res_Description=Unbreakable Algorythm
#AutoIt3Wrapper_Res_LegalCopyright=Open Source
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------AutoIt Version: 3.3.5.6 (beta)
[/autoit] [autoit][/autoit] [autoit]
Author: Kev.KScript Function:
[/autoit] [autoit][/autoit] [autoit]
Template AutoIt script.#ce -deBuggt-by-Techmix---------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
#include <Misc.au3>
Opt("GUIOnEventMode", 1)Dim $timing1=320 ; Msec
[/autoit] [autoit][/autoit] [autoit]
Dim $timing2=30 ; Sekunden
Global $lbl[40], $read[8]
Global $random, $pass, $inpt, $checkbtn
Global $password, $GettingPass=0, $step=10, $stepCount=0, $stepCode = Random(0,29,1)start()
[/autoit] [autoit][/autoit] [autoit]
GUI()
gen_Pass()
AdlibRegister("start",$timing1)
adlibregister("gen_Pass",$timing2 * 1000)While 1 ; Loop
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Sleep(3) ; sonst ist die Prozzi Last zu hoch!
WEndFunc start()
[/autoit] [autoit][/autoit] [autoit]
if $stepCount < $step then ; langsamer Wechsel alle '$step'
$stepCount += 1
Else
$stepCount = 0
$stepCode = Random(0,29,1)
EndIf
$i=0
while $i <= 29 ; 'while-wend' ist immer etwas schneller als 'for-to-next'!
if $i <> $stepCode then
GUICtrlSetData($lbl[$i], chr(random1()) ) ; schneller Wechsel
Else
GUICtrlSetData($lbl[$stepCode], $read[$GettingPass] ) ; langsamer Wechsel
EndIf
$i+=1
WEndEndFunc ;==>start
[/autoit] [autoit][/autoit] [autoit]Func GUI()
[/autoit] [autoit][/autoit] [autoit]
$gui = GUICreate("Unbreakable Algorythm", 415, 280)
GUISetOnEvent($GUI_EVENT_CLOSE, "exits")
$lbl[0] = GUICtrlCreateLabel("", 20, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[1] = GUICtrlCreateLabel("", 60, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[2] = GUICtrlCreateLabel("", 100, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[3] = GUICtrlCreateLabel("", 140, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[4] = GUICtrlCreateLabel("", 180, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[5] = GUICtrlCreateLabel("", 220, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[6] = GUICtrlCreateLabel("", 260, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[7] = GUICtrlCreateLabel("", 300, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[8] = GUICtrlCreateLabel("", 340, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[9] = GUICtrlCreateLabel("", 380, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[10] = GUICtrlCreateLabel("", 20, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[11] = GUICtrlCreateLabel("", 60, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[12] = GUICtrlCreateLabel("", 100, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[13] = GUICtrlCreateLabel("", 140, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[14] = GUICtrlCreateLabel("", 180, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[15] = GUICtrlCreateLabel("", 220, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[16] = GUICtrlCreateLabel("", 260, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[17] = GUICtrlCreateLabel("", 300, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[18] = GUICtrlCreateLabel("", 340, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[19] = GUICtrlCreateLabel("", 380, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[20] = GUICtrlCreateLabel("", 20, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[21] = GUICtrlCreateLabel("", 60, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[22] = GUICtrlCreateLabel("", 100, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[23] = GUICtrlCreateLabel("", 140, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[24] = GUICtrlCreateLabel("", 180, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[25] = GUICtrlCreateLabel("", 220, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[26] = GUICtrlCreateLabel("", 260, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[27] = GUICtrlCreateLabel("", 300, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[28] = GUICtrlCreateLabel("", 340, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[29] = GUICtrlCreateLabel("", 380, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$inpt = Guictrlcreateinput("",7,210,400,25)
Guictrlsetstate(-1,$GUI_DISABLE)
$checkbtn= Guictrlcreatebutton("Enter",160,250,100,25)
Guictrlsetonevent($checkbtn,"check")
Guictrlcreatelabel("Password will change every " & $timing2 & " Seconds",110,140,2000,25)
Guictrlsetstate(-1,$GUI_DISABLE)
$pass = Guictrlcreatelabel("",160,170,300,25)
Guictrlsetfont(-1,15,"","","Sylfaen")
GUISetState(@SW_SHOW) ; Zeigt das leere GUI-Fenster
EndFuncfunc _add()
[/autoit] [autoit][/autoit] [autoit]
if GUICTRLREAD($lbl[@GUI_CtrlId]-3) = $read[$GettingPass] then ; abfrage ob der geklickte Button auch im Passwort ist
GUICtrlSetData($inpt, GUICTRLREAD($inpt) & GUICTRLREAD($lbl[@GUI_CtrlId]-3))
dim $stepCount=0, $stepCode = Random(0,29,1) ; Daten-Reset
$GettingPass+=1
EndIf
EndFuncFunc gen_Pass()
[/autoit] [autoit][/autoit] [autoit]
$read[0] = Chr(random1())
$read[1] = Chr(random1())
$read[2] = Chr(random1())
$read[3] = Chr(random1())
$read[4] = Chr(random1())
$read[5] = Chr(random1())
$read[6] = Chr(random1())
$read[7] = Chr(random1())
$password = $read[0] & $read[1] & $read[2] & $read[3] & $read[4] & $read[5] & $read[6] & $read[7] ; Passwort setzen
dim $GettingPass=0, $stepCount=0, $stepCode = Random(0,29,1) ; Daten-Reset
Guictrlsetdata($pass,$password)
Guictrlsetdata($inpt,"")
EndFunc ;==>startfunc check()
[/autoit] [autoit][/autoit] [autoit]
if $password = Guictrlread($inpt) Then
Traytip("Unbreakable Algorythm","Password Check confirmed..continue..",2,1)
;start Program here
Else
Traytip("Unbreakable Algorythm","Password Check Error.." & @crlf & "resetting..",2,1)
sleep(2000)
Traytip("","",1)
Guictrlsetdata($inpt,"")
gen_Pass()
;or exit
EndIf
EndfuncFunc random1()
[/autoit] [autoit][/autoit] [autoit]
$random=Random(48,83,1)
If $random>57 Then $random +=39
Return $random
EndFuncfunc exits()
[/autoit] [autoit][/autoit] [autoit][/autoit]
exit
Endfunc -
Alles Gute von mir ! Auch wenns nachträglich ist
-
-
Naja da ich genau die Anzahl der Zeichen zurückbekomme die ich mit StdinWrite übergeben habe, scheint der das schon zu machen. Es kommt bloß bei dem Read nicht mit raus.
Sprich ÜBergabe an sich funktioniert. Nur rausbekommen tu ich nur den Standardkram, welchen ich sowieso beim Read rausbekomme.
VPN Tunnel disconnected etc...
-
hau ich den Exitloop raus, hängt das Ding dauerhaft in der Schleife und das Prog. macht gar nichts mehr.
Hab ich nun Testweise aber auch gemacht, Exit raus, StdoutRead rein.
das log wird erstellt, aber ohne den Errorcode.Schreib ich den Kram direkt ins cmd, bekomm ich mein Returncode sauber ausgewertet.
Der StdinWrite gibt mir auch nen Success zurück. -
[autoit]
Func vpn_disconnect()
[/autoit][autoit][/autoit][autoit]
$date = @MDAY & "." & @MON & "_" & @HOUR & "_" & @MIN & "_" & @SEC & ".txt"
$vpndir = "C:\Temp\VPN\logs\log_" & $date
$foo = Run("C:\Program Files (x86)\Cisco Systems\VPN Client\vpnclient.exe disconnect", @SystemDir, @SW_SHOW, $STDIN_CHILD + $STDOUT_CHILD)
StdinWrite($foo,"echo %errorlevel%") ;soll returncode ausgeben - Machts aber net
StdinWrite($foo)While 1
[/autoit]
$line = StdoutRead($foo)
If $line <> "" Then
Filewrite($vpndir,$line)
ExitLoop
EndIf
WEnd
Endfunc