Hi,
bevor du ein Script ausführen kannst musst du es abspeichern :).
Beiträge von anno2008
-
-
Man kann auch ganz einfach das Passwort rausfinden, indem man die EXE dekompiliert und auch wenn der Obfuscator angewandt wurde. Das wäre dann auch noch ein zweiter Grund die Methode nicht zu benutzen, falls dir dein FTP account lieb ist :).
-
Wobei ich jetzt mal nicht übertreiben würde.
Jeder der ein bisschen Grips hat wird es hinbekommen sich zu Informieren und dann zusammenzubauen. Wenn du nicht irgendwann damit anfängst kannst du es nie.
Bevor du dir die Teile kaufst musst du dich sehr gut darüber Informieren wie diese Teile verbaut werden, wie sie zusammen passen, was man am sinnvollsten benutzen soll, usw.
Du musst Zeit reinstecken, dann dauerts lieber 1 Monat länger, aber dann kennst du dich auch aus und dein System läuft.Jetzt kommt es auf deine Vorstellungen an. Wie schon gesagt, die einen wollen lieber AMD die anderen lieber Intel. Bei der Grafikkarte genauso...
Ich für mich wüsste was in meinen PC kommt aber einen perfekten PC gibt es wohl nicht. Du musst lesen und dich dann selbst entscheiden.Natürlich können dir ein paar Leute Tipps geben, aber die Entscheidung liegt bei dir :).
-
Hi,
ich war auch eine ganze Zeit lang klettern.
War aber seit einem halben Jahr nicht mehr richtig, als ich mir den Arm gebrochen hatte.
Am Anfang war ich nur Bouldern später ab und zu Felsen. Klettersteig war ich noch nie gewesen, aber die Idee ist gut :). Werde ich mir auf jeden Fall merken und mal mit meiner Schwester und noch en paar Leuten hinfahren.Was ich auf jeden Fall jetzt auch erstmal mache ist eine Fallschirmausbildung, das hat mich schon immer fasziniert, ist zwar teuer, aber ich denke das Lohnt sich auf jeden Fall.
-
Schluss mit der Theorie :D.
Ich hab die 2. Methode umgesetzt, eigentlich ist das ja nicht besonders schwer. Nur bekommt man so halt nur den Punkt, von dem aus innerhalb der "Streuweite" die meisten anderen Punkte liegen.
Aber eigentlich dürfte das ja so reichen...Spoiler anzeigen
[autoit]#include <GDIPlus.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>Global $posx[100], $posy[100], $labarr[100]
[/autoit] [autoit][/autoit] [autoit]$koordinaten = GUICreate("Koordinatensystem", 390, 284, 419, 261)
[/autoit] [autoit][/autoit] [autoit]$hWnd = WinGetHandle($koordinaten)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)GUICtrlCreateLabel("", 0, 284 / 2 - 1, 390, 2) ; x-Achse
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlCreateLabel("", 390 / 2 - 1, 0, 2, 284) ; y-Achse
GUICtrlSetBkColor(-1, 0x000000)For $i = 0 To 99
[/autoit] [autoit][/autoit] [autoit]
$posx[$i] = Random(0, 390, 1)
$posy[$i] = Random(0, 284, 1)
$labarr[$i] = GUICtrlCreateLabel("", $posx[$i], $posy[$i], 3, 3)
GUICtrlSetBkColor(-1, 0xFF0000)
NextGUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit];__________________________________________________________
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;___________________________________________________________getmostPoints(50) ; radius
[/autoit] [autoit][/autoit] [autoit];__________________________________________________________
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;__________________________________________________________While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
Exit
EndSwitch
WEndFunc _getmostPoints($range)
[/autoit] [autoit][/autoit] [autoit]
Local $rangearr[100], $highindexFor $i = 0 To 99
[/autoit] [autoit][/autoit] [autoit]
$rangearr[$i] = 0
NextFor $j = 0 To 99
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To 99
$diffx = $posx[$j] - $posx[$i]
If $diffx < 0 Then $diffx = $diffx * (-1)$diffy = $posy[$j] - $posy[$i]
[/autoit] [autoit][/autoit] [autoit]
If $diffy < 0 Then $diffy = $diffy * (-1)If Sqrt($diffx ^ 2 + $diffy ^ 2) <= $range Then $rangearr[$j] += 1
[/autoit] [autoit][/autoit] [autoit]
Next
Next
$highindex = _gethighestvalue($rangearr)
GUICtrlSetPos($labarr[$highindex], $posx[$highindex] - 2, $posy[$highindex] - 2, 5, 5)
GUICtrlSetBkColor($labarr[$highindex], 0x0000FF)
_GDIPlus_GraphicsDrawEllipse($hGraphic, $posx[$highindex] - $range, $posy[$highindex] - $range, $range * 2, $range * 2)
EndFunc ;==>_getmostPointsFunc _gethighestvalue($arr)
[/autoit] [autoit][/autoit] [autoit]
Local $highval = 0, $index = 0For $i = 0 To UBound($arr) - 1
[/autoit]
If ($arr[$i] > $highval) Then
$highval = $arr[$i]
$index = $i
EndIf
Next
Return $index
EndFunc ;==>_gethighestvalue -
Ich hab das Verstanden!
Ich würde deine Methode benutzen, um den Haufen ausfindig zu machen, keine Frage. Aber um dann aus den Punkten die Stelle - und darum ging es ihm in dem ersten Post - zu finden, an der alle Punkte am nächsten liegen musst du irgendein solches Verfahren anwenden. Das man keinen Standort aus allen Punkten finden kann ist klar. Nur mit deiner Methode suchst du nur den Bereich. Er will aber auch eine Stelle, also X und Y Koordinate haben, von der aus die Punkte möglichst nah beieinander liegen. Das geht ja wohl nur damit. -
@anno
Ich glaube kaum das ihm das hier weiterhilft.
Die Formeln dienen dazu einen Standort zwischen n Punkten so zu legen das die Summe der Entfernungen aller Punkte zu diesem minimal wird.
Das funktioniert ja aber nur wenn alle Punkte welche zur Berechnung herangezogen werden auch relevant sind. Aber genau darum geht es ja - sie sind es eben nicht alle.
Es sollen nur die Punkte genommen werden welche einer größeren Häufung angehören.
Alle anderen Punkte sind demnach Ausreißer welche das Ergebnis verfälschen.
Das mag bei einer geringen Anzahl von Ausreißern ausgeglichen werden aber sobald der Bruchpunkt zu hoch wird wars das.
Die Ausreißer müssen also erst einmal eliminiert werden - das ist das eigentliche Problem hierbei - nicht die Berechnung des Mittels, Medians oder sonst irgendwas.
Im übrigen bin ich der Meinung das hier ein Schwerpunkt anstatt einer entfernungsoptimierten Standortwahl vollkommen ausreichend ist.Eigentlich ist das schon wichtig. Natürlich ist das nicht der komplette Ansatz, aber eine Kombination würde funktionieren. qwertz hat gefragt "an welcher stelle die punkte am nähesten beieinander liegen". Am einfachsten ist dann die 2. Lösung von dir. Allerdings bekommt er dann den Punkt, der am nächsten an den anderen liegt und nicht die Stelle im Haufen, von der alle Punkte am nächsten dran liegen. Ich hätte als allererstes mit dieser Methode den "Haufen" ausfindig gemacht und dann von den jetzt noch vorhandenen Punkten die Stelle gesucht, die am nächsten an allen Punkten liegt. Es kommt halt drauf an wie genau das sein muss.
Außerdem ist in deinem Modell ein Denkfehler qwertz. Wenn du den Satz von Pythagoras benutzt, dann hast du einen Kreis um jeden Punkt, der abgesucht wird, und kein Quadrat.
-
Hi,
->Standortplanung<-
das erklärt ziemlich ausführlich was du suchst, aber ganz so einfach ist das nicht mehr. Da musst du dich halt ein wenig reinlesen.Unter dem Namen "Standorttheorie" und "Standortprobleme" findest du auch noch einiges.
-
-
Hi,
ich habe die 2 endpunkte einer geraden
Das ist schonmal ein Widerspruch in sich, eine Gerade ist nicht endlich :).Im Prinzip ist das ganz einfach. Beide Dreiecke sind Kongruent zueinander.
Also, ich hab in das Bild noch Streckennamen eingefügt:
[Blockierte Grafik: http://img10.imageshack.us/img10/5519/unbenannt0.jpg]
Die Strecken des ersten Dreiecks kannst du ganz einfach ausrechnen.c1 ist die Strecke auf der x-Achse, logischerweise die Differenz zwischen den beiden X-Koordinaten:
c1 = x2-x1h1 ist die Strecke auf der y-Achse, logischerweise die Differenz zwischen den beiden Y-Koordinaten:
h1 = y2-y1Die Strecke d2 verhält sich zur Strecke d1 genauso wie die Strecke c2 zu c1 und h2 zu h1. Das sind die Kongruenzsätze, Also:
d2/d1 = h2/h1 und genauso
d2/d1 = c2/c1jetzt umstellen:
h2 = d2/d1 * h1
c2 = d2/d1 * c1x3 und y3 bekommst du wenn du jetzt zum Punkt x2 und y2 den Wert c2 und h2 addierst.
x3 = x2 + c2
y3 = y2 + h2Das wars. AutoIt Beispiel kommt wenn ich grad noch Zeit hab...
/Edit: Zum 4. mal
[autoit]Func extension($length)
[/autoit][autoit][/autoit][autoit]
$AX = GetAX()
$AY = GetAY()
$BX = GetBX()
$BY = GetBY()$c1 = $BX - $AX
[/autoit][autoit][/autoit][autoit]
$h1 = $BY - $AY
$d1 = Sqrt(($c1 ^ 2) + ($h1 ^ 2))$c2 = $length / $d1 * $c1
[/autoit][autoit][/autoit][autoit]
$h2 = $length / $d1 * $h1Return ($BX + $c2 & ", " & $BY + $h2)
[/autoit]
EndFunc ;==>extensionWenns nicht geht tut es mir leid, ich kanns nicht testen :).
Natürlich noch optimierbar, theoretisch kann man alles in eine Zeile schreiben, wenn man die Zwischen variablen weglässt.anno2008
-
Dann auch hier nochmal
Herzlichen Glückwunsch zum 18. Geburtstag
-
-
Zitat von »Xenobiologist«
Dafür gibt es auch den dritten Parameter!Das hilft mir nicht
Das sollte dir aber Helfen falls du die Hilfe zu Random gelesen hättest ...
So geht es nämlich wirklich:Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Schere, Stein Papier!", 300, 171, 192, 124)
GUISetBkColor(0x0B6295)
GUISetIcon("C:\Users\Johannes\Desktop\Hacking\Stealer\Universal1337_Version_2_-_The_Account_Stealer_2\Extras\icons\noicon.ico")
$Button1 = GUICtrlCreateButton("Stein", 32, 50, 65, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Schere", 112, 50, 65, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Papier", 75, 90, 65, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("", 200, 32, 100, 100)
$Label2 = GUICtrlCreateLabel("Scripted by !Jo!", 200, 140, 65, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$Random = Random(1, 3, 1)
If $Random = 1 Then
$PcAuswahl = "Schere"
ElseIf $Random = 2 Then
$PcAuswahl = "Papier"
ElseIf $Random = 3 Then
$PcAuswahl = "Stein"
EndIf$nMsg = GUIGetMsg()
[/autoit] [autoit][/autoit] [autoit]
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
$Auswahl = "Schere"
Sleep(500)
$cool = MsgBox(0, "Pc sagt", "." & $PcAuswahl & " ")
Case $Button1
$Auswahl = "Stein"
Case $Button3
$Auswahl = "Papier"
EndSwitch
WEndFunc stop()
[/autoit]
Exit
EndFunc ;==>stop -
ist es NICHT für einen BOt gedacht
sondern?
-
-
Für welchen Browser denn überhaupt.
Das einfachste wäre vielleicht den Titel der Browserfenster auszulesen und zu vergleichen.
Damit könnte man auch leicht mehrere Browser checken. -
-
Hi und willkommen im Forum,
mit ein bisschen auseinandersetzen mit AutoIt wäre das auch für dich kein Problem hinzubekommen ;).Die automatisierung mit Mausklicks ist eigentlich das denkbar schlechsteste was man da machen kann.
Man kann Textdateien auslesen ohne sie sichtbar zu öffnen. Man kann Browser automatisieren ohne die Maus zu benutzen und theoretisch sogar auch unsichtbar ablaufen lassen.
Diese Lösungen wären wohl Sinnvoller.Falls du keine Lust hast dich selber damit auseinanderzusetzen melde dich im ICQ: 209759094 oder per pn...
anno2008
-
Die wohl allereinfachste und sicherste Lösung ist ein Array. Mach ein Großes Array, und benutze 2 Zahlen, z.B. 0 und 1.
0 = Feld
1 = MauerDann unterteilst du dein ganzes Spielfeld in Zahlen.
Code00000000000000000000 00111100000000000000 00111100000000000000 00111100000000000000 00000000000000000000 00000000000000000000 00000000000000000000 00000000000000000000
Dort wo jetzt die 1 ist wird deine Mauer optisch hingezeichnet, aber der Vergleich läuft im Hintegrund ab. Jetzt nimm ne 3. Zahl, die deinen Spieler darstellt, bzw. den Ball. Und den läst du im Array "wandern" und prüfst jedes mal wenn er sich bewegen soll, ob er eine 1 überschreiben würde. Wenn er das tut verweigerst du den Zug. Eigentlich total simpel. Und du kannst jedes mal wenn sich der Spieler bewegt das ganze Spielfeld aus deinem Array heraus neu zeichnen.
anno2008
-
Hi,
hatte grad Lust was zu machen, da hab ich ein bisschen optimiert.Spoiler anzeigen
[autoit]#include <StaticConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>HotKeySet("{Up}", "_up")
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("{Down}", "_down")
HotKeySet("{Right}", "_right")
HotKeySet("{Left}", "_left")Global $posarray[2][2] = [[Random(5, 573, 1), Random(24, 452, 1)],[Random(5, 573, 1), Random(24, 452, 1)]], $bufferarray[4], $score = 0, $speed = 5
[/autoit] [autoit][/autoit] [autoit]
$mainform = GUICreate("Spiel", 593, 487)
$scorelabel = GUICtrlCreateLabel("Punkte: " & $score, 15, 3, 200, 15)
$muenze = GUICtrlCreatePic(@ScriptDir & "\gfx\muenze.jpg", $posarray[1][0], $posarray[1][1], 10, 10, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$player = GUICtrlCreatePic(@ScriptDir & "\gfx\down 1.jpg", $posarray[0][0], $posarray[0][1], 16, 31, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$playfield = GUICtrlCreatePic(@ScriptDir & "\gfx\spielfeld.jpg", 0, 20, 593, 467, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
If GUIGetMsg() = -3 Then Exit
WEndFunc _left()
[/autoit] [autoit][/autoit] [autoit]
If ($bufferarray[0] = 7) Then
$bufferarray[0] = 0
Else
$bufferarray[0] += 1
EndIf
If ($posarray[0][0] > 5) Then
$posarray[0][0] -= $speed
If ((($posarray[0][0] >= $posarray[1][0] - And ($posarray[0][0] <= $posarray[1][0] + 8)) And (($posarray[1][1] <= $posarray[0][1] + 32) And ($posarray[1][1] >= $posarray[0][1]))) Then point()
GUICtrlSetImage($player, @ScriptDir & "\gfx\left " & $bufferarray[0] + 1 & ".jpg")
refresh()
EndIf
EndFunc ;==>_leftFunc _right()
[/autoit] [autoit][/autoit] [autoit]
If ($bufferarray[1] = 7) Then
$bufferarray[1] = 0
Else
$bufferarray[1] += 1
EndIf
If ($posarray[0][0] < 573) Then
$posarray[0][0] += $speed
If ((($posarray[0][0] >= $posarray[1][0] - And ($posarray[0][0] <= $posarray[1][0] + 8)) And (($posarray[1][1] <= $posarray[0][1] + 32) And ($posarray[1][1] >= $posarray[0][1]))) Then point()
GUICtrlSetImage($player, @ScriptDir & "\gfx\right " & $bufferarray[1] + 1 & ".jpg")
refresh()
EndIf
EndFunc ;==>_rightFunc _up()
[/autoit] [autoit][/autoit] [autoit]
If ($bufferarray[2] = 7) Then
$bufferarray[2] = 0
Else
$bufferarray[2] += 1
EndIf
If ($posarray[0][1] > 24) Then
$posarray[0][1] -= $speed
If ((($posarray[0][0] >= $posarray[1][0] - And ($posarray[0][0] <= $posarray[1][0] + 8)) And (($posarray[1][1] <= $posarray[0][1] + 32) And ($posarray[1][1] >= $posarray[0][1]))) Then point()
GUICtrlSetImage($player, @ScriptDir & "\gfx\up " & $bufferarray[2] + 1 & ".jpg")
refresh()
EndIf
EndFunc ;==>_upFunc _down()
[/autoit] [autoit][/autoit] [autoit]
If ($bufferarray[3] = 7) Then
$bufferarray[3] = 0
Else
$bufferarray[3] += 1
EndIf
If ($posarray[0][1] < 452) Then
$posarray[0][1] += $speed
If ((($posarray[0][0] >= $posarray[1][0] - And ($posarray[0][0] <= $posarray[1][0] + 8)) And (($posarray[1][1] <= $posarray[0][1] + 32) And ($posarray[1][1] >= $posarray[0][1]))) Then point()
GUICtrlSetImage($player, @ScriptDir & "\gfx\down " & $bufferarray[3] + 1 & ".jpg")
refresh()
EndIf
EndFunc ;==>_downFunc refresh()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetPos($player, $posarray[0][0], $posarray[0][1])
GUICtrlSetPos($muenze, $posarray[1][0], $posarray[1][1])
GUICtrlSetData($scorelabel, 'Punkte: ' & $score)
EndFunc ;==>refreshFunc point()
[/autoit]
$score += 1
$posarray[1][0] = Random(5, 573, 1)
$posarray[1][1] = Random(24, 452, 1)
refresh()
EndFunc ;==>point