Beiträge von Freaky

Freaky

Danke aber bei mir Zeigt es Minus Zahlen an da kann doch was nicht stimmen.

Edit: Könnte man da den Tag mit einbauen ?
Weil das Script denkt ja wenn es 20:10 ist und was um 20:05 eintreffen soll, das es schon eingetroffen ist oder erst eintreffen wird

Freaky

Hallo,
gibt es eine UDF oder sonstiges was mir die Zeit umrechnet um zu gucken wie lange noch was dauert.
Ich will in eine INI eine Uhrzeit schreiben (12:34) und wenn es so spät ist, dann soll eine MSG Box auftauchen. Aber es soll mir auch anzeigen wie lange es bis dahin dauert. Es kann auch Sein das es um 04:12 was sein soll und ich mein Script um 12:34 angemacht habe.

Freaky

Ok, habs gefunden damit er nicht alle tötet
Aber jetzt ist das voll komisch, wenn ich den ersten töte, dann stirtb der 2te und wenn ich nicht den ersten töte passiert nichts.
wenn ich den dritten danach töte stirbt der dritte, und wenn ich den ersten töte passiert nichts

Freaky

Doch ich gebe mir mühe, nur ich kenne mich mit der UDF und Autoit nichtwirklich gut aus

Danke, das funktioniert, nur wenn ich 1 töte, dann töte ich alle ausser 1

Freaky

So habe jetzt etwas gemacht was fast geht
Also:
Ich habe Gegner reingemacht die sich bewegen. Aber die flakern immer
Und wenn eine Kugel den Gegner trifft, stribt das Script, aber ich weiß nicht warum

Spoiler anzeigen

[autoit]

#include <GDIPlus.au3>
#include <Misc.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>

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

Opt("GUIOnEventMode", 1)

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

$iGUIWidth = 400
$iGUIHeight = 400
$GUIColorBG = 0xFF000000

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

$iShots = 0
$iMaxShots = 5 + 1
$iShotSpeed = 3
$iCoolDownTime = 500
$iTimerShot = $iCoolDownTime * - 1
$iTimerGegner = TimerInit()

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

$hU32DLL = DllOpen("User32.dll")

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

$hWnd = GUICreate("Space Invaders", $iGUIWidth, $iGUIHeight)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState()

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

_GDIPlus_Startup()

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

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($iGUIWidth, $iGUIHeight, $hGraphic)
$hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
_GDIPlus_GraphicsSetSmoothingMode($hBuffer, 2)
_GDIPlus_GraphicsClear($hGraphic, $GUIColorBG)

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

Dim $hImage_Gegner[2]
Dim $iGegner[2][2]

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

For $i = 1 To 5
_Array2DAdd($hImage_Gegner, _GDIPlus_ImageLoadFromFile(@ScriptDir & "\img\gegner.jpg"))
_Array2DAdd($iGegner, 0 + (($i - 1) * 45) & "|" & 0)
Next

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

$hImage_Ship = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\img\Raumschiff.jpg")
$hBrush_Shot = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)

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

Dim $aShot[2][2]

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

$iX_Ship = $iGUIWidth / 2 - 25
$iY_Ship = $iGUIHeight - 30

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

While 1
If _IsPressed("27", $hU32DLL) And $iX_Ship < $iGUIWidth - 50 Then $iX_Ship += 2
If _IsPressed("25", $hU32DLL) And $iX_Ship > 0 Then $iX_Ship -= 2
If _IsPressed("20", $hU32DLL) And TimerDiff($iTimerShot) >= $iCoolDownTime And UBound($aShot) < $iMaxShots Then
_Array2DAdd($aShot, $iX_Ship + 21 & "|" & $iY_Ship - 10)
$iTimerShot = TimerInit()
EndIf

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

