Beiträge von Kev

Kev

Alles klar danke

habs so gelößt

[autoit]

func read()
$lesen = _GUICtrlListBox_GetCount($list)
for $i = 0 To $lesen -1
$ergebnis = _GUICtrlListBox_GetText($list, $i)
Next
Endfunc

[/autoit]

Kev

Hey,

ich würde gerne die Einträge einer List, sprich GUICtrlCreateList auslesen.

Sprich der soll oben anfangen und runter bis zum letzten Eintrag, die anzahl ist unbekannt.
am besten irgendwie in nem Array mit ner Forschleife.

Aber wie sag ich dem er soll immer ein Item nach runter, bis zum ende

Gruß

Kev

Aufgeräumt & gesyntaxt

Spoiler anzeigen

[autoit]

#include <Date.au3>
#include <file.au3>

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

Dim $cde_param, $cde_prgpath, $cde_sikpath, $cde_tagname, $cde_weekday, $cde_LastRun, $cde_Drive, $cde_filedate

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

FileInstall("RegLocalSikSettings.ini", "RegLocalSikSettings.ini") ;INI-Datei editierbar

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

If FileExists(".\RegLocalSikSettings.ini") Then ;If INI-Datei vorhanden, sonst Cancel
$cde_prgpath = IniRead("RegLocalSikSettings.ini", "Settings", "cde_prgpath", "NichtGefunden") ;Auslesen INI-Datei
$cde_sikpath = IniRead("RegLocalSikSettings.ini", "Settings", "cde_sikpath", "NichtGefunden")
$cde_param = IniRead("RegLocalSikSettings.ini", "Settings", "cde_param", "NichtGefunden")
$cde_Drive = StringMid($cde_sikpath, 2, 3)

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

$cde_LastRun = " " & @MDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & ":" & @MIN ;Last Run Datum
IniWrite("RegLocalSikSettings.ini", "History", "cde_LastRun", $cde_LastRun) ;in INI-Datei schreiben

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

If FileExists($cde_prgpath) Then ;If Programm gefunden, sonst Cancel
If DriveStatus($cde_Drive) = "READY" Then ;If Ziel vorhanden, sonst Cancel
MsgBox(64, "Registry sichern", "Start der Sicherung - einen Augenblick bitte ...", 2)

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

$cde_weekday = _DateToDayOfWeekISO(@YEAR, @MON, @MDAY) ;Berechnung Wochentag
If $cde_weekday = "1" Then ;tägl. Sicherung pro Wochentag
$cde_tagname = "Montag" ;Zyklus = 1 Woche
ElseIf $cde_weekday = "2" Then ;danach jeweiliges Überschreiben
$cde_tagname = "Dienstag"
ElseIf $cde_weekday = "3" Then
$cde_tagname = "Mittwoch"
ElseIf $cde_weekday = "4" Then
$cde_tagname = "#date#" ;Ausnahme 1 wöchentl. Sik
;~ $cde_tagname = "Donnerstag" ;mit Tagesdatum
ElseIf $cde_weekday = "5" Then
;~ $cde_tagname = "#date#"
$cde_tagname = "Freitag"
ElseIf $cde_weekday = "6" Then
$cde_tagname = "Samstag"
ElseIf $cde_weekday = "7" Then
$cde_tagname = "Sonntag"
EndIf

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

$cde_sikpath1 = $cde_sikpath & $cde_tagname & '" ' ;Erzeugen Verzeichnis für SIK entweder

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

