Beiträge von funkey

**funkey**

Du brauchst ControlCommand!
Hab das Skript so umgeschrieben, dass es falls das Programm bereits installiert ist, einfach noch einmal drüberinstalliert.
Die Sleep-Befehle sind nur zu Demonstrationszwecken und kannst du entfernen wenn du willst

Spoiler anzeigen

[autoit]

Run('negxviewer_setup.exe')
WinWait('Language Selection')
ControlClick('Language Selection', '', 'TButton1')
If WinWait('Achtung', 'Es ist bereits eine Version von NeGXViewer auf diesem PC installiert', 2) Then ControlClick('Achtung', 'Es ist bereits eine Version von NeGXViewer auf diesem PC installiert', 'Button1')
WinWait('Willkommen', 'Willkommen beim NeGXViewer Setup Programm')
ControlClick('Willkommen', 'Willkommen beim NeGXViewer Setup Programm', 'TButton3')
WinWait('Lizenzvereinbarung', 'Lizenzvereinbarung / License Agreement')
ControlClick('Lizenzvereinbarung', 'Lizenzvereinbarung / License Agreement', 'TRadioButton2')
ControlClick('Lizenzvereinbarung', 'Lizenzvereinbarung / License Agreement', 'TButton3')
WinWait('Lies mich', 'NeGXViewer - Next Generation Image Viewer')
ControlClick('Lies mich', 'NeGXViewer - Next Generation Image Viewer', 'TButton3')
WinWait('Wählen Sie das Zielverzeichnis', 'Setup installiert NeGXViewer in das folgende Verzeichnis.')
ControlClick('Wählen Sie das Zielverzeichnis', 'Setup installiert NeGXViewer in das folgende Verzeichnis.', 'TButton3')
WinWait('Programmsymbol', 'Verknüpfung auf dem Desktop erstellen.')
ControlClick('Programmsymbol', 'Verknüpfung zur Schnellstartleiste hinzufügen.', 'TCheckBox1')
Sleep(500)
ControlCommand('Programmsymbol', 'Sie können noch weitere Programmsymbole hinzufügen.', 'TComboBox1', 'SelectString', 'Verknüpfungen verfügbar für - alle Benutzer')
Sleep(500)
ControlClick('Programmsymbol', 'Verknüpfung auf dem Desktop erstellen.', 'TButton3')
WinWait('Bestätigung der Einstellungen des Setup.', 'Setup hat genug Informationen um den Kopiervorgang zu beginnen.')
ControlClick('Bestätigung der Einstellungen des Setup.', 'Setup hat genug Informationen um den Kopiervorgang zu beginnen.', 'TButton3')
WinWait('Setup ist vollständig.', 'Drücken Sie Beenden um das Setup zu beenden.')
ControlClick('Setup ist vollständig.', 'Drücken Sie Beenden um das Setup zu beenden.', 'TButton3')
WinWait('First Start', 'Deutsch', 3)
ControlClick('First Start', 'Deutsch', 'TCHRadioButton1')
ControlClick('First Start', 'Deutsch', 'TAdvGlowButton1')

[/autoit]

**funkey**

Schau mal da: [ offen ] Fragen zu $CMDLINE[0]
Problem ist nur: Entweder CUI oder GUI!

**funkey**

Ausgabe als Array

[autoit]

#include <Array.au3>
#include <File.au3>
Local $aNetstat, $Filename = 'netstat.log'

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

Run(@ComSpec & " /c " & 'netstat -n | find "4000" > '&$Filename, "", @SW_HIDE)
;~ RunWait(@ComSpec & " /c " & 'netstat -n > '&$Filename, "", @SW_HIDE)
_FileReadToArray($Filename, $aNetstat)
_ArrayDisplay($aNetstat)
FileDelete($Filename)

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

**funkey**

Zitat von NSBM

komme aus der schönsten und besten Gegend Deutschlands, wenn nicht sogar der Welt

Herzlich willkommen hier.

Das mit der schönsten Gegend Deutschlands kann ich nicht beurteilen, aber die schönste Gegend der Welt ist das Zillertal.

**funkey**

Herzlich willkommen hier war10ck. Es wird dir bestimmt bei uns gefallen.
Ich bin damals durch eine Unattendend Installations-CD auf Autoit gekommen. Mich wunderte einfach wie das funtioniert.

**funkey**

Ich hoffe, das ist die richtige:
http://www.ponx.org/download/CD/Di…ds/Auto3Lib.exe

**funkey**

