Beiträge von Darter
-
-
schönes einfach gehaltenes Script aber in Zukunft würde ich dir empfehlen deine Sripte so zu Posten:
Spoiler anzeigen
[autoit]Func _FadeIn($WINTITLE,$DELAY)
[/autoit] [autoit][/autoit] [autoit]$TRANSPARENCY=0
[/autoit] [autoit][/autoit] [autoit]While $TRANSPARENCY <= 255
[/autoit] [autoit][/autoit] [autoit]
WinSetTrans($Wintitle,"",$TRANSPARENCY)
Sleep($Delay)
$TRANSPARENCY+=5
WEndEndFunc
[/autoit] [autoit][/autoit] [autoit]Func _FadeOut($WINTITLE,$DELAY)
[/autoit] [autoit][/autoit] [autoit]$TRANSPARENCY=255
[/autoit] [autoit][/autoit] [autoit]While $TRANSPARENCY >= 0
[/autoit] [autoit][/autoit] [autoit]
WinSetTrans($Wintitle,"",$TRANSPARENCY)
Sleep($Delay)
$TRANSPARENCY-=5
WEndEndFunc
[/autoit] [autoit][/autoit] [autoit]Einfach ins Include Verzeichnis legen und dann ins Skript Verlinken
[/autoit] [autoit][/autoit] [autoit]Dann den Befehl
[/autoit] [autoit][/autoit] [autoit]FADEIN($WINTITLE,$DELAY)
[/autoit] [autoit][/autoit] [autoit]
oder
FADEOUT($WINTITLE,$DELAY)$WINTITLE = Titel des Fensters das gefadet werden soll
[/autoit]
$DELAY = Schnelligkeit(Beste ergebnisse mit Zahlen Zwischen 10 - schnell und 1000 - langsam) -
so? :
Spoiler anzeigen
[autoit]HotKeySet("q","Click_It")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
HotKeySet("{ESC}","_exit")
Opt("MouseCoordMode", 0)While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep(100)
WEndFunc Click_It()
[/autoit] [autoit][/autoit] [autoit]
_mouseclickplus( "Diablo II", "left", 320, 460, 1 )
EndFuncFunc _exit()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncFunc _MouseClickPlus($Window, $Button = "left", $x = "", $y = "", $Clicks = 1)
[/autoit] [autoit][/autoit] [autoit]
Local $MK_LBUTTON = 0x0001
Local $WM_LBUTTONDOWN = 0x0201
Local $WM_LBUTTONUP = 0x0202Local $MK_RBUTTON = 0x0002
[/autoit] [autoit][/autoit] [autoit]
Local $WM_RBUTTONDOWN = 0x0204
Local $WM_RBUTTONUP = 0x0205Local $WM_MOUSEMOVE = 0x0200
[/autoit] [autoit][/autoit] [autoit]Local $i = 0
[/autoit] [autoit][/autoit] [autoit]Select
[/autoit] [autoit][/autoit] [autoit]
Case $Button = "left"
$Button = $MK_LBUTTON
$ButtonDown = $WM_LBUTTONDOWN
$ButtonUp = $WM_LBUTTONUP
Case $Button = "right"
$Button = $MK_RBUTTON
$ButtonDown = $WM_RBUTTONDOWN
$ButtonUp = $WM_RBUTTONUP
EndSelectIf $x = "" Or $y = "" Then
[/autoit] [autoit][/autoit] [autoit]
$MouseCoord = MouseGetPos()
$x = $MouseCoord[0]
$y = $MouseCoord[1]
EndIfFor $i = 1 To $Clicks
[/autoit] [autoit][/autoit] [autoit]
DllCall("user32.dll", "int", "SendMessage", _
"hwnd", WinGetHandle($Window), _
"int", $WM_MOUSEMOVE, _
"int", 0, _
"long", _MakeLong($x, $y))DllCall("user32.dll", "int", "SendMessage", _
[/autoit] [autoit][/autoit] [autoit]
"hwnd", WinGetHandle($Window), _
"int", $ButtonDown, _
"int", $Button, _
"long", _MakeLong($x, $y))DllCall("user32.dll", "int", "SendMessage", _
[/autoit] [autoit][/autoit] [autoit]
"hwnd", WinGetHandle($Window), _
"int", $ButtonUp, _
"int", $Button, _
"long", _MakeLong($x, $y))
Next
EndFunc ;==>_MouseClickPlusFunc _MakeLong($LoWord, $HiWord)
[/autoit]
Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF))
EndFunc ;==>_MakeLong -
Schöne Sache aber mir kommt es so vor als hätte ich gensu sowas schon vor ein paar Tagen gelesen

