Beiträge von Joschy41

Meinst du das so?

Func screen()
   DirCreate(@ScriptDir & "\Screenshots\" & $user)
   While 1
   If FileExists(@ScriptDir & "\Screenshots\" & $user & "\" & $user & $nr & ".jpg") Then
      $nr = $nr + 1
   Else
      ExitLoop
          EndIf
    WEnd
      Local $hBmp
        $hBmp = _ScreenCapture_Capture ("")
        $name = _ScreenCapture_SaveImage (@ScriptDir & "\Screenshots\" & $user & "\" & $user & $nr & ".jpg",$hBmp)
        _ScreenCapture_Capture
 EndFunc

Oder auch so?

Func screen()
   DirCreate(@ScriptDir & "\Screenshots\" & $user)
   While 1
   If FileExists(@ScriptDir & "\Screenshots\" & $user & "\" & $user & $nr & ".jpg") Then
      $nr = $nr + 1
   Else
      ExitLoop
          EndIf
    WEnd
      Local $hBmp
        $hBmp = _ScreenCapture_Capture (@ScriptDir & "\Screenshots\" & $user & "\" & $user & $nr & ".jpg",$hBmp)
 EndFunc

Welche Variante ist besser?

Das verstehe ich jetzt nicht ganz so
Ich hatte auch das mit dem Screenshot nur so im Internet gefunden.
Aber es funktioniert so...

So habs...

Func screen()
   DirCreate(@ScriptDir & "\Screenshots\" & $user)
   While 1
   If FileExists(@ScriptDir & "\Screenshots\" & $user & "\" & $user & $nr & ".jpg") Then
  $nr = $nr + 1
   Else
  ExitLoop
  	EndIf
WEnd
  Local $hBmp
$hBmp = _ScreenCapture_Capture ("")
        $name = _ScreenCapture_SaveImage (@ScriptDir & "\Screenshots\" & $user & "\" & $user & $nr & ".jpg",$hBmp)
 EndFunc

Habe das mal in meinem kompletten Script eingebunden, das funktioniert leider nicht ganz so.
Aber ich schaue noch mal, ich weiß was du meinst...

1. While FileExists(@ScriptDir & "\ScreenImage" & $nr & ".jpg")
2. = $nr + 1
3. WEnd

While und Wend... richtig?

Hallo,

ich habe es bereits selbst gelöst.

#include <ScreenCapture.au3>

#include <Misc.au3>

HotKeySet ("{PRINTSCREEN}", "screen")

$nr = 1

Func screen()

If FileExists(@ScriptDir & "\ScreenImage" & $nr & ".jpg") Then $nr = $nr + 1

Local $hBmp

$hBmp = _ScreenCapture_Capture ("")

$name = _ScreenCapture_SaveImage (@ScriptDir & "\ScreenImage" & $nr & ".jpg",$hBmp)

EndFunc

While 1

WEnd

Mit freundlichen Grüßen

Ich möchte mehrere Screenshots machen.

Mit der Taste "Druck" soll ein Screenshot mit dem Name: ScreenImage1 (@ScriptDir & "\ScreenImage" & $i & ".jpg",$hBmp) aufgenommen und als Datei gespeichert werden.

Dann suche ich mir selbst weitere Daten raus die ich per Screenshot abspeichern möchte.
Dann möchte ich wieder nur "Druck" drücken und das Script soll den nächsten Screenshot mit ScreenImage2 abspeichern.

An sich funktioniert das mit dem oben zu sehenden Script bereits, dass er die Nummern fortlaufend hat, allerdings macht er alle 5 Screenshots (For $i = 1 to 5 Step 1 ;Anzahl Screenshots) auf einmal.

Ich möchte es halt einzeln mit jedem Tastendruck machen.

Hallo,

ich möchte ein Programm für die Arbeit schreiben, mit dem ich mehrere Screenshots machen kann indem ich nur "Druck" drücke. Ich habe es soweit, dass wenn ich "Druck" drücke, mehrere Screenshots gespeichert werden mit fortlaufender Nummer, allerdings werden alle auf einmal gemacht.
Hier mal mein Code

#include <GUIConstants.au3>

#include <ScreenCapture.au3>

#include <Misc.au3>

HotKeySet ("{PRINTSCREEN}", "screen")

Func screen()

For $i = 1 to 5 Step 1 ;Anzahl Screenshots

Local $hBmp

$hBmp = _ScreenCapture_Capture ("")

$name = _ScreenCapture_SaveImage (@ScriptDir & "\ScreenImage" & $i & ".jpg",$hBmp)

Next

EndFunc ;==>_Main

While 1

WEnd

Kann mir jemand helfen?
Besten Dank!

Mache ich Noch mal 1000 Dank!
Ich hätte es in 1000 Jahren nicht hin bekommen

Zitat von alpines

Spoiler anzeigen

[autoit]

#include
#include

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

Local $iCurrLvl = 8, $iCounter
$s = _INetGetSource("http://www.nes-reallife.de/information/trucking")
$a = StringRegExp($s, "(.+?) \((.+?)\)", 3)
$b = StringRegExp($s, "Mindestlevel:\n(?:.+?)(\d+)", 3)
$c = StringRegExp($s, "Erfahrung:\n(?:.+?)(\d+)", 3)
$d = StringRegExp($s, "Einkaufspreis:\n(?:.+?)(.+?)", 3)
$e = StringRegExp($s, "Verkaufspreis:\n(?:.+?)(.+?)", 3)
$f = StringRegExp($s, "Laderaum:\n(?:.+)(.+?)", 3)

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

Local $a_[1], $b_[1], $c_[1], $d_[1], $e_[1], $f_[1]

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

For $i = 0 To UBound($a) / 2 - 1
If $b[$i] = $iCurrLvl Then
Redim $a_[UBound($a_) + 1]
Redim $b_[UBound($b_) + 1]
Redim $c_[UBound($c_) + 1]
Redim $d_[UBound($d_) + 1]
Redim $e_[UBound($e_) + 1]
Redim $f_[UBound($f_) + 1]
$a_[$iCounter] = $a[$i*2] & " - " & $a[$i*2+1]
$b_[$iCounter] = $b[$i]
$c_[$iCounter] = $c[$i]
$d_[$iCounter] = $d[$i]
$e_[$iCounter] = $e[$i]
$f_[$iCounter] = $f[$i]

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

$iCounter += 1
EndIf
Next

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

Redim $a_[UBound($a_) - 1]
Redim $b_[UBound($b_) - 1]
Redim $c_[UBound($c_) - 1]
Redim $d_[UBound($d_) - 1]
Redim $e_[UBound($e_) - 1]
Redim $f_[UBound($f_) - 1]

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

_ArrayDisplay($a_, "Mission")
_ArrayDisplay($b_, "Mindestlevel")
_ArrayDisplay($c_, "Erfahrung")
_ArrayDisplay($d_, "Einkaufspreis")
_ArrayDisplay($e_, "Verkaufspreis")
_ArrayDisplay($f_, "Laderaum")

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

For $i = 0 To UBound($a_) - 1
MsgBox(64, "Mission!", $a_[$i] & " - " & $b_[$i] & " - " & $c_[$i] & " - " & $d_[$i] & " - " & $e_[$i] & " - " & $f_[$i])
Next

[/autoit]

Da ist er. So schlecht programmiert wie nie zuvor!

Alles anzeigen

Vielen Dank! Du bist der Beste
1a Programmiert

Zitat von alpines

Das war nicht ganz richtig. Er gibt Level 4 Missionen aus. Muss da war verändern.

// Die Titel sind nicht ganz richtig eingeordnet, daran liegts.

Wo hast du jetzt den richtigen Code?

Zitat von alpines

Auch einfach

[autoit]

#include

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

$iCurrLvl = 8
$s = _INetGetSource("http://www.nes-reallife.de/information/trucking")
$a = StringRegExp($s, "(.+?) \((.+?)\)", 3)
$b = StringRegExp($s, "Mindestlevel:\n(?:.+?)(\d+)", 3)
$c = StringRegExp($s, "Erfahrung:\n(?:.+?)(\d+)", 3)
$d = StringRegExp($s, "Einkaufspreis:\n(?:.+?)(.+?)", 3)
$e = StringRegExp($s, "Verkaufspreis:\n(?:.+?)(.+?)", 3)
$f = StringRegExp($s, "Laderaum:\n(?:.+)(.+?)", 3)

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

For $i = 0 To UBound($a) / 2 - 1
If $b[$i] = $iCurrLvl Then ConsoleWrite($a[$i] & " (" & $a[$i+1] & ") - " & $b[$i] & " - " & $c[$i] & " - " & $d[$i] & " - " & $e[$i] & " - " & $f[$i] & @CRLF)
Next

[/autoit]

Alles anzeigen

Habe das Gefühl, dass ich nichts auf die Reihe bekomme
Wie kann ich das z.b. in einer MsgBox ausgeben lassen?

Dann nur Level 8

Dass man dann quasi Alle Daten hintereinander von level 8 sieht.

Zitat von alpines

Sicherlich die schlechtesten Patterns aller Zeiten aber es erfüllt seinen Zweck:

Spoiler anzeigen

[autoit]

#include
#include

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

$s = _INetGetSource("http://www.nes-reallife.de/information/trucking")
$a = StringRegExp($s, "(.+?) \((.+?)\)", 3)
$b = StringRegExp($s, "Mindestlevel:\n(?:.+?)(\d+)", 3)
$c = StringRegExp($s, "Erfahrung:\n(?:.+?)(\d+)", 3)
$d = StringRegExp($s, "Einkaufspreis:\n(?:.+?)(.+?)", 3)
$e = StringRegExp($s, "Verkaufspreis:\n(?:.+?)(.+?)", 3)
$f = StringRegExp($s, "Laderaum:\n(?:.+)(.+?)", 3)

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

_ArrayDisplay($a, "Mission") ;[0]Titel [1]kleiner Titel [2]Titel [3]kleiner Titel...
_ArrayDisplay($b, "Mindestlevel")
_ArrayDisplay($c, "Erfahrung")
_ArrayDisplay($d, "Einkaufspreis")
_ArrayDisplay($e, "Verkaufspreis")
_ArrayDisplay($f, "Laderaum")

[/autoit]

Und um das ganze per Text auszugeben verwendet man einfach das und schaut was bei SciTE unten ausgespuckt wird:

Spoiler anzeigen

[autoit]

#include

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

$s = _INetGetSource("http://www.nes-reallife.de/information/trucking")
$a = StringRegExp($s, "(.+?) \((.+?)\)", 3)
$b = StringRegExp($s, "Mindestlevel:\n(?:.+?)(\d+)", 3)
$c = StringRegExp($s, "Erfahrung:\n(?:.+?)(\d+)", 3)
$d = StringRegExp($s, "Einkaufspreis:\n(?:.+?)(.+?)", 3)
$e = StringRegExp($s, "Verkaufspreis:\n(?:.+?)(.+?)", 3)
$f = StringRegExp($s, "Laderaum:\n(?:.+)(.+?)", 3)

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

For $i = 0 To UBound($a) / 2 - 1
ConsoleWrite($a[$i] & " (" & $a[$i+1] & ") - " & $b[$i] & " - " & $c[$i] & " - " & $d[$i] & " - " & $e[$i] & " - " & $f[$i] & @CRLF)
Next

[/autoit]

Alles anzeigen

Ich finds schonmal Geil, dass du das so gut und schnell hinbekommen hast. Schön wäre es, wenn man beim öffnen von _ArrayDisplay sagen kann welches level man ist und dann Alle Level z.b. Level 8 angezeigt bekommt. Also alles auf einen blick dann

Hallo zusammen.
Um es mal genau zu beschreiben:

Ich spiele auf einen Samp Server. Dort gibt es solche Liefermissionen (klick hier). Auf dieser Seite werden allerdings Missionen von Level 1 bis Level 10 angezeigt. Da ich Level 8 bin brauch ich aber nur die und möchte mir die gerne in einer kleinen Übersicht anzeigen lassen. Also muss ich den Quellcode auslesen und "Filtern". Ich habe aber nicht so richtig die Ahnung wie das Funktioniert.

Von mir aus kann es auch in Text ausgegeben werden, z.B. so:

Level 8 - Erfahrung 123 - Verdienst 123$ - Zombotech -> LS Train Station

Wäre schön wenn ihr mir weiter helfen könntet