Beiträge von stayawayknight

stayawayknight

das letze mal, das sowas bei mir war war vor ca. einem Monat... in letzer Zeit taucht bei mir gar nix mehr auf

stayawayknight

ist das dein Ernst??????

Zitat

Dieser Beitrag wurde bereits 7237 mal editiert, zuletzt von »Trainman« (6. April 2010, 18:12)

7237 Edits??
Und wie kann der letzte Edit am 6. April dieses Jahres gemacht worden sein, wenn das Thema gestern eröffnet wurde?

Außerdem gehört das hier eher in "Hilfe und Unterstützung" als nach Skripte. Hier werden nur fertige Skripte released.

stayawayknight

Falls ihr damit wirklich Geld machen wollt, denk ich braucht ihr zumindest eine eigene Domain.
Und Autoit ist, wie oben erwähnt, wirklich nicht die beste Wahl...

Trotzdem drücke auch ich euch die Daumen

stayawayknight

Um nochmal StringRegExp aufzugreifen:

Es prüft, ob ein String eine bestimmte Zeichenfolge beinhaltet-also das was eine Suche auch macht. Mit den entsprechenden Parametern lassen sich auch alle Treffer zurückgeben zurückgeben... Was jeodch erstmal unwichtig ist

SEuBo hat dazu ein sehr gutes Tutorial geschrieben, das sogar ich kapiert hab

Bei deinem Beispiel:

Spoiler anzeigen

[autoit]

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

If StringRegExp($string1, $suchstring) = 1 Then ;StringRegExp gibt 0 zurück wenn nix gefunden wurden, wenn was gefunden wurde gibt es 1 zurück
MsgBox(0, "Enthalten", "String1 enthält den Suchstring!")
ElseIf StringRegExp($string2, $suchstring) = 1 Then
MsgBox(0, "Enthalten", "String2 enthält den Suchstring!")
ElseIf StringRegExp($string3, $suchstring) = 1 Then
MsgBox(0, "Enthalten", "String3 enthält den Suchstring!")
EndIf

[/autoit]

Leerzeichen spielen bei StringRegExp keine Rolle, sie werden dargestellt durch:

Code

" "

stayawayknight

Ich würde vorschlagen

[autoit]

StringRegExp()

[/autoit]

zu benutzen

stayawayknight

Nur mal so:
Das funktioniert so NUR bei deiner Auflösung

stayawayknight

wie oben schon vermutet, scheinen die Case-Abfragen falsch zu sein-sie werden nie angesprochen.
Siehe hier:

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <DllInclude.au3>
#include <Fade.au3>
#include <GuiConstants.au3>

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

Dim $Zeile[7]
$Zeile[0] = 6
$Zeile[1] = 6
$Zeile[2] = 6
$Zeile[3] = 6
$Zeile[4] = 6
$Zeile[5] = 6
$Zeile[6] = 6

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

Global $NUMMER = 0

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

Opt("GUIOnEventMode", 1)
GUICreate("4 Gewinnt", 724, 620, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN,"SetColor")
GUISetBkColor(0xFFFFFF)
GUICtrlCreatePic("", 0, 0)
_SetImagefromResource(-1, "SPIELFELD", @ScriptDir & "\PIC.dll", $RT_RCDATA)
DIM $Spielstein[6][7]

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

;1. Reihe
$Spielstein[0][0]=GUICtrlCreatePic("",20,18,66,66)
$Spielstein[0][1]=GUICtrlCreatePic("",20,121,66,66)
$Spielstein[0][2]=GUICtrlCreatePic("",20,224,66,66)
$Spielstein[0][3]=GUICtrlCreatePic("",20,327,66,66)
$Spielstein[0][4]=GUICtrlCreatePic("",20,430,66,66)
$Spielstein[0][5]=GUICtrlCreatePic("",20,533,66,66)
$Spielstein[0][6]=GUICtrlCreatePic("",20,636,66,66)

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

;2. Reihe
$Spielstein[1][0]=GUICtrlCreatePic("",123,18,66,66)
$Spielstein[1][1]=GUICtrlCreatePic("",123,121,66,66)
$Spielstein[1][2]=GUICtrlCreatePic("",123,224,66,66)
$Spielstein[1][3]=GUICtrlCreatePic("",123,327,66,66)
$Spielstein[1][4]=GUICtrlCreatePic("",123,430,66,66)
$Spielstein[1][5]=GUICtrlCreatePic("",123,533,66,66)
$Spielstein[1][6]=GUICtrlCreatePic("",123,636,66,66)

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

;3. Reihe
$Spielstein[2][0]=GUICtrlCreatePic("",226,18,66,66)
$Spielstein[2][1]=GUICtrlCreatePic("",226,121,66,66)
$Spielstein[2][2]=GUICtrlCreatePic("",226,224,66,66)
$Spielstein[2][3]=GUICtrlCreatePic("",226,327,66,66)
$Spielstein[2][4]=GUICtrlCreatePic("",226,430,66,66)
$Spielstein[2][5]=GUICtrlCreatePic("",226,533,66,66)
$Spielstein[2][6]=GUICtrlCreatePic("",226,636,66,66)

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

