Beiträge von Darter

Darter

datt is meiner

Ihr wollt gar nicht wissen, wie der ohne bumtop aussieht da hab ich keinen einzigen platz mehr für ein icon

[Blockierte Grafik: http://s5.directupload.net/images/100525/temp/j4aq3bi2.jpg]

Darter

das #include includet ja nur eine andere au3 datei. wöfür braucht man denn bitte beim includen einer au3 eine variable du musst doch wissen wie deine datei heißt?

Darter

Zitat von AutoBert

Hallo freaky,

da ich einen Tippfehler vermute, empfehle ich
[autoit]
Opt('MUSTDECLAREVARS' ,1)
[/autoit]
ps.: das angehängte Bild ist wohl auch volltransparent Nichts zu sehen

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

mfg (Auto)Bert

Alles anzeigen

genau deshalb verstehe ich den sinn nicht ganz. Wenn das Bild eh volltranzparent ist braucht er doch erst gar kein bild Zeichnen sondern nur ein garfk vtrl oder ähnliches erstellen, wo er den klick abfragen kann.

Darter

tranzparente Bilder können mit GUICtrlCreatePic ja nur mit der endung gif gezeichnet werden vllt ja das problem?

EDIT: das bild soll komplett tranzparent sein? dann versteh ich den Sinn nicht ganz, dann kannst du doch einfach ein grafik ctrl erstellen?

Darter

sowit ich weiß, dann ein klick auf ein GUICtrlCreatePic nicht registriert werden. wenn du mit GUICtrlCreateGraphic erstmal ein grafik control erstellst und darauf auf einen klick wartest dürfte es eig. funktionieren.

EDIT: genau wegen sowas wollen wir den code

Darter

naja ohne code wird das schwer zu sagen sein.

Darter

klasse Sache auf die Idee hab ich dich wohl gebracht, so ein teil hab ich nämlich gesucht und hättest du mir gesagt, dass du ne UDF machst hätt ich nicht selber rumwurschteln müssen

Darter

neh es gibt schon mehrere nur die abstände indenen sie komen werden natürlich größer

Darter

sehr schon. Wenn man die Durchlaufzahl statt -1,5 auf 1,5 setzt siehts sichtig geil aus

Darter

Zitat von ideas2code

Als imagesearch.au3 in ...\Programme\Autoit3\Include\ speichern. und mit #include <imagesearch.au3> ins Skript einbinden.

naja du brauchst auch noch die ImageSeach.dll kann ic h hier aber komischerweise nicht hochladen

EDIT: habs jetzt in nem rar hochgeladen

Darter

aber was ich irgendwi noch bemängeln muss ist, wenn ich zb. den proppel oder tranpolin o.ä. am hab das ist mein doodle so weit oben, dass ich nicht erkennen kann ob ein moster kommt und einfach direkt rein rase.

Darter

dann probiers man so:

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>
#include <GUIConstants.au3>
#include <Misc.au3>

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

Global $GuiWidth = 600
Global $GuiHeight = 600
Global $iX = 100
Global $iY = 100
Global $piewidth = 0
Global $pieheight = 320

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

$form = GUICreate ("Test", 600,600)
$hwnd = WinGetHandle ($form)
GUISetBkColor (0x000000)
GUISetState (@SW_SHOW)

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

_GDIPlus_Startup ()

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

$hgraphics = _GDIPlus_GraphicsCreateFromHWND ($hwnd)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($GUIWidth, $GUIHeight, $hGraphics)
$hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
_GDIPlus_GraphicsSetSmoothingMode($hBuffer, 2)
$pac = _GDIPlus_BrushCreateSolid (0xFFFFFF00)
_GDIPlus_GraphicsFillPie ($hgraphics, 50,50, 50, 50, 0, 320, $pac)

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

While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If _IsPressed ("25") Then
$iX -= 3
Draw()
_GDIPlus_GraphicsFillPie ($hgraphics, 50,50,50,50,0,320, $pac)
EndIf
If _IsPressed ("26") Then
$iY -=3
Draw()
_GDIPlus_GraphicsFillPie ($hgraphics, 50,50,50,50,0,320,$pac)
EndIf
If _IsPressed ("27") Then
$iX +=3
Draw()
_GDIPlus_GraphicsFillPie ($hgraphics, 50,50,50,50,0,320,$pac)
EndIf
If _IsPressed ("28") Then
$iY +=3
Draw()
_GDIPlus_GraphicsFillPie ($hgraphics, 50,50,50,50,0,320,$pac)
EndIf
WEnd

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

Func Draw()
_GDIPlus_GraphicsClear($hBuffer, 0xFFFFFFFF)
_GDIPlus_GraphicsFillPie ($hgraphics, 50,50,50,50,0,320,$pac)
EndFunc

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

Func _Exit()
_GDIPlus_BrushDispose($pac)
_GDIPlus_GraphicsDispose($hBuffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hgraphics)
_GDIPlus_Shutdown()
EndFunc

[/autoit]

Darter

außerdem wäre es doch nicht slecht, wenn man für angeschossene Monster auf Punkte bekommet. Und ein netter sound beim aubschuss denke ich wird noch kommen oder?

EDIT: den online heighscore habt ihr auch wieder rausgenommen?

Darter

gut wäre es auf jeden fall, wenn man im tastatur modus mit der strg-taste schießen könnte.

Darter

Moin ich habe hier mal ne Gui mit mit eig. Rahmen die verschiebbar ist usw.
Mein problem ist. Ich zeichne den hintergrund(Rahmen) mit GDI+ .
Die buttons erstelle ich aus dem grund, damit ich überprüfen kann ob sie angeklick wurden mit GUICtrlCreatePic()
So das Problem ist, wenn ich die gui und den nicht sichtbaren breich verschieben verschwindet mein Rahmen wie bekomme ich das hin, damit das bleibt?

Spoiler anzeigen

[autoit]

#Include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#Include <Misc.au3>

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

$change = 1
$change2 = 1
$title = "Meine GUI"

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

$test2 = GUICreate($title, 250, 88,@DesktopWidth-250,0,$WS_POPUP)
$winhandle = WinGetHandle($test2)
;GUICtrlCreatePic("bilder/hintergrund3.gif",0,0,250,88)
$test = GUICtrlCreatePic("bilder/button.gif",220,0,28,10)
;GUISetBkColor(0xFF3F5C)

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

GUISetState()
;WinsetOnTop($test,"",1)
_GDIPlus_Startup()
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($winhandle)
$hImage_hintergrund = _GDIPlus_BitmapCreateFromFile("bilder/hintergrund3.gif")
;$hImage_Button_normal = _GDIPlus_BitmapCreateFromFile("bilder/button.gif")
;$hImage_Button_hover = _GDIPlus_BitmapCreateFromFile("bilder/button2.gif")
_GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage_hintergrund, 0,0,250,88)
;_GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage_Button_normal, 220,0,28,10)
;_GDIPlus_GraphicsDispose($hGraphics)
;$titel = GUICtrlCreateLabel("Nachricht erhalten!",20,3,200,20)
;GUICtrlSetFont($titel,10,400,2,"Comic Sans MS")
;GUICtrlSetColor ($titel, 0xFFFFFF)
;$pen = _GDIPlus_PenCreate(0xFF000000)
;_GDIPlus_GraphicsDrawString($hGraphics, "Nachricht erhalten!", 20, 0, $pen)

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

