Beiträge von $var

$var

Zitat von Ealendil

Zudem kanst du die
[autoit]

GUICtrlSetData ($h_List2, "")
GUICtrlSetData ($h_List3, "")
[/autoit]

weglassen, da du die Daten mit dem jeweils nächsten "GUICtrlSetData()" sowieso neu setzt.

Mach das mal. Sag mir danach, ob es wirklich geht...

@TE, du solltest auch wirklich selbst mal etwas machen und eigenständig lernen...
Kann doch echt nicht sein, dass ich, oder andere, das Script von Anfang bis Ende für dich schreiben.

Spoiler anzeigen

[autoit]

Global $a_Inhalt[9][3] = [ _
[1, "Inhalt #1", "List3 #1"], _
[2, "Inhalt #2", "List3 #2"], _
[3, "Inhalt #3", "List3 #3"], _
[4, "Inhalt #4", "List3 #4"], _
[5, "Inhalt #5", "List3 #5"], _
[6, "Inhalt #6", "List3 #6"], _
[7, "Inhalt #7", "List3 #7"], _
[8, "Inhalt #8", "List3 #8"], _
[9, "Inhalt #9", "List3 #9"]]

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

$h_Gui = GUICreate ("", 650, 250)
$h_List1 = GUICtrlCreateList ("", 10, 10, 160, 160)
$h_List2 = GUICtrlCreateList ("", 180, 10, 160, 160)
$h_List3 = GUICtrlCreateList ("", 350, 10, 160, 160)

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

For $i = 0 To UBound ($a_Inhalt) - 1
GUICtrlSetData ($h_List1, $a_Inhalt[$i][0])
Next

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

GUISetState (@SW_SHOW, $h_Gui)

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

While True
Switch GUIGetMsg ()
Case -3
Exit
Case $h_List1
$s_Read = GUICtrlRead ($h_List1)
For $i = 0 To UBound ($a_Inhalt) - 1
If $s_Read = $a_Inhalt[$i][0] Then
GUICtrlSetData ($h_List2, "")
GUICtrlSetData ($h_List2, $a_Inhalt[$i][1])
GUICtrlSetData ($h_List3, "")
GUICtrlSetData ($h_List3, $a_Inhalt[$i][2])
ExitLoop
EndIf
Next
EndSwitch
WEnd

[/autoit]

$var

Versuch es mal damit zu prüfen:

[autoit]

#include <Misc.au3>

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

While True
For $i = 0 To 255
If _IsPressed (Hex ($i, 2)) Then
If Hex ($i, 2) = "1B" Then ; ESC
Exit
Else
MsgBox (0, "", Hex ($i, 2))
EndIf
EndIf
Next
WEnd

[/autoit]

Starte das Prog und drück die Taste. Wenn eine MsgBox kommt, kannst du es setten.
Bei mir persönlich klappt es am Notebook.

$var

Also ich habe es mir jetzt nicht sehr genau angesehen und könnte das Problem falsch verstanden haben,
aber mit InetRead solltest du schneller vorankommen, als mit den _IE-Funktionen.

$var

Ich bin auf dem Bereich leider auch kein Skiller, doch folgende Servervariante funktioniert bei mir:

Spoiler anzeigen

[autoit]

Global Const $n_SERVERIP = @IPAddress1, $i_PORT = 29292
Global $h_MainSocket, $s_Recv, $ah_ConnectedSocket[2], $i_Socket = 1

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

TCPStartup ()
OnAutoItExitRegister ("_OnExit")

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

$h_MainSocket = TCPListen ($n_SERVERIP, $i_PORT)
If $h_MainSocket = -1 Then Exit
$ah_ConnectedSocket[0] = -1

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

Do
$ah_ConnectedSocket[0] = TCPAccept ($h_MainSocket)
Until $ah_ConnectedSocket[0] <> -1

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

While True
For $i = 0 To $i_Socket - 1
$s_Recv = TCPRecv ($ah_ConnectedSocket[$i], 256^2)
If $s_Recv <> "" Then
; =====
EndIf
Next

$ah_ConnectedSocket[$i_Socket] = TCPAccept ($h_MainSocket)
If $ah_ConnectedSocket[$i_Socket] <> -1 Then
$i_Socket += 1
ReDim $ah_ConnectedSocket[$i_Socket]
EndIf
WEnd

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

Func _OnExit ()
TCPCloseSocket ($h_MainSocket)
For $i = 0 To $i_Socket
TCPCloseSocket ($ah_ConnectedSocket[$i])
Next
TCPShutdown ()
EndFunc ;==> _OnExit

[/autoit]

Der Client wird dabei ganz gewöhnlich aufgebaut...

$var

Existiert die Datei "C:\Dokumente und Einstellungen\Max.BIE\Desktop\MinecraftClients\MojangClient.jar" denn überhaupt?
Versuch das mal notfalls durch ShellExecute/Run zu prüfen.