;4. Reihe
$Spielstein[3][0]=GUICtrlCreatePic("",329,18,66,66)
$Spielstein[3][1]=GUICtrlCreatePic("",329,121,66,66)
$Spielstein[3][2]=GUICtrlCreatePic("",329,224,66,66)
$Spielstein[3][3]=GUICtrlCreatePic("",329,327,66,66)
$Spielstein[3][4]=GUICtrlCreatePic("",329,430,66,66)
$Spielstein[3][5]=GUICtrlCreatePic("",329,533,66,66)
$Spielstein[3][6]=GUICtrlCreatePic("",329,636,66,66)

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

;5. Reihe
$Spielstein[4][0]=GUICtrlCreatePic("",432,18,66,66)
$Spielstein[4][1]=GUICtrlCreatePic("",432,121,66,66)
$Spielstein[4][2]=GUICtrlCreatePic("",432,224,66,66)
$Spielstein[4][3]=GUICtrlCreatePic("",432,327,66,66)
$Spielstein[4][4]=GUICtrlCreatePic("",432,430,66,66)
$Spielstein[4][5]=GUICtrlCreatePic("",432,533,66,66)
$Spielstein[4][6]=GUICtrlCreatePic("",432,636,66,66)

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

;6. Reihe
$Spielstein[5][0]=GUICtrlCreatePic("",535,18,66,66)
$Spielstein[5][1]=GUICtrlCreatePic("",535,121,66,66)
$Spielstein[5][2]=GUICtrlCreatePic("",535,224,66,66)
$Spielstein[5][3]=GUICtrlCreatePic("",535,327,66,66)
$Spielstein[5][4]=GUICtrlCreatePic("",535,430,66,66)
$Spielstein[5][5]=GUICtrlCreatePic("",535,533,66,66)
$Spielstein[5][6]=GUICtrlCreatePic("",535,636,66,66)

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

_Fade("4 Gewinnt", "", 3, 1)

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

While 1
Sleep(100)
WEnd

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

Func SetColor()
$X_COORD = MouseGetPos(0)
$FARBE="ROT"
Switch $X_COORD
Case $X_COORD<-352 Or $X_COORD>352
Sleep(500)
Case -352 To -260
MsgBox(0, "hi", "tut")
$NUMMER = 0
Case -250 To -158
MsgBox(0, "hi", "tut")
$NUMMER = 1
Case -148 To -56
MsgBox(0, "hi", "tut")
$NUMMER = 2
Case -46 To 46
MsgBox(0, "hi", "tut")
$NUMMER = 3
Case 56 To 148
MsgBox(0, "hi", "tut")
$NUMMER = 4
Case 158 To 250
MsgBox(0, "hi", "tut")
$NUMMER = 5
Case 260 To 352
MsgBox(0, "hi", "tut")
$NUMMER = 6
EndSwitch
MsgBox(0,"","$Nummer ist: "&$NUMMER)
If $Zeile[$NUMMER]= -1 Then
MsgBox(16,"ERROR","Die Spalte ist voll es kann kein weiterer Spielstein gesetzt werden")
$Zeile[$NUMMER]=0
Else
_SetImagefromResource($Spielstein[$NUMMER][$Zeile[$NUMMER]],$FARBE, @ScriptDir & "\PIC.dll", $RT_RCDATA)
$Zeile[$NUMMER]-=1
EndIf

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

EndFunc ;==>SetColor

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

Func Close()
_Fade("4 Gewinnt", "", 3, 2)
Exit
EndFunc ;==>Close

[/autoit]

Keine einzige meiner MsgBoxen (die "MsgBox(0, "hi", "tut")") wird angezeigt.
Dass bedeutet, dass das Script nie zu dem Sector gelangt, bei dem der Varialbe ein neuer Wert zugewiesen wird

stayawayknight

Fehlen noch Dlls....
Die Pic.dll die im Scriptverzeichnis bei dir liegt wär nich schlecht
aber dann müsste es passen

stayawayknight

Könntest du bitte noch die Fade.au3 und die DllInclude.au3 anhängen? Die ist glaub ich standartmäßig nicht dabei, also ich hab sie auf jeden Fall nicht und ohne die kann ich das Script nur schlecht testen..

stayawayknight

Nach knapp 45 mins Thread pushen? Das ist hier ziemlich verpöhnt....

Es ist denk ich unmöglich zu sagen an was das liegen könnte, wenn man noch keine Erfahrung mit dem Problem hat.
Lad dir den Browser neu runter, unnötige Dateien löschen (C-Cleaner) um Geschwindigkeit zu schaffen...
bei mir gibt es mit Opera kein Problem...

Tipp: Benutze doch FireFox, InternetExplorer oder was weiß ich, dann kannste auch das Präfix setzen

stayawayknight

Zitat von r!zz3

