Beiträge von PenGuin

Du willst also x auf unendlich laufen lassen?

Nimm doch einfach BigInt UDF und nimm 99999999999999999999999999999999999999 und davon halt jede 2.

Zitat von alexanderschill

aber ich will ja nich, dass das programm später so lagt
ich kann wenn ich sowiso ne externe datei schreiben muss auch einfach fileinstall nehmen

Das Programm laggt nicht, nur SciTe, wie gesagt.

Komisch, naja geht ja jetzt

Hatte dasselbe nur statt GUICtrlGetHandle -> ControlGetHandle, aber das ging nicht, wieso?

Hi,

ich hab eine Frage:

Wie kann ich ein Gdi+ Graphics Objekt von einem Control erstellen anstatt vom ganzen Fenster?

Mein Versuch:

[autoit]

#include <GDIPlus.au3>
#include <WinAPI.au3>
Opt('MustDeclareVars', 1)

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

_Main()

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

Func _Main()
Local $hGUI, $hGraphic, $hPen, $hEdit, $hDC

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

$hGUI = GUICreate("GDI+", 400, 200)
$hEdit = GUICtrlCreateEdit("", 30, 30, 340, 70, 0x08000000)
GUISetState()

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

_GDIPlus_Startup()
$hDC = _WinAPI_GetWindowDC($hEdit)
$hGraphic = _GDIPlus_GraphicsCreateFromHDC($hDC)
$hPen = _GDIPlus_PenCreate()
_GDIPlus_GraphicsDrawLine($hGraphic, 50, 120, 360, 120, $hPen)

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

Do
Until GUIGetMsg() = -3

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

_GDIPlus_PenDispose($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_WinAPI_ReleaseDC($hGUI, $hDC)
_GDIPlus_Shutdown()
EndFunc ;==>_Main

[/autoit]

MfG

Startpost editieren

_IsPressed("0D") = Enter.

Zitat von CryThis

soo und ein weiteres mal brauch ich eure hilfe. ich hab bei den mausclicks jetzt nur die linke taste mit eingebunden...nun brauch ich aber auch die rechte(dass mir das jetzt erst einfällt ist ziemlich dumm). da ich mittlerweile die lösung von schnitzel verstanden hab, und diese darauf basiert das vom übergang von not ispressed zu ispressed ein click gezählt wird ist es meiner ansicht nach nicht möglich die rechte dazuzufügen (hab vieles ausprobiert). ist es iwie möglich mit "while .... or while ...." die gemeinsam ein WEnd benutzen,oder geht das überhaupt? ansonsten hab ich halt dasselbe problem wie davor: der rechtsklick wird zu lange.."gewertet"

[autoit]

#include <Misc.au3>
HotKeySet("{ESC}", "Terminate")

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

Global $x = 0, $y = 0

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

While 1
If _IsPressed(01) Then
$x = $x + 1
Do
Sleep(50)
Until Not _IsPressed(01)
EndIf
If _IsPressed(02) Then
$y = $y + 1
Do
Sleep(50)
Until Not _IsPressed(02)
EndIf
Sleep(20)
WEnd

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

Func Terminate()
MsgBox(4096, "Mausklicks", $x & " " & $y)
Exit
EndFunc

[/autoit]

€: geht sicherlich auch leichter, aber habs hier in der Schnellantwort geschrieben

€:

Zitat

p.s. schnuffel? oO

Ja ich verwechsel Schnuffel und Schnitzel immer. Wir haben auch einen Schnuffel im forum

Schnitzel, ich würde es so machen:

[autoit]

#include <Misc.au3>
HotKeySet("{ESC}", "Terminate")

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

Global $x = 0

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

While 1
If _IsPressed(01) Then
$x = $x + 1
Do
Sleep(50)
Until Not _IsPressed(01)
EndIf
Sleep(20)
WEnd

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

Func Terminate()
MsgBox(4096, "Mausklicks", $x)
Exit
EndFunc

[/autoit]

Empfehle dir mal die _TocLib.au3 zu downloaden

Hätte man mal tun sollen

Weil du das hier geschrieben hattest, hat mich ein wenig irritiert:

[autoit]

Dim $Field[49][49]; Array mit 50x50 Feldern. (0 wird mitgezählt)

[/autoit]

Raupi

Aber ein Array von:
$Array[49][49] hat doch nur 49 Elemente... 0 - 48, oder nicht?

Zitat von cOraXx

Das stimmt schon. Nur muss man den Thread auch sehen. Ich habe eine 2ten Post gemacht, damit dieser Thread im Portal angezeigt wird.

Lass einfach das pushen.
Stell dir vor jeder würde das machen, damit sein Thread im Portal ist.
Dann gäbe es nur noch ein wildes Gepushe.
Man schaut auch öfters unter neuen Threads nach usw.
Keine Angst man übersieht es schon nicht, und wenn nach 2 Tagen keine Antwort kommt, KANN man es in Erwägung ziehen, mal kurz eine Zwischenfrage zu stellen, ob das Problem nicht lösbar ist.

Dj Bl3nd von Youtube > all

Wozu?

autoBert:
Hab die Funktionmal ein wenig umgeschrieben:

[autoit]

Func _CharShift($sTest, $bEncrypt)
Local $iAsc, $sReturn, $aTest, $i
If Not IsString($sTest) Then Return SetError(1, 0, -1)
$aTest = StringSplit($sTest, "")
Switch $bEncrypt
Case True
For $i = 1 To $aTest[0]
$sReturn &= Chr((Asc($aTest[$i])) + 1)
Next
Case False
For $i = 1 To $aTest[0]
$sReturn &= Chr((Asc($aTest[$i])) - 1)
Next
EndSwitch
Return $sReturn
EndFunc

[/autoit]

Zitat von autoBert

@Pinguin94,

hast du schon einmal probiert mit deiner Methode einen Text der einen Link enthalt zu ver- und auch wieder zu entschlüsseln? z.B.:

Code

Hier ist eine tolle Implentierund des Cäsar-Chiffres http://www.autoit.de/index.php?page=Thread&postID=196455#post196455 muss leider noch etwas angepasst werden

Ich glabe du hast des Meister des Schlüssels ( Andy vergessen) Stichwort Steganographie) er versteckt in sogar noch,