Versuch vielleicht bei FileInstall eine 1 als drittes Parameter zu benutzen.
Ich erkenne wirklich keinen Fehler... Wie sieht denn der Rückgabewert von FileInstall aus?

Ansonsten löschst du minecraft.jar und willst MojangClient.jar erstellen... Sollte die neu erstellte Datei denn nicht auch minecraft.jar heißen?
Ah und das Sleep ist unnötig.

$var

MozRepl installiert?

$var

Oh, verlesen...

Als optische Option hättest du dann noch PixelSearch/_ImageSearch.
Ob und wie ein TCP-Login funktioniert, weiß ich leider nicht...

$var

[autoit]

ControlSend
ControlClick

[/autoit]

$var

Dort gehört die aber nicht hin...
Mach die DLL in SysWOW64 rein. Dann klappt das alles auch.

$var

Das ist aber ein ganz anderer Fehler...
Führe das Script mal in Scite mit F5 aus, oder aus dem Ordner mit einem Rechtsklick -> Run Script (x86).

$var

Spoiler anzeigen

[autoit]

Global $x[17], $y[17]
Global $sPath = @DesktopDir &"\"

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

$result0 = _ImageSearch($sPath & "test.png", 1, $x[0], $y[0], 130)
MsgBox (0, "", $result0)

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

Func _ImageSearch($findImage,$resultPosition,ByRef $x, ByRef $y,$tolerance)
return _ImageSearchArea($findImage,$resultPosition,0,0,@DesktopWidth,@DesktopHeight,$x,$y,$tolerance)
EndFunc

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

Func _ImageSearchArea($findImage,$resultPosition,$x1,$y1,$right,$bottom,ByRef $x, ByRef $y, $tolerance)
;MsgBox(0,"asd","" & $x1 & " " & $y1 & " " & $right & " " & $bottom)
if $tolerance>0 then $findImage = "*" & $tolerance & " " & $findImage
$result = DllCall("ImageSearchDLL.dll","str","ImageSearch","int",$x1,"int",$y1,"int",$right,"int",$bottom,"str",$findImage)

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

; If error exit
if $result[0]="0" then return 0

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

; Otherwise get the x,y location of the match and the size of the image to
; compute the centre of search
$array = StringSplit($result[0],"|")

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

$x=Int(Number($array[2]))
$y=Int(Number($array[3]))
if $resultPosition=1 then
$x=$x + Int(Number($array[4])/2)
$y=$y + Int(Number($array[5])/2)
endif
return 1
EndFunc

[/autoit]

Der Code da oben funktioniert bei mir wunderbar. Dein Fehler muss irgendwo anders begraben sein.

$var

Wenn die Datei lokal ist, dann benutz doch FileRead. oO"

$var

[autoit]

#include <INet.au3>
#include <Array.au3>

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

Global $a_Text = StringSplit (_INetGetSource ("http://www.deine-url.de/"), @LF, 1)
_ArrayDisplay ($a_Text)

[/autoit]

$var

Damit das per Tastendruck funktioniert, müssen noch so einige andere Tastendrücke erflogen...
Es würde sich aber ganz gut mit TCP machen lassen. Die komplette Übertragung sollte dann in wenigen Sekunden erfolgen.

$var

[autoit]

#include <String.au3>
#include <INet.au3>
#include <Array.au3>

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

Global Const $a_Pattern[3][2] = _
[['<h3 class="ver">', '</h3>'], _
['<h3 class="date">', '</h3>'], _
['<div class="sec">', '</div>']]

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

Global $s_Source = _INetGetSource ("http://url.de/")
_ArrayDisplay (_foo ($s_Source, $a_Pattern))

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

Func _foo ($s_String, $a_Pattern)
Local $a_Return[1], $a_Between

For $i = 0 To UBound ($a_Pattern) - 1
$a_Between = _StringBetween ($s_String, $a_Pattern[$i][0], $a_Pattern[$i][1])
If IsArray ($a_Between) Then
$a_Return[$i] = $a_Between[0]
ReDim $a_Return[$i + 1]
EndIf
Next
Return $a_Return
EndFunc

[/autoit]

Mit ReDim kannst du die Größe eines Arrays ändern.

$var

Du solltest dir mal das Array-Tutorial von BugFix anschauen (ist in seiner Signatur verlinkt).

Schau dann mal hier rein:

[autoit]

#include <Array.au3>

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

Global $a_Ini = IniReadSection (@ScriptDir & "\Toolbar.ini", "Button1")
_ArrayDisplay ($a_Ini)

[/autoit]

Das sollte dir helfen zu verstehen, wie IniReadSection funktioniert...

Um den Wert von "Tätigkeit" zu bekommen, müsstest du auf [4][1] zugreifen.

[autoit]

MsgBox (0, "", $a_Ini[4][1])

[/autoit]

$var

Schau dir mal die Funktion _GUICtrlRichEdit_Create aus der GuiRichEdit.au3 an.