$hBrush = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate("Comic Sans MS")
$hFont = _GDIPlus_FontCreate($hFamily, 10, 1)
$tLayout = _GDIPlus_RectFCreate(20, -2, 0, 0)
$aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, "Nachricht erhalten!", $hFont, $tLayout, $hFormat)
_GDIPlus_GraphicsDrawStringEx($hGraphics, "Nachricht erhalten!", $hFont, $aInfo[0], $hFormat, $hBrush)

$hBrush = _GDIPlus_BrushCreateSolid(0xFF000000)
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate("Comic Sans MS")
$hFont = _GDIPlus_FontCreate($hFamily, 10, 2)
$tLayout = _GDIPlus_RectFCreate(20, 50, 0, 0)
$aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, "Nachricht von ... erhalten", $hFont, $tLayout, $hFormat)
_GDIPlus_GraphicsDrawStringEx($hGraphics, "Nachricht von ... erhalten", $hFont, $aInfo[0], $hFormat, $hBrush)
#cs
$y = 0
Do
$y += 2
WinMove("Meine GUI", "", @DesktopWidth-250, @DesktopHeight-$y)
Sleep(5)
Until $y > 130
#ce
While 1
febterfallen()
ohnenamen()
$winpos = WinGetPos($title,"")
if IsArray($winpos) Then
If MouseGetPos(0) > $winpos[0] And MouseGetPos(0) < $winpos[0]+ $winpos[2]-30 And MouseGetPos(1) > $winpos[1] And MouseGetPos(1) < $winpos[1]+20 And _IsPressed(01) Then
;MsgBox(0,"","")
$mouspos = GUIGetCursorInfo()
Do
WinMove($title,"",MouseGetPos(0)-$mouspos[0],MouseGetPos(1)-$mouspos[1])
Until Not _IsPressed(01)
EndIf
EndIf
Sleep(10)
WEnd

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