mfg autoBert

Ich versteh deinen 2. Teil des Satzes nicht

EDIT:
Wenn du Sonderzeichen verwenden willst, darfst du nicht von Z auf A und von z auf a und von 9 auf 0 springen.

Hier mal die funktion mit Decryption:

[autoit]

Func _CharShift($sTest, $bState)
Local $iAsc, $sReturn, $aTest, $i
If Not IsString($sTest) Then Return SetError(1, 0, -1)
$aTest = StringSplit($sTest, "")
For $i = 1 To $aTest[0]
$iAsc = Asc($aTest[$i])
Switch $bState
Case True
Switch $iAsc
Case 122
$iAsc = 97
Case 90
$iAsc = 65
Case 57
$iAsc = 48
Case Else
$iAsc += 1
EndSwitch
Case False
Switch $iAsc
Case 97
$iAsc = 122
Case 65
$iAsc = 90
Case 48
$iAsc = 57
Case Else
$iAsc -= 1
EndSwitch
EndSwitch
$sReturn &= Chr($iAsc)
Next
Return $sReturn
EndFunc

[/autoit]

Zitat von AntiSpeed

Jetzt weiß ich ja wies die Profis machen .

Du meinst doch jetzt nicht mich damit oder?
Du meinst allgemein alle wie BugFix Seubo Schnuffel etc?!

[autoit]

Func _CharShift($sTest)
Local $iAsc, $sReturn, $aTest, $i
If Not IsString($sTest) Then Return SetError(1, 0, -1)
$aTest = StringSplit($sTest, "")
For $i = 1 To $aTest[0]
$iAsc = Asc($aTest[$i])
Switch $iAsc
Case 122
$iAsc = 97
Case 90
$iAsc = 65
Case 57
$iAsc = 48
Case Else
$iAsc += 1
EndSwitch
$sReturn &= Chr($iAsc)
Next
Return $sReturn
EndFunc

[/autoit]

Antispeed ziemlich umständlich?