Ich finde das schade, dass es bei manchen nicht richtig funktioniert. Padmak, gehe in recht in der Annahme, dass du auch Vista verwendest? Auf allen XP-Rechnern auf denen ich es getestet habe (5) lief es einwandfrei. Das was den hauptsächlichen Unterschied zwischen Version 1.0 und den neueren Versionen ausmacht sind die Schleifen (For $i = 0 To 5). Vorher hatte ich fast alles ausprogrammiert. Aber warum sollte das in Vista einen Unterschied machen??
Padmak, ich kann dir vllt morgen einmal die neueste Version ohne Schleifen machen und dann zukommen lassen. Vllt liegt es ja wirklich daran.

Gibt es schon Testergebnisse von XP-Usern mit der neuen Funktion?

**funkey**

Hab mir mal die Zeit genommen, ein Installationsskript für NeGXViewer zu schreiben

Spoiler anzeigen

[autoit]

Run('negxviewer_setup.exe')
WinWait('Language Selection')
ControlClick('Language Selection', '', 'TButton1')
WinWait('Willkommen', 'Willkommen beim NeGXViewer Setup Programm')
ControlClick('Willkommen', 'Willkommen beim NeGXViewer Setup Programm', 'TButton3')
WinWait('Lizenzvereinbarung', 'Lizenzvereinbarung / License Agreement')
ControlClick('Lizenzvereinbarung', 'Lizenzvereinbarung / License Agreement', 'TRadioButton2')
ControlClick('Lizenzvereinbarung', 'Lizenzvereinbarung / License Agreement', 'TButton3')
WinWait('Lies mich', 'NeGXViewer - Next Generation Image Viewer')
ControlClick('Lies mich', 'NeGXViewer - Next Generation Image Viewer', 'TButton3')
WinWait('Wählen Sie das Zielverzeichnis', 'Setup installiert NeGXViewer in das folgende Verzeichnis.')
ControlClick('Wählen Sie das Zielverzeichnis', 'Setup installiert NeGXViewer in das folgende Verzeichnis.', 'TButton3')
WinWait('Programmsymbol', 'Verknüpfung auf dem Desktop erstellen.')
ControlClick('Programmsymbol', 'Verknüpfung auf dem Desktop erstellen.', 'TButton3')
WinWait('Bestätigung der Einstellungen des Setup.', 'Setup hat genug Informationen um den Kopiervorgang zu beginnen.')
ControlClick('Bestätigung der Einstellungen des Setup.', 'Setup hat genug Informationen um den Kopiervorgang zu beginnen.', 'TButton3')
WinWait('Setup ist vollständig.', 'Drücken Sie Beenden um das Setup zu beenden.')
ControlClick('Setup ist vollständig.', 'Drücken Sie Beenden um das Setup zu beenden.', 'TButton3')
WinWait('First Start', 'Deutsch')
ControlClick('First Start', 'Deutsch', 'TCHRadioButton1')
ControlClick('First Start', 'Deutsch', 'TAdvGlowButton1')

[/autoit]

**funkey**

Ich habe kA woran es liegt, dass es bei manchen Vista-Usern nicht richtig funktioniert

Hier kommt sozusagen der erste Intelligenz-Patch für die PC-Gegner. Einfach die Funktion _AutoScan in der Version 1.3 mit dieser Funktion austauschen.
Ich freue mich über Feedback.

Version 1.4 wird noch auf sich warten lassen. Ich muss mir noch überlegen, wie ich das mit dem Highscore anstelle. Die Screenshot-Funktion wird auf alle Fälle mit dabei sein und vllt eine noch bessere Version der _AutoScan-Funktion (hoffe ich)!

Kurven-Spiel: neue Funktion _AutoScan

[autoit]