-
auszug aus der Hilfe:
Rückgabewert
Erfolg: Gibt 1 zurück.
Fehler: Gibt 0 zurück und @error wird auf GetLastError() gesetzt.Lass dir einfach mal in einer msgbox der rückgabewert ausgeben, wenn dieser 0 ist kannst du auch mal den error abfragen
-
Hallo Rudi1982
Eig. müsste dein Script, nachdem des aus der Schleife rauspringt das Herunterfahren erzwingen.
Ich geh mal davon aus, dass du den Sleep wesentlich verringert hast um es zu testen oder?
mfg Darter
-
-
Scripte mit bass.dll müssen im X86 Modus laufen:
[autoit]#AutoIt3Wrapper_UseX64=n
[/autoit]mfgE
Da lag wohl das Problem. Ich werds mal ausprobieren. -
naja du musst den pointer finden. Wenn es ein Browsergame ist wird das über den ram wohl eher nicht funktionieren
-
ich bekomme immer die msgbox(Sound konnte nicht Initialisiert werden!) augegeben?!?
mfg Darter
-
naja das ist auch kein lauffähiges script. Es drosselt immer die Motivation zu helfen, wenn man kein lauffähiges Script hat
-
Ist doch ne einfache if abfrage oder?
Lass man dein aktuelles script sehn. -
Schöne Sache, hab ich bis jetzt noch gar nicht entdeckt.
Ich weiß jetzt nicht ob der Bug schon bekannt ist aber bei mir wird statt der Ausgabenlaustärke die Lautstärke meines Angeschlossenen Mikrophons angezeigt.
EDIT: Vergessen zu erwähnen, bei der Einstellung von select Audio device kannich zwischen 2 Mikrophonen wählen.
Bei select Audio Input nur Hautlaustärke.Win7 64 bit
mfg Darter
-
Moin
Da heute morgen jemand eine Funktion 2DArraytoString brauchte hab ich mal schnell eine gemacht.
Ich hab in der ArrayMore UDF von BugFix gekuckt und da war keine drinn(vllt alte version)
Naja auf jeden fall hier ist sie und @ BugFix fals die dir gefällt und soch eine noch nicht in deiner UDF ist kannst die ja mit reinnehemen
Spoiler anzeigen
[autoit];====================================================================================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Function.......: _2DArrayToString(ByRef Const $avArray, [$sReturnMode = 0, [$s_D1_Delim = "|", [$iStart = 0, [$iEnd = 0, [$s_D2_Delim = "|"]]]]])
; Description....: Places the elements of an array into a single string, separated by the specified delimiter.
; Parameters ....: $avArray - Array to combine
; $sReturnMode - [optional] Mode to return the String [0]Row 0(Col 0 ,Col 1),Row 1(Col 0,Col 1),Row ..(Col 0,Col 1)
; [1]Row 0(Col 0),Row 1(Col 0),Row ..(Col 0) , Row 0(Col 1),Row 1(Col 1),Row ..(Col 1)
; $s_D1_Delim - [optional] Delimiter for combined string[D1]
; $iStart - [optional] Index of array to start combining at
; $iEnd - [optional] Index of array to stop combining at
; $s_D1_Delim - [optional] Delimiter for combined string[D2]
; Return values .: Success - string which combined selected elements separated by the delimiter string.
; Failure - "", sets @error:
; |1 - $avArray is not an array
; |2 - $iStart is greater than $iEnd
; |3 - $avArray is not an 2 dimensional array
; |4 - $sReturnMode is incorrectly
; Author ........: Darter
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........: http://www.Autoit.com
; Example .......: -
;====================================================================================================================================================================
Func _2DArrayToString(ByRef Const $avArray, $sReturnMode = 0, $s_D1_Delim = "|", $iStart = 0, $iEnd = 0, $s_D2_Delim = "|")
If Not IsArray($avArray) Then Return SetError(1, 0, "")
If UBound($avArray, 0) <> 2 Then Return SetError(3, 0, "")
If $sReturnMode > 1 Then Return SetError(4, 0, "")Local $sResult, $iUbound = UBound($avArray,1)-1
[/autoit] [autoit][/autoit] [autoit]If $iEnd < 1 Or $iEnd > $iUBound Then $iEnd = $iUBound
[/autoit] [autoit][/autoit] [autoit]
If $iStart < 0 Then $iStart = 0
If $iStart > $iEnd Then Return SetError(2, 0, "")If $sReturnMode = 0 Then
[/autoit]
For $i = $iStart To $iEnd
$sResult &= $avArray[$i][0] & $s_D2_Delim & $avArray[$i][1] & $s_D1_Delim
Next
$sResult = StringTrimRight($sResult, StringLen($s_D1_Delim))
Else
For $i = $iStart To $iEnd
$sResult &= $avArray[$i][0] & $s_D1_Delim
Next
$sResult = StringTrimRight($sResult, StringLen($s_D1_Delim)) & $s_D2_Delim
For $i = $iStart To $iEnd
$sResult &= $avArray[$i][1] & $s_D1_Delim
Next
EndIf
Return StringTrimRight($sResult, StringLen($s_D1_Delim))
EndFuncmfg Darter
-
GuiOnEventMode.
Das macht das ganze Script übersichtlicher. -
jo das sieht mir so aus, als hättest du mozrepl nicht installiert oder nicht aktiviert das bekommst du hier:
http://wiki.github.com/bard/mozrepl/die Zeile sagt es dir :
Edit: Ich habe auch das Script nochmal etwas geändert, sodass es jetzt von den ersten 200 Seiten den Quelltext holt. Bei dem ersten hätte er nach der letzten Seite nicht aufgehört
Spoiler anzeigen
[autoit]#include<FF.au3>
[/autoit] [autoit][/autoit] [autoit]_FFStart("http://www.geocaching.com/seek/nearest.aspx?lat=50.281767&lng=9.19205&f=1")
[/autoit]
For $i = 1 To 200 ;Anzahl der max seiten
FileWrite(@ScriptDir & "/Quelltext" & $i & ".txt", _FFReadHTML())
_FFClick(_FFXPath("/html/body/form[@id='aspnetForm']/div[@id='doc3']/div[@id='bd']/div[@id='yui-main']/div[@id='Content']/div[2]/div[@id='ctl00_ContentBody_ResultsPanel']/div/table/tbody/tr/td[2]/a[15]/b", "", 9))
_FFLoadWait()
Next
mfg Darter -
Hallo ProblemUser
Ich habe mit deinen Open World Browser heute auch mal heruntergeladen und ausprobiert, jedoch funktioniert bei mir nichts.
Es öffnet sich ein Fenster mit ein paar buttons/inputs, der Rest bleibt weiß.Win7 64 bit
mfg Darter
-
Hang man. hmmm Coole idee. ich beschäftige mich auch grad mit C un erstell schon meine ersten fenster unter der Verwendung der WinAPI.
Das ist dann GDI+ auch nciht mehr weit weg ich werd mich mal dranhängen
-
Hallo Current
Mir ist auf jeden fall bekannt, dass man die Lautstärke ändern kann(_BASS_SetVolume()).
Aber man anders gefragt, wieso kuckst du nicht einfach in die UDF rein? Da sind doch alle Funktionen beschrieben.mfg Darter
-
schau dir mal den thread an da wird auch mit flash hantiert, da dürfte was dabei sein: Splash Ladebildschirm (ähnlich wie bei Office 2010)