Func ohnenamen()
;If MouseGetPos(0) > $winpos[0]+10 And MouseGetPos(0) < $winpos[0]+$winpos[2]-10 And MouseGetPos(1) > $winpos[1]+25 And MouseGetPos(1) < $winpos[1]+$winpos[3]-10 Then
$mouspos = GUIGetCursorInfo()
if IsArray($mouspos) Then
If $test = $mouspos[4] Then
;MsgBox(0,"","")
If $change2 Then
;GUICtrlDelete($test)
$test = GUICtrlCreatePic("bilder/button.gif",220,0,28,10)
;_GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage_Button_normal, 220,0,28,10)
$change = 1
$change2 = 0
EndIf
Else
If $change Then
;GUICtrlDelete($test)
$test = GUICtrlCreatePic("bilder/button2.gif",220,0,28,10)
;_GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage_Button_hover, 220,0,28,10)
$change = 0
$change2 = 1
EndIf
EndIf
If $test = $mouspos[4] And $mouspos[2] Then
Do
$mouspos = GUIGetCursorInfo()
Until not $mouspos[2]
If $test = $mouspos[4] Then Exit
EndIf
EndIf
EndFunc

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

Func febterfallen()

$t = 30
$i = 0
$winposoben = WinGetPos($title)
$winpos = WinGetPos($title)
If $winpos[1] < (@DesktopHeight - 130) Then
Do
For $r = $winpos[1] to $winpos[1]+2 Step 1/$t
WinMove($title,"",$winpos[0], $r)

;MsgBox(0,"",$r)
$i += $i
$pos = MouseGetPos()

#cs
If $winpos2[0] <> $winpos[0] Then
WinWaitActive ($title,"",5000000)
Sleep(800)
$winpos2 = WinGetPos($title)
WinMove($title,"",$winpos2[0], $winpos2[1])
ExitLoop
EndIf
;If $winpos2[0] <> $winpos[0] Then
; $pos = MouseGetPos()
; WinMove($title,"",$pos[0], $pos[1])
; ExitLoop
;EndIf
#ce
Next
If $t = 7 Then
;MsgBox(0,"","")
Else
$t -= 1/16
;MsgBox(0,"",$t)
EndIf
$winpos = WinGetPos($title)
$winpos2 = WinGetPos($title)
Until $winpos2[1] > (@DesktopHeight - 129)
If (@DesktopHeight - $winposoben[1]) > 800 Then
$winpos = WinGetPos($title)
For $z = 1 to 60 Step 1/50
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 20 Step 1/70
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 20 Step 1/90
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/150
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/200
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next

$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/200
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/150
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 20 Step 1/90
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 20 Step 1/70
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 66 Step 1/50
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
EndIf

If (@DesktopHeight - $winposoben[1]) > 600 And (@DesktopHeight - $winposoben[1]) < 799 Then
$winpos = WinGetPos($title)
For $z = 1 to 50 Step 1/50
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/70
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 15 Step 1/90
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/150
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/200
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next