Warum geht den jetzt der Autoit Code Anzeigen nicht?!?!?

Bei der letzen Zeile des Scripts hat du statt "[/autoit]" nur "/autoit]" stehen

stayawayknight

Sry tut auch nicht...
Brauchs aber eigentlich gar nicht mehr, danke für eure Hilfe!

stayawayknight

Ich kenn mich mit Dlls kein bisschen aus, sorry
Weiß jemand wie man das am einfachsten zu verstehen lernt?

stayawayknight

Zitat von nuts

Um 0 bis 100% darzustellen findet man das doch recht häufig.

ja weil 0.1 mathematisch gesehen auch 10% darstellt, 0.2 entspricht 20% etc.

Meine Aussage hat sich auf physikalische Einheiten bezogen

stayawayknight

Auch danke von mir, deine Lösungen haben mir schon bei so einigen Problemen geholfen

stayawayknight

Und vor allem sind Viren keine Zufallsprodukte die irgendwie entstehen,
sie werden gezielt von kranken Menschen entwickelt, um dir Schaden zuzufügen.
Sie werden gezielt entwickelt, um Virenprogramme zu umgehen, möglichst viel Schaden anzurichten und vor dir selbst möglichst unsichtbar zu bleiben.
Das wird extra gemacht, und wenn man dagegen nix macht, kann man den PC gleich in den Gulli kicken.

Natürlich sollte man jetzt nicht in Panik verfallen und seinen PC vor lauter Angst nicht anrühren, aber gewisse Vorsichtsmaßnahmen sollte man schon treffen.
Ratz und Fatz und dein PC ist infiziert. Einmal nicht aufgepasst, und das wars dann.

Lieber zuviel Vorsicht, als zu wenig!

stayawayknight

gibt doch sowas wie ResHacker oder so, ich hab leider keine Ahnung von Dlls, aber vielleicht kann man ja mal in die reinschauen und evtl. was finden

stayawayknight

Dank der Deutschen Übersetzungen oben kann man immernoch auf die Originalnachricht schließen...
Das Thema kommt mir hier bekannt vor, glaub sowas gabs schonmal... mit irgendwelchen Bitten, allesamt mit einer Schicksalsgeschichte...
Letzendlich ging es in den Nachrichten immer darum, Geld irgendwelchen Leuten zu geben

stayawayknight

So jetzt:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GDIPlus.au3>

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

$title = ""
$guiwidth = 625
$guiheight = 416
$guix = 363
$guiy = 134
$picpath = @ScriptDir & "\pic\"

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

Opt("TrayAutoPause", 0)
Opt("TraymenuMode", 1)

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

;###Gui Start
$main = GUICreate($title, $guiwidth, $guiheight, $guix, $guiy)
GUISetBkColor(0x000000)
GUISetState(@SW_SHOW)
GUISetIcon($picpath & "star.ico")
Opt("GuiOnEventMode", 1)
Opt("TrayOnEventMode", 1)
Opt("GuiCloseOnEsc", 1)
GUISetOnEvent($GUI_EVENT_CLOSE, "ende")
;###Gui Ende

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

;###GDIPlus Start
_GDIPlus_Startup()
$graphics = _GDIPlus_GraphicsCreateFromHWND($main)
$bk = _GDIPlus_ImageLoadFromFile($picpath & "bk.jpg")

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

_GDIPlus_GraphicsDrawImageRect($graphics, $bk, 0, 0, $guiwidth, $guiheight)
;###GDIPlus Ende

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

;###Controls Start
$icon = GUICtrlCreateIcon($picpath & "star.ico", "", 100, 100, 100, 100, $SS_ICON)
;###Controls Ende

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

While 1
Sleep(250)
WEnd

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

Func ende2()
Exit
EndFunc ;==>ende2

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

Func ende()
_GDIPlus_GraphicsDispose($graphics)
_GDIPlus_Shutdown()
Exit
EndFunc ;==>ende

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

stayawayknight

Kann ich zwar nur raten, könnte mir aber etwas wie Dezibel vorstellen (oder eine andere physikalische Einheit) ... auch wenn es seltsam ist das das dann zwischen 0 und 1 liegt

Beiträge von stayawayknight

täglich Forumausfälle (nur bei mir?)

Programm zum Klicks zählen

LK Scripts - Spice up your Windows

Suchfunktion funktioniert nicht bei Leerzeichen im String

Suchfunktion funktioniert nicht bei Leerzeichen im String

Mouseklick Funktioniert nicht

Probleme mit variablen

Probleme mit variablen

Probleme mit variablen

Hilfe zu diesem FORUM

Controll Click

GuiCtrlCreateIcon

Wert von GetVolume bei BASS-UDF?

Wert von GetVolume bei BASS-UDF?

5000x BugFix

USB-Trojaner-Lücke in Windows

Wert von GetVolume bei BASS-UDF?

Kann jemand Arabisch?

GuiCtrlCreateIcon

Wert von GetVolume bei BASS-UDF?