If $cde_tagname = "#date#" Then ;Verz. 'wöchentliche SIK' (Datumsangabe)
$cde_filedate = StringMid($cde_sikpath & "\" & StringRight(@YEAR, 2) & "-" & @MON & "-" & @MDAY & "\" & @YEAR & "-" & @MON & "-" & @MDAY & ".txt", 2, 100)
Else ;oder Verz. 'tägl. SIK' (Wochentagsangabe)
$cde_filedate = StringMid($cde_sikpath & $cde_tagname & "\" & @YEAR & "-" & @MON & "-" & @MDAY & ".txt", 2, 100)
EndIf

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

ShellExecuteWait($cde_prgpath, $cde_sikpath1 & $cde_param) ;Aufruf ERUNT
Sleep(1000)
IniWrite("RegLocalSikSettings.ini", "History", "cde_Status", " OK") ;Status in INI-Datei schreiben (OK)
IniWrite("RegLocalSikSettings.ini", "History", "cde_Error", "")

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

FileOpen($cde_filedate, 10) ;LogFile erzeugen im SIK-Verz.
FileWriteLine($cde_filedate, "Registry Sicherung vom: " & @MDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC)
FileClose($cde_filedate) ;Datum und Uhrzeit ins LogFile schreiben
Else
MsgBox(16, "LW nicht gefunden", ' Das Ziel-LW ( ' & StringUpper($cde_Drive) & ' ) wurde nicht gefunden.' & @CRLF & @CRLF & " Der Vorgang wird abgebrochen - es erfolgt keine Sicherung !")
IniWrite("RegLocalSikSettings.ini", "History", "cde_Status", " Abbruch") ;Fehlerfall 'Ziel-LW' nicht gefunden
IniWrite("RegLocalSikSettings.ini", "History", "cde_Error", " Ziel-LW nicht gefunden")
EndIf
Else
MsgBox(16, "Programm nicht gefunden", ' Das Registry-Backup Programm (ERUNT) wurde nicht gefunden.' & @CRLF & @CRLF & " Der Vorgang wird abgebrochen - es erfolgt keine Sicherung !")
IniWrite("RegLocalSikSettings.ini", "History", "cde_Status", " Abbruch") ;Fehlerfall 'Bkp-Prg' nicht gefunden
IniWrite("RegLocalSikSettings.ini", "History", "cde_Error", " ERUNT nicht gefunden")
EndIf
Else
MsgBox(16, "Datei nicht gefunden", ' Die Datei "RegLocalSikSettings.txt" wurde nicht gefunden.' & @CRLF & @CRLF & "Das Programm wird abgebrochen - es erfolgt keine Sicherung !")
EndIf ;Fehlerfall 'ZINI-Datei' nicht gefunden

[/autoit]

Kev

jetz wird schnitzel gleich sagen:

Zitat

Könntest du das File bitte woanders uploaden? ich komm hier net auf Rapidshare - bin @work

Kev

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

do
sleep(10000) ;pausieren
until ;bis wann?
exit ;script beenden

[/autoit]

Kev

soweit ich weiß wird die standart schriftart/größe in der normal.dot gespeichert.

sprich stell dir doch einfach alles fertig ein. und kopier das file mit den einstellungen in dein vz wo die normal.dot reinmuss?!^^

Kev

haste ma den ganzen quellcode der page als.txt?

das würds einfacher machen, sich das genauer an zuschauen,per picture is dasn bisschen doof.
müsstest den source auslesen in arrays speichern.

aber ohne ganzen quellcode wird das mit den arrays schwierig.

Kev

[autoit]

Run guictrlread($Datei)

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

Kev

FTP.au3 + Example.

Mach dir ne Inputbox mit User + Pass + Port + Server
Les die aus, speicher die Daten in Variablen.
und bau nen connect zu dem Server auf.

_ftpconnect

etc.

Kev

dann poste doch mal dein script. und spam die shoutbox nicht voll.

Kev

ich geb dirn tipp:

[autoit]

Guicreate

[/autoit]

Kev

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <Array.au3>
#include <String.au3>

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

Global $aKeys[1]

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

GUICreate("Crypt Key Generator", 350, 420)
$cBtnCreate = GUICtrlCreateButton("Create Key", 30, 20, 120, 25)
GUICtrlCreateLabel("Created Key:", 30, 130, 120, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("Password for Cryption:", 200, 40, 200, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$cKey = GUICtrlCreateInput("", 30, 160, 150, 25)
$cPass = GUICtrlCreateInput("risZerG", 200, 60, 100, 25)
$cBtnSave = GUICtrlCreateButton("Save Key to File", 30, 60, 120, 25)
$list = GUICtrlCreateList("",30,200,300,200)
GUICtrlCreateButton("Update Database", 30, 90, 120, 25)
GUISetState(@SW_SHOW)

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
Case $cBtnCreate
create()
Case $cBtnSave
save()
EndSwitch
WEnd

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

Func _GenerateKey()
Local $aVal[4], $aRand
$aRand = _StringBetween(Random(0, 9), ".", "")
$aVal[0] = StringTrimRight($aRand[0], 10)
$aVal[1] = StringTrimLeft($aRand[0], 10)
$aRand = _StringBetween(Random(0, 9), ".", "")
$aVal[2] = StringTrimRight($aRand[0], 10)
$aVal[3] = StringTrimLeft($aRand[0], 10)
Return $aVal[0] & "-" & $aVal[1] & "-" & $aVal[2] & "-" & $aVal[3]
EndFunc ;==>randome

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

Func create()
Local $sKey = _GenerateKey()
GUICtrlSetData($cKey, $sKey)
_ArrayAdd($aKeys,$sKey)
EndFunc ;==>create

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

Func save()
For $i = 1 To UBound($aKeys) - 1
$key = _StringEncrypt(1, $aKeys[$i], GUICtrlRead($cPass), 5)
Filewrite(@ScriptDir & "\sessionkeys.rg",$key & @crlf)
$arkey = _StringEncrypt(0,Fileread(@scriptdir & "\sessionkeys.rg",1),GUICtrlRead($cPass),5)
msgbox(0,"",$arkey)
Next
EndFunc ;==>save

[/autoit]

hab grad noch das problem das die keys zwar gecryptet gespeichert werden, aber iwie krieg ich die dann nicht wieder entcryptet und ausgelesen.
ich will einen key pro zeile und dann ne msgbox zb, die automatisch zeile 1 entcryptet un anzeigt dann zeile 2 usw.

Kev

Hey,

hab gradn problem.

Ich versuche jeden key den ich generiert habe zu crypten und dann in nem array zu speichern sprich $key[0]
der 2te generierte dann $key[2] unsoweiter...

aber ich habs net so mit for schleifen, bzw damit kann man mich jagen ...
kann mir einer zeigen wie ich das am Besten mache?

also es solln unendlich arrays gemacht werden, so oft halt wie ich den button klicke um nen neuen key zu generieren.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <Array.au3>
#include <String.au3>

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

FileDelete(@ScriptDir & "\sessionkeys.rg")

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

Local $key[21]
Local $rkey[21]
Global $lol
Global $xD
Global $value1
Global $value2
Global $value3
Global $value4

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

GUICreate("Crypt Key Generator", 350, 220)
$create = GUICtrlCreateButton("Create Key", 30, 20, 120, 25)
GUICtrlCreateLabel("Created Key:", 30, 130, 120, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("Password for Cryption:", 200, 40, 200, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$generated = GUICtrlCreateInput("", 30, 160, 150, 25)
$pass = GUICtrlCreateInput("risZerG", 200, 60, 100, 25)
$save = GUICtrlCreateButton("Save Key to File", 30, 60, 120, 25)
GUICtrlCreateButton("Update Database", 30, 90, 120, 25)
GUISetState(@SW_SHOW)

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $create
create()
Case $save
save()
EndSwitch
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

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

Func randome()
$lol = Random(0, 9, 4)
$xD = _StringBetween($lol, ".", "")
$value1 = StringTrimRight($xD[0], 10)
$value2 = StringTrimLeft($xD[0], 10)
$random2 = Random(0, 9)
$key = _StringBetween($random2, ".", "")
$value3 = StringTrimRight($key[0], 10)
$value4 = StringTrimLeft($key[0], 10)
EndFunc ;==>randome

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

Func create()
randome()
GUICtrlSetData($generated, $value1 & "-" & $value2 & "-" & $value3 & "-" & $value4)
EndFunc ;==>create

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

Func save()
$i = 0
For $i = 0 To UBound($key) + 1
$key = _StringEncrypt(1, $value1 & "-" & $value2 & "-" & $value3 & "-" & $value4, GUICtrlRead($pass), 5)
MsgBox(0, "", $key)
Next
EndFunc ;==>save

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

Gruß

Kev

& ohne server?^^

Kev

Hey,

ich bin grade dabei sone Art serialkey zu bauen.

Spoiler anzeigen

[autoit]

#include <String.au3>
#include <Array.au3>

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

FileDelete(@ScriptDir&"\sessionkeys.rg")

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

local $key[3]

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

$key[0] = _StringEncrypt(1,"3445-3252-4233-4533","rg",5)
$key[1] = _StringEncrypt(1,"1342-3243-1333-4874","rg",5)
$key[2] = _StringEncrypt(1,"3244-3134-7584-4345","rg",5)

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

FileWrite(@ScriptDir&"\sessionkeys.rg",$key[1] & @crlf & $key[2])
$x = _StringEncrypt(0,filereadline(@scriptdir & "\sessionkeys.rg",1),"rg",5)
msgbox(0,"",$x)

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

Hab hier keys erstellt, die in einer datei abgespeichert werden.
jetzt möchte ich so eine abfrage des keys beim start kommt vorbei, man dann seinen key eingeben muss.
desweiteren darfjeder key nur für einen user genutzt werden.
das heißt irgendwie sobald der benutzt wurde, den key und die mac adresse bsp = setzten.
das der festgelegt ist und dann nur noch auf dem pc geht, mit der mac.

damit keine keys doppelt genutzt werden können.
jemand ne ahnung?

Gruß

Kev

convert Laufwerkbuchstabe: /fs:ntfs

Kev

Sieht nicht schlecht aus kanns hier nicht testen, wegen nem proxy
Proxy einstellungen wär auf jeden fall noch nice

/edit

dsw. könntest du nochn $GUI_Disable für den Download button reinmachen, wenn kein dl Folder gesetzt ist.
Oder du checkst ob der gesetzt wurde, falls nicht wird die folderauswahl func nochmal bei download klick aufgerufen

Gruß

Kev

gar nit du kannst sie abspielen lassen mit nem Objcreate(Shockwave...

Kev

Joa Bplaced wird das iwie blocken

machs halt so: (ungetestet^^)

[autoit]

Inetget("http://ineluki.bplaced.net/version.html",@tempdir & "\version.html")
$ver=Fileread(@tempdir & "\version.html")
msgbox(0,"",$ver)

[/autoit]

Kev

dann nehm ich die in blau :O geht das? und des fliegende licht da in hellblau :O

Beiträge von Kev

Guictrlread & GUICtrlCreateList - auslesen

Guictrlread & GUICtrlCreateList - auslesen

Schreiben in ein File funktioniert nicht, wenn die exe von tasksscheduler ausgeführt wird.

Hilfe Scripte von XP auf WIN7

Script pausieren

Script im Hintergrund durchlaufen lassen

Verschachtelte Frameset auslesen

Was ist an diesem Skript falsch? :/

Dateiübertragungsprogramm

Dateiübertragungsprogramm

Dateiübertragungsprogramm

For schleife - Arrays

For schleife - Arrays

Stringencrypt - Serialkeys

Stringencrypt - Serialkeys

USB Stick formatieren via cmd

Security Software Downloader 0.7 Beta

Flash Dateien (swf) mit Autoit Öffnen

_INetGetSource?

Splash Ladebildschirm (ähnlich wie bei Office 2010)