Hallo,
wie kann ich das Systemmenu von einem Script entfernen?
Ich möchte es nicht deaktivieren sondern ganz entfernen!
Habt ihr da eine Idee?
Mit
_GUICtrlMenu_GetSystemMenu
[/autoit]kann ichs ja schon mal verändern aber löschen?
Hallo,
wie kann ich das Systemmenu von einem Script entfernen?
Ich möchte es nicht deaktivieren sondern ganz entfernen!
Habt ihr da eine Idee?
Mit
_GUICtrlMenu_GetSystemMenu
[/autoit]kann ichs ja schon mal verändern aber löschen?
Zeig doch mal was du schon bereits hast (Am besten Source Codes)
Dann solltest du dich bevor man etwas entwickelt (gerade bei PHP/MySQL ist es wichtig zu wissen was man überhaupt tut) darüber informieren wie etwas in einer Programmiersprache geht. Auf php.net gibt es eine Schöne Funktionsreferenz/Hilfe wie hier bei Autoit und auch auf Deutsch jedoch umfassender.
Autos in eine DB bringen? Musst dir eins mieten und dann schnell rein fahren. (je schneller etwas ist, desto kleiner wird es!!)
Nein, dazu solltest du dir mal SQL anschauen. auf schattenbaum (http://www.schattenbaum.net/php/) gibts schöne Anleitungen Schritt für Schritt bei denen du lernst wie du etwas in eine Datenbank schreibst. Vergiss nicht das Später auch wieder beim User auszulesen lassen.
Übrigens ist für Anfänger ein Browsergame schon richtig schwer, viele "Profis" trauen sich nicht an solche Projekte, da sie Zeit auftreiben und vor allem auch nach einiger Zeit traffic lastig werden.
Aber das ist deine Entscheidung..
Hallo, ich hatte mal wieder langweile und hab mir ein "Türme von Hanoi" -Löser geschrieben.
[autoit]_verlege(2, "Links", "Mitte", "Rechts")
Func _verlege($zahl, $anf, $mit, $end)
If $zahl > 0 Then
_verlege($zahl -1, $anf, $mit, $end)
ConsoleWrite("Verschiebe: Scheibe " & $zahl & " von " & $mit & " nach " & $end & @CRLF)
_verlege($zahl -1, $mit, $anf, $end)
EndIf
EndFunc
Nichts großartiges, aber was soll man bitte morgens um 5Uhr vor der Schule tun?
Hey, sry voll vergessen das ich das hier gepostet hatte *g*
Das Spiel kenne ich aus dem Urlaub dort hatte es ein Kneipenbesitzer mir vorgestellt unter dem Namen, einen anderen Namen hatte ich trotz googlen nicht gefunden!
Mal schauen ob ich das noch mit Arrays mache evntl. auch einen Mehrspieler? Naja mal schauen..
@Xeno
Nach 4 Jahren hat dein Spiel endlich einer gescriptet *g*
PS: Was mir gerade auffällt ist das es noch keine "Weiter geben Funktion" gibt
Edit: Script erweitert!
Keine Ahnung wie man das mit nem USB stick macht jedoch auf CD/DVD gibts hier eine UDF: http://www.autoitscript.com/forum/topic/73…vd-burning-udf/
Edit: http://board.gulli.com/thread/1231632…-faehig-machen/ Hier ist eine Anleitung lässt sich bestimmt etwas daraus machen! ShellExecute() etc
Ich hab mein Problem nun gefunden, lag nicht an StringBetween sondern an InetGet
Hallo,
wie mache ich es das alle Strings (z.b. aus einem Quelltext) ausgelesen werden.
Ich machte dies früher so:
#include <String.au3>
$s_String = Inetget("http://www.google.de")
$title = _StringBetween($s_String, "<title>", </title>)
If IsArray($title) Then MsgBox(0, "", $title[0])
Jedoch wird ja nur das erste angezeigt, wie mache ich es nun das mehrere Ergebnisse ausgegeben werden?
Am liebsten natürlich in einem Array
Grüße PU
Passwort als Ascii einlesen und wieder ausgeben, dürfte denke ich soweit funktionieren.
Befehle:
Asc()
Chr()
So ich stelle mal mein Spiel vor: Scheiß Spiel.
Ziel ist es durch würfeln alle Sticks am Ende weg zu bekommen und somit den Computer damit zu besiegen!
Einfach auf Würfeln klicken, der Rest geht von selbst
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("'Scheiß Spiel'", 596, 138, 192, 124)
$1 = GUICtrlCreateCheckbox("1", 16, 88, 25, 17)
$2 = GUICtrlCreateCheckbox("2", 48, 48, 25, 17)
$3 = GUICtrlCreateCheckbox("3", 144, 16, 33, 17)
$4 = GUICtrlCreateCheckbox("4", 232, 48, 25, 17)
$5 = GUICtrlCreateCheckbox("5", 272, 88, 25, 17)
$6 = GUICtrlCreateRadio("6", 144, 88, 25, 17)
$Group1 = GUICtrlCreateGroup("Spielfeld", 8, 0, 321, 129)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Würfel", 336, 0, 161, 129)
$Label1 = GUICtrlCreateLabel("Spieler 1 ist dran!", 344, 16, 129, 17)
$Button1 = GUICtrlCreateButton("Würflen", 344, 48, 147, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("weiter", 344, 87, 147, 41, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Sticks", 504, 0, 89, 129)
$Label2 = GUICtrlCreateLabel("Du:", 512, 16, 21, 17)
$SticksP = GUICtrlCreateLabel("IIIIIIIII", 512, 32, 71, 33)
$Label4 = GUICtrlCreateLabel("Computer:", 512, 72, 52, 17)
$SticksC = GUICtrlCreateLabel("IIIIIIIII", 513, 86, 71, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
$next = False
MsgBox(0, "Hilfe", "Drücke F1 für die Hilfe!")
HotKeySet("{F1}", "_Help")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_GoUser()
Case $Button2
_weiter("User")
EndSwitch
WEnd
Func _GoPC()
$next = False
$W = Random(1, 6, 1)
$nNext = Random(0, 1, 1)
If $nNext = 1 Then _weiter("PC")
GUICtrlSetData($Label1, "Computer hat " & $W & " gewürfelt!")
Switch $W
Case 1
If GUICtrlRead($1) = $GUI_CHECKED Then
GUICtrlSetState($1, $GUI_UNCHECKED)
$sticks = GUICtrlRead($SticksC)
GUICtrlSetData($SticksC, $sticks & "I")
MsgBox(0, "Nächster", "Du bist der nächste!")
Else
GUICtrlSetState($1, $GUI_CHECKED)
$sticks = GUICtrlRead($SticksC)
If Not $sticks = "" Then
GUICtrlSetData($SticksC, StringRight($sticks, StringLen($sticks) - 1))
Else
MsgBox(0, "Verloren!", "Tut mir leid aber der Computer hat gewonnen!")
EndIf
_GoPC()
EndIf
Case 2
If GUICtrlRead($2) = $GUI_CHECKED Then
GUICtrlSetState($2, $GUI_UNCHECKED)
$sticks = GUICtrlRead($SticksC)
GUICtrlSetData($SticksC, $sticks & "I")
MsgBox(0, "Nächster", "Du bist der nächste!")
Else
GUICtrlSetState($2, $GUI_CHECKED)
$sticks = GUICtrlRead($SticksC)
If Not $sticks = "" Then
GUICtrlSetData($SticksC, StringRight($sticks, StringLen($sticks) - 1))
Else
MsgBox(0, "Verloren!", "Tut mir leid aber der Computer hat gewonnen!")
EndIf
_GoPC()
EndIf
Case 3
If GUICtrlRead($3) = $GUI_CHECKED Then
GUICtrlSetState($3, $GUI_UNCHECKED)
$sticks = GUICtrlRead($SticksC)
GUICtrlSetData($SticksC, $sticks & "I")
MsgBox(0, "Nächster", "Du bist der nächste!")
Else
GUICtrlSetState($3, $GUI_CHECKED)
$sticks = GUICtrlRead($SticksC)
If Not $sticks = "" Then
GUICtrlSetData($SticksC, StringRight($sticks, StringLen($sticks) - 1))
Else
MsgBox(0, "Verloren!", "Tut mir leid aber der Computer hat gewonnen!")
EndIf
_GoPC()
EndIf
Case 4
If GUICtrlRead($4) = $GUI_CHECKED Then
GUICtrlSetState($1, $GUI_UNCHECKED)
$sticks = GUICtrlRead($SticksC)
GUICtrlSetData($SticksC, $sticks & "I")
MsgBox(0, "Nächster", "Du bist der nächste!")
Else
GUICtrlSetState($4, $GUI_CHECKED)
$sticks = GUICtrlRead($SticksC)
If Not $sticks = "" Then
GUICtrlSetData($SticksC, StringRight($sticks, StringLen($sticks) - 1))
Else
MsgBox(0, "Verloren!", "Tut mir leid aber der Computer hat gewonnen!")
EndIf
_GoPC()
EndIf
Case 5
If GUICtrlRead($5) = $GUI_CHECKED Then
GUICtrlSetState($5, $GUI_UNCHECKED)
$sticks = GUICtrlRead($SticksC)
GUICtrlSetData($SticksC, $sticks & "I")
MsgBox(0, "Nächster", "Du bist der nächste!")
Else
GUICtrlSetState($5, $GUI_CHECKED)
$sticks = GUICtrlRead($SticksC)
If Not $sticks = "" Then
GUICtrlSetData($SticksC, StringRight($sticks, StringLen($sticks) - 1))
Else
MsgBox(0, "Verloren!", "Tut mir leid aber der Computer hat gewonnen!")
EndIf
_GoPC()
EndIf
Case 6
GUICtrlSetState($6, $GUI_CHECKED)
Sleep(1000)
GUICtrlSetState($6, $GUI_UNCHECKED)
_GoPC()
EndSwitch
EndFunc ;==>_GoPC
Func _GoUser()
$W = Random(1, 6, 1)
$next = True
GUICtrlSetData($Label1, "Spieler 1 hat " & $W & " gewürfelt!")
Switch $W
Case 1
If GUICtrlRead($1) = $GUI_CHECKED Then
GUICtrlSetState($1, $GUI_UNCHECKED)
$sticks = GUICtrlRead($SticksP)
GUICtrlSetData($SticksP, $sticks & "I")
MsgBox(0, "Eins Ziehen!", "Tut mir leid! Aber du musst ein Stick ziehen!")
_GoPC()
Else
GUICtrlSetState($1, $GUI_CHECKED)
$sticks = GUICtrlRead($SticksP)
If Not $sticks = "" Then
GUICtrlSetData($SticksP, StringRight($sticks, StringLen($sticks) - 1))
Else
MsgBox(0, "Gewonnen!", "Glückwunsch! Du hast den Computer geschlagen und gewonnen!")
EndIf
EndIf
Case 2
If GUICtrlRead($2) = $GUI_CHECKED Then
GUICtrlSetState($2, $GUI_UNCHECKED)
$sticks = GUICtrlRead($SticksP)
MsgBox(0, "", $sticks)
GUICtrlSetData($SticksP, $sticks & "I")
MsgBox(0, "Eins Ziehen!", "Tut mir leid! Aber du musst ein Stick ziehen!")
_GoPC()
Else
GUICtrlSetState($2, $GUI_CHECKED)
$sticks = GUICtrlRead($SticksP)
If Not $sticks = "" Then
GUICtrlSetData($SticksP, StringRight($sticks, StringLen($sticks) - 1))
Else
MsgBox(0, "Gewonnen!", "Glückwunsch! Du hast den Computer geschlagen und gewonnen!")
EndIf
EndIf
Case 3
If GUICtrlRead($3) = $GUI_CHECKED Then
GUICtrlSetState($3, $GUI_UNCHECKED)
$sticks = GUICtrlRead($SticksP)
GUICtrlSetData($SticksP, $sticks & "I")
MsgBox(0, "Eins Ziehen!", "Tut mir leid! Aber du musst ein Stick ziehen!")
_GoPC()
Else
GUICtrlSetState($3, $GUI_CHECKED)
$sticks = GUICtrlRead($SticksP)
If Not $sticks = "" Then
GUICtrlSetData($SticksP, StringRight($sticks, StringLen($sticks) - 1))
Else
MsgBox(0, "Gewonnen!", "Glückwunsch! Du hast den Computer geschlagen und gewonnen!")
EndIf
EndIf
Case 4
If GUICtrlRead($4) = $GUI_CHECKED Then
GUICtrlSetState($1, $GUI_UNCHECKED)
$sticks = GUICtrlRead($SticksP)
GUICtrlSetData($SticksP, $sticks & "I")
MsgBox(0, "Eins Ziehen!", "Tut mir leid! Aber du musst ein Stick ziehen!")
_GoPC()
Else
GUICtrlSetState($4, $GUI_CHECKED)
$sticks = GUICtrlRead($SticksP)
If Not $sticks = "" Then
GUICtrlSetData($SticksP, StringRight($sticks, StringLen($sticks) - 1))
Else
MsgBox(0, "Gewonnen!", "Glückwunsch! Du hast den Computer geschlagen und gewonnen!")
EndIf
EndIf
Case 5
If GUICtrlRead($5) = $GUI_CHECKED Then
GUICtrlSetState($5, $GUI_UNCHECKED)
$sticks = GUICtrlRead($SticksP)
GUICtrlSetData($SticksP, $sticks & "I")
MsgBox(0, "Eins Ziehen!", "Tut mir leid! Aber du musst ein Stick ziehen!")
_GoPC()
Else
GUICtrlSetState($5, $GUI_CHECKED)
$sticks = GUICtrlRead($SticksP)
If Not $sticks = "" Then
GUICtrlSetData($SticksP, StringRight($sticks, StringLen($sticks) - 1))
Else
MsgBox(0, "Gewonnen!", "Glückwunsch! Du hast den Computer geschlagen und gewonnen!")
EndIf
EndIf
Case 6
GUICtrlSetState($6, $GUI_CHECKED)
MsgBox(0, "6 Gewürfelt", "Glückwunsch du hast die 6 gewürfelt!")
GUICtrlSetState($6, $GUI_UNCHECKED)
EndSwitch
EndFunc ;==>_GoUser
Func _Help()
MsgBox(0, "Hilfe", "Das Ziel ist es möglichst schnell alle Sticks weg zu bekommen." & @CRLF & _
"Dazu Würfelst du, und setzt einen Stick auf das Feld das du gewürfelt hast. Das Script macht dies sogar automatisch." & @CRLF & _
"Ist in dem Feld jedoch schon ein Stick musst du diesen herausnehmen und der Gegner ist dran." & @CRLF & _
"Bist du dran und hattest gerade einmal gewürfelt, kannst du den Würfel weiter geben!")
EndFunc ;==>_Help
Func _weiter($who)
Switch $who
Case "User"
If $next = True Then
_GoPC()
Else
MsgBox(0, "Tut mir leid!", "Tut mir leid, aber du musst noch einmal würfeln!")
EndIf
Case "PC"
If $next = False Then
_GoUser()
Else
EndIf
EndSwitch
EndFunc ;==>_weiter
Warum sollte ich auf eine Feier gehen von einem Pack das Armen Leuten Geld aus der Tasche steht und dafür nichts macht?
Ein König ist die Verherrlichung von Diktator, anders ist es nicht. Mir tun alle Engländer leid die jetzt wissen, der Spaß ist auch die nächsten paar Jahre nicht vorbei und mir tun auch alle die Leid, die auf die Hochzeit gegangen sind und sich für solche **** Interessieren.
Naja, vlt. gehen wir ja auch mal wieder auf die Hochzeit von Königlichen Kindern in DE. Vlt. noch ne Schöne Parade?...
Ich kann die Leute echt nicht Verstehen, so was freiwillig zu gucken. Ist für mich wie RTL oder Hartz4 bevor ich eines dieser Dinge mache erhänge ich mich lieber.
Naja, bei der Quarantäne würde ich einfach die Dateien umbennen
Und alle Viren werden generiert. Ein Virus der sich selbst verbreitet erstellt sich oft sogar selbst. Geh immer vom schlimmsten aus
Also ist es besser die Virensignatur zu erkennen
Normal sollte ein AV alle Dateien scannen.
Die Virensuche mit MD5 zu checken ist sehr ungeschickt.
Ein Virus wird IMMER neu compiliert. Somit bekommt man IMMER einen neuen MD5 Hash.
Es bringt nur etwas, wenn man schauen will ob diese Datei schon bekannt ist.
Für ein AV brauchst du außerdem viele Viren und gute Kenntnisse in ASM um diese zu verstehen. (Du musst sie Disassemblieren, herausfinden wo der Virus seine eigene Signatur hat und diese Dann mit dem Script zu überprüfen ob diese in irgendeiner Datei enthalten ist.
Die Datenbank muss nicht groß sein, schau dir mal dieses PDF an zur Signaturen Erstellung für ClamAV: http://www.clamav.net/doc/webinars/W…-2009-03-04.pdf
Da siehst du wie eine Signatur aufgebaut ist.
Zur Quarantäne, was hat das mit ner SQL DB zu tun? Verstehe ich nicht.
Ebenfalls wäre Webseiten Blockierung über die Host Datei auch nicht gerade sinnvoll, hierbei wäre es besser Die TCP/UDP Verbindungen zu überprüfen und das Programm daran hindern sich mit der IP/Website zu verbinden. Denn Ein Virus greift zu 100% nicht auf die hosts Datei zu wenn es sich zu seinem Server verbindet.
Oder noch kürzer:
[autoit]ShellExecute("appwiz.cpl")
[/autoit]Hey, ich wollte euch mal mein Tool vorstellen.
Vorgeschichte:
In der Familie werde ich oft gerufen, wenn irgendwer Probleme hat mit dem PC. Sei es ein Virusbefall, ein Routerproblem oder nur die neu Einrichtung vom PC.
Da ich schon mal den Fall hatte das ich keine Tastatur hatte und auf Virtuelle Tastaturen ich liebend gerne Verzichte habe ich mir ein kleines Tool geschrieben das
die gängigsten Befehle für mich ausführt.
Befehle:
- Registry öffnen
- Systemstart öffnen (msconfig)
- Taskmanager öffnen
- Systeminformationen ausgeben
- Programme deinstallieren
- TCP/UDP Verbindungen anzeigen
- Defragmentieren
- CCleaner starten (Portable)
- MalwarebytesAntiMalware installieren
- RouterIPs (wenn das Handbuch verlegt wurde und man die IP Vom Routerpanel nicht weiß ist das sehr hilfreich!)
Download Exe + Tools: http://uploaded.to/file/bo4x3v6b
Source ist im Anhang
TCP/UDP Verbindungstool (ConnView) ist nicht von mir!
Hey, danke! Funktioniert!
Hallo,
gibt es eine Möglichkeit per Shellexecute/Run (Wobei mir ersteres lieber wäre) den Programme deinstallieren Ordner zu öffnen? Wenn man auf Start > Systemsteuerug > Programme deinstallieren drückt wäre das gleiche ich möchte dies jedoch ins Autoit Script packen ohne MouseClick etc.
Naja, ich denke mal wenn das Programm alles, abspeichert was eine Person macht, bzw. sich ändert.
(Welche Programme wann geöffnet werden, was nach dem öffnen passiert (Beispiel Firefox: Person öffnet Firefox, geht sofort auf autoit.de) So ein Problem, finde ich das überhaupt nicht. Das größte Problem ist zu wissen, was das Programm lernen soll und was es speichern soll. Diese Diskussion sollte man hier eher führen. Jedoch stellt sich mir die Frage,
ein lernendes Script und ein selbst weiterentwickelndes ist ein Unterschied. Weiterentwickeln, nenne ich es, wenn es bei sich selbst Fehler findet und diese behebt oder wenn es sich selbst neue Funktionen schreibt. Das ist nämlich fast unmöglich, da das Programm auch erst mal wissen muss warum es sich weiter entwickeln soll. Es kann ja neue Funktionen schreiben nur welchen Sinn hätte es? Ein lernendes Script basiert vorerst auf Datensammlung, hat es genug muss es diese auswerten. Einen Test könnte man ja machen: Das Script schreibt sich in den Autostart, beim Start schreibt es die Uhrzeit auf. Nach X Tagen werden die Uhrzeiten verglichen und wenn man dann wieder kommt, macht das Programm beim Start eine Meldung: "Na, alles beim alten?" = Bedeutet PC wurde wie immer zu einer bestimmten Zeit gestartet, wie sonst auch.
"Oh, heute etwas später?" = Bedeutet PC wurde später gestartet. "Oh, du bist aber sehr früh heute" = Bedeutet, PC wurde früher als sonst gestartet.
Das nenn ich ein lernendes Script. Sich selbst weiterentwickeln ist was anderes
Oh ja sry, ich dachte ich hatte ihn Editiert, kommt nicht wieder vor
$SERVERPING = Ping("46.4.67.125",250)
[/autoit][autoit][/autoit][autoit]$Ping = GUICtrlCreateLabel("Server Ping: " & $SERVERPING, 240, 110, 310, 27)
GUICtrlSetFont(-1, 15, 400, 0, "Arial")
while 1
GuiCtrlSetData($Ping,"Server Ping: " & $SERVERPING)
WEnd