Func _AutoScan($aPos_x, $aPos_y, $Angle, $Len = $Speed)
Local $ScanFaktor = 40
Local $ScanStreuung = 3
Local $ScanIntensity = 3
Local $Chance
Local $arrayPos[2]
Local $Pixel_Match_l = 0, $Pixel_Match_r = 0, $Pixel_Match_m = 0
For $i = 1 To $ScanFaktor
$arrayPos[0] = $Len / $ScanIntensity * $i * Cos($Angle + $Winkelweite * $ScanStreuung) + $aPos_x
$arrayPos[1] = $Len / $ScanIntensity * $i * Sin($Angle + $Winkelweite * $ScanStreuung) + $aPos_y
If PixelGetColor($arrayPos[0], $arrayPos[1]) <> '0x000000' Then $Pixel_Match_l += ($ScanFaktor + 1 - $i)
$arrayPos[0] = $Len / $ScanIntensity * $i * Cos($Angle - $Winkelweite * $ScanStreuung) + $aPos_x
$arrayPos[1] = $Len / $ScanIntensity * $i * Sin($Angle - $Winkelweite * $ScanStreuung) + $aPos_y
If PixelGetColor($arrayPos[0], $arrayPos[1]) <> '0x000000' Then $Pixel_Match_r += ($ScanFaktor + 1 - $i)
$arrayPos[0] = $Len / ($ScanIntensity / 2) * $i * Cos($Angle) + $aPos_x
$arrayPos[1] = $Len / ($ScanIntensity / 2) * $i * Sin($Angle) + $aPos_y
If PixelGetColor($arrayPos[0], $arrayPos[1]) <> '0x000000' Then $Pixel_Match_m += ($ScanFaktor + 1 - $i)
Next
Select
Case $Pixel_Match_m > $Pixel_Match_l And $Pixel_Match_l >= $Pixel_Match_r
Return 1
Case $Pixel_Match_m > $Pixel_Match_r And $Pixel_Match_r >= $Pixel_Match_l
Return 2
Case $Pixel_Match_l > 0 And $Pixel_Match_l > $Pixel_Match_r
Return 1
Case $Pixel_Match_r > 0 And $Pixel_Match_r > $Pixel_Match_l
Return 2
Case $Pixel_Match_l > 0
Return 1
Case $Pixel_Match_r > 0
Return 2
Case Else
$Chance = Random(0, 2, 1)
If $Chance > 0 Then $Chance = Random(0, 2, 1)
Return $Chance
EndSelect
EndFunc ;==>_AutoScan

[/autoit]

Zitat von Dankeschön

Der PC Gegner scheint noch folgende Fehler zu haben:
*Er/Sie versucht des öfteren,am Anfang in die Ecke unten links zu laufen und schenkt einem damit einen Punkt
*Er/Sie ist unrealistisch gut,wenn man versucht ihm am Bildschirmrand den Weg abzuschneiden. Ein paar Fehler wären dabei doch recht schön Also eine 20% Chance,dann gegen die Wand zu fahren,wenn die Wand näher als sagen wir 1 cm ist.

Punkt 1 hat sich um einiges gebessert
zu Punkt 2: Der PC soll auch ein paar Vorteile haben, sonst gewinnt man ja immer

**funkey**

@ Conan10 : Danke!! Solche Kommentare mag ich!
@ MOZ : Habe und hatte nie Probleme mit ruckeln oder ähnlichem.
@ Flonk : Du kannst mir ja helfen, die Funktion '_AutoScan' zu verbessern

Ich werde vllt noch etwas an der Intelligenz der PC-Gegner schrauben können, wenn mir jemand helfen kann oder will --> nur zu

**funkey**

Es gibt eine neue Version!
Da ich immer allein vor dem PC bin, habe ich den Versuch gewagt, Computer-Gegner für mein Kurven-Spiel zu erschaffen.
Beurteilt selbst, was dabei raus gekommen ist.

Einschalten der PC-Gegner funktioniert mit einem zweiten Druck auf die Taste zum Einschalten des Players, ausschalten analog dazu.

Download siehe Post #1

Vllt kommt auch mal eine LAN-Version heraus. Kann ich aber nicht versprechen.
Bei Problemen, Fragen, Vorschlägen oder Bugs --> einfach hierauf antworten
Nochmals Danke für Euer Lob!

**funkey**

Hab da was gefunden und es schnell noch ein bischen verbessert:

Spoiler anzeigen

[autoit]

Func BmpToJpg($filename)
; GDI+ initialisieren.
_GDIPlus_Startup()
; falls mehrere Dateien mit FileOpenDialog ausgewählt wurden ...
If StringInStr($filename, '|') Then
$aFilenames = StringSplit($filename, '|')
For $i = 1 To $aFilenames[0]
; Handle zu Imageobjekt erhalten.
$hImg = _GDIPlus_ImageLoadFromFile($filename)
; Imageobjekt als Bitmapdatei abspeichern.
_GDIPlus_ImageSaveToFile($hImg,StringTrimRight($filename ,3)& "jpg")
; Imageobjekt auflösen.
_GDIPlus_ImageDispose($hImg)
Next
; ... falls nicht.
Else
; Handle zu Imageobjekt erhalten.
$hImg = _GDIPlus_ImageLoadFromFile($filename)
; Imageobjekt als Bitmapdatei abspeichern.
_GDIPlus_ImageSaveToFile($hImg,StringTrimRight($filename ,3)& "jpg")
; Imageobjekt auflösen.
_GDIPlus_ImageDispose($hImg)
EndIf
; GDI+ beenden.
_GDIPlus_Shutdown()
EndFunc

