Beiträge von autoBert

Hallo,

dann nenn bitte Ross und Reiter, also die Seite die dein Freund betreibt,

Zitat

"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€."

Aber du scheinst ja auch die Regeln der Wette nicht einhalten zu wollen,

GtaSpider Thread bitte schliessen

mfg (Auto)Bert

Hallo

If $Anzeige = 1 Then ; Wenn die Variable = 1 ist dann...
GUISetState(@SW_SHOW, $HauptGUI) ; ... mache die Gui sichtbar
ElseIf $Anzeige = 0 Then ; Oder wenn die Variable = 0 ist dann...
GUISetState(@SW_HIDE, $HauptGUI) ; Ansonsten mache die Gui unsichtbar ;<=====
EndIf ; Ende der If-Abfrage
Select ; Anfang des Select Vorgangs
Case $GUI[0] = $ButtonB ; Wurde der Button "Beenden" gedrück...
$Anzeige = 0 ; ...setze die Variable auf "0"
Case $GUI[0] = $GUI_EVENT_CLOSE ; Wurde der rote Button mit dem X (Schließen Button) gedrückt...;<===
$Anzeige = 0 ; ...setze die Variable auf "0"

über den Umweg $Anzeige versteckst du die $HauptGui,

mfg (Auto)Bert

Zitat

Gut, dass es auf der seite wo sich die Umfrage befindet (auf der Seite meines Freundes) keine AGB's gibt die es verbieten, denn er stellt einen Teil seines Webspace für die nächsten 2 Tage für diese Wette zur Verfügung, also verstoße ich mit meiner Anfrage nicht gegen die Regeln

Und das soll dir jemand glauben. Und selbst wenn es stimmt, tritt dann automatisch der 2. Punkt in Kraft, es widerspricht dem Geist der Forenregeln, du willst jemand anderen mit Hilfe eines BOTS um 150 € abzocken,

mfg (Auto)Bert

Hallo

Zitat

Auszug Forenregen: Folgende Inhalte sind nicht erwünscht oder gar komplett verboten. Das Team behält es sich ausdrücklich vor, die Umsetzung der Regeln je nach Schweregrad zu verwarnen, zu löschen oder gar komplett zu sperren.

- Bots für Spiele jeglicher Art, insbesondere Onlinespiele und ganz besonders Silkroad Online sowie World of Warcraft
- Tools, um Nachrichten unerwünscht oft zu versenden (Spamming-Tools)
- Programme, die anderen, auch Freunden, einen Schreck einjagen sollen oder sich sonst über andere Nutzer lustig machen ("Spaßviren")
- Automatisierung von Webseiten oder Tools, die das in ihren AGBs verbieten
- Viren
- Malware, Spyware
- Keylogger
- Umgehen von Captchas

(Diese Liste ist ausdrücklich nicht vollständig. Programme, die dem hinter diesen Regeln stehenden Geist widersprechen, sind ebenso als nicht erlaubt anzusehen)

Alles anzeigen

Das auf dein Vorhaben zutreffende hab ich rot unterstrichen,

GtaSpider Thread bitte schliessen

mfg (Auto)Bert

Hallo

Ich glaube du hast bei deiner Anmeldung vergessen die Forenregeln zu lesen, sonst würdest du diese Frage nicht allen Ernstes hier stellen,

MoD bitte Thread schliessen

mfg (Auto)Bert

Hallo

Es ist gut wenn du weist was du willst, aber glaubst du wirklich, dass ohne ein eigenes Skript dir jemand die ganze Arbeit abnimmt. Wenigstens die Gui könntest du selber erstellen und danach die Funktionen erfragen,

mfg (Auto)Bert

Hallo elodie,
ich galube dass liegt daran, dass es dafür mehr Beispiele gibt. Ich habe noch etwas an TabInTab ausprobiert zwecks Resizing. Hat für das Beispiel zwar mit 2 Childs für 3 Reiter auf der MainGui geklappt, bin mir aber sicher mit 3 Childs wäre es einfacher zu überblicken.

Edit: Und hier auch noch das 2. Beispiel mit 2. Tabs nebeneinander:

so jetzt habe ich genug mit Childs gespielt, hinzugekommen ist die Möglichkeit es in größenveränderlichen Fenstern einzusetzen,

mfg (Auto)Bert

Hallo Unterbilker,

ich weis zwar auch nicht was dein Kollege mit "timeDrifft" meint, du könntest ihn ja einfach fragen. Du kannst aber auch einfach den Wert für Sleep erhöhen, denn im Moment liest du die Datei 20 mal pro Sekunde,

mfg (Auto)Bert

Hallo elodie,

Zitat

Oh man, klar, gerade fallen mir die Schuppen von den Augen
Ja, jetzt ist alles klar, herzlichen Dank für den Code und auch für die Geduld

Da ich etwas ähnliches suchte und ich auch lieber im OnEventModus programmiere hätte ich dieses Beispiel sowieso darauf umgestellt,

