okay dann fange ich langsam mal an
gruß Roggazzz
Beiträge von Lololo124
-
-
oops das hab ich ganz evrgessen,
Mann kann es mit Flaschendrehen vergeleichen
man gibt die anzahl an spielern an(max.4)
und dann wird durch zufall ein spieler ausgewählt.
Der spieler hatz die möglichkeit zwischen tat oder wahrheit zu entscheiden
Bei Tat gibt das Script ihm dann eine aufgabe wie z.B. drehe dich 3mal im kreis und hebe dir dabei die linke hand an die nase.
Bei Wahrheit bekommt der Spieler eine frage Gestellt, z.b.
Wen von den Mitspielern findest du am attraktivsten.gruß roggazzz
-
hi @ all,
ich weiß ich hatte schionmal einen thread erstellt und ich habe jetzt
wieder lust bekommen mich an einem YouTubedownloader zu versuchen.
(übrigens danke an AutoBert und K1773R) die mich wi3eder auf die idee gebracht haben.
Naja ich hänge wieder wie vorher daran den Downloadlink aus dem Quelltext zu fischen.
Ich habe echt keine ahnung wie ich es hinbekommen könnte dass ich den Downloadlink automatisch finde.
Würde mich über hilfe freuen
Gruß Roggazzz -
wie findet dein programm nur den DL Link von den videos??
-
super arbeit,
ich fänds toll wenn es nch irgenwie eine möglichkeit gäbe(keine ahnung ob sowas geht) das man das mit firefox oder so verbinden könnte.
Gruß Roggazzz -
ich bekomme von scite diese fehleermeldung beim start:
Spoiler anzeigen
C:\Users\Dome.Dome-PC\Desktop\GDI+ Paint.au3(27,46) : ERROR: AdlibRegister(): undefined function.
AdlibRegister("_GDIPlus_DrawClickedMouse", 10)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Dome.Dome-PC\Desktop\GDI+ Paint.au3(58,45) : ERROR: AdlibUnRegister(): undefined function.
AdlibUnRegister("_GDIPlus_DrawClickedMouse")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Dome.Dome-PC\Desktop\GDI+ Paint.au3 - 2 error(s), 0 warning(s) -
Hier die FUnktion:
[autoit]#cs
[/autoit][autoit][/autoit][autoit][/autoit]
Autor:Dome
Func:Icq Away Sender
About:Schickt an einen angegeben User eine Naricht wen der Benutzer "Away" ist.(Nur für Icq 6(.5))
Anleitung:
In den Optionen unter"Narichten und Dateien" Die einstellung"Gespräch in eigenem Fenster anzeigen" aktivieren.
P.S. Nur unter Icq 6.5 und icq 6 getestet unter ICQ 7 müsste es eigent. genau so funktionieren
#ce
_AwaySend("Username","Message")
func _AwaySend($User,$Message)
While 1
$1=Wingettitle($User)
If WinExists($1) Then
WinActivate($1)
Send($Message)
Send("{Enter}")
Sleep(1000)
WinClose($1)
endif
WEnd
endfunc
Wen ihr es iregndwo benutzt pls credits -
ich hab mal ne func für einzelen personen gemacht(also geht nur wen gewisse personen dir schreiben)
wen du interesse hast schrieb mir eifnach eine pm -
hi,
ich habe mir die rar mal geladen aber fremde exe fasse ich nicht an
könntest du bitte den source posten?
MIch interessiert die YOuTube Wiedergabe nähmlich schon.
Gruß Roggazzz -
Hi @ all,
Ich hab heute mit einem Kumpel ein Spiel gespielt(http://www8.agame.com/mirror/flash/b/boxhead.swf)
jetzt ist mir die Idee gekommen das Spiel "Online" zu machen.
UNd zwar ist mein Plan so:
In einer GUI kann wird ein IE-Fenster erstellt das auf die Datei(link oben) zugreift und sie abspielt
dann kann man in einem Inpout feld die ip eines freundes angeben und er bekommt wen er online ist eine anfrage zum Mitspielen(wen die GUI geöffnet ist versteht sich).Dann wird in der GUI Des freudnes das IE-Fenster meines PC erscheinen(So wie Teamviewer nur auf einen Bereich spezialisiert.
Und wen er dann lenkt(mit seiner tastatur) sende ich den befehl zum lenken über tcp an meinen rechner(das könnte ich umsetzen)
angefangen habe ich jetzt noch nicht aber ich wäre dankbar wen ihr mir helfen könntet.
Gruß Roggazzz -
bei Win Vista(32bit) zeigt er immer 20 an
-
HI @ all,
gibt es eine Möglichkeit um herauszufinden wie die lautstärke vom pc ist?
wollte mir nen kleinen manager machen um nicht immer am laptop auf das Ton ding zu gehnGruß Roggazzz
-
Hi @ all,
ich versuche gerade für mein Projekt(MyOnlineTelevision,link in Signatur)
Das Winows Mediaplayer Objekt in fullscreen zu setzen.Das ist das Skript:
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>$oWMP = ObjCreate("WMPlayer.OCX")
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("MyOnlineTelevision", 954, 624, 159, 84)#Region Menüs
[/autoit] [autoit][/autoit] [autoit]
$M1=GUICtrlCreateMenu("Infos")
$M1_1=GUICtrlCreateMenuItem("Über",$M1)
#EndRegion Menüs
$LV = GUICtrlCreateListView("Sender ", 816, 8, 130, 438)
$Button1 = GUICtrlCreateListViewItem("N-TV", $LV)
$Button2 = GUICtrlCreateButton("Stoppen", 236, 544, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Starten", 340, 544, 75, 25, 0)
$Button4 = GUICtrlCreateListViewItem("KI.KA", $LV)
$Button5 = GUICtrlCreateListViewItem("Game TV", $LV)
$Button6 = GUICtrlCreateListViewItem("Bahn TV", $LV)
$Button7 = GUICtrlCreateListViewItem("Tennis TV", $LV)
$Button8 = GUICtrlCreateListViewItem("Deluxe Music", $LV)
$Button9 = GUICtrlCreateListViewItem("StreetClip TV", $LV)
$Button10 = GUICtrlCreateListViewItem("9Live", $LV)
$Button11 = GUICtrlCreateListViewItem("MassiveMag TV", $LV)
$Button12 = GUICtrlCreateListViewItem("Astro TV", $LV)$Slider1 = GUICtrlCreateSlider(8, 544, 222, 29)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Label1 = GUICtrlCreateLabel("Lautstärke", 16, 526, 54, 17)
GUICtrlSetData($Slider1,100)
$wmp = GUICtrlCreateObj($oWMP, 8, 8, 980, 530)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]With $oWMP
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
.URL = ("")
.fullScreen = True
.windowlessVideo = True
.stretchToFit = True
.enableContextMenu = True
;.enabled = True
.uiMode = "none"; none / mini full
.settings.autostart = True
.settings.mute = True
.settings.volume = 100; 0 - 100
.settings.Balance = 0; -100 to 100
EndWith
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)#EndRegion ### END Koda GUI section ###
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global $oMediaPlayControl = $oWMP.Controls
$oWMP.fullscreenWhile 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $M1_1
MsgBox(0,"Über","Eine Idee von: Dominik R."&@CR&"ICQ: 323041083"&@CR&"AutoIt.de: Roggazzz")
Case $GUI_EVENT_CLOSE
GUISetState(@SW_SHOW,$Form1)
Exit
Case $Button11
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit MassiveMag TV...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit MassiveMag TV Fehlgeschlagen")
Else
$1=FileOpen(@ScriptDir&"\Sender\massivemagtv.txt",0)
$1_1=FIleRead($1)
$oWMP.url = ($1_1)_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
endif
Case $Button10
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit 9Live...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit 9Live Fehlgeschlagen")
Else
$2=FileOpen(@ScriptDir&"\Sender\9live.txt",0)
$2_1=FIleRead($2)
$oWMP.url = ($2_1)_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
endif
Case $button12
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit Astro TV...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit AstroTV Fehlgeschlagen")
Else
$3=FileOpen(@ScriptDir&"\Sender\astrotv.txt",0)
$3_1=FIleRead($3)
$oWMP.url = ($3_1)_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
endif
Case $Button9
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit StreetCLip TV...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit StreetCLip TV Fehlgeschlagen")
Else
$4=FileOpen(@ScriptDir&"\Sender\streetcliptv.txt",0)
$4_1=FIleRead($4)
$oWMP.url = ($4_1)_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
endif
Case $Button8
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit Deluxe Music...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit Deluxe Music Fehlgeschlagen")
Else
$5=FileOpen(@ScriptDir&"\Sender\deluxemusic.txt",0)
$5_1=FIleRead($5)
$oWMP.url = ($5_1)_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
[/autoit] [autoit][/autoit] [autoit]
endifCase $Button7
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit Tennis-TV...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit Tennis-TV Fehlgeschlagen")
Else
$6=FileOpen(@ScriptDir&"\Sender\tennistv.txt",0)
$6_1=FIleRead($6)
$oWMP.url = ($6_1)_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
[/autoit] [autoit][/autoit] [autoit]
endifCase $Button6
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit Bahn-TV...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit Bahn-TV Fehlgeschlagen")
Else
$7=FileOpen(@ScriptDir&"\Sender\bahntv.txt",0)
$7_1=FIleRead($7)
$oWMP.url = ($7_1)_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
endif
Case $Button5
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit Game-TV...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit Game-TV Fehlgeschlagen")
Else
$oWMP.url = (@ScriptDir&"\Sender\gametv.asx")_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
[/autoit] [autoit][/autoit] [autoit]
endif
Case $Button4
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit KI.KA...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit KI.KA Fehlgeschlagen")
Else$oWMP.url = (@ScriptDir&"\Sender\kika.asx")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
[/autoit] [autoit][/autoit] [autoit]
endif
Case $Button2
$oMediaPlayControl.stop
Case $Button3
$oMediaPlayControl.play
Case $Button1
_GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit N-TV...")
If Ping("google.de")=0 Then
_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit N-TV Fehlgeschlagen")
Else
$oWMP.url = (@ScriptDir&"\Sender\ntv.asx")_GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
endifEndSwitch
[/autoit]
$oWMP.settings.volume=GUiCtrlRead($Slider1)
WEndschon das versucht
[autoit]$oWMP.fullscreen=True
[/autoit]
[autoit]
oder$oWMP.fullscreen=()
[/autoit]
[autoit]
oder$oWMP.fullscreen()
[/autoit]
aber nichts geht.
Danke schonmal im Vorraus
Roggazzz -
Techmix:
Danke dir ich werde mal "rumschnüffeln" ob ich etwas finde.Trojan:
Auf sender bin ich wie oben gesagt ja auf der suche,
und das mit der fenstergröse ist so, wen das WMP Objekt grpß genug für das ganze bild des senders ist wird es nicht gröser
und das ist es eben schon, ich werde aber einen Fullscreen Mode einbauen(zumidnest versuche ich es).Gruß Roggazzz
-
das mit dem Fehlerzähler kann man so machen:
[autoit]
Erstmal eine Variable für den COunterGlobal $Counter=0
[/autoit]und dann bei der If abrfrage unten:
[autoit]If $Mouse[4] = $Edit[$i] Then
[/autoit]
If $Mouse[4] = $Edit[16] Then
MsgBox (0,"Herzlichen Glückwunsch!","Du hast gewonnen das Spiel mit "&$Counter&" Fehler gemeistert.")
Exit
Else
$Counter=$Counter+1
Beep(800,100)
EndIf
EndIfGruß Roggazzz
-
Ich finde den Teddy Cool,
hast du echt gut gemacht.Gruß Roggazzz
-
-
Danke für die fehlermeldung ich werde das Exit einfügen
zu dem Thema mit dem Bild kann ich dir leider nciht weiterhelfen. -
Hi @ all,
ich habe mir überlegt aus meinem Skript(MyOnlineTelevision(im Skript forum zu finden)) ein Projekt zu machen
also eröffne ich hier einen 2.Thread.MyOnlineTelevision ist ein bisher noch kleines aber wachsendes Internet TV das ich aus langeweile angefangen habe.
Bisher bietet das Skript/Programm 10 Sender an aber ich bin immer auf der suche nach Neuen Sendern.Versions Info:
Spoiler anzeigen
Momentane Version: 0.2.2(Realese 15.11.09 21:10)Was ist neu?
Anstadt den Buttons wurde ein Listview eingefügt um das hinzufügen der sender zu vereinfachen auserdem
wurden die Sender Links in .txt dateien geschrieben so kann man einfacher selbst links hinzufügen.Download: Klick Mich
Updates:
Spoiler anzeigen
- 15.11.09 21:06 : Gui wurde verändert
Bisherige Sender:
- N-TV
- Ki.Ka
- Bahn TV
- Tennis TV
- Game TV
- Deluxe Music
- StreetClip TV
- 9Live
- MassiveMag TV
- Astro TV
Das Wird Benötigt:
Spoiler anzeigen
- Windows Mediaplayer
- Der "Sender" Ordner
TO-DO:
Spoiler anzeigen
- Neue Gui erstellen
Direktlinks in .txt datei einfügenLIstView anstadt buttons bei sender liste
Das suche ich noch:
Spoiler anzeigen
- Leute die nach Sender suchen
- Leute die bei der GUI und Co. Helfen
- Leute die nach Bug´s suchen
- evntl. Grafiker die ein Icon und/oder ein par Grafiken für die Gui selbst erstellen
Ein kleiner Einblick in das Programm:
Spoiler anzeigen
Du hast einen Wunsch?
Gib ihn an uns weiter und wir versuche ihn zu realisieren.Spoiler anzeigen
Team Mitglieder:
Darksider3(auf Probe)(Sender sucher)
JuraX(auf Probe)
PrideRage(Auf Probe)(Grafiker)Wer lust hat bitte im Thread melden.
Gruß Roggazzz -
Ich finde das macht echt Spaß
wär das feld ein bisschen gröser wär es besser.Gruß Roggazzz