_GDIPlus_GraphicsClear($hBuffer, $GUIColorBG)
For $i = 1 To UBound($aShot) - 1
If $aShot[$i][1] <> "" Then
_GDIPlus_GraphicsFillRect($hBuffer, $aShot[$i][0], $aShot[$i][1], 5, 10, $hBrush_Shot)
For $j = 2 To UBound ($iGegner)-1
If $aShot[$i][1] <= $iGegner[$j][1] Then _Array2DDelete ($iGegner,$j)
Next
$aShot[$i][1] -= $iShotSpeed
EndIf
Next
For $i = 1 To UBound($aShot) - 1
If $aShot[$i][1] <= 0 Then
_Array2DDelete($aShot, $i)
ExitLoop
EndIf
Next
If TimerDiff($iTimerGegner) >= 500 Then
For $i = 2 To UBound($iGegner) - 1
If $iGegner[$i][0] + 40 >= $iGUIWidth Then
$iGegner[$i][1] += 25
$iGegner[$i][0] = 0
_GDIPlus_GraphicsDrawImageRect($hBuffer, $hImage_Gegner[$i], $iGegner[$i][0], $iGegner[$i][1], 40, 23)
Else
$iGegner[$i][0] += 45
_GDIPlus_GraphicsDrawImageRect($hBuffer, $hImage_Gegner[$i], $iGegner[$i][0], $iGegner[$i][1], 40, 23)
EndIf
Next
$iTimerGegner = TimerInit()
EndIf
_GDIPlus_GraphicsDrawImageRect($hBuffer, $hImage_Ship, $iX_Ship, $iY_Ship, 50, 30)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, $iGUIWidth, $iGUIHeight)
Sleep(20)
WEnd

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

Func _Exit()
DllClose($hU32DLL)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_GraphicsDispose($hBuffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_ImageDispose($hImage_Ship)
_GDIPlus_BrushDispose($hBrush_Shot)
_GDIPlus_Shutdown()
Exit
EndFunc ;==>_Exit

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

;------------------------------------------------------------------------------------------------------------
;
; Function _Array2DAdd(ByRef $avArray, $sValue='')
;
; Description Redim Array Size and add an Array element at last position
; Works with any occurences in 2nd Dimension
; Works also with 1D-Array
;
; Parameter $avArray Given Array
; optional $sValue Value of new Element, parts must be seperate with '|'
;
; Return Succes -1
; Failure 0 and set @error
; @error = 1 given array is not array
; @error = 2 given parts of Element too less/much
;
; Author BugFix ([email='bugfix@autoit.de'][/email])
;------------------------------------------------------------------------------------------------------------
Func _Array2DAdd(ByRef $avArray, $sValue = '')
If (Not IsArray($avArray)) Then
SetError(1)
Return 0
EndIf
Local $i
Local $UBound2nd = UBound($avArray, 2)
If @error = 2 Then
ReDim $avArray[UBound($avArray) + 1]
$avArray[UBound($avArray) - 1] = $sValue
Else
Local $arValue
ReDim $avArray[UBound($avArray) + 1][$UBound2nd]
If $sValue = '' Then
For $i = 0 To $UBound2nd - 2
$sValue &= '|'
Next
EndIf
$arValue = StringSplit($sValue, '|')
If $arValue[0] <> $UBound2nd Then
SetError(2)
Return 0
EndIf
For $i = 0 To $UBound2nd - 1
$avArray[UBound($avArray) - 1][$i] = $arValue[$i + 1]
Next
EndIf
Return -1
EndFunc ;==>_Array2DAdd

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

;----------------------------------------------------------------------------------------------------------------------
; Fuction _Array2DDelete(ByRef $ARRAY, $iDEL)
;
; Description Delete one row on a given index in an 1D/2D -Array
;
; Parameter $ARRAY the array, where one row will deleted
; $iDEL Row-Index to delete
;
; Return Succes -1 ByRef $ARRAY
; Failure 0 set @error = 1; given array are not array
; set @error = 2; index is out of range
;
; Author BugFix ([email='bugfix@autoit.de'][/email])
;----------------------------------------------------------------------------------------------------------------------
Func _Array2DDelete(ByRef $ARRAY, $iDEL)
If (Not IsArray($ARRAY)) Then
SetError(1)
Return 0
EndIf
If ($iDEL < 0) Or ($iDEL > UBound($ARRAY) - 1) Then
SetError(2)
Return 0
EndIf
Local $i, $k, $l
Local $UBound2nd = UBound($ARRAY, 2)
If @error = 2 Then
Local $arTmp[UBound($ARRAY) - 1]
$k = 0
For $i = 0 To UBound($ARRAY) - 1
If $i <> $iDEL Then
$arTmp[$k] = $ARRAY[$i]
$k += 1
EndIf
Next
Else
Local $arTmp[UBound($ARRAY) - 1][$UBound2nd]
$k = 0
For $i = 0 To UBound($ARRAY) - 1
If $i <> $iDEL Then
For $l = 0 To $UBound2nd - 1
$arTmp[$k][$l] = $ARRAY[$i][$l]
Next
$k += 1
EndIf
Next
EndIf
$ARRAY = $arTmp
Return -1
EndFunc ;==>_Array2DDelete

[/autoit]

ps: die bilder müssen in den img ordner

Freaky

Ich will jetzt oben Gegner hinmachen, wie krige ich das mit GDI+ hin das die sich nach Rechst und Links bewegen und wenn ne Kugel die berüht das die dann sterben ?

Freaky

Danke für das Raumschiff und für das Script
Leider ist da ein Bug wenn man zu weit nach links geht, kann man nicht mehr nach rechts

So mal gucken was ich alles hinbekomme damit

Freaky

Ich will ja mehrer Schüsse abgeben
Er soll Max 5 Schüsse abgeben aber ich kriege nichtmal 2 hin

Über das Forum könnte das glaube ich nichts werden
Wennschon dann über ICQ da kann ich dir 12345678 Fragen stellen ohne immer ein Post zu machen :D:D:D:D:D

Freaky

Bei mir geht genau das
Das geht bei mir:

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <Misc.au3>
#include <GUIConstantsEx.au3>
Global $timer = 0
Global $schusse[1], $schuss[2]

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Spiel", 633, 447)
GUISetBkColor(0x000000)
$raumschiff = GUICtrlCreatePic(@ScriptDir & "\img\raumschiff.jpg", 10, 410, 50, 30)
$schuss[1] = GUICtrlCreatePic(@ScriptDir & "\img\schuss.JPG", 33, 393, 5, 15)
GUICtrlSetState (-1,$GUI_HIDE)
$gegner = GUICtrlCreatePic("", 40, 64, 52, 28)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If _IsPressed(20) Then
While _IsPressed(20)
Sleep(100)
WEnd
For $i = 1 To UBound($schuss) - 1
If GUICtrlGetState($schuss[$i]) <> 80 Then
GUICtrlSetState($schuss[$i], $GUI_SHOW)
$timer = TimerInit()
$schuss[$i] = GUICtrlCreatePic(@ScriptDir & "\img\schuss.JPG", 33, 393, 5, 15)
_ArrayAdd($schuss, "")
_ArrayAdd($schusse, "")
EndIf
Next
EndIf
For $i = 1 To UBound($schusse) - 1
If GUICtrlGetState($schuss[$i]) = 80 Then
If TimerDiff($timer) >= 100 Then
$schuss_pos = ControlGetPos($Form1, "", $schuss[$i])
GUICtrlSetPos($schuss[$i], $schuss_pos[0], $schuss_pos[1] - 17)
If $schuss_pos[1] <= 0 Then
GUICtrlSetPos($schuss[$i], $schuss_pos[0], 393)
GUICtrlSetState($schuss[$i], $GUI_HIDE)
GUICtrlDelete($schuss[$i])
_ArrayDelete($schuss, "")
_ArrayDelete($schusse, "")
EndIf
$timer = TimerInit()
EndIf
EndIf
Next
ToolTip(UBound($schuss) & @CRLF & UBound($schusse), 0, 0)
WEnd

[/autoit]

Freaky

Entfern mal Else in Zeile 31

Freaky

Habe die Bilder angehengt

Freaky

Ne, will das so machen

Freaky

Hallo,
ich will ein Spiel aus langeweile schreiben und stoße schon an ein Problem.
Wenn ich mit meinem Raumschiff schiesen will, dann fliegt die kugel nach oben, und wenn ich dann nochmal schiesen will dann bleibt die stehen und die neu fliegt weiter oder die erste Kugel fliegt zu Ende und die neue Kugel wartet auf die davor und fliegt erst weiter wenn die erste weg ist.
Wie krige ich nun hin das die sofort hintereinander fliegen ?

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <Misc.au3>
#include <GUIConstantsEx.au3>
Global $timer = 0
Global $schusse[1], $schuss[2]

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Spiel", 633, 447)
GUISetBkColor(0x000000)
$raumschiff = GUICtrlCreatePic(@ScriptDir & "\img\raumschiff.jpg", 10, 410, 50, 30)
$schuss[1] = GUICtrlCreatePic(@ScriptDir & "\img\schuss.JPG", 33, 393, 5, 15)
GUICtrlSetState (-1,$GUI_HIDE)
$gegner = GUICtrlCreatePic("", 40, 64, 52, 28)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If _IsPressed(20) Then
While _IsPressed(20)
Sleep(100)
WEnd
For $i = 1 To UBound($schuss) - 1
If GUICtrlGetState($schuss[$i]) <> 80 Then
GUICtrlSetState($schuss[$i], $GUI_SHOW)
$timer = TimerInit()
Else
$schuss[$i] = GUICtrlCreatePic(@ScriptDir & "\img\schuss.JPG", 33, 393, 5, 15)
_ArrayAdd($schuss, "")
_ArrayAdd($schusse, "")
EndIf
Next
EndIf
For $i = 1 To UBound($schusse) - 1
If GUICtrlGetState($schuss[$i]) = 80 Then
If TimerDiff($timer) >= 100 Then
$schuss_pos = ControlGetPos($Form1, "", $schuss[$i])
GUICtrlSetPos($schuss[$i], $schuss_pos[0], $schuss_pos[1] - 17)
If $schuss_pos[1] <= 0 Then
GUICtrlSetPos($schuss[$i], $schuss_pos[0], 393)
GUICtrlSetState($schuss[$i], $GUI_HIDE)
GUICtrlDelete($schuss[$i])
_ArrayDelete($schuss, "")
_ArrayDelete($schusse, "")
EndIf
$timer = TimerInit()
EndIf
EndIf
Next
ToolTip(UBound($schuss) & @CRLF & UBound($schusse), 0, 0)
WEnd

[/autoit]

Freaky

Hallo,
ich schreibe mir grade ein Tool für ne Wiki um nicht immer ein neuen HTML Code zu schreiben.
Jetzt will ich was in ein Listview eintragen und das zum schluss auslesen, aber alle Items auslesen.
Ich krige das aber nicht hin, habe versucht, immer auf 1 Item klicken lassen und dann auslesen aber habe ich ebenfals nicht hinbekommen

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>

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

Global $item[1], $ts1

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Timespace Tutorial Code ersteller by Freaky for http://www.NosHacks.l2x.eu", 831, 407)
$Group1 = GUICtrlCreateGroup("1. Stadtort", 8, 0, 361, 41)
$Label1 = GUICtrlCreateLabel("Name", 16, 16, 32, 17)
$Label2 = GUICtrlCreateLabel("Bild-Link", 192, 16, 44, 17)
$Input1 = GUICtrlCreateInput("", 64, 16, 121, 21)
$Input2 = GUICtrlCreateInput("", 240, 16, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("2. Bedingungen", 8, 48, 361, 65)
$Input3 = GUICtrlCreateInput("", 16, 88, 345, 21)
$Label3 = GUICtrlCreateLabel("Die Bedingungen bitte mit einem Komma trennen", 16, 64, 233, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("3. Monster", 8, 120, 361, 65)
$Label4 = GUICtrlCreateLabel("Die Monster bitte mit einem Komma trennen und Level angabe", 16, 136, 297, 17)
$Input4 = GUICtrlCreateInput("", 16, 160, 345, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("4. Anmerkung", 8, 192, 361, 65)
$Input5 = GUICtrlCreateInput("", 16, 232, 345, 21)
$Label8 = GUICtrlCreateLabel("Bitte angeben ob man Tränke etc. braucht ", 16, 208, 208, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("5. Timespace", 376, 0, 449, 257)
$ListView1 = GUICtrlCreateListView("Bild Link|Beschreibung (Raum für Raum)", 384, 16, 434, 78)
$Edit1 = GUICtrlCreateEdit("", 384, 128, 249, 121)
$Label5 = GUICtrlCreateLabel("Bitte Raum für Raum alles", 640, 104, 180, 18)
$Label6 = GUICtrlCreateLabel("beschreiben. Wenn es mehrer Wege", 640, 128, 178, 17)
$Label7 = GUICtrlCreateLabel("gibt, bitte mit aufschreiben.", 640, 152, 130, 17)
$Button1 = GUICtrlCreateButton("Hinzufügen", 640, 184, 171, 25)
$Button2 = GUICtrlCreateButton("Entfernen", 640, 224, 171, 25)
$Label12 = GUICtrlCreateLabel("Bild-Link", 384, 104, 44, 17)
$Input9 = GUICtrlCreateInput("", 432, 104, 201, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("6. Unenschieden", 8, 264, 361, 65)
$Label9 = GUICtrlCreateLabel("Die Belohnungen bitte mit einem Komma trennen", 16, 280, 233, 17)
$Input6 = GUICtrlCreateInput("", 16, 304, 345, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group7 = GUICtrlCreateGroup("7. Spezial", 376, 264, 449, 65)
$Label10 = GUICtrlCreateLabel("Die Belohnungen bitte mit einem Komma trennen", 384, 280, 233, 17)
$Input7 = GUICtrlCreateInput("", 384, 304, 433, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group8 = GUICtrlCreateGroup("8. Bonus", 8, 336, 361, 65)
$Label11 = GUICtrlCreateLabel("Die Belohnungen bitte mit einem Komma trennen", 16, 352, 233, 17)
$Input8 = GUICtrlCreateInput("", 16, 376, 345, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button3 = GUICtrlCreateButton("Code erstellen", 376, 344, 219, 25)
$Button4 = GUICtrlCreateButton("Forum", 600, 344, 227, 25)
$Button5 = GUICtrlCreateButton("CMS", 600, 376, 227, 25)
$Button6 = GUICtrlCreateButton("Exit :P", 376, 376, 219, 25)

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

$Form2 = GUICreate("HTML Code wiedergabe", 380, 396, 434, 187)
$Edit2 = GUICtrlCreateEdit("", 0, 0, 377, 369)
$Button7 = GUICtrlCreateButton("Kopieren", 0, 368, 187, 25)
$Button8 = GUICtrlCreateButton("Zurück zur Form", 192, 368, 187, 25)

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

GUISetState(@SW_SHOW, $Form1)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_ArrayAdd ($item,"")
$beschreibung = StringSplit (GUICtrlRead ($Edit1),@CRLF)
Local $text = ""
For $i = 1 To UBound ($beschreibung)-1
$text &= $beschreibung[$i] & "@"
Next
$item[UBound($item)-1] = GUICtrlCreateListViewItem (GUICtrlRead ($Input9) & "|" & $text,$ListView1)
Case $Button2
_GUICtrlListView_DeleteItemsSelected ($ListView1)
_ArrayDelete ($item,"")
Case $Button3
_eintragen()
Case $Button4
ShellExecute ("http://www.noshacks.l2x.eu")
Case $Button5
ShellExecute ("http://www.noshacks.l2x.eu/cms")
Case $Button6
Exit
Case $Button7
ClipPut (GUICtrlRead ($Edit2))
Case $Button8
GUISetState (@SW_HIDE,$Form2)
GUISetState (@SW_SHOW,$Form1)
EndSwitch
WEnd

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

Func _eintragen()
$bedingung = GUICtrlRead($Input3)
If StringInStr($bedingung, ",") <> 0 Then
$bedingung = StringSplit($bedingung, ",")
Local $text = ""
For $i = 1 To UBound($bedingung) - 1
$text &= '<li>' & $bedingung[$i] & '</li>' & @CRLF
Next
$bedingung = $text
ElseIf $bedingung = "" Then
$bedingung = "Es gibt keine Bedingungen"
EndIf

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

$code = 'Standtort:' & @CRLF & _
'' & GUICtrlRead($Input1) & '' & @CRLF & _
'<img src="' & GUICtrlRead($Input2) & '" border="0" />' & @CRLF & _
'Bedingungen:' & @CRLF & _
'<ul>' & @CRLF & _
_trennen($Input3) & @CRLF & _
'</ul>' & @CRLF & _
'Monster:' & @CRLF & _
'<ul>' & @CRLF & _
_trennen($Input4) & @CRLF & _
'</ul>' & @CRLF & _
'Anmerkung:' & @CRLF & _
'<ul>' & @CRLF & _
_trennen($Input5) & @CRLF & _
'</ul>' & @CRLF & _
'Timespace' & @CRLF & _
_guid() & @CRLF & _
'Unenschieden:' & @CRLF & _
'<ul>' & @CRLF & _
_trennen($Input6) & @CRLF & _
'</ul>' & @CRLF & _
'Spezial:' & @CRLF & _
'<ul>' & @CRLF & _
_trennen($Input7) & @CRLF & _
'</ul>' & @CRLF & _
'Bonus:' & @CRLF & _
'<ul>' & @CRLF & _
_trennen($Input8) & @CRLF & _
'</ul>'
GUICtrlSetData ($Edit2,$code)
GUISetState (@SW_HIDE,$Form1)
GUISetState (@SW_SHOW,$Form2)
EndFunc ;==>_eintragen

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

Func _trennen($input)
$lalelu = GUICtrlRead($input)
If StringInStr($lalelu, ",") <> 0 Then
$bedingung = StringSplit($lalelu, ",")
Local $text = ""
For $i = 1 To UBound($lalelu) - 1
$text &= '<li>' & $lalelu[$i] & '</li>' & @CRLF
Next
$lalelu = $text
ElseIf $lalelu = "" Then
$lalelu = "Keine Angaben"
Else
$lalelu = '<li>' & $lalelu & '</li>'
EndIf
Return $lalelu
EndFunc ;==>_trennen

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

Func _guid()
$timespace=""
For $i = 1 To UBound($item) - 1
_GUICtrlListView_ClickItem($item[$i],$ListView1)
$string = StringSplit(GUICtrlRead(GUICtrlRead($ListView1)), "|")
$img = $string[1]
$beschreibung = StringSplit(GUICtrlRead(GUICtrlRead($item[$i])), "@")
_ArrayDisplay ($beschreibung)
Local $text =""
For $j = 1 To UBound ($beschreibung)-1
$text &= '' & $beschreibung[$j] & '' & @CRLF
Next
$ts1 = '<table border="0">' & @CRLF & _
'<tbody>' & @CRLF & _
'<tr>' & @CRLF & _
'<td>' & @CRLF & _
'<img src="' & $img & '" border="2" />' & @CRLF & _
'</td>' & @CRLF & _
'<td></td>' & @CRLF & _
'<td>' & @CRLF & _
$text & _
'</td>' & @CRLF & _
'</tr>' & @CRLF & _
'</tbody>' & @CRLF & _
'</table>'& @CRLF
$timespace &= $ts1
$ts1=""
Next
Return $timespace
EndFunc ;==>_guid

[/autoit]

Freaky

Aber das dauert bei mir ne halbe ehwigkeit
Meine Methode ging recht schnell und hat fast genauso funktioniert.

Freaky

Hallo,
ich habe mir ein Script gemacht, was von Ibash ein Zitat nimmt und mir es anzeigt.
Ok geht supper, nur jetzt ist immer hintendran so ein 4 Eck []
Dieses 4 Eck ist sowas wie ein Zeilenbruch.
Und wenn ich es jetzt rauskopiere ist 1 Zeilenbruch pro Zeile zu viel.

Script

[autoit]

#include <String.au3>
#include <GUIConstantsEx.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 784, 250)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 783, 225)
GUICtrlSetData($Edit1, _neuer_text())
$Button1 = GUICtrlCreateButton("Neuen Text", 0, 224, 783, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetData($Edit1, _neuer_text())
EndSwitch
WEnd

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

Func _neuer_text()
$inet = BinaryToString(InetRead("http://www.ibash.de/random.html"))
$string1 = _StringBetween($inet, "</a></td></tr><tr><td class=quote><code>", "</code></td></tr></table> ")
$string2 = _StringBetween($string1[Random(0, UBound($string1) - 1, 1)], '', '')
Local $text = ""
For $i = 0 To UBound($string2) - 1
$text &= $string2[$i]
Next
$zeichen = IniReadSection ("zeichen.ini","zeichen")
For $i = 1 To UBound ($zeichen)-1
If StringInStr ($text,$zeichen[$i][0]) Then
$text =StringReplace ($text,$zeichen[$i][0],$zeichen[$i][1])
EndIf
Next
Return $text
EndFunc ;==>_neuer_text

[/autoit]

zeichen.ini

Code

[zeichen]
&auml;=ä
&ouml;=ö
&uuml;=ü
&Auml;=Ä
&Ouml;=Ö
&Uuml;=Ü
&szlig;=ß
&lt;=<
&gt;=>

Freaky

Aber das ist doch viel leichter und man braucht keine unnötige UDF

[autoit]

MsgBox (0,"",GUICtrlRead (GUICtrlRead ($listview)))

[/autoit]

Freaky

Soll ja auch für Win XP oder drunter sein

Freaky

Hallo,
ich möchte auf meinem Stick das so haben das wenn man ihn reinsteckt das sich eine Datei startet, oder wenn man durch Arbeitsplatzt druafgehen will.
Danach habe ich gegoogelt und das rausbekommen:

autorun.inf

[autorun]
shellexecute=meine exe.exe

So das habe ich ausprobiert, aber es geht nicht, ich komme ganz normal auf mein Sitck.
Was mache ich falsch ?

Freaky

Ne klapt supper, ich hatte vorhin noch Win7 und da ging das nicht
Jetzt habe ich wieder XP und da geht es und das mit 1 Klick habe ich auch hinbekommen

/Edit:
Wie krige ich es hin das eine MSG beim Draufklicken vom Item und / oder Checkbox kommt ?

Beiträge von Freaky

Zeit umrechner

Zeit umrechner

Bild bewegen

Bild bewegen

Bild bewegen

Bild bewegen

Bild bewegen

Bild bewegen

Bild bewegen

Bild bewegen

Bild bewegen

Bild bewegen

Bild bewegen

Alles ListviewItems auslesen

Sonderzeichen Zeilenbruch rausfiltern

Sonderzeichen Zeilenbruch rausfiltern

ListView, Ausgewähltes Element ausgeben

Autorun von USB Stick

Autorun von USB Stick

Checkbox im ListviewItem