$var

Spoiler anzeigen

[autoit]

#include <GuiConstants.au3>
#include <GdiPlus.au3>;das include
#include <Misc.au3>

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

OnAutoItExitRegister("_end") ; die Funktion _end am Ende des Scriptes ausführen

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

$x = 0;x und y deklarieren
$y = 0

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

$Gui = GUICreate("Beispiel", 600, 400, 100, 100)
GUISetState(@SW_SHOW)

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

_GDIPlus_Startup() ;Gdi starten

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

$figur = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\char\figur.gif")
$bk = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\stuff\bg.jpg")
$particle_red = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\particles\red.gif")
$height = _GDIPlus_ImageGetHeight($figur)
$width = _GDIPlus_ImageGetWidth($figur)
$verhaelnis = $height / $width
$graphic = _GDIPlus_GraphicsCreateFromHWND($Gui)
$bitmap = _GDIPlus_BitmapCreateFromGraphics(600, 400, $graphic)
$buffer = _GDIPlus_ImageGetGraphicsContext($bitmap)

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

GUIRegisterMsg (0x000F, "WM_PAINT") ; <===========================================

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

While 1
_GDIPlus_GraphicsClear ($buffer) ; <==========================================
_GDIPlus_GraphicsDrawImageRect($buffer, $bk, 0, 0, 600, 400)
_GDIPlus_GraphicsDrawImageRect($buffer, $figur, $x, $y, 40, 40 * $verhaelnis)
_GDIPlus_GraphicsDrawImage($graphic, $bitmap, 0, 0)
Sleep(30)
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Select
Case _IsPressed(25) And Not $x <= 0; ------------- geändert -------------
$x -= 5
Case _IsPressed(26) And Not $y <= 0; ------------- geändert -------------
$y -= 5
Case _IsPressed(27) And $x <= 555; ------------- geändert -------------
$x += 5
Case _IsPressed(28) And $y <= 355 ; ------------- geändert -------------
$y += 5
Case _IsPressed(20)
For $i=$x To $x + 50
_GDIPlus_GraphicsDrawImageRect($buffer, $particle_red, $i, 50, 15, 15)
_WinAPI_RedrawWindow ($Gui, 0, 0, $RDW_INTERNALPAINT) ; <==============
Next
EndSelect
WEnd

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

Func WM_PAINT ()
_GDIPlus_GraphicsDrawImageRect ($graphic, $bitmap, 0, 0, 600, 400)
EndFunc ;==> WM_PAINT

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

Func _end();die Exit funktion
_GDIPlus_GraphicsDispose($graphic);Grafik Objekt freigeben
_GDIPlus_GraphicsDispose($buffer)
_GDIPlus_BitmapDispose($bitmap)
_GDIPlus_ImageDispose($figur);Bild Objekt 1 freigeben
_GDIPlus_ImageDispose($bk);Bild Objekt 2 freigeben
_GDIPlus_ImageDispose($particle_red)
_GDIPlus_Shutdown();Ressourcen freigeben
EndFunc ;==>_end

[/autoit]

$var

Hier, versuch das mal:

[autoit]

Func _RemoveEmptyLines ($s_String)
Local $s_Return, $a_Split, $b_Empty

$b_Empty = False
$a_Split = StringSplit ($s_String, @CRLF, 1)

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

For $i = 1 To $a_Split[0]
If $a_Split[$i] = "" And $b_Empty = False Then
$b_Empty = True
ElseIf $a_Split[$i] = "" And $b_Empty = True Then
$b_Empty = False
$s_Return &= $a_Split[$i] &@CRLF
Else
$s_Return &= $a_Split[$i] &@CRLF
EndIf
Next

Return $s_Return
EndFunc

[/autoit]

$var

Die simpelste Lösung würde folgendermaßen aussehen:

[autoit]

Func dividieren ()
If Not WinActive ($h_GUI) Then Return 0 ; $h_GUI entspricht dem Handle deiner GUI...
; Rest deiner Funktion
EndFunc

[/autoit]

Beiträge von $var

Wie kriege ich ein anderen Inhalt in List3

Hotkeys auf Tasten im Gehäuse?

Das Skript muss ein Textfile checken ob es duplicate links gibt

TCP mit Server und Clients

*.jar dateien kopieren und umbenennen.

_FFStart funktioniert nicht (Error 0, FF3.5)

ICQ Login

ICQ Login

ImageSearch [x- und y-Koordinaten in ein Array] --> ERROR

ImageSearch [x- und y-Koordinaten in ein Array] --> ERROR

ImageSearch [x- und y-Koordinaten in ein Array] --> ERROR

reinen IE Textseite lesen

reinen IE Textseite lesen

Ist mein Projekt umsetzbar?

Frage zu Array

ini read schleife wie?

Schriftfarbe in Editfeld

GDI+ Image mit For rumschießen

Eine leere Zeile löschen?

Hinteres Zeichen aus Label entfernen