[/autoit]

**funkey**

Aber nur dann! Sonst funktioniert es genau so wie gewollt.
Und wieso sollte man den Firefox, um den es geht OnTop setzen, denn ein anderes Fenster würde den Klick auch abfangen ?

**funkey**

Ich hätte es so gemacht, wie L3viathan2142 es bereits gesagt hat:

Spoiler anzeigen

[autoit]

_MouseBlockRect(500, 500, 700, 600)

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

Sleep(5000)

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

_MouseBlockRect()

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

Sleep(5000)

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

Func _MouseBlockRect($iLeft = 0, $iTop = 0, $iRight = 0, $iBottom = 0)
If @NumParams == 0 Then
GUIDelete(WinGetHandle("MouseBlockRect"))
Else
GUICreate("MouseBlockRect", $iRight - $iLeft, $iBottom - $iTop, $iLeft, $iTop, 0x80000000, 0x00000008)
WinSetTrans("MouseBlockRect", "", 1)
GUISetState()
EndIf
EndFunc ;==>_MouseTrapInvers

[/autoit]

**funkey**

Alle Parameter ausfüllen!

[autoit]

$gui = GUICreate("U.L.S Launcher 2.2 IExplorer", 400, 250, -1,-1, $WS_POPUP)

[/autoit]

**funkey**

Hast du auch den Style auf 0 gesetzt? Hab vergessen zu sagen, dass ich das gemacht habe. Siehe Code oben

**funkey**

Einfach vor den Buttons das Hintergrundbild setzen

[autoit]

$gui = GUICreate("U.L.S Launcher 2.2 IExplorer", 400, 250)
$background = GUICtrlCreatePic("bild.jpg", 0, 0, 400, 250, 0)

[/autoit]

**funkey**

Spoiler anzeigen

[autoit]

Opt('TrayMenuMode', 1)

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

GUICreate("Test")
GUISetState()

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

Do
Sleep(10)
$tmsg = TrayGetMsg()
$gmsg = GUIGetMsg()
If $tmsg = -7 Then GUISetState(@SW_HIDE)
If $tmsg = -9 Then GUISetState(@SW_SHOW)
Until $gmsg = -3

[/autoit]

**funkey**

Ich bin dabei, wenn es die Zeit zulässt

**funkey**

So zum Beispiel

Spoiler anzeigen

[autoit]

#include <File.au3>

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

Test(@ScriptLineNumber)
Sleep(1000)
Test(@ScriptLineNumber)
Sleep(1000)
Test(@ScriptLineNumber)
Sleep(1000)
Test(@ScriptLineNumber)
Sleep(1000)
Test(@ScriptLineNumber)
Sleep(1000)
Test(@ScriptLineNumber)
Sleep(1000)
Test(@ScriptLineNumber)
Sleep(1000)
Test(@ScriptLineNumber)
Sleep(1000)
Test(@ScriptLineNumber)
Sleep(1000)
Test(@ScriptLineNumber)
Sleep(1000)
Test(@ScriptLineNumber)
Sleep(1000)
Test(@ScriptLineNumber)
Sleep(1000)
Test(@ScriptLineNumber)
Sleep(1000)
Test(@ScriptLineNumber)
Sleep(1000)
Test(@ScriptLineNumber)
Sleep(1000)

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

Func Test($Zeile)
Local $Script
_FileReadToArray(@ScriptFullPath, $Script)
TraySetToolTip('Zeile ' &$Zeile+1&@CRLF&$Script[$Zeile+1])
EndFunc

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

Beiträge von funkey

Plötzlich unbekanntes Fenster/neGXViewer unbeaufsichtigt installieren

SMS senden in CMD

send frage

NSBM

war10ck

Auto3lib für AutoIt 3.2.4.9

Multiplayer-Game 'Kurven-Spiel'

Plötzlich unbekanntes Fenster/neGXViewer unbeaufsichtigt installieren

Multiplayer-Game 'Kurven-Spiel'

Multiplayer-Game 'Kurven-Spiel'

Multiplayer-Game 'Kurven-Spiel'

BMP zu JPG?

Mausklick blocken für ein Pixelblock

Mausklick blocken für ein Pixelblock

Bild als Hintergrund des Programmes einrichten...

Bild als Hintergrund des Programmes einrichten...

Bild als Hintergrund des Programmes einrichten...

durch trayicon programm minimieren

µit - Dezember

TrayIconDebug