Hallo sirocol,
stimmt leider, wenn ich das Fenster nicht gleich schliesse (so wie vorhin nach dem Test) stürzt das Programm nach ca 5 sec. bei mir ab, war ich wohl zu schnell. Sorry, dass ich keine bessere Nachricht habe,
Edit: eine andere UDF die ganz gut ausschaut mit dazu gehöriger Demo hab ich angehängt
mfg (Auto)Bert
Hallo tobi_girst
du kannst damit alles lesen und schreiben, hast ja auch verschiedene modi diese einzulesen
also auch .exe/.jpg ... dateien??
Nur .txt-Dateien oder welche mit solchem Inhalt (Endung egal) Aber JPG's musst du mir GuiCtrlCreatePic (..) oder ShellExecute(...) öffnen
Kannst du ja verschlüsseln
Also ich gebe da leviathan Recht, wer z.B. in der Lage ist mit AutoIt einen Compiler zu bauen, kann dann seine compilierten Skripte auch in EXE-Files schreiben. Auch gibt es Leute hier im Forum, die diese Befehle schon zum Patchen von Dateien benutzt haben.
mfg (Auto)Bert
Hallo subzero007,
ich würde StringReplace einsetzen:
[autoit]$file = FileOpen("test.txt", 0)
[/autoit][autoit][/autoit][autoit]; Prüfen, ob Datei eingelesen wurde
If $file = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Exit
EndIf
; Zeilen des Textes einlesen bis EOF
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$text = StringReplace($line, "mac: ", "-")
if @extended >0 then MsgBox(0,"Mac-Adresse",$Text)
$text = StringReplace($line, "ip: ", "-")
if @extended >0 then MsgBox(0,"IP:",$Text)
MsgBox(0, "Zeile gelesen:", $line)
Wend
FileClose($file)
[/autoit]Wenn @extended>0 wurde der String (also entweder "mac: " btw. "ip: ") gefunden und mit Leerstellen ersetzt, der resultierende String ist also das gewünschte Ergebniss. Trotzdem testen, ich habe es hier online erstellt.
ps.: das war genau der Tip was du lesen solltest,
mfg (Auto)Bert
Hallo sirocol,
seit 10 sec. weiss ich es,
nämlich so:
[autoit]
case $Button3 ;<============= einfügen und $Button3 in der Gui definieren
MsgBox(64, "Ende", "Aus..., Auuuuus")
GplusShutdown()
mfg (Auto)Bert
Hallo subzero007,
schau dir doch in der Hilfe FileReadLine, StringReplace, StringInStr (wobei dieser nicht unbedingt gebraucht wird, wenn du @extended von StringReplace auswertest),
mfg (Auto)Bert
Hallo chrisatack,
mit diesem Konzept könnte es klappen, TransGui.Du musst die Bilder evtl. greller zeichnen, damit sie durch den Transparenzeffekt nicht zu arg verblassen, ausserdem stelle ich es mir sehr aufwendig vor für jedes Icon eine HilfsGui zu erstellen,
mfg (Auto)Bert
Hallo Madmaxx89,
hab mich jetzt hier mal im Forum umgeschaut!
Ich bin Anfänger in AutoIt, seit 3 Tagen bekannt..Hat jemand ein Vorschlag was ich machen könnte, so in Richtung Netzwerk oder egal, bin offen für alles..
und kann auch ruhig etwas größeres sein..und noch so nebenbei.. wie mächtig ist AutoIT
hab etz ein Jahr CPP und C gemacht.. und Konsole bin ich ganz okay.. nur Grafisch hatte ich leichte Probleme..
AutoIt wird sicher bei weitem nicht so mächtig wie Cpp sein oder?
Ich dachte eigentlich, dass du als (angehender) Systeminformatiker mit 1 Jahr Programmiererfahrung in CPP und C, meinen Vorschlag leicht umsetzen könntest, dazu must du dich in die Guierstellung einarbeiten, die Beispiele umzusezen ist danach reine Fleißarbeit.
Die Idee von Peethebee finde ich allerdings noch interessanter und der nutzbare Effekt für die Allgemeinheit ist größer, ausserdem bist du damit schneller fertig,
mfg (Auto)Bert
Hallo Observer,
ich hoffe dass ich dich richtig verstanden habe. Da du dich auf BugFix Beispiel beziehst hab ich auf diesem aufbauend eine 2. Gui zum Einloggen erstellt:
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <Date.au3>
Local $sec, $min, $hr, $day, $sec2, $min2, $hr2, $day2
Global $end, $start, $Sekunden, $end2, $start2, $Sekunden2, $s1 = 0, $s2 = 0
Global $Adlib = False, $EndAdlib = 0, $Count1 = False, $Count2 = False
;~ Global $INIPath = 'Pfad.INI'
$gui = GUICreate('CountDown',-1,-1,10,10)
$hafterTimer1Gui = GUICreate("after Timer 1",-1,-1,-1,-1,-1,-1,$gui)
$GUI_Button_Login = GUICtrlCreateButton("Login", 50, 50, 100, 30)
GUISwitch($gui)
GUICtrlCreateLabel('Tage', 15, 18, 60, 17)
$iD = GUICtrlCreateInput('', 80, 15, 20, 20, $ES_NUMBER)
GUICtrlCreateLabel('Stunden', 15, 48, 60, 17)
$iH = GUICtrlCreateInput('', 80, 45, 20, 20, $ES_NUMBER)
GUICtrlCreateLabel('Minuten', 15, 78, 60, 17)
$iM = GUICtrlCreateInput('', 80, 75, 20, 20, $ES_NUMBER)
GUICtrlCreateLabel('Sekunden', 15, 108, 60, 17)
$iS = GUICtrlCreateInput('', 80, 105, 20, 20, $ES_NUMBER)
$bt = GUICtrlCreateButton('Start', 140, 15, 50, 20)
$iDown = GUICtrlCreateInput('', 200, 15, 80, 20, $ES_READONLY)
GUICtrlCreateLabel('Tage', 15, 153, 60, 17)
$iD2 = GUICtrlCreateInput('', 80, 150, 20, 20, $ES_NUMBER)
GUICtrlCreateLabel('Stunden', 15, 183, 60, 17)
$iH2 = GUICtrlCreateInput('', 80, 180, 20, 20, $ES_NUMBER)
GUICtrlCreateLabel('Minuten', 15, 213, 60, 17)
$iM2 = GUICtrlCreateInput('', 80, 210, 20, 20, $ES_NUMBER)
GUICtrlCreateLabel('Sekunden', 15, 243, 60, 17)
$iS2 = GUICtrlCreateInput('', 80, 240, 20, 20, $ES_NUMBER)
$bt2 = GUICtrlCreateButton('Start', 140, 150, 50, 20)
$iDown2 = GUICtrlCreateInput('', 200, 150, 80, 20, $ES_READONLY)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While True
$msg = GUIGetMsg(1)
switch $msg[1]
Case $gui
Switch $msg[0]
Case $bt
If GUICtrlRead($iD) = '' Then
$day = 0
Else
$day = GUICtrlRead($iD)
EndIf
If GUICtrlRead($iH) = '' Then
$hr = 0
Else
$hr = GUICtrlRead($iH)
EndIf
If GUICtrlRead($iM) = '' Then
$min = 0
Else
$min = GUICtrlRead($iM)
EndIf
If GUICtrlRead($iS) = '' Then
$sec = 0
Else
$sec = GUICtrlRead($iS)
EndIf
$Sekunden = $sec + $min*60 + $hr*3600 + $day*86400
; oder Restsekunden aus INI einlesen:
; $Sekunden = IniRead($INIPath, 'Restzeit', 'Count1', 0)
$end = _DateAdd('s', $Sekunden, _NowCalc())
GUICtrlSetState($bt, $GUI_DISABLE)
$Count1 = True
If Not $Adlib Then
$EndAdlib = 0
AdlibEnable('SetCounter', 1000)
$Adlib = True
EndIf
If $Count2 Then $EndAdlib = 0 ; wenn anderer Counter läuft, muß Zähler für Ende Null sein
Case $bt2
If GUICtrlRead($iD2) = '' Then
$day2 = 0
Else
$day2 = GUICtrlRead($iD2)
EndIf
If GUICtrlRead($iH2) = '' Then
$hr2 = 0
Else
$hr2 = GUICtrlRead($iH2)
EndIf
If GUICtrlRead($iM2) = '' Then
$min2 = 0
Else
$min2 = GUICtrlRead($iM2)
EndIf
If GUICtrlRead($iS2) = '' Then
$sec2 = 0
Else
$sec2 = GUICtrlRead($iS2)
EndIf
$Sekunden2 = $sec2 + $min2*60 + $hr2*3600 + $day2*86400
; oder Restsekunden aus INI einlesen:
; $Sekunden2 = IniRead($INIPath, 'Restzeit', 'Count2', 0)
$end2 = _DateAdd('s', $Sekunden2, _NowCalc())
GUICtrlSetState($bt2, $GUI_DISABLE)
$Count2 = True
If Not $Adlib Then
$EndAdlib = 0
AdlibEnable('SetCounter', 1000)
$Adlib = True
EndIf
If $Count1 Then $EndAdlib = 0 ; wenn anderer Counter läuft, muß Zähler für Ende Null sein
Case $GUI_EVENT_CLOSE
;~ IniWrite($INIPath, 'Restzeit', 'Count1', $s1)
;~ IniWrite($INIPath, 'Restzeit', 'Count2', $s2)
Exit
EndSwitch
Case $hafterTimer1Gui
Switch $msg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE,$hafterTimer1Gui)
Case $GUI_Button_Login
MsgBox(0,"Jetzt würde eingeloggt","Zeit kann während MsgBox nicht aktualisiert werden!",10,$hafterTimer1Gui)
;auf Login-Button reagieren
EndSwitch
EndSwitch
WEnd
Func SetCounter()
If $Count1 Then
$s1 = _DateDiff('s', _NowCalc(), $end)
GUICtrlSetData($iDown, _FormatSec($s1))
If $s1 = 0 Then
$EndAdlib += 1
GUICtrlSetState($bt, $GUI_ENABLE)
GuiSetState(@SW_SHOW,$hafterTimer1Gui)
$Count1 = False
EndIf
EndIf
If $Count2 Then
$s2 = _DateDiff('s', _NowCalc(), $end2)
GUICtrlSetData($iDown2, _FormatSec($s2))
If $s2 = 0 Then
$EndAdlib += 1
GUICtrlSetState($bt2, $GUI_ENABLE)
$Count2 = False
EndIf
EndIf
If $EndAdlib = 2 Then
AdlibDisable() ; beide Counter abgelaufen
$Adlib = False
EndIf
EndFunc
Func _FormatSec($secShow)
Select
Case $secShow < 60
Return StringFormat('%02u', $secShow) & ' s'
Case $secShow < 60*60
Return StringFormat('%02u', Floor($secShow/60)) & ':' & _
StringFormat('%02u', Mod($secShow,60)) & ' min'
Case $secShow < 60*60*24
Return StringFormat('%02u', Floor($secShow/3600)) & ':' & _
StringFormat('%02u', Floor(Mod($secShow,3600)/60)) & ':' & _
StringFormat('%02u', Mod(Mod($secShow,3600),60)) & ' h'
Case Else
Return Floor($secShow/86400) & ' d / ' & _
StringFormat('%02u', Floor(Mod($secShow,86400)/3600)) & ':' & _
StringFormat('%02u', Floor(Mod(Mod($secShow,86400),3600)/60)) & ':' & _
StringFormat('%02u', Mod(Mod(Mod($secShow,86400),3600),60)) & ' h'
EndSelect
EndFunc
mfg (Auto)Bert
Hallo kloo,
hallo
wen ich mein script decompile mit obfuscator kommt das ....wie kan ich behebn oder würde eine neue IE.au3 helfen ?
der Obfuscator decompiliert nicht, er erschwert nur das lesen des Source-Codes,
ja aber die heisten etwas anders
früher ging es aber seid dem ich die beta (autoit beta) habe geht s nicht mehr
dann benutz weiterhin die Stable-Version von AutoIT
ich will aber den obfuscator nutzen weil nicht jeder soll meine sorce sehen
oder gibt es eine möglichkeit den decompiler ganz zu blockieren ?
Es gibt verschiedene Gründe warum man seinen Source nicht offenlegen will, ich hoffe dass deiner einer der guten ist. Es gibt keine Möglichkeiten das Decompilieren zu sperren, aber jeder der es in Zusammenhang mit AutoIT (zumindest seit Version 3.3.3.0, früher weiss ich es nicht) macht sich strafbar und der offizielle Decompiler für die älteren Versionen funktioniert mit der 3.3.3.0 eh nicht mehr,
mfg (Auto)Bert
Hallo Observer,
weil du GuiSetState erst nach der 2. MsgLoop-Schleife eingefügt hast,
so wird sie angezeigt, nachdem die 1. Gui beendet wurde.
#include <guiconstants.au3>
#include <Date.au3>
Global $arBt[8][2], $arIn[8][3], $arCounter[8][2], $y = 10, $input
$Gui1 = GUICreate('test')
For $i = 0 To UBound($arBt) - 1
$arBt[$i][0] = GUICtrlCreateButton('set Time', 10, $y, 60, 20)
$arIn[$i][0] = GUICtrlCreateInput('', 80, $y, 40, 20)
$arCounter[$i][0] = GUICtrlCreateLabel('', 140, $y + 3, 80, 17)
$arBt[$i][1] = GUICtrlCreateButton('Reset', 240, $y, 60, 20)
GUICtrlSetState($arBt[$i][1], $GUI_DISABLE)
$y += 30
Next
GUISetState()
Do
$msg = GUIGetMsg()
_SetCounter()
For $i = 0 To UBound($arBt) - 1
If $msg = $arBt[$i][0] Then
$arCounter[$i][1] = 1
$input = GUICtrlRead($arIn[$i][0])
If $input = '' Then ContinueLoop
If StringInStr($input, ':') Then
$input = StringSplit($input, ':')
$input = $input[1] * 60 + $input[2]
EndIf
$arIn[$i][1] = $input * 60
$arIn[$i][2] = _NowCalc()
GUICtrlSetState($arBt[$i][0], $GUI_DISABLE)
GUICtrlSetState($arBt[$i][1], $GUI_ENABLE)
ElseIf $msg = $arBt[$i][1] Then
GUICtrlSetState($arBt[$i][0], $GUI_ENABLE)
GUICtrlSetState($arBt[$i][1], $GUI_DISABLE)
GUICtrlSetData($arCounter[$i][0], '')
GUICtrlSetData($arIn[$i][0], '')
$arIn[$i][1] = 0
EndIf
Next
Until $msg = $GUI_EVENT_CLOSE
$Gui2 = GUICreate('Test2')
$GUI_Button_Login = GUICtrlCreateButton("Login", 50, 50, 100, 30)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_Button_Login
Sleep(20)
EndSelect
WEnd
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _SetCounter()
Local $sec
For $i = 0 To UBound($arCounter) - 1
If $arCounter[$i][1] <> 1 Then ContinueLoop
If $arIn[$i][1] = 0 Then ContinueLoop
$sec = $arIn[$i][1] - _DateDiff("s", $arIn[$i][2], _NowCalc())
Select
Case $sec < 60
GUICtrlSetData($arCounter[$i][0], StringFormat('%02u', $sec) & ' s')
Case $sec < 60 * 60
GUICtrlSetData($arCounter[$i][0], StringFormat('%02u', Floor($sec / 60)) & ':' & _
StringFormat('%02u', Mod($sec, 60)) & ' min')
Case $sec < 60 * 60 * 24
GUICtrlSetData($arCounter[$i][0], StringFormat('%02u', Floor($sec / 3600)) & ':' & _
StringFormat('%02u', Floor(Mod($sec, 3600) / 60)) & ':' & _
StringFormat('%02u', Mod(Mod($sec, 3600), 60)) & ' h')
EndSelect
If $sec = 50 Then
$arCounter[$i][1] = 0
Switch $i
Case 0
MsgBox(0, "1", "0")
Case 1
MsgBox(0, "2", "1")
Case 2
MsgBox(0, "3", "2")
Case Else
MsgBox(0, "4", "Und so weiter!...")
EndSwitch
EndIf
Next
EndFunc ;==>_SetCounter
mfg (Auto)Bert
Hallo spaki,
und wo ist das Skript, das du bis jetzt erstellt hast? Schau dir mal GUICtrlSetState ($GUI_SHOW / $GUI_HIDE) bzw. GUICtrlDelete an,
mfg (Auto)Bert
Hallo Madmaxx89,
als Systeminformatiker könnte es für dich interessant sein mit Hilfe der CompInfo.au3 ein nützliches Informationstool zu erstellen. Beispiele zu den enthaltenen Funktionen sind auf der gleichen Seite auch zu finden. Wenn du diese (MsgBox-) Beispiele in eine vernünftige Guidarstellung bringen würdest, hättest du sicher eine gute Übung im Umgang mit Gui's,
mfg (Auto)Bert
Hallo Mehmex,
dieser Beitrag könnte dich in diesem Zusammenhang interessieren,
Edit: im Gegensatz zu der CT'Meldung, nach der der Preis noch nicht feststeht, meldet die Fränkische Nachrichten in ihrer Ausgabe vom 04.06.2009 einen Preis von 249 $.
mfg (Auto)Bert
Hallo MrWong,
Hi,
ist es möglich mit Hilfe von AutoIt einen IP Change durchzuführen? Am besten in der Richtung "Proxifier". Gibt es da Möglichkeiten, oder müsste ich für einen stündlichen IP wechsel mit AutoIt das Programm "Proxifier" steuern?
the
MrWong
hast du dein Vorhaben Hits zu faken (siehe hier) immer noch nicht aufgegeben?
Ich finde es ziemlich dreist von dir noch nicht einmal 24 Stunden nach dem der obige Thread von BugFix geschlossen wurde, einen neuen zum gleichen Problem (wenn auch mit neutralem Anschein) zu stellen,
mfg (Auto)Bert
Hallo D®iv3r,
den Präfix kannst du af gelöst stellen, in dem du deinen 1. Beitrag bearbeitest und dort in Nähe der Überschrift den Präfix umstellst,
mfg (Auto)Bert
Hallo ZockerKlaus,
sei bitte so freundlich und erstelle einen eigenen Thread, bei so alten Themen wird selten geantwortet,
@dhacker, markier bitte deinen Thread als erledigt
mfg (Auto)Bert
Hallo D®iv3r,
wofür gibt es wohl den Befehl WinSetTitle ( "title", "text", "newtitle" ),
hast du bei dem Problem mit dem Schliessen von $Hauptgui meinen Hinweis der letzten beiden Posts beachtet,sprich Zeile 56 wie folgt abgeändert:
[autoit]Case $GUI[0] = $GUI_EVENT_CLOSE And $GUI[0] = $HauptGUI ; Wurde der rote Button mit dem X (Schließen Button) gedrückt..
[/autoit]mfg (Auto)Bert
Hallo
dass ist nicht richtig so da du nicht abbrüfts ob die Meldung von $HauptGui gekommen ist, und da $Anzeige dann auf 0 steht wird beim nächsten Durchlauf automatisch die 1. versteckt. Dies scheint mir aber nicht das einzige Problem in deinem Programm zu sein, so würde ich das Erzeugen der 2. ausserhalb der Schleife regeln,
mfg (Auto)Bert
Hallo,
Was heißt denn bitte abzocken und warum direkt diese aggressive Art des schreibens? Ich erwähnt bereits in meinem ersten Post (den du ganz offensichtlich nicht gelesen hast, weil ich dies hier sonst nicht tippen müsste), dass es sich hierbei um eine Wette handelt, deren Regeln von meinem Freund festgelegt wurden. Er sagte:
"Die Wette gilt als gewonnen, wenn du in den nächsten 2 Tagen ein Programm geschrieben hast, welches in der Lage ist meine Umfrage zu täuschen. In 2 Tagen muss die Umfrage auf 2000:0 stehen. Wenn du gewinnst bekommst du von mir 150€. Wenn ich gewinne, wovon ich überzeugt bin, bekomme ich von dir 50€."
Da hab ich natürlich eingeschlagen, weil ich:
1. Dachte das es ja nicht so schwer sein kann und
2. eine super chance sah, weil ich habe lediglich 50€ Einsatz und er 150€.Und ob du mir glaubst oder nicht ist bei meiner Frage vollkommen irrelevant. Deine Meinung interessiert hier gar nicht. Dein Wissen ja, aber deine Meinung ist vollkommen ohne Belang.
the
MrWong
oben dein ganzer Beitrag, ich lese immer noch das Wort du und nicht
Es geht darum das ich ein Programm vorlegen muss, nicht wie ich darauf gekommen bin es so zu Programmieren. Man kann auch einfach zu genau hingucken.
Und eines sollte jawohl logisch sein: Die Seite kann euch nicht geben, da sonst die Gefahr der Täuschung besteht. Einzig und allein ich darf den genauen Link zu dieser Umfrage haben und daran möchte ich mich auch halten, denn ich halte die Regeln einer Wette ein, auch wenn man es im Endeffekt nicht mehr überprüfen kann.
Anderen unterstellst du dass sie evtl. manipulieren, aber alle sollen dir glauben. Ohne Link glaube ich jetzt nicht mehr, dass du hier irgendeine Hilfe findest.
ps.: wenn ich Zocker wäre würde ich jetzt mit dir wetten, dass der Thread spätestens morgen 8:00 geschlossen ist.
mfg (Auto)Bert
Hallo Elodie,
du konntest also während der Laufzeit, das Fenster vergrössern und beide Tabs haben sich automatisch mit angepasst?
mfg (Auto)Bert