$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/200
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/150
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 15 Step 1/90
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/70
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 56 Step 1/50
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
EndIf

If (@DesktopHeight - $winposoben[1]) > 400 And (@DesktopHeight - $winposoben[1]) < 599 Then
$winpos = WinGetPos($title)
For $z = 1 to 40 Step 1/50
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/70
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 15 Step 1/90
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/150
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/200
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next

$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/200
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/150
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 15 Step 1/90
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/70
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 46 Step 1/50
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
EndIf

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

If (@DesktopHeight - $winposoben[1]) > 200 And (@DesktopHeight - $winposoben[1]) < 399 Then
$winpos = WinGetPos($title)
For $z = 1 to 20 Step 1/50
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/70
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 15 Step 1/90
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/150
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/200
WinMove($title,"",$winpos[0],$winpos[1]- $z)
Next

$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/200
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/150
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 15 Step 1/90
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 10 Step 1/70
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
$winpos = WinGetPos($title)
For $z = 1 to 26 Step 1/50
WinMove($title,"",$winpos[0],$winpos[1]+ $z)
Next
EndIf
EndIf
EndFunc

[/autoit]

bilder hänge ich mal an

Darter

so also veralgemeinert kann man sagen

[autoit]

(100/$max) * $erreicht

[/autoit]

Darter

moin

das hab ich

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

HotKeySet("{ESC}","_exit")

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

$recv=""
$altrecv = ""

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

Opt("GUIOnEventMode", 1)

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

GUICreate("test",250,150)
Global $input = GUICtrlCreateEdit("",10,10,200,50)
$button = GUICtrlCreateButton("senden",100,100)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUICtrlSetOnEvent($button, "_send")
GUISetState()

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

TCPStartup()
$connectedsocket = TCPConnect("84.38.66.225","62345")
If @error Then MsgBox(0,"",@error)

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

While 1
$recv = TCPRecv($connectedsocket,1024)
If Not $recv = $altrecv Then
ConsoleWrite($recv)
$altrecv = $recv
EndIf
Sleep(100)
WEnd

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

Func _exit()
Exit
EndFunc

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

Func _send()
$mmm = GUICtrlRead($input)
TCPSend($connectedsocket, $mmm)
EndFunc

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

;~ ip daresse des testserver: 84.38.66.225
;~ upd port: 8767
;~ tcp port: 62345

[/autoit]

so müsste ich doch eing. befehle wie sl oder sel [port] senden können leider bekomme ich vom server nix zurük. an was kann das liegen

Darter

Zitat von progandy

Bei TS3 ist das Telnet-interface vollständig dokumentiert. Bei TS2 darfst du selber suchen

Ja deshalb dachte ich mir es sei einfacher einfach das tcp mit zu sniffen um zu überprüfen was wie und warum gesendet wird

Darter

Zitat von oetzn

für ts2 gibts glaub ich schon eine UD F

hier im Forum habe ich aber nix gefunden

Darter

nagut ich nutze eh noch ts2 deshalb würde mich es eher interesieren wie du an die packte rangekommen bist, damit ich mir sowas für ts2 machen kann. denn wenn ich einfach ganz normal mit tcpconnect() auf meinen ts2 connecten will bekomme ich gleich einen error.

Beiträge von Darter

Wie sieht euer Desktop aus?

#include mit variable

Case wird wegen einem Transparenten Bild ausgelöst

Case wird wegen einem Transparenten Bild ausgelöst

Case wird wegen einem Transparenten Bild ausgelöst

Case wird wegen einem Transparenten Bild ausgelöst

Eigenes Control: RangeBar

GDI+ Partikelexplosion (noch eine ;-) )

GDI+ Partikelexplosion (noch eine ;-) )

Woher imagesearch datei ?

Doodle Jump für Pc

Figur Mit Pfeiltasten steuern

Doodle Jump für Pc

Doodle Jump für Pc

GUI mit eigener grafik(Ramen buttons)

567 = 100%

ts2 über tcp connecten

Teamspeak 3 UDF

Teamspeak 3 UDF

Teamspeak 3 UDF