mfg (Auto)Bert

Hallo

Zitat von SolidSnake9123

Viele dank für die nette antwort xD
Ich will ja keine bots machen einfach nur ein Programm das
sich einloggt.
Das einloggen dauert 1Stunde wenn nicht dann länger

dann schlage ich vor du investierst 1 Woche lang 1 Stunde für AutoIt-Hilfe lesen und bemühst vielleicht noch die Suchfunktion links oben. Nach der Woche kannst du es dann ohne Hilfe alleine.
Da du dir durch den automatischen Login einen Vorteil veschaffst, glaube ich kaum dass du in diesem Forum Unterstützung finden wirst.

mfg (Auto)Bert

Hallo elodie,

dazu musst du einfach in der Func _MainTab das gewünschte ein- und das andere ausblenden:

Func _MainTab()
Switch GUICtrlRead($main_tab)
Case 0
GUISetState(@SW_HIDE,$child1)
GUISetState(@SW_SHOW,$child2)

Case 1
GUISetState(@SW_HIDE,$child2)
GUISetState(@SW_SHOW,$child1)
case Else
GUISetState(@SW_HIDE,$child1)
GUISetState(@SW_HIDE,$child2)
EndSwitch
EndFunc

und damit auch beim Start und nicht nur beim Wechsel das richtige gezeigt wird, musst du das GuiSetState nach dem Erstellen von $Child1 mit all seinen Steuerelementen löschen und nach dem Erzeugen von $Child2 eines einfügen:

; Create the first child window that is implemented into the main GUI
$child1 = GUICreate("", 230, 170, 15, 35, BitOR($WS_CHILD, $WS_TABSTOP), -1, $main_GUI)
$child_tab = GUICtrlCreateTab(10, 10, 210, 150)
$child11tab = GUICtrlCreateTabItem("1")
$child12tab = GUICtrlCreateTabItem("2")
GUICtrlCreateTabItem("")

; Create the second child window that is implemented into the main GUI
$child2 = GUICreate("", 230, 170, 15, 35, BitOR($WS_CHILD, $WS_TABSTOP), -1, $main_GUI)
$listview2 = GUICtrlCreateListView("Col1|Col2", 10, 10, 210, 150, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateListViewItem("ItemLong1|ItemLong12", $listview2)
GUICtrlCreateListViewItem("ItemLong2|Item22", $listview2)
GUISetState()

das war alles, ich hoffe du hast das Schema verstanden,

mfg (Auto)Bert

Hallo Elodie,

Zitat von Elodie

wow, großartig, danke!
Das "child2" braucht man also gar nicht *delete* das hatte mich unter anderem so verwirrt

Wenn du nur auf (in) einem Reiter eine 2. Kartenreiterauswahl erstellen willst ist $Child2 unnötig, das ich mit den GuiDelete's in der Func _end verwirrt habe tut mir leid, soweit ich weiss räumt AutoIt mit Exit sowieso auf, kannst dir also diese Zeilen sparen. An der Optik musst du noch etwas arbeiten, ich hab nur auf die schnelle in den OnEvent-Mode umgeschrieben,

mfg (Auto)Bert

Hallo elodie,

ich hab das TabInTab Beispiel mal auf den OnEvent-Mode umgeschrieben:

ich hab das Beispiel noch um einen Tab in der MainGui erweitert und füge auch dort eine Listview ein, diese verhält sich ganz normal, dazu musst du die Func _MainTab evtl. an deine Bedürfnisse anpassen,

mfg (Auto)Bert

Hallo

Zitat von Executor87

ich möchte aber eigentlich nur, das der button für mein eigentliches scipt funktioniert?`damit ich dieses starten kann, und dieses script soll bei einem bestimmten aufruf den aktuellen Countdown status in irgendein.... von mir aus in eine txt datei schreiben..
dazu muss aber der 2 button auch gehen... den rest bekomme ich dann alleine hin
und in bugfix seinem beispiel.. das ist für etwas anderes.. und irgendwas mit adlibenable..ich weiß nichtmal was das ist.... eine adlib? xD und _time_settimer weiß ich auch nicht für was das sein soll...

wie gesagt.. der button soll einfach auch wenn der counter runterzählt gehen.. damit das script startet.. mehr soll er nicht tun.

einen vernünftigen CountDown bekommst du aber nur mit einem der beiden Methoden hin, also entweder Hilfe lesen oder BugFix's Beispiel analysieren => Script anpassen oder Projekt einstampfen,

mfg (Auto)Bert

Hallo

Zitat von sir-gunny

danke habs jetzt umgeschrieben und funktioniert so wie ich es will... jetzt die frage... wenn ich das so auf dateien anwende die so 1-2 MB groß sind, wird dann der rechner dolle verlangsamt oder ist die ladezeit zu lang?

Spoiler anzeigen

[autoit]

#include <String.au3>

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

Func _PatchDatei($PD_Modus = "", $PD_DateiPfad = "", $PD_Offset = "", $PD_Wert = "", $PD_WertLaenge = "")
Local $PD_Datei, $PD_LeseDatei, $PD_WertLesen, $PD_WertSchreiben, $PD_DateiSchreiben
$PD_Datei = FileOpen ($PD_DateiPfad, 16 )
If $PD_Datei = -1 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
Exit
EndIf
$PD_LeseDatei = FileRead ($PD_Datei)
FileClose($PD_DateiPfad)
Switch $PD_Modus
Case 0
$PD_WertLesen = BinaryMid($PD_LeseDatei,DEC($PD_Offset)+1,$PD_Wert)
Return $PD_WertLesen
Case 1
$PD_Datei = FileOpen ($PD_DateiPfad, 10 )
$PD_WertSchreiben = StringReplace($PD_LeseDatei,(Dec($PD_Offset)*2)+3, Hex($PD_Wert, $PD_WertLaenge*2))
;~ Return $PD_WertSchreiben
$PD_DateiSchreiben = FileWrite ($PD_DateiPfad, Binary($PD_WertSchreiben) )
If $PD_DateiSchreiben = 0 Then
MsgBox(0, "Fehler", "Die Datei konnte nicht beschrieben werden.")
Exit
EndIf
FileClose($PD_DateiPfad)
EndSwitch
EndFunc

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

$PD_SaveGame = @ScriptDir & "\test.sav"

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

$Lesen = _PatchDatei(0,$PD_SaveGame,0,1)
MsgBox(0,"1",$Lesen)
$Schreiben = _PatchDatei(1,$PD_SaveGame,0,256,2)
MsgBox(0,"3",$Schreiben)

[/autoit]

Alles anzeigen

einfach testen (Sicherheitbackup vorher nicht vergessen) und du hast die Antwort,

mfg (Auto)Bert

Hallo Executor87,

Nachdem du mit deinem Problem aus Skripte hierher umgezogen bist und ich nicht weiss ob du meine Antwort dort gelesen hast,
ist hier der Link der dein Probleme mit Timer(n) lösen könnte, bei der Formatierung der Zeit hast du ja auch BugFix Lösung genommen, also schau dir das Skript mal genauer an,

mfg (Auto)Bert

Hallo Executor87

Zitat

und wie kann ich das adlibEnable machen? mini beispiel wäre gut

schau dir dieses Beispiel von BugFix in diesem Thread an.
Falls du nur eine kurze Erklärung zu Adlib möchtest klicke hier

mfg (Auto)Bert

Hallo Miraculi,

ich habe beim überfliegen des Skriptes diese Func gesehen

Func _komma()
GUICtrlSetData($disp, GUICtrlRead($disp) & ".");Execute erwartet '.', nicht ','
EndFunc ;==>_komma

und dachte du würdest hier Koma gegen Punkt tauschen, dass klappt aber nur bei Bedienung mit der Maus. Beim Eingeben über Tastatur bekomme ich für 3.5 * 4,5 als Ergebnis 14

Zitat

vielen Dank für das Lob.
Die Umwandlung wird doch durch folgenden Code gelöst sein, oder?

[autoit]

$nRead = GUICtrlRead($disp);Anzeige
$nToCalc=StringReplace($nRead,",",".")

[/autoit]

Wenn ich diese beiden Zeilen in die Func _calc einbaue rechnet er obiges Beispiel richtig Ergebnis: 15.75

den Vorschlag von @ChaosKeks mit den MemorySlots find ich auch sehr gut. Das man auf sein erstes (veröffentlichtes) Programm stolz ist (und das mit Recht ) und es mit MsgBoxen anzeigt find ich verständlich,

mfg (Auto)Bert

Hallo Miraculi,

tolle Leistung , vor allem das mit den Memoryfunktionen hat mir imponiert. Wenn du etwas mehr Erfahrung mit AutoIt hast wirst du zwar bemerken, dass du dir einige Zeilen Tipparbeit einsparen gekonnt hättest.
Ich seh zwar in deinem Skript, dass du Komma zu Punkt wandelst, die Routine scheint aber nicht angesprungen zu werden.

mfg (Auto)Bert

Hallo subzero007,

versuchs mal so:

Func _pingitem()
$ListViewText = _GUICtrlListView_GetItemTextArray($listview1)
;consolewrite($ListViewText[1]&@CRLF)
$var = Ping($ListViewText[1],250)
If $var Then
GUICtrlCreateListViewItem($ListViewText[1] & " online Antwortzeit: " & $var , $ListView2)
;Msgbox(0,"Status","Online, Antwortzeit war:" & $var)
Else
GUICtrlCreateListViewItem($ListViewText[1] & " offline Fehler: " & @error , $ListView3)
;Msgbox(0,"Status","Es ist ein Fehler mit der Nummer " & @error & " aufgetreten.")
EndIf
EndFunc

Online im Forum erstellt, muss aber trotzdem klappen.

Edit: Nuts war schneller

mfg (Auto)Bert