Das AutoIt Kinderprojekt wächst und wächst - Oscar, das ist genial! 
MfG
Beiträge von tobi_girst
-
-
Ich kanns nicht testen, weil der Kaspersky immer blockt!
MfG -
Weißt du, was mich immer aufregt? Wenn ich mir offline den SRC anschauen will und dann nur eine .exe im .zip finde! Es ist nichts großes, die .au3 auch noch dazuzumachen.
MfG und sei mir nicht böse -
@DevilsCry: Geile Idee, abedr ich kann kein GDI+!
MfG -
@DevilsCry: Wie meinst du? Einen "Bot"?
MfG -
Tolle Idee und tolle Umsetzung!
Freue mich schon auf die nächste Version! Vllt könntest du die Mails dann auch wieder löschen lassen?
MfG -
Danke für deine Antwort, ich erde es machen, dachdem das Schul-Projekt herum ist. (8.7.09)
MfG -
Ich will jetzt auch mal ein Script posten!
Langweilige Hintergrundgeschichte
Ich habe mir endlich einmal Zeit genommen, das Kinderprojekt anzuschauen. Da ich zuerst nurOscar's Lettris-Clone entdeckt habe, dachte ich mir, das das eine Nummer zu groß für mich ist! Als ich dann auch den Maus-Zähler gesehen habe, dachte ich mir, dasss ich es doch noch posten sollte.
Mein Beep-Piano hat 14 Tasten, vom c' bis zum cis", man kann die Tonlängen verändern und vllt mach ich auch noch eine Oktaven-Auswahltaste!
MfG tobi_girst"BeepPiano 1.2"
[autoit]#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
[/autoit] [autoit][/autoit] [autoit]
Author: myNameScript Function:
[/autoit] [autoit][/autoit] [autoit]
Template AutoIt script.#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]$length_1 = 500
[/autoit]
GUICreate ("BeepPiano 1.1 - by tobi_girst", 437+60, 259)
GUISetBkColor (0x000000)
#Region Tasten
$c_1 = GUICtrlCreateLabel ("", 0, 0, 40, 130)
$c_2 = GUICtrlCreateLabel ("", 0, 130, 53+1, 259-130)
GUICtrlSetBkColor ($c_1, 0xFFFFFF)
GUICtrlSetBkColor ($c_2, 0xFFFFFF)
$cis = GUICtrlCreateLabel ("", 41, 0, 94-66, 130)
$d_1 = GUICtrlCreateLabel ("", 70, 0, 94-69, 130)
$d_2 = GUICtrlCreateLabel ("", 58-3, 130, 50+4, 130)
GUICtrlSetBkColor ($d_1, 0xFFFFFF)
GUICtrlSetBkColor ($d_2, 0xFFFFFF)
$dis = GUICtrlCreateLabel ("", 96, 0, 94-66, 130)
$e_1 = GUICtrlCreateLabel ("", 124, 0, 162-124, 130)
$e_2 = GUICtrlCreateLabel ("", 112-2, 130, 50+2, 130)
GUICtrlSetBkColor ($e_1, 0xFFFFFF)
GUICtrlSetBkColor ($e_2, 0xFFFFFF)
$f_1 = GUICtrlCreateLabel ("", 163, 0, 94-54, 259)
$f_2 = GUICtrlCreateLabel ("", 163+94-54, 131, 15, 130)
GUICtrlSetBkColor ($f_1, 0xFFFFFF)
GUICtrlSetBkColor ($f_2, 0xFFFFFF)
$fis = GUICtrlCreateLabel ("", 163+95-53, 0, 94-66, 130)
$g_1 = GUICtrlCreateLabel ("", 233, 0, 94-69, 130+1)
$g_2 = GUICtrlCreateLabel ("", 221-2, 131, 50+2, 130)
GUICtrlSetBkColor ($g_1, 0xFFFFFF)
GUICtrlSetBkColor ($g_2, 0xFFFFFF)
$gis = GUICtrlCreateLabel ("", 259, 0, 94-66, 130)
$a_1 = GUICtrlCreateLabel ("", 287, 0, 94-69, 130+1)
$a_2 = GUICtrlCreateLabel ("", 274-2, 131, 50+4, 130)
GUICtrlSetBkColor ($a_1, 0xFFFFFF)
GUICtrlSetBkColor ($a_2, 0xFFFFFF)
$ais = GUICtrlCreateLabel ("", 312, 0, 94-69, 130)
$h_1 = GUICtrlCreateLabel ("", 342, 0, 38+2, 130+1)
$h_2 = GUICtrlCreateLabel ("", 330-3, 131, 50+5, 130)
GUICtrlSetBkColor ($h_1, 0xFFFFFF)
GUICtrlSetBkColor ($h_2, 0xFFFFFF)
$c2_1 = GUICtrlCreateLabel ("", 383, 0, 421-383, 130+1)
$c2_2 = GUICtrlCreateLabel ("", 383, 131, 437-383, 130)
GUICtrlSetBkColor ($c2_1, 0xFFFFFF)
GUICtrlSetBkColor ($c2_2, 0xFFFFFF)
$cis2 = GUICtrlCreateLabel ("", 437-(437-421), 0, 437-421, 130)
#EndRegion Tasten
GUICtrlCreateLabel ("", 438, 0, 60, 19)
GUICtrlSetBkColor (-1, 0xF0F0F0)
GUICtrlCreateLabel ("", 438, 19, 4, 21)
GUICtrlSetBkColor (-1, 0xF0F0F0)
GUICtrlCreateLabel ("", 438+(60-6), 19, 5, 21)
GUICtrlSetBkColor (-1, 0xF0F0F0)
GUICtrlCreateLabel ("", 438, 40, 60, 219)
GUICtrlSetBkColor (-1, 0xF0F0F0)
$length_2 = GUICtrlCreateInput ("500", 437+5, 20, 50, 20, 0x2000)
GUICtrlCreateUpdown (-1)
GUICtrlCreateLabel ("Length: ", 437+7, 5, Default, 15)
GUICtrlSetBkColor (-1, 0xF0F0F0)
GUISetState ()
While 1
$length_1 = GUICtrlRead ($length_2)
Switch GUIGetMsg ()
Case -3
Exit 0
Case $c_1, $c_2
Beep (261.63, $length_1)
Case $cis
Beep (277.18, $length_1)
Case $d_1, $d_2
Beep (293.66, $length_1)
Case $dis
Beep (311.13, $length_1)
Case $e_1, $e_2
Beep (329.63, $length_1)
Case $f_1, $f_2
Beep (349.23, $length_1)
Case $fis
Beep (369.99, $length_1)
Case $g_1, $g_2
Beep (392.00, $length_1)
Case $gis
Beep (415.30, $length_1)
Case $a_1, $a_2
Beep (440.00, $length_1)
Case $ais
Beep (466.16, $length_1)
Case $h_1, $h_2
Beep (493.88, $length_1)
Case $c2_1, $c2_2
Beep (523.25, $length_1)
Case $cis2
Beep (554.37, $length_1)
EndSwitch
WEnd -
Toll!
So kann ic immer sehen, wer derade im Netz on ist!
Edit:/ Dafür brauchts keinen neuen Post: Du solltest bereits die @ipAdress1 oder (besser) in die 1. drei Kästchen schon [192].[168].[0].[] schreiben, so isses meistens im Netz! -
Ich finde es toll, aber der User sollte die Anzahl der Muster unten festlegen können. Ich finds zu schwer.
MfG -
-
Toll! Aber ich kapier nicht, wie man nur 1en Teil auf die rechte Seite bringt
MfG -
BugFix : Wenn man den Code nicht weitergeben will, macht man bei AutoIt eine .exe, warum also auch nicht bei .vbs?
[autoit]
@DjDominik: Du solltest prüfen, ob im Dateiname schon .exe steht oder nicht, um es gegebenfalls dazuzuschreiben.$file3 = FileSaveDialog ("Save file", @DesktopDir, "Pictures (*.jpg)", Default, Random(0, 500, 1))
[/autoit]
If StringRight ($file3, 4) <> ".jpg" Then $file3 &= ".jpg"
MfG -
Wow! das ist hart!
ZitatSchock für Familie Kauscheder aus Wien-Floridsdorf! Innerhalb von nur zwei Tagen haben Einbrecher ihre Wohnung in der Jedleseer Straße zweimal ausgeräumt. Geschätzter Schaden: 20.000 Euro. Es ist nicht der einzige Verlust: Vor vier Wochen stahlen Diebe unweit des Hauses einen Kleintransporter des Unternehmer-Paares.
Quelle: http://m1.krone.at/7val.fit/s_4bc…f329452fa243867
MfG -
Die 3, Story in der iPod-Krone!
[quote"Krone","http://m1.krone.at/7val.fit/s_4bcbaa735f36bb6f36e9a0bc7c5d2430/517/cc05a3a75fc77d64b2ea859ac863ef31"]Die Polizei hat einen 49-jährigen Autofahrer aus dem Verkehr gezogen, der seit 30 Jahren ohne Führerschein unterwegs war. Der in Wolfurt (Bezirk Bregenz) lebende Mann erklärte zunächst, er habe seine Lenkberechtigung vergessen. Im Zuge der Überprüfung stellten die Beamten jedoch fest, dass er gar keinen Führerschein besitzt. Der 49-Jährige gab schließlich zu, dass er seit 30 Jahren "ohne" fahre.[/quote]
MfG und bitte Kommentare zur Story -
Die nächste Stroy aus derKrone!
Seinen Traum vom Schifffahrtskapitän hat sich ein 51-jähriger Mann aus dem Bezirk Feldkirch am Donnerstag im Hafen von Bregenz gleich zwei Mal zu erfüllen versucht: Der alkoholisierte und offenbar psychisch beeinträchtigte Mann "enterte" das brandneue Bodenseeschiff "Sonnenkönigin" sowohl in den frühen Morgenstunden als auch am Vormittag, er wurde von der Polizei auf der Brücke des Schiffes jedoch beide Male rechtzeitig festgenommen, bevor er ablegen konnte.
PS: Freue mich über Kommentare zur Story! -
Danke! Das meinte ich!
MfG -
irgendjemand hat es mal in AutoIt gemacht und dann hat es jmd in Java nachgeproggt.Da peethepee der Java-Spetialist im aforum hier ist, bin ich davon ausgegangen, dass er das war.
MfG tobi_girst -
Das mehrfache Starten kannst du mit
[autoit]_singleton
[/autoit]unterbinden.
MfG -
Hallo erstmal!
Ich will ein Script, welches viele Includeds enthält, wo jeweils 1 Func genutzt wird, verkleinern. dafür wollte ich das Programm verwenden, was Peethepee mal in java gemacht hat. Leider finde ich den Tread dazu nicht